apple2a/examples/gr_fill_screen.bas

8 lines
87 B
QBasic

10 GR
15 COLOR=5
20 FOR Y = 0 TO 39
30 FOR X = 0 TO 39
40 PLOT X,Y
50 NEXT X
60 NEXT Y