mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-13 19:05:15 +00:00
12 lines
312 B
QBasic
12 lines
312 B
QBasic
0POKE232,20:POKE233,8
|
|
1REM
|
|
2HGR2:HCOLOR=6:HPLOT0,0:CALL-3082:
|
|
3FORL=0TO 34:READB:POKE768+L,B:NEXT
|
|
4ROT=0:SCALE=2:HCOLOR=7
|
|
5FORI=0TO8:READQ:DRAWQAT1+I*8,8:NEXT
|
|
100 DATA 5,0,12,0,14,0,19,0,24,0
|
|
101 DATA 30,0,2,0,63,36,45,5,0,63
|
|
102 DATA 36,45,54,0,36,55,60,54,6,0
|
|
103 DATA 59,36,173,6,0
|
|
500 DATA 1,1,2,3,4,4,3,5,3
|