nuttx-apps/examples/bastest/tests/test37.bas

7 lines
121 B
QBasic
Raw Normal View History

10 open "i",1,"test.ref"
20 while not eof(1)
30 line input #1,a$
40 if a$="abc" then print a$; else print "def"
50 wend