a$ = ""

while ( a$ <> "S" )
  print "Key please ('S' to stop): ";
  a$ = inkey$
  print "(", a$, ")"
wend