1 rem starglider (rainbird)
2 rem unlimited everything by tim and lan fraser
3 rem cassette -v1- zzap64 no.25
4 print chr$(147):print"loadding..."
5 def fnr(a)=peek(a)+peek(a+1)*256
6 i=576:b=11:gosub 60000
7 i=679:b=12:gosub 60000
8 i=12288:b=15:gosub 60000
10 data 234,234,234,120,238,32,208,162,1462
11 data 7,189,85,2,157,115,0,202,757
12 data 16,247,76,13,194,0,2,0,548
13 data 9,0,95,93,2,162,2,189,552
14 data 107,2,157,64,144,202,16,247,939
15 data 76,0,144,76,200,2,498,256
16 data 32,0,201,169,99,141,252,2,896
17 data 32,65,201,206,252,2,208,248,1214
18 data 169,0,133,168,169,192,133,169,1133
19 data 234,234,234,234,234,234,76,64,1544
20 data 2,169,165,141,130,114,141,65,927
21 data 91,162,2,189,240,2,157,100,943
22 data 89,189,243,2,157,111,89,189,1069
23 data 246,2,157,131,89,189,249,2,1065
24 data 157,170,89,202,16,229,76,0,939
25 data 66,76,111,89,76,122,89,76,705
26 data 144,89,76,192,89,590,256
27 data 160,0,132,251,132,253,169,201,1298
28 data 162,192,133,252,134,254,177,253,145,1702
29 data 251,230,251,208,2,230,252,230,1654
30 data 253,208,2,230,254,165,252,201,1565
31 data 203,208,234,169,16,141,158,201,1330
32 data 141,177,201,141,241,201,141,112,1355
33 data 202,162,2,189,64,48,157,125,949
34 data 201,202,16,247,76,167,2,96,1007
35 data 167,2,169,1,133,2,32,84,590
36 data 48,169,0,133,2,32,84,48,516
37 data 76,0,48,169,1,168,170,32,664
38 data 186,255,169,0,32,189,255,165,1251
39 data 2,133,10,32,213,255,96,741,256
40 rem print "save listing for future use"
41 rem print:print "type sys 12355 to start"
42 sys 12355
43 end
60000 read a:t=t+a:if a=256 then poke 53280,b:t=0:c=0:return
60001 if a>256 then c=a:t=t-a:if t<>c then print"data error in line"fnr(63):end
60002 if a>256 then c=0: t=0:goto 60000
60003 poke i,a:i=i+1:goto 60000
Download PRG...
