ack/lang/basic/test/test07.bas

7 lines
89 B
QBasic
Raw Permalink Normal View History

1985-01-24 11:27:36 +00:00
100 print "whiletest"
105 i%=1
110 while i
120 print "a happy 1984"
123 input i
124 wend