9 lines
118 B
Plaintext
9 lines
118 B
Plaintext
|
10 A=0
|
||
|
|
20 A=A+1
|
||
|
|
30 OUT 16,192
|
||
|
|
40 FOR J=1 TO LEN(STR$(A))
|
||
|
|
50 B=ASC(MID$(STR$(A),J,1))
|
||
|
|
60 OUT 17,B
|
||
|
|
70 NEXT J
|
||
|
|
90 GOTO 20
|