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,
|