dos33fsprogs/graphics/hgr/c64/c64_tiny.bas
2021-01-25 19:18:54 -05:00

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