a$ = ""

while ( a$ <> "stop" )
  print "Type: ";
  input a$
  print a$
wend