mirror of https://github.com/digarok/kfest08.git
1 line
32 KiB
Plaintext
1 line
32 KiB
Plaintext
10 PR#3
|
|
|
|
20 POKE 49232,0:POKE 49246,0:POKE 49165,0
|
|
|
|
25 NOTRACE
|
|
|
|
30 VC = PEEK (49186)
|
|
|
|
40 BC = INT (PEEK (49204)): BC = BC - INT(BC/16) *16
|
|
|
|
REM INSTALL BORDERCOLOR CODE
|
|
|
|
60 POKE 768,169 : POKE 769,15 : POKE 770,28 : POKE 771,52 : POKE 772,192 : POKE 773,173
|
|
|
|
70 POKE 774,12 : POKE 775,03 : POKE 776,12 : POKE 777,52 : POKE 778,192 : POKE 779,96
|
|
|
|
80 POKE 780,0 : CALL 768
|
|
|
|
|
|
|
|
|
|
|
|
REM POKE 49186, VC
|
|
|
|
|
|
|
|
REM 10 HOME
|
|
|
|
REM 20 PRINT CHR$(18) : POKE 49232,0 : POKE 49246,0 : POKE 49165,0
|
|
|
|
|
|
|
|
100 GOSUB 40100
|
|
|
|
REM GOSUB clrgr()
|
|
|
|
|
|
|
|
150 GOSUB 40000
|
|
|
|
REM GOSUB renderimg()
|
|
|
|
|
|
|
|
200 GOSUB 40200
|
|
|
|
REM GOSUB pause()
|
|
|
|
|
|
|
|
REM adhoc line scroll/draw
|
|
|
|
300 FOR Y = 1 TO 8 : COLOR = 0 : CALL -912 : HLIN 0,79 AT 46 : HLIN 0,79 AT 47
|
|
|
|
310 FOR X = 0 TO 79 : READ C : COLOR = C : PLOT X,46 : NEXT X
|
|
|
|
320 FOR X = 0 TO 79 : READ C : COLOR = C : PLOT X,47 : NEXT X
|
|
|
|
330 NEXT Y
|
|
|
|
|
|
|
|
350 GOSUB 40300
|
|
|
|
REM GOSUB blackscroll()
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
REM --------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
|
|
35000 END
|
|
|
|
|
|
|
|
|
|
|
|
REM --------------------------------------------renderimg()
|
|
|
|
40000 FOR Y = 0 TO 47 : FOR X = 0 TO 79 : READ C : COLOR = C : PLOT X,Y : NEXT : NEXT
|
|
|
|
40010 RETURN
|
|
|
|
|
|
|
|
REM --------------------------------------------clrgr()
|
|
|
|
40100 COLOR = 0 : FOR Y = 0 TO 47 : HLIN 0,79 AT Y : NEXT
|
|
|
|
40110 RETURN
|
|
|
|
|
|
|
|
REM --------------------------------------------pause()
|
|
|
|
40200 FOR T = 1 TO 5000 : NEXT
|
|
|
|
40210 RETURN
|
|
|
|
|
|
|
|
REM --------------------------------------------blackscroll()
|
|
|
|
40300 COLOR = 0
|
|
|
|
40310 FOR Y = 1 TO 24 : CALL -912 : HLIN 0,79 AT 46 : HLIN 0,79 AT 47 : FOR T = 1 TO 250 : NEXT : NEXT
|
|
|
|
40320 RETURN
|
|
|
|
|
|
|
|
|
|
|
|
500 END
|
|
|
|
|
|
50000 DATA 9,1,8,8,8,1,1,9,1,8,1,1,8,1,8,1,8,1,9,1,1,1,8,8,8,1,8,1,8,8,8,8,8,1,8,1,8,1,8,1,8,8,1,8,1,1,1,8,8,8,0,8,8,0,8,8,8,8,8,8,8
|
|
50005 DATA 1,8,8,8,8,1,8,8,8,1,8,9,8,1,8,8,9,9,8,9,8,8,9,8,1,9,1,8,9,8,9,1,8,9,8,9,9,1,8,1,8,8,1,1,8,1,8,8,1,8,1,1,1,8,1,8,1,1,8,1,1
|
|
50010 DATA 8,1,8,1,0,8,5,8,10,10,8,8,8,5,10,8,5,8,8,0,8,8,8,8,5,8,1,8,8,8,8,1,8,8,9,1,9,8,1,8,1,9,8,1,8,8,8,8,9,1,8,8,8,8,1,9,9,1,1,1,8
|
|
50015 DATA 8,8,8,1,1,8,1,1,8,8,8,1,0,1,0,1,8,8,1,8,1,8,0,8,10,10,15,15,15,10,10,15,15,15,15,15,10,8,8,10,10,15,15,10,10,5,8,0,8,8,9,1,8,1,8,1,1,8,9,8,8
|
|
50020 DATA 1,9,8,9,8,9,1,8,9,8,8,9,9,1,8,8,8,8,1,1,1,1,1,8,8,1,8,1,1,8,8,1,8,8,8,1,1,8,8,1,0,8,10,15,15,15,10,15,15,15,15,10,5,10,10,15,10,10,15,15,10
|
|
50025 DATA 15,15,15,10,10,8,8,8,1,9,1,9,8,1,9,1,8,9,8,8,8,1,8,1,8,8,1,8,1,1,9,9,9,1,1,8,1,1,8,1,8,1,8,8,8,1,8,0,1,1,8,0,8,8,8,0,1,0,0,1,5
|
|
50030 DATA 10,15,5,0,0,10,15,10,0,0,0,0,0,10,15,15,15,0,0,0,5,10,15,15,10,8,0,8,1,8,1,8,1,9,9,1,8,1,8,1,8,1,8,1,8,9,8,1,9,8,1,1,9,8,1,1,8,8,1,8,1
|
|
50035 DATA 8,8,1,8,8,1,8,1,0,8,8,1,1,0,0,0,8,0,5,10,15,5,0,0,10,15,5,0,0,0,0,0,0,15,15,5,0,0,0,0,0,5,15,15,5,8,1,8,1,8,1,1,8,8,1,8,1,8,1,8,8
|
|
50040 DATA 1,8,1,8,1,9,8,8,9,1,9,9,1,8,1,8,8,1,8,1,8,0,1,8,1,8,1,1,1,0,0,0,0,8,5,10,8,0,10,15,5,0,0,10,15,0,0,0,5,0,0,0,10,15,5,0,0,0,0,0,0
|
|
50045 DATA 5,15,10,5,0,1,8,8,8,9,1,1,8,1,8,1,8,1,8,1,1,9,1,8,8,8,9,1,8,1,1,8,1,1,8,1,1,1,8,1,8,8,0,8,1,1,0,1,0,8,5,8,10,15,15,10,5,8,15,10,0
|
|
50050 DATA 0,10,10,0,0,0,15,5,0,0,5,15,10,0,0,0,5,0,0,0,10,15,10,0,8,1,1,8,1,9,1,8,1,8,1,8,8,1,1,8,1,8,1,8,1,8,1,8,1,1,1,8,8,1,0,8,1,8,1,0,8
|
|
50055 DATA 0,8,0,8,0,0,0,5,10,15,15,10,15,15,10,15,15,15,10,0,10,15,0,0,0,15,10,0,0,0,15,10,0,0,0,15,10,0,0,5,15,10,8,0,8,8,1,9,9,8,1,8,1,8,9,1,9,8,8,8,1
|
|
50060 DATA 8,8,1,8,1,8,1,8,8,8,1,8,1,1,1,8,1,0,1,0,8,0,0,0,0,5,10,15,15,5,0,10,15,15,15,10,15,10,0,15,15,0,0,0,10,10,0,0,0,15,15,0,0,0,15,15,0,0,0,15,15
|
|
50065 DATA 5,0,8,1,9,8,9,1,8,8,8,8,1,9,1,8,8,9,8,1,8,8,1,1,8,8,1,1,8,8,0,8,1,8,0,8,0,1,0,0,0,5,5,5,5,10,15,5,0,0,5,15,10,0,0,10,5,0,15,15,5
|
|
50070 DATA 0,0,10,15,0,0,0,10,15,5,0,0,10,15,0,0,0,10,15,8,0,0,8,1,8,1,8,1,1,8,1,8,1,8,1,8,1,8,8,1,1,9,1,9,1,8,8,8,1,8,1,1,0,1,0,1,0,0,5,5,10
|
|
50075 DATA 10,15,10,10,15,5,0,0,0,5,0,0,0,10,10,10,15,15,5,0,0,5,15,5,0,0,10,15,15,5,0,0,5,0,0,0,10,15,5,5,0,1,8,1,9,8,1,8,9,8,1,9,9,9,1,8,1,8,8,8,1
|
|
50080 DATA 1,8,1,8,1,8,8,8,0,1,8,1,0,1,0,5,10,10,15,15,15,15,15,15,10,0,0,0,0,0,0,0,10,15,15,10,15,10,0,0,0,15,5,0,0,5,15,15,10,0,0,0,0,0,0,10,15,10,0,0,8
|
|
50085 DATA 8,1,9,8,9,9,1,8,1,9,1,1,9,9,8,8,1,1,1,8,1,8,1,1,8,1,0,8,0,0,1,0,0,5,10,15,15,10,0,0,0,15,15,5,0,0,0,0,0,5,15,15,15,10,5,15,10,0,0,0,15
|
|
50090 DATA 10,0,0,5,15,15,0,0,0,0,0,0,5,15,15,5,0,8,8,1,8,8,1,8,1,8,1,8,8,8,8,9,9,1,1,8,8,1,8,8,1,8,0,1,0,8,0,0,0,0,0,0,5,15,15,5,0,0,0,0,5
|
|
50095 DATA 15,0,0,0,0,5,10,15,15,10,5,0,5,10,15,0,0,0,10,10,0,0,0,15,10,0,0,0,5,5,0,5,15,15,10,0,0,0,8,8,1,8,8,8,8,8,0,8,8,1,8,1,8,1,8,1,8,8,1,1,0
|
|
50100 DATA 1,8,0,0,0,8,5,8,5,5,10,15,5,0,0,0,0,0,0,15,0,0,0,0,10,15,10,5,5,0,0,5,10,15,5,0,0,10,15,0,0,0,15,15,0,0,0,10,15,0,0,5,15,10,5,0,8,8,8,9,1
|
|
50105 DATA 8,8,8,8,10,5,8,8,8,8,0,1,8,1,8,8,0,8,1,0,0,0,8,5,10,15,15,15,10,15,10,0,0,0,0,0,0,0,15,5,0,0,0,5,15,10,0,5,5,5,5,10,15,5,0,0,5,15,0,0,0
|
|
50110 DATA 10,15,0,0,0,10,15,5,0,0,10,15,8,0,0,8,8,8,8,8,0,10,15,15,15,10,8,8,8,8,0,8,0,0,8,8,8,0,8,8,5,10,15,15,15,10,10,15,15,5,0,0,5,10,0,0,0,10,15,10,0
|
|
50115 DATA 0,5,15,10,5,10,15,10,5,5,15,10,0,0,5,15,5,0,0,5,15,5,0,0,5,15,5,0,0,5,15,10,5,0,1,8,1,8,1,8,10,15,10,15,15,15,10,10,10,10,8,10,8,5,8,10,10,10,15,10,15
|
|
50120 DATA 15,5,0,0,0,10,15,5,0,0,10,15,5,0,10,15,15,10,0,0,0,15,15,15,15,15,15,10,5,15,10,0,0,0,15,5,0,0,5,15,5,0,0,5,15,10,0,0,5,15,10,8,0,0,8,8,1,8,0,10,15
|
|
50125 DATA 5,0,5,10,15,15,15,15,15,15,15,15,15,15,15,15,15,15,10,0,0,0,0,0,0,15,5,0,0,5,15,10,15,15,10,15,10,0,0,0,10,15,10,5,5,15,10,5,15,10,0,0,0,5,0,0,0,5,15,10,0
|
|
50130 DATA 0,0,5,5,0,0,0,15,10,5,0,8,1,8,8,1,8,10,15,10,0,0,5,15,15,5,10,10,10,10,10,10,5,5,0,10,15,5,0,0,0,0,0,0,10,5,0,0,5,15,15,15,15,15,10,15,0,0,0,10,15
|
|
50135 DATA 0,0,0,15,10,5,10,15,5,0,0,0,0,0,0,5,15,15,5,0,0,0,0,0,0,0,10,15,5,0,0,8,8,1,1,8,5,15,10,0,0,0,15,15,0,0,0,5,0,0,0,0,0,0,10,15,0,0,0,10,5
|
|
50140 DATA 0,0,10,10,0,0,0,0,5,5,5,15,15,15,5,0,0,5,15,5,0,0,10,15,5,10,15,10,0,0,0,0,0,0,15,15,15,15,0,0,0,0,0,0,0,10,15,5,0,8,8,1,1,8,0,8,15,15,0,0,0
|
|
50145 DATA 15,15,0,0,0,10,0,0,0,0,0,0,5,15,0,0,0,15,10,0,0,5,10,0,0,0,0,0,0,0,5,15,15,5,0,0,5,15,5,0,0,10,15,5,5,10,15,10,5,5,5,10,15,15,10,10,15,15,10,0,0
|
|
50150 DATA 0,0,0,10,15,8,0,0,0,8,8,1,8,5,10,15,0,0,0,10,15,0,0,0,10,0,0,0,0,0,5,10,15,0,0,0,10,15,0,0,5,15,5,0,0,0,0,0,0,0,10,15,10,0,0,0,10,0,0,0,15
|
|
50155 DATA 15,5,0,5,10,15,15,15,15,15,15,10,5,5,10,15,15,15,10,10,5,5,15,15,5,0,8,8,8,1,1,0,8,10,15,5,0,0,10,10,0,0,0,15,5,0,0,5,15,15,15,15,0,0,0,10,15,0,0,0,15
|
|
50160 DATA 10,5,0,0,0,0,0,0,5,15,10,0,0,0,0,0,0,5,15,10,5,0,0,5,10,10,10,10,5,5,0,0,0,0,5,10,10,15,15,15,15,15,10,5,0,0,0,8,1,8,8,8,10,15,5,0,0,5,10,0,0
|
|
50165 DATA 0,15,5,0,0,5,15,10,10,15,5,0,0,5,15,5,0,0,10,15,15,15,10,10,0,0,0,5,15,15,0,0,0,0,0,0,15,15,5,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,5,5,5,10,10,10,5
|
|
50170 DATA 5,0,0,8,8,8,8,8,1,8,8,15,10,0,0,5,10,0,0,0,15,10,0,0,0,15,10,10,15,5,0,0,5,15,5,0,0,10,15,10,15,15,15,10,0,0,0,15,15,5,0,0,0,5,15,15,10,5,0,0,0
|
|
50175 DATA 0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,5,0,0,0,0,0,0,8,1,9,8,0,8,15,10,0,0,0,10,0,0,5,15,10,0,0,0,15,15,10,15,10,0,0,0,15,5,0,0,5,15,15,15,10
|
|
50180 DATA 15,10,0,0,0,15,15,15,10,5,10,15,15,10,5,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,8,0,0,0,0,0,0,0,8,0,8,8,1,8,9,1,8,8,5,15,15,0,0,0,5,0,0,5,15,15,0
|
|
50185 DATA 0,0,10,15,15,10,10,0,0,0,0,0,0,0,5,15,15,5,0,15,10,0,0,0,15,10,15,15,15,15,10,5,5,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,1,0,1,8,1,8,0,8,0,8,0,8,8
|
|
50190 DATA 1,8,1,9,8,8,8,10,15,5,0,0,0,0,0,5,15,15,0,0,0,5,0,0,0,15,0,0,0,0,0,0,5,15,15,0,0,0,0,0,0,0,5,15,10,5,10,10,5,5,0,0,0,0,0,0,0,0,0,1,0
|
|
50195 DATA 1,0,1,0,1,0,8,1,8,8,1,0,1,8,0,1,8,1,8,8,1,8,9,1,0,8,10,15,5,0,0,0,0,0,5,15,15,5,0,0,0,0,0,0,10,5,0,0,0,10,15,15,10,10,5,0,0,0,0,0,0
|
|
50200 DATA 10,15,10,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,8,1,0,8,1,0,1,8,8,8,1,8,1,8,1,8,1,8,8,1,8,1,9,1,8,8,8,10,15,10,0,0,0,0,0,0,5,15,5,0,0,0,0
|
|
50205 DATA 0,0,10,5,0,0,5,15,10,0,0,10,5,0,0,0,0,0,5,15,10,5,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,1,8,1,8,1,8,1,8,1,1,8,1,8,1,8,1,8,1,1,8,8,1,1,8
|
|
50210 DATA 8,1,8,5,15,10,0,0,0,5,0,0,0,10,10,0,0,0,0,5,5,15,10,0,0,5,15,5,0,0,10,15,0,0,0,0,10,15,15,5,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,1,8,1,8,1,1
|
|
50215 DATA 8,1,1,8,1,8,1,8,1,8,1,8,8,1,8,1,8,1,8,9,8,0,8,15,15,0,0,0,15,5,0,0,5,15,0,0,0,10,15,15,15,10,0,0,0,15,5,0,0,10,15,10,5,10,15,15,10,5,0,0,0
|
|
50220 DATA 0,0,0,0,0,0,0,0,0,0,1,0,0,8,0,1,0,1,8,1,9,1,8,1,8,1,8,8,1,8,1,9,8,8,1,9,9,1,8,1,8,8,10,15,0,0,0,10,10,0,0,0,15,0,0,0,10,15,10,10,15
|
|
50225 DATA 0,0,0,0,0,0,0,10,15,15,15,15,15,10,5,0,0,0,0,0,0,0,0,0,0,8,0,1,0,0,1,0,8,8,8,1,8,1,1,8,8,8,8,8,8,1,8,8,9,9,1,8,8,1,9,9,1,9,1,8,5
|
|
50230 DATA 10,15,5,0,0,10,15,0,0,0,15,5,0,0,10,15,10,10,15,0,0,0,0,0,0,5,15,10,10,10,10,5,5,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1,0,8,1,1,1,1,1,1,8,8,8,1
|
|
50235 DATA 8,8,1,8,1,1,9,1,8,1,1,8,1,8,1,9,8,0,8,10,15,5,0,0,5,15,0,0,0,10,5,0,0,5,15,10,10,15,10,0,0,0,0,5,15,15,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
|
50240 DATA 0,1,0,0,0,1,0,1,8,8,8,8,8,8,8,1,8,8,9,1,9,1,9,8,1,9,1,9,9,8,1,9,8,1,8,8,1,0,10,15,15,5,0,5,15,5,0,0,10,10,0,0,5,15,10,5,10,15,10,5,5
|
|
50245 DATA 10,15,15,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1,8,1,0,1,1,1,8,8,1,8,8,1,1,8,1,8,1,8,1,8,1,8,1,1,1,9,8,8,8,1,8,8,8,10,15,15
|
|
50250 DATA 15,10,15,5,0,0,5,10,0,0,0,15,15,5,10,10,15,15,15,15,10,5,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,8,1,8,1,8,1,1,8,1,8,8,1,1,8,1,8
|
|
50255 DATA 9,8,8,1,8,1,9,8,1,8,1,8,8,8,1,0,8,10,10,15,15,15,15,15,10,10,15,10,10,10,15,10,5,0,5,10,10,10,5,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,8,0
|
|
50260 DATA 8,1,8,1,8,1,1,8,1,8,1,8,1,8,1,8,1,8,8,1,8,1,8,1,9,1,1,9,1,1,1,1,8,8,8,8,0,5,5,5,10,10,15,15,15,15,15,15,15,15,10,5,0,0,0,0,0,0,0,0,0
|
|
50265 DATA 0,0,0,0,0,0,0,0,1,0,0,1,0,0,8,0,1,0,1,8,0,1,8,1,8,1,8,1,9,9,8,1,9,1,8,8,8,1,8,1,8,9,9,1,9,9,1,1,9,1,8,8,1,8,1,0,0,0,0,5,5
|
|
50270 DATA 5,5,5,5,10,5,5,5,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1,0,0,8,0,0,0,1,1,0,1,1,1,8,1,8,1,1,1,8,8,1,1,1,9,1,8,9,1,9,1,8,1,9,1
|
|
50275 DATA 1,9,1,9,8,8,1,8,8,8,1,8,8,8,8,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,1,0,1,0,0,1,8,1,8,8,1,8,8
|
|
50280 DATA 8,1,8,1,1,8,8,1,8,1,8,8,8,1,1,9,9,1,9,8,9,9,1,8,1,1,8,8,1,8,8,1,8,8,0,8,0,8,0,0,0,0,0,0,0,0,0,8,0,0,8,0,0,1,0,8,0,8,0,1,0
|
|
50285 DATA 1,8,1,1,8,1,1,0,1,1,8,1,8,1,1,1,8,1,9,1,8,1,1,9,1,1,8,8,1,8,9,1,8,8,9,8,1,9,1,1,1,8,1,9,8,1,8,8,8,9,1,8,1,8,1,8,1,8,8,8,8
|
|
50290 DATA 0,8,0,8,0,8,0,8,0,8,0,8,8,0,8,0,8,0,8,0,1,8,8,1,8,1,1,0,1,0,8,1,8,8,1,8,1,8,8,1,9,1,8,1,1,1,1,9,1,8,1,1,1,1,8,9,8,1,8,1,9
|
|
50295 DATA 8,8,1,8,1,8,1,9,8,1,8,1,8,8,0,8,1,8,1,8,0,1,8,0,1,0,8,8,0,1,8,1,1,8,1,8,1,8,1,8,1,1,8,1,0,1,1,8,1,1,1,8,1,1,1,1,8,8,1,8,1
|
|
50300 DATA 9,1,8,9,8,9,1,1,9,1,8,8,8,8,1,8,1,8,9,1,8,1,8,9,8,1,1,8,8,8,8,1,8,8,1,8,8,8,1,8,8,1,8,1,8,1,8,8,0,1,8,8,8,8,8,8,8,8,8,8,1
|
|
50305 DATA 8,8,8,8,1,0,1,8,8,1,8,1,8,8,1,1,1,8,8,1,9,9,1,8,8,8,1,1,8,1,1,8,8,1,8,9,1,8,8,8,8,1,8,8,9,8,8,1,8,8,1,8,1,8,8,8,1,8,8,1,8
|
|
50310 DATA 1,8,1,8,8,1,1,8,8,1,8,1,8,1,1,8,8,1,8,8,8,1,1,1,8,1,8,8,1,8,1,1,8,1,8,1,8,1,9,8,9,1,8,8,1,9,8,1,8,1,1,1,8,1,8,1,8,1,8,1,8
|
|
50315 DATA 9,1,9,1,9,1,8,1,8,8,1,8,1,8,8,1,8,1,8,9,1,8,1,1,8,8,1,8,8,1,8,8,1,8,1,8,1,1,8,1,8,8,1,1,8,1,8,8,1,8,1,8,1,8,8,8,8,1,8,9,8
|
|
50320 DATA 8,1,8,1,8,8,1,8,1,8,1,8,1,9,1,8,9,1,8,1,8,9,8,8,1,8,8,8,8,9,1,8,8,8,8,8,8,8,1,8,1,9,9,1,1,8,8,1,8,8,1,8,1,8,8,1,8,1,1,8,1
|
|
50325 DATA 8,8,1,8,8,1,1,8,8,1,9,1,8,1,8,8,8,1,8,8,8,8,8,8,9,1,9,8,8,1,8,1,9,9,8,1,9,8,9,8,1,9,8,9,1,8,9,8,1,8,1,1,8,1,8,1,8,9,1,8,9
|
|
50330 DATA 8,9,1,8,8,8,1,8,1,1,1,8,1,9,1,9,8,1,8,1,8,8,1,8,1,8,1,8,8,8,8,1,9,1,9,8,1,9,1,8,1,1,8,8,1,8,1,8,8,1,9,9,1,9,8,9,1,8,1,9,8
|
|
50335 DATA 9,1,9,1,8,8,1,8,1,8,1,9,9,8,1,1,1,8,1,9,8,1,8,1,8,8,1,8,8,1,8,9,8,9,1,8,1,8,1,8,1,8,8,1,1,8,8,1,8,1,9,8,1,8,1,9,9,1,8,1,8
|
|
50340 DATA 1,9,8,8,9,8,1,9,8,1,9,9,1,9,1,9,9,8,1,9,9,9,8,1,8,8,9,8,1,9,9,1,8,1,8,1,9,9,1,9,1,1,8,1,1,8,8,8,8,9,9,9,8,1,9,8,8,1,9,1,8
|
|
50345 DATA 8,1,8,1,8,9,8,8,8,1,9,1,8,1,1,8,1,8,8,8,1,1,8,9,1,8,8,1,9,8,1,9,9,8,1,8,1,9,9,8,1,8,8,8,9,1,1,1,8,9,8,9,9,9,1,9,8,1,9,1,8
|
|
50350 DATA 1,9,8,1,8,1,8,1,9,1,8,8,8,8,8,1,8,1,8,8,8,1,8,8,1,8,1,8,1,8,9,1,8,8,1,8,8,1,8,8,8,1,8,1,9,1,8,1,1,9,9,1,8,8,1,9,9,1,8,8,9
|
|
50355 DATA 1,8,8,8,9,1,1,9,1,9,8,9,8,1,8,1,8,9,1,9,1,8,8,1,8,1,8,8,8,9,1,1,8,1,8,9,8,1,8,8,8,1,1,8,1,1,1,8,1,9,1,9,1,8,1,8,1,9,1,8,9
|
|
50360 DATA 8,8,8,1,8,1,8,1,1,8,8,1,8,8,1,8,8,8,8,8,8,1,1,1,8,1,9,1,8,8,1,8,9,8,1,8,1,8,1,8,8,8,8,8,1,8,1,1,9,1,8,1,8,1,1,8,1,8,8,1,1
|
|
50365 DATA 8,1,8,8,8,1,8,1,8,8,1,8,9,8,1,8,1,8,1,8,8,1,1,8,1,8,1,8,1,1,8,8,8,1,8,1,8,8,1,8,1,8,1,8,8,8,8,9,8,1,8,8,8,8,1,1,8,8,1,8,1
|
|
50370 DATA 8,1,8,8,8,8,1,8,8,1,8,8,8,1,8,1,8,8,1,8,1,8,1,8,8,1,8,1,8,1,8,8,8,8,8,1,8,1,8,8,8,1,1,8,8,8,1,8,8,8,1,8,1,8,8,8,1,8,1,8,8
|
|
50375 DATA 1,8,8,1,8,8,1,8,8,1,8,1,8,8,8,1,8,8,8,8,8,8,8,8,8,8,8,1,8,1,8,1,8,8,1,8,1,8,8,8,8,8,8,8,8,8,1,8,1,8,8,8,1,8,1,8,8,8,8,8,8
|
|
50380 DATA 8,8,1,8,1,0,8,8,1,8,8,1,0,1,8,8,8,8,1,8,1,0,8,8,1,8,8,1,8,8,8,1,0,8,0,8,0,8,8,1,0,8,0,8,1,8,8,8,8,0,8,1,8,8,1,8,1,8,1,0,8
|
|
50385 DATA 1,0,1,0,1,8,8,1,8,1,8,8,1,0,1,8,1,8,1,8,8,1,8,0,8,8,0,8,0,8,1,0,8,8,8,8,8,0,8,0,8,1,8,0,8,1,8,0,8,8,8,8,0,8,0,8,8,1,0,8,1
|
|
50390 DATA 8,8,0,8,1,8,0,1,8,0,8,0,8,0,8,0,8,8,8,0,8,8,0,8,8,0,8,8,0,8,8,0,8,8,0,1,0,8,0,0,0,8,8,0,8,0,1,8,0,8,8,0,8,0,8,0,1,8,0,8,0
|
|
50395 DATA 8,8,0,0,8,0,8,0,0,8,0,0,8,0,8,0,8,0,8,0,0,8,0,0,0,8,0,0,8,8,0,8,0,1,8,0,0,0,8,0,0,8,0,8,0,1,0,8,0,8,0,1,0,8,0,8,0,8,0,8,0
|
|
50400 DATA 0,0,0,0,8,0,8,0,0,0,0,0,8,0,0,0,8,0,8,0,0,0,8,0,8,0,0,8,0,0,8,0,0,0,0,8,0,8,0,8,0,0,8,0,0,0,8,0,0,8,0,0,8,0,0,8,0,0,8,0,0
|
|
50405 DATA 8,0,8,0,0,8,0,8,0,0,8,0,0,8,0,8,0,0,0,8,0,8,0,0,0,8,0,8,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,8,0
|
|
50410 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,8,0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
|
50415 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|
|
REM ----------------------------------- starinit()
|
|
500 TEXT : HOME : POKE 49186,240 : SN = 9 : MC = 0 : ST = 0
|
|
|
|
REM -- make the actual stars
|
|
510 DIM SX(SN) : DIM SY(SN) : FOR I = 0 TO SN : SX(I) = INT ( RND (1) * 79) + 1 : SY(I) = INT ( RND (1) * 23) + 1 : NEXT
|
|
|
|
|
|
REM ----------------------------------- MAIN
|
|
600 GOSUB 5600
|
|
610 IF DR = 1 THEN GOSUB 5000
|
|
REM GOSUB drawtext()
|
|
620 IF DR = 2 THEN GOSUB 5500
|
|
REM GOSUB cleartext()
|
|
630 MC = MC + 1 : IF MC < 75 THEN GOTO 600
|
|
640 MC = 0 : ST = ST + 1
|
|
700 IF ST = 1 THEN GOSUB 30800
|
|
710 IF ST = 2 THEN GOSUB 30950
|
|
720 IF ST = 3 THEN GOSUB 30850
|
|
730 IF ST = 4 THEN GOSUB 30950
|
|
740 IF ST = 5 THEN GOSUB 30900
|
|
750 IF ST = 6 THEN GOSUB 30950
|
|
760 IF ST = 7 THEN GOTO 1000
|
|
780 GOTO 600
|
|
|
|
1000 GOSUB 31000
|
|
REM GOSUB vertscroll()
|
|
1100 GOTO 6000
|
|
|
|
REM ----------------------------------- drawtext()
|
|
5000 HTAB OF + SP : VTAB 11 : W= PEEK ( - 16336 ) : PRINT MID$ (S$, SP, 1) : W= PEEK ( - 16336 ) : SP = SP + 1 : IF SP < L THEN RETURN
|
|
5020 DR = 0 : RETURN
|
|
|
|
REM ----------------------------------- cleartext()
|
|
5500 HTAB OF + SP : VTAB 11 : W= PEEK ( - 16336 ) : PRINT " " : W= PEEK ( - 16336 ): SP = SP + 1 : IF SP < L THEN RETURN
|
|
5520 DR = 0 : RETURN
|
|
|
|
|
|
|
|
|
|
REM ----------------------------------- UPDATESTARS
|
|
5600 FOR Q = 0 TO SN
|
|
5610 IF SX(Q) = 0 THEN GOSUB 5700
|
|
5620 HTAB SX(Q) : VTAB SY(Q) : PRINT ". " : SX(Q) = SX(Q) - 1 : NEXT
|
|
5650 RETURN
|
|
|
|
REM ----------------------------------- FLIPSTAR
|
|
5700 HTAB 1 : VTAB SY(Q) : PRINT " " : SX(Q) = 79 : SY(Q) = INT ( RND (1) * 22) + 1
|
|
5710 IF SY(Q) = 11 THEN SY(Q) = 10
|
|
5720 RETURN
|
|
|
|
6000 REM part3
|
|
|
|
29999 END
|
|
|
|
|
|
|
|
|
|
REM ----------------------------------- INITTEXT1
|
|
30800 S$ = "Remember when personal computers were . . . personal?"
|
|
30810 L = LEN (S$) + 1 : OF = (80 - L) / 2 : SP = 1 : DR = 1
|
|
30820 RETURN
|
|
|
|
REM ----------------------------------- INITTEXT2
|
|
30850 S$ = "With the Apple II you could create anything you desired."
|
|
30860 L = LEN (S$) + 1 : OF = (80 - L) / 2 : SP = 1 : DR = 1
|
|
30870 RETURN
|
|
|
|
REM ----------------------------------- INITTEXT3
|
|
30900 S$ = "Celebrate over 30 years of living the dream."
|
|
30910 L = LEN (S$) + 1 : OF = (80 - L) / 2 : SP = 1 : DR = 1
|
|
30920 RETURN
|
|
|
|
REM ----------------------------------- INITCLEAR
|
|
30950 SP = 1 : DR = 2
|
|
30960 RETURN
|
|
|
|
REM ----------------------------------- VERTICAL STARLOOP MAIN
|
|
31000 GOSUB 31100 : GOSUB 31200 : GOSUB 31300 : POKE 49186, 160 : GOSUB 31300 : POKE 49186, 80 : GOSUB 31300 : GOSUB 31200
|
|
31070 FOR I = 1 TO 24 : CALL -912 : NEXT
|
|
31090 RETURN
|
|
|
|
REM ----------------------------------- VERTICAL STARLOOP SLOW
|
|
31100 FOR I = 1 TO 70 : HTAB INT ( RND (1) * 79) + 1: VTAB 23 : PRINT "." : CALL -912 : FOR J = 0 TO 240 - (I * 4) : NEXT : NEXT
|
|
31110 RETURN
|
|
|
|
REM ----------------------------------- VERTICAL STARLOOP NORMAL
|
|
31200 FOR I = 1 TO 80 : HTAB INT ( RND (1) * 79) + 1: VTAB 23 : PRINT "." : CALL -912 : NEXT
|
|
31210 RETURN
|
|
|
|
REM ----------------------------------- VERTICAL STARLOOP WARP
|
|
31300 FOR I = 1 TO 80 : HTAB INT ( RND (1) * 79) + 1: VTAB 23 : PRINT "." : CALL -912 : HTAB INT ( RND (1) * 79) + 1: VTAB 23 : PRINT "|" : CALL -912 : NEXT
|
|
31310 RETURN
|
|
|
|
|
|
6000 POKE 49232,0 : POKE 49246,0 : POKE 49165,0 : COLOR = 0
|
|
6030 FOR Y = 0 TO 47 : HLIN 0, 79 AT Y : NEXT Y
|
|
|
|
REM ----------------------------------drawscore()
|
|
6040 COLOR = 15 : VLIN 0,4 AT 19 : VLIN 0,4 AT 21 : VLIN 0,4 AT 60 : PLOT 20,4 : PLOT 20,0
|
|
|
|
REM BX(Number, Setpos)
|
|
6100 DIM BX(4,4) : DIM BY(4,4) : DIM BH(4) : DIM BV(4) : PL = 23 : PR = 23
|
|
6110 BX(0,0) = 40 : BY(0,0) = 23 : BV(0) = 0 : BH(0) = 0
|
|
6160 VLIN PL - 3 , PL + 3 AT 2 : VLIN PL - 3 , PL + 3 AT 77
|
|
6170 MC = 0
|
|
|
|
REM ----------------------------------pongmain()
|
|
6200 X = BX(0,0) : Y = BY(0,0)
|
|
6210 MC = MC + 1
|
|
6220 IF MC = 350 GOTO 6900
|
|
REM GOTO transition()
|
|
|
|
REM ----------------------------------vertloop()
|
|
6300 IF BV(0) THEN GOTO 6400
|
|
REM GOTO balldown()
|
|
REM ----------------------------------ballup()
|
|
6310 Y = Y - 1
|
|
6320 IF Y = 6 THEN BV(0) = 1
|
|
6330 GOTO 6500
|
|
REM GOTO horizloop()
|
|
|
|
REM ----------------------------------balldown()
|
|
6400 Y = Y + 1
|
|
6410 IF Y = 47 THEN BV(0) = 0
|
|
|
|
REM --------fallthru
|
|
|
|
|
|
|
|
|
|
REM ----------------------------------horizloop()
|
|
6500 IF BH(0) THEN GOTO 6700
|
|
REM GOTO ballright()
|
|
REM ----------------------------------ballleft()
|
|
6510 X = X - 1
|
|
6520 IF X = 3 THEN BH(0) = 1
|
|
6530 IF X = 3 THEN GOSUB 7600
|
|
REM GOSUB beep()
|
|
|
|
6540 GOSUB 7500
|
|
REM GOSUB updateball()
|
|
6550 IF Y < PL GOTO 6600
|
|
REM GOTO padLup()
|
|
REM ----------------------------------padLdn()
|
|
6560 IF PL + 4 = 47 GOTO 6200
|
|
REM GOTO pongloop()
|
|
6570 PL = PL + 1 : COLOR = 15 : VLIN PL - 3 , PL + 3 AT 2 : COLOR = 0 : PLOT 2, PL - 4
|
|
6580 GOTO 6200
|
|
REM GOTO pongloop()
|
|
|
|
REM ----------------------------------padLup()
|
|
6600 IF PL - 4 = 0 GOTO 6200
|
|
REM GOTO pongloop()
|
|
6610 PL = PL - 1 : COLOR = 15 : VLIN PL - 3 , PL + 3 AT 2 : COLOR = 0 : PLOT 2, PL + 4
|
|
6620 GOTO 6200
|
|
REM GOTO pongloop()
|
|
|
|
|
|
REM ----------------------------------ballright()
|
|
6700 X = X + 1
|
|
6710 IF X = 76 THEN BH(0) = 0
|
|
6720 IF X = 76 THEN GOSUB 7600
|
|
REM GOSUB beep()
|
|
6730 GOSUB 7500
|
|
REM GOSUB updateball
|
|
6740 IF Y < PR GOTO 6800
|
|
REM GOTO padRup()
|
|
REM ----------------------------------padRdn()
|
|
6750 IF PR + 4 = 47 GOTO 6200
|
|
REM GOTO pongloop()
|
|
6760 PR = PR + 1 : COLOR = 15 : VLIN PR - 3 , PR + 3 AT 77 : COLOR = 0 : PLOT 77, PR - 4
|
|
6770 GOTO 6200
|
|
REM GOTO pongloop()
|
|
|
|
REM ----------------------------------padRup()
|
|
6800 IF PR - 4 = 0 GOTO 6200
|
|
REM GOTO pongloop()
|
|
6810 PR = PR - 1 : COLOR = 15 : VLIN PR - 3 , PR + 3 AT 77 : COLOR = 0 : PLOT 77, PR + 4
|
|
6820 GOTO 6200
|
|
REM GOTO pongloop()
|
|
|
|
REM ----------------------------------transition()
|
|
6900 FOR Y = 0 TO 7
|
|
6910 COLOR = 5 : GOSUB 6970
|
|
6920 COLOR = 0 : GOSUB 6970
|
|
6930 COLOR = INT ( RND (1) * 14) + 1
|
|
6940 PLOT BX(0,0) , BY(0,0)
|
|
6950 NEXT Y
|
|
6960 GOTO 9000
|
|
REM GOTO sparkinit()
|
|
6970 FOR W = 0 TO 47 STEP 8 : HLIN 0,79 AT Y + W : NEXT W
|
|
6980 RETURN
|
|
|
|
|
|
REM ----------------------------------updateball()
|
|
7500 COLOR = 0
|
|
7510 PLOT BX(0,0) , BY(0,0)
|
|
7520 COLOR = 15
|
|
7530 PLOT X,Y
|
|
7540 BX(0,0) = X : BY(0,0) = Y
|
|
7550 RETURN
|
|
|
|
REM ----------------------------------beep()
|
|
7600 FOR P = 1 TO 10: W = PEEK (-16336) : NEXT P
|
|
7610 RETURN
|
|
|
|
|
|
|
|
|
|
|
|
REM ----------------------------------sparkinit()
|
|
9000 FOR N = 1 TO 3
|
|
9010 BX(N,0) = INT (RND (1) * 70 + 5) : BY(N,0) = INT (RND (1) * 40 + 4)
|
|
9020 BH(N) = INT (RND (1) * 2) : BV(N) = INT (RND (1) * 2)
|
|
9030 NEXT N
|
|
9040 FOR N = 0 TO 3 : FOR S = 1 TO 3
|
|
9050 BX(N,S) = BX(N,S-1) : BY(N,S) = BY(N,S-1)
|
|
9060 NEXT S : NEXT N
|
|
|
|
9080 MC = 0
|
|
REM ----------------------------------sparkloop()
|
|
10000 MC = MC + 1
|
|
10010 IF MC = 150 THEN GOTO 12000
|
|
|
|
10050 COLOR = 0
|
|
10100 FOR N = 0 TO 3
|
|
10110 GOSUB 11000
|
|
REM GOSUB sparkmover()
|
|
10120 NEXT N
|
|
|
|
REM plot routines
|
|
10400 COLOR = 15 : PLOT BX(0,0), BY(0,0)
|
|
10410 COLOR = 10 : PLOT BX(0,1), BY(0,1)
|
|
10420 COLOR = 5 : PLOT BX(0,2), BY(0,2)
|
|
|
|
10500 COLOR = 13 : PLOT BX(1,0), BY(1,0)
|
|
10510 COLOR = 9 : PLOT BX(1,1), BY(1,1)
|
|
10520 COLOR = 8 : PLOT BX(1,2), BY(1,2)
|
|
|
|
10600 COLOR = 7 : PLOT BX(2,0), BY(2,0)
|
|
10610 COLOR = 6 : PLOT BX(2,1), BY(2,1)
|
|
10620 COLOR = 2 : PLOT BX(2,2), BY(2,2)
|
|
|
|
10700 COLOR = 14 : PLOT BX(3,0), BY(3,0)
|
|
10710 COLOR = 12 : PLOT BX(3,1), BY(3,1)
|
|
10720 COLOR = 4 : PLOT BX(3,2), BY(3,2)
|
|
|
|
10800 GOTO 10000
|
|
|
|
|
|
REM ----------------------------------sparkmover()
|
|
11000 PLOT BX(N,2) , BY(N,2)
|
|
11010 BX(N,2) = BX(N,1) : BY(N,2) = BY(N,1)
|
|
11020 BX(N,1) = BX(N,0) : BY(N,1) = BY(N,0)
|
|
11030 X = BX(N,0) : Y = BY(N,0)
|
|
|
|
|
|
11090 IF BH(N) THEN GOTO 11200
|
|
REM GOTO sparkright()
|
|
|
|
REM ----------------------------------sparkleft()
|
|
11100 X = X - 1
|
|
11110 IF X = 0 THEN BH(N) = 1
|
|
11120 GOTO 11300
|
|
REM GOTO sparkvert()
|
|
REM ----------------------------------sparkright()
|
|
11200 X = X + 1
|
|
11210 IF X = 79 THEN BH(N) = 0
|
|
REM fallthru
|
|
|
|
REM ----------------------------------sparkvert()
|
|
11300 IF BV(N) THEN GOTO 11400
|
|
REM GOTO sparkdown()
|
|
11310 Y = Y - 1
|
|
11320 IF Y = 0 THEN BV(N) = 1
|
|
11330 GOTO 11500
|
|
REM GOTO sparkfin()
|
|
11400 Y = Y + 1
|
|
11410 IF Y = 47 THEN BV(N) = 0
|
|
REM fallthru
|
|
11500 BX(N,0) = X : BY(N,0) = Y
|
|
11510 RETURN
|
|
|
|
|
|
|
|
12000 end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
12000 GOSUB 40100
|
|
|
|
REM GOSUB clrgr()
|
|
|
|
|
|
|
|
12010 GOSUB 40000
|
|
|
|
REM GOSUB renderimg()
|
|
|
|
|
|
|
|
12020 GOSUB 40200
|
|
|
|
REM GOSUB pause()
|
|
|
|
|
|
|
|
12030 TEXT
|
|
|
|
12040 HOME
|
|
|
|
12050 PRINT "Register online ..."
|
|
|
|
12060 VTAB 10: HTAB 20 : PRINT "http://kfest.org/";
|
|
|
|
12070 VTAB 18
|
|
|
|
12080 POKE 780,BC : CALL 768
|
|
|
|
12090 POKE 49186, VC
|
|
|
|
|
|
|
|
12100 END
|
|
|
|
60000 REM by Dagen Brock
|
|
|
|
60010 REM April 11, 2008
|
|
|
|
60020 REM 100% Basic
|
|
|
|
60030 REM (the asm for doing border color doesn't
|
|
|
|
60040 REM count since there's no other way to do TSB/TRB)
|
|
|
|
60050 REM Yes, the colored dot section could have been
|
|
|
|
60060 REM faster if I didn't actually move values in the
|
|
|
|
60070 REM array and instead used a round robin pointer
|
|
|
|
60080 REM but i've already spent too much time on this.
|
|
|
|
60090 REM -DGB
|
|
|
|
60100 REM - - - - // Infinitum - - -
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
REM --------------------------------------------------------------------------
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
55000 DATA 9,9,9,8,13,9,11,13,11,13,11,9,11,8,8,8,9,8,9,8,9,8,8,1,9,8,9,9,9,9,9,8,11,1,9,8,8,8,11,8,8,11,8,11,9,13,9,13,9,8,11,8,11,9,9,8,8,9,9,9,13
|
|
55005 DATA 8,13,11,9,9,9,10,9,8,9,9,11,8,11,10,9,9,11,11,8,8,11,11,8,11,11,11,15,11,10,13,8,11,11,8,8,9,8,11,1,8,9,9,8,9,9,9,9,9,9,11,9,9,8,9,8,9,3,8,11,9
|
|
55010 DATA 8,9,10,8,11,8,9,11,8,9,9,8,11,8,9,8,8,10,8,13,9,10,13,9,13,11,9,9,11,9,8,11,9,10,9,11,9,9,9,8,8,8,11,9,13,11,11,11,13,9,11,8,9,9,1,9,9,1,9,9,9
|
|
55015 DATA 1,9,8,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,10,10,13,9,10,8,8,11,8,9,9,8,9,9,8,9,9,8,10,9,13,10,13,9,11,10,13,8,9,13,9,9,10,11,9,11,9,1,9,8,9
|
|
55020 DATA 9,9,9,11,13,13,9,11,10,9,11,1,11,9,1,11,1,9,8,11,9,9,9,1,11,9,11,9,11,9,9,9,9,9,9,9,9,13,11,8,10,10,8,10,9,11,8,9,8,9,9,1,8,9,8,9,10,8,13,10,10
|
|
55025 DATA 13,11,13,11,9,13,13,9,13,11,11,9,11,9,11,8,9,8,9,9,9,13,9,11,13,11,9,9,11,1,11,9,8,9,3,9,9,9,8,9,1,9,8,9,9,9,9,9,9,11,9,9,11,8,13,8,9,9,13,8,10
|
|
55030 DATA 10,8,8,8,9,8,8,9,1,9,8,8,9,8,9,11,9,13,11,11,11,11,11,13,9,11,11,13,9,11,9,9,11,9,8,1,11,1,11,9,9,13,13,9,13,11,11,8,11,9,11,8,9,11,1,11,9,9,9,9,1
|
|
55035 DATA 9,1,9,8,9,11,13,9,11,11,8,11,8,13,10,10,10,13,8,8,10,8,9,9,8,8,9,8,9,1,11,9,9,13,9,9,11,11,11,13,9,11,9,13,9,13,9,13,11,11,11,9,9,8,11,1,11,8,9,13,9
|
|
55040 DATA 11,13,9,11,9,11,9,9,1,11,9,1,9,9,1,11,1,1,9,1,9,9,9,9,9,9,13,9,11,13,13,11,9,13,13,8,10,9,10,8,9,8,8,8,11,3,1,9,8,8,9,9,8,11,11,11,11,11,11,13,9
|
|
55045 DATA 13,9,13,9,11,11,9,11,9,11,9,8,1,9,8,11,9,8,11,13,9,13,11,9,11,9,9,11,9,9,9,11,9,11,1,8,9,8,9,9,8,8,11,9,13,9,13,11,13,9,13,13,10,13,13,8,13,9,9,8,8
|
|
55050 DATA 9,9,1,9,11,1,11,9,8,10,9,9,13,9,11,9,11,9,11,9,13,9,11,9,11,10,10,11,9,11,9,11,8,11,8,11,13,13,11,13,9,11,13,9,11,11,9,11,11,9,9,8,8,9,9,1,8,8,8,8,9
|
|
55055 DATA 9,9,9,13,11,13,11,13,11,11,13,13,8,13,8,9,10,10,11,8,8,11,8,9,9,8,9,9,9,9,9,9,11,11,9,9,11,9,11,9,9,11,9,8,10,11,8,9,9,9,8,9,8,10,9,10,13,11,13,11,13
|
|
55060 DATA 9,13,11,9,11,9,11,11,9,9,9,8,1,8,9,1,9,9,9,8,11,10,13,11,13,13,13,13,13,10,10,13,9,13,9,10,8,11,9,11,9,8,9,9,9,9,9,9,13,11,13,9,11,11,11,9,11,1,11,11,8
|
|
55065 DATA 9,11,8,9,11,10,9,8,9,9,11,11,9,11,13,13,11,13,9,13,9,11,11,11,9,11,11,9,11,9,8,9,9,1,8,8,8,9,9,9,9,11,11,15,13,13,10,13,13,10,13,13,11,10,9,11,8,9,9,8,11
|
|
55070 DATA 9,9,11,9,11,9,9,9,11,9,9,9,9,9,9,11,1,11,8,9,9,11,11,8,9,11,13,9,9,9,9,11,13,13,13,15,11,13,11,11,11,9,11,11,11,10,10,8,9,8,8,8,9,8,8,9,8,9,9,13,13
|
|
55075 DATA 13,13,15,13,15,13,13,13,13,13,10,11,9,11,11,10,9,11,9,11,9,11,9,11,9,13,11,9,9,11,9,11,9,9,9,11,1,11,8,9,8,8,11,13,9,8,13,10,11,13,11,13,11,13,11,15,11,13,11,13,11
|
|
55080 DATA 13,11,11,11,10,9,9,11,8,9,8,9,8,8,9,9,11,9,13,13,13,13,11,13,15,13,15,10,13,13,11,13,11,9,13,9,11,9,11,13,9,13,9,11,9,9,9,11,9,11,9,9,11,9,8,11,1,9,11,10,10
|
|
55085 DATA 8,9,13,13,9,13,11,11,13,11,11,13,11,11,13,13,13,11,13,11,11,13,9,13,9,9,8,8,8,9,8,9,9,9,8,13,13,11,11,13,11,13,11,13,13,13,15,13,13,13,13,10,13,9,13,11,11,11,9,13,9
|
|
55090 DATA 11,9,11,9,11,11,9,9,11,9,11,8,9,9,8,9,8,9,8,13,8,9,13,11,11,11,13,11,11,13,9,11,13,11,11,13,13,11,13,11,11,13,9,13,8,9,9,8,9,8,10,8,9,11,8,13,13,11,11,13,11
|
|
55095 DATA 11,13,11,13,11,13,13,13,13,13,13,13,9,11,11,11,11,9,13,9,11,9,9,9,1,11,9,9,9,9,9,9,8,9,8,11,8,9,10,9,11,11,13,11,11,11,11,11,11,15,15,11,11,13,11,11,13,9,13,11,15
|
|
55100 DATA 13,11,15,11,8,11,8,11,8,13,11,10,11,10,9,11,11,11,11,13,11,13,13,11,11,13,13,13,13,11,13,15,15,11,11,9,9,11,15,11,15,11,15,11,9,11,1,11,11,8,15,11,15,10,10,9,10,8,10,8,11
|
|
55105 DATA 13,11,11,11,9,13,15,10,15,15,11,11,11,13,11,11,13,15,10,10,15,10,15,15,8,9,8,13,8,9,9,11,11,11,11,9,11,11,11,9,11,11,13,13,11,13,13,13,15,15,15,10,15,11,11,11,15,15,15,10,15
|
|
55110 DATA 15,15,11,11,11,9,11,15,10,15,10,15,15,11,8,11,8,9,13,11,13,9,11,11,11,10,0,0,15,13,11,11,15,9,15,15,5,0,0,0,0,10,15,9,8,11,8,9,11,9,13,9,11,11,13,9,11,11,11,15,15
|
|
55115 DATA 15,11,13,13,11,13,13,10,0,0,15,11,15,15,10,5,0,0,0,0,10,15,15,9,13,15,5,0,0,0,5,10,15,11,8,9,11,11,11,11,11,9,9,15,15,0,0,10,15,15,15,15,15,15,5,0,0,0,0,0,10
|
|
55120 DATA 15,11,9,8,11,10,11,9,11,9,11,9,9,9,11,11,11,15,5,5,15,11,13,15,11,15,5,0,0,5,15,15,5,0,0,0,0,0,0,0,0,15,15,11,10,0,0,0,0,0,5,15,10,9,8,9,13,11,13,9,11
|
|
55125 DATA 11,11,10,0,0,15,15,10,0,5,15,15,0,0,5,10,10,15,15,11,1,15,15,15,15,15,15,11,9,11,9,11,15,15,15,15,10,0,0,10,15,15,15,15,15,10,0,0,10,15,5,0,0,0,10,10,15,5,0,0,0
|
|
55130 DATA 15,15,5,0,5,10,5,0,0,10,11,8,9,8,11,11,9,11,9,9,15,10,0,0,10,15,5,0,5,15,10,0,0,10,15,15,15,11,11,11,15,10,5,5,5,10,15,15,11,11,15,10,10,5,10,15,0,0,5,5,5
|
|
55135 DATA 5,5,15,5,0,0,10,10,0,0,5,15,15,11,15,15,10,0,0,5,15,0,0,5,15,15,0,0,10,15,9,8,9,13,11,11,9,11,9,15,10,0,0,10,10,0,0,10,15,10,0,0,15,15,15,15,15,11,15,5,0
|
|
55140 DATA 0,0,0,0,10,15,11,15,10,5,0,0,5,10,0,0,0,0,0,0,0,10,15,5,5,15,10,0,0,15,11,11,9,11,11,15,5,0,5,15,5,0,0,0,0,0,0,10,15,9,8,9,13,9,11,11,9,9,15,10,0
|
|
55145 DATA 0,0,0,0,0,5,15,10,0,0,0,5,5,5,10,15,5,0,0,0,5,0,0,0,15,11,15,5,0,0,0,10,15,0,0,0,5,5,5,5,10,15,15,15,15,0,0,5,15,11,9,1,9,11,15,10,0,0,15,10,0
|
|
55150 DATA 0,0,0,0,5,15,11,1,9,9,11,13,11,9,11,11,15,10,0,0,0,0,0,0,0,5,10,0,0,0,0,0,0,10,15,0,0,5,15,5,0,0,10,15,15,15,5,0,10,15,15,10,0,0,15,15,15,15,15,15,11
|
|
55155 DATA 11,11,15,5,0,5,15,11,9,11,9,9,15,10,0,0,15,5,0,0,0,5,0,0,15,11,9,1,9,11,9,9,11,9,11,11,10,0,0,10,10,10,5,0,5,10,0,0,5,5,0,5,10,10,0,0,15,0,0,0,10
|
|
55160 DATA 15,11,11,15,0,0,5,15,15,10,0,0,10,15,15,5,5,10,15,1,11,15,5,0,0,15,15,1,11,9,11,15,10,0,5,10,0,0,5,15,10,5,0,5,15,1,9,9,13,11,11,9,11,9,15,10,0,0,15,15,15
|
|
55165 DATA 10,0,0,10,0,0,15,15,15,15,15,10,0,0,10,5,0,10,15,11,9,15,10,5,0,10,15,15,10,0,0,15,15,10,5,0,10,15,11,11,15,10,0,0,10,15,15,11,11,15,15,0,0,0,10,0,0,10,15,15,5
|
|
55170 DATA 0,5,15,11,9,9,9,13,9,13,9,9,11,10,0,0,10,11,15,5,0,0,10,0,0,10,15,11,11,11,15,0,0,5,10,15,15,15,15,15,15,15,0,0,10,11,15,10,0,0,5,15,15,0,0,10,15,11,1,15,15
|
|
55175 DATA 5,0,5,10,15,15,15,10,0,0,0,15,10,0,0,10,15,15,5,0,5,15,9,9,9,13,9,13,9,13,9,15,10,0,0,15,15,15,10,0,0,10,0,0,10,11,9,9,13,15,5,0,0,0,5,5,10,15,15,5,0
|
|
55180 DATA 0,0,10,15,11,15,0,0,0,5,0,0,0,15,15,8,9,11,15,10,0,0,0,0,5,5,0,0,0,10,15,15,0,0,0,5,0,0,0,10,15,9,11,9,11,13,13,9,13,9,15,10,0,0,10,11,15,10,0,5,10
|
|
55185 DATA 0,0,10,15,9,9,9,11,15,5,0,0,0,0,0,15,10,0,0,0,5,15,11,8,15,10,0,0,0,0,0,10,15,9,11,8,9,11,15,10,5,0,0,0,0,0,5,5,15,11,15,10,5,0,0,0,0,5,15,11,11
|
|
55190 DATA 9,13,13,11,13,13,9,9,11,15,5,10,15,11,11,10,0,5,10,5,5,15,11,9,9,9,13,15,15,10,5,0,5,5,15,15,5,5,10,15,15,9,9,11,15,15,5,5,5,15,15,13,8,9,11,9,9,13,15,15,10
|
|
55195 DATA 5,5,5,10,15,15,11,9,9,15,10,10,5,5,10,15,15,11,9,13,9,13,13,9,11,9,13,11,15,15,15,15,1,15,10,0,0,10,15,15,15,9,8,9,9,1,9,15,15,15,15,15,15,11,11,15,15,15,11,8,9
|
|
55200 DATA 8,9,11,11,15,15,15,15,13,8,11,9,9,11,11,9,11,15,15,15,15,15,15,15,9,11,9,9,11,15,15,15,15,15,11,9,11,9,11,11,13,13,13,9,13,9,9,9,11,9,9,9,11,15,5,0,0,0,10,15,11
|
|
55205 DATA 9,8,9,9,11,9,9,11,11,9,11,9,9,11,9,9,8,9,8,13,8,8,13,10,13,10,13,8,9,11,9,11,11,9,11,9,13,9,13,11,11,11,9,9,9,9,9,9,9,11,9,11,9,13,9,9,11,9,9,13,13
|
|
55210 DATA 9,13,11,9,11,11,9,9,9,11,8,15,15,5,0,0,5,15,9,8,9,1,11,1,9,11,9,9,9,9,9,1,9,9,8,9,9,9,8,13,8,10,13,13,12,10,13,13,8,13,9,13,9,13,9,9,13,9,13,11,9
|
|
55215 DATA 9,9,9,9,9,9,9,9,9,9,9,9,13,11,9,11,9,13,13,13,13,9,11,9,9,11,9,9,9,9,11,11,15,15,10,15,10,8,9,9,9,1,11,9,11,9,11,1,11,1,11,1,9,8,9,9,9,9,11,10,8
|
|
55220 DATA 13,8,13,10,9,13,13,9,13,11,13,9,9,13,9,13,9,9,9,9,9,9,1,9,9,9,9,11,9,13,9,11,9,11,9,9,10,15,11,11,13,9,13,9,11,9,9,9,9,8,11,11,10,15,11,9,9,1,8,9,9
|
|
55225 DATA 9,9,1,9,8,9,8,9,8,8,9,8,8,9,9,9,9,8,13,13,13,8,13,13,13,13,13,13,13,13,13,13,11,13,9,13,9,11,9,9,9,11,9,9,9,9,9,13,9,13,11,11,9,11,9,13,13,13,11,13,11
|
|
55230 DATA 11,13,9,13,9,9,9,11,8,9,9,8,8,9,8,9,9,1,11,1,9,11,9,9,9,8,9,9,1,9,8,8,11,8,13,9,9,13,9,12,13,12,13,10,13,13,13,13,13,13,13,13,13,13,9,13,9,11,9,9,9
|
|
55235 DATA 9,9,9,9,11,9,11,9,9,11,11,9,9,13,13,13,13,11,11,13,9,11,9,10,10,8,9,10,8,10,9,9,8,8,9,1,11,8,11,9,8,9,9,1,8,9,1,11,8,9,9,8,13,8,13,10,13,13,13,13,13
|
|
55240 DATA 13,13,9,13,9,13,13,9,13,13,13,13,13,9,13,9,11,9,9,9,9,9,11,1,11,9,13,9,11,9,9,9,10,13,13,10,13,13,11,11,13,11,9,10,9,10,8,9,9,9,8,11,8,9,8,9,11,1,9,9,9
|
|
55245 DATA 11,9,9,8,8,9,8,9,8,11,8,11,9,11,13,13,13,9,13,9,9,13,9,9,13,13,9,13,13,13,13,13,9,9,11,9,9,1,9,9,9,1,9,9,9,9,11,11,9,11,9,12,10,13,13,10,13,13,11,11,11
|
|
55250 DATA 13,9,13,8,13,13,9,10,9,9,8,9,11,8,9,9,11,11,9,9,8,9,9,8,9,9,8,8,8,9,9,9,13,13,9,9,13,13,9,13,9,13,13,9,9,9,13,9,13,9,9,13,9,9,9,9,1,9,1,9,9
|
|
55255 DATA 1,9,9,11,11,9,9,9,9,13,10,13,12,13,10,13,13,13,11,13,10,10,13,8,13,9,9,8,9,11,8,8,11,8,11,8,8,9,11,9,8,11,8,11,8,10,10,13,8,13,11,13,12,13,13,9,9,13,9,9,9
|
|
55260 DATA 9,13,9,9,9,13,9,13,9,9,9,9,9,1,9,1,9,9,1,9,9,9,9,11,11,9,11,9,10,12,12,13,10,13,15,11,13,13,10,13,13,10,13,9,10,11,11,9,8,9,9,9,11,8,11,9,9,8,9,9,10
|
|
55265 DATA 9,8,13,9,8,11,9,10,10,11,13,13,8,13,13,9,11,9,9,9,9,9,9,13,9,13,9,9,9,9,9,9,9,1,1,9,1,9,1,9,9,9,11,11,11,9,9,8,13,12,13,12,10,13,15,13,13,15,10,13,10
|
|
55270 DATA 11,11,13,9,8,10,9,9,11,9,9,9,1,11,8,8,9,8,8,9,9,9,8,13,8,13,8,13,8,9,10,9,9,9,9,9,9,1,9,9,9,9,9,13,9,13,9,9,9,9,9,1,9,9,9,9,9,9,9,9,11
|
|
55275 DATA 9,11,9,11,11,10,12,12,12,13,13,13,10,15,13,13,13,10,13,13,9,8,13,11,9,11,9,9,8,9,8,11,8,9,8,11,8,8,11,9,8,13,10,11,10,13,13,9,9,8,11,9,11,9,9,9,9,9,9,9,1
|
|
55280 DATA 9,8,9,9,9,9,9,9,9,9,1,9,1,9,1,9,9,11,9,11,11,13,9,9,12,12,12,10,10,12,13,13,13,11,13,13,11,11,9,9,13,9,9,9,9,9,9,9,9,9,1,8,8,8,8,11,9,8,10,13,8
|
|
55285 DATA 13,8,13,8,8,9,9,11,8,11,9,9,1,9,9,1,9,1,9,1,9,8,9,8,13,9,8,9,9,9,9,9,9,9,9,9,9,9,11,11,9,11,13,10,12,12,10,12,13,14,13,13,13,13,11,11,9,13,11,9,11
|
|
55290 DATA 9,11,11,8,9,9,8,1,11,8,8,9,8,8,11,9,10,8,10,13,13,8,9,9,9,9,8,11,9,9,9,11,1,9,1,9,9,9,9,9,9,9,9,8,9,9,8,9,9,1,9,9,9,9,9,11,11,13,9,13,9
|
|
55295 DATA 11,12,12,10,12,13,12,13,13,11,13,11,9,11,11,11,9,11,9,9,9,8,11,8,8,9,9,1,8,8,8,9,9,8,9,8,13,10,13,8,13,10,8,10,8,11,9,9,8,11,9,9,9,1,1,1,9,1,9,8,9
|
|
55300 DATA 8,9,9,8,9,8,9,9,9,9,9,9,13,9,9,9,13,13,13,11,12,12,10,13,12,13,10,13,11,11,13,13,9,11,9,11,9,9,9,9,11,9,9,9,1,9,9,8,8,8,8,8,10,8,13,8,13,9,13,8,8
|
|
55305 DATA 13,8,9,8,11,8,11,9,9,1,1,9,9,8,9,8,9,1,8,8,8,8,9,8,9,9,8,9,9,9,9,9,11,13,13,13,13,13,13,12,12,13,12,13,14,13,11,13,11,9,11,9,11,9,9,9,11,9,9,9,8
|
|
55310 DATA 9,8,11,1,8,9,8,8,9,8,8,10,8,13,10,8,9,13,9,9,9,9,9,9,9,1,9,11,9,9,1,9,8,1,9,1,9,8,9,1,9,8,8,9,8,13,9,9,9,13,9,11,13,11,13,13,13,13 |