vm6502/numbers.bas

11 lines
140 B
QBasic

10 LET A=0
15 LET B=0
20 PRINT A;" ";
30 LET A=A+1
32 LET B=B+1
35 IF B>9 THEN GOTO 60
40 IF A>1000 THEN END
50 GOTO 20
60 PRINT
70 GOTO 15