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

7 lines
57 B
QBasic
Raw Normal View History

10 a=1
20 repeat
30 print a
40 a=a+1
50 until a=10