mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-05-29 08:41:36 +00:00
10 lines
227 B
QBasic
10 lines
227 B
QBasic
10 HIMEM:8162
|
|
20 POKE 232,226:POKE 233,31
|
|
30 FOR L=8162 TO 8175: READ B:POKE L,B:NEXT L
|
|
35 HGR:ROT=0:SCALE=5
|
|
40 FOR I=1 TO 5: XDRAW 1 AT I*25,100:ROT=I*4:NEXT I
|
|
90 END
|
|
100 DATA 1,0,4,0,137,164,55,63,156,164
|
|
101 DATA 37,45,6,0
|
|
|