1 2 3 4 5 6 7
a$ = "" while ( a$ <> "S" ) print "Key please ('S' to stop): "; a$ = inkey$ print "(", a$, ")" wend