dos33fsprogs/basic/appleiibot/fakes.bas
2021-01-28 23:48:03 -05:00

9 lines
141 B
QBasic

10 GR:COLOR=9
20 FOR X=0 TO 39
30 POKE 2138,X
40 FOR Y=0 TO X
50 POKE 2140,Y:CALL 2137
60 PLOT X,PEEK(36)
70 NEXT Y,X
100 SPEED=$)%DEL$LRUSR