Apple-2-SW
/
kfest08
mirror of https://github.com/digarok/kfest08.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
kfest08/demo.txt

1 line
32 KiB
Plaintext
Raw Permalink Normal View History

"Official Party Version" ;)
2014-05-18 13:24:25 +00:00
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,