25 lines
752 B
Text
25 lines
752 B
Text
100 DATA 0,2, 6,10,5, 6, 7,15
|
|
110 DATA 0,1, 3,10,5, 3,11,15
|
|
120 DATA 0,8, 9,10,5, 9,13,15
|
|
130 DATA 0,4,12,10,5,12,14,15
|
|
140 LET C = 7
|
|
150 POKE 768,169: REM LDA #
|
|
160 POKE 770,073: REM EOR #
|
|
170 POKE 772,133: REM STA
|
|
180 POKE 773,235: REM $EB
|
|
190 POKE 774,096: REM RTS
|
|
200 GR
|
|
210 FOR H = 0 TO 1
|
|
220 FOR W = 0 TO 1
|
|
230 FOR S = 0 TO C
|
|
240 READ C(S)
|
|
250 NEXT S
|
|
260 FOR Y = 0 TO C
|
|
270 POKE 769,Y
|
|
280 LET Y1 = H * S * 2 + Y * 2
|
|
290 FOR X = 0 TO C
|
|
300 POKE 771,X
|
|
310 CALL 768
|
|
320 COLOR= C( PEEK (235))
|
|
330 VLIN Y1,Y1 + 1 AT W * S + X
|
|
340 NEXT X,Y,W,H
|