mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-03 07:35:42 +00:00
10 lines
227 B
QBasic
10 lines
227 B
QBasic
1 POKE 768,64:POKE 232,0:POKE 233,3
|
|
5 FOR I=0 TO 31:POKE 770+(I*2),4:POKE 771+(I*2),205+I
|
|
8 POKE 770+64+(I*2),4:POKE 771+64+(I*2),205+I:NEXT
|
|
10 HGR2:SCALE=1
|
|
40 FOR I=1 TO 64
|
|
45 ROT=I-1
|
|
50 XDRAW I AT 140,96
|
|
60 NEXT I
|
|
70 GOTO 40
|