mirror of
https://github.com/bradgrantham/apple2a.git
synced 2024-11-30 06:51:03 +00:00
9 lines
130 B
QBasic
9 lines
130 B
QBasic
|
10 HOME
|
||
|
|
20 CH = 65+128
|
||
|
|
30 AD = 1024
|
||
|
|
40 POKE AD,CH
|
||
|
|
50 AD = AD + 1
|
||
|
|
60 IF AD < 2048 GOTO 40
|
||
|
|
70 CH = CH + 1
|
||
|
|
80 IF CH < 70+128 GOTO 30
|