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