apple2a/examples/text_fill_screen_goto.bas

9 lines
130 B
QBasic
Raw Normal View History

2018-08-06 07:25:27 +00:00
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