home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Disk 64 1997 2
/
Power_Disk_64_97-02_1997-09_Lagune_de_Side_B.d64
/
gnurz
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
75 lines
9999 rem""(NULL)
10000 data 1,4,0,2,65,240,251,0,4,0,2,65,240,251,32
10010 data 89,166,76,174,167,0,0,20,243,31
10030 fori=.to24:poke54272+i,.:readx:poke54272+i,x:next
10040 poke53281,0:poke53280,0:print"[147]"
10050 print"[149]c f s productions"
10055 print"[149]presents"
10060 for i=1 to 100:next
10070 print"[151]c f s productions"
10075 print"[151]presents"
10080 for i=1 to 100:next
10090 print"[152]c f s productions"
10095 print"[152]presents"
10100 for i=1 to 100:next
10110 print"[155]c f s productions"
10115 print"[155]presents"
10120 for i=1 to 100:next
10130 print"c f s productions"
10135 print"presents"
10140 t=ti
10150 if ti-t<120 then 10150
10160 print"[155]c f s productions"
10165 print"[155]presents"
10170 for i=1 to 100:next
10180 print"[152]c f s productions"
10185 print"[152]presents"
10190 for i=1 to 100:next
10200 print"[151]c f s productions"
10205 print"[151]presents"
10210 for i=1 to 100:next
10220 print"[149]c f s productions"
10225 print"[149]presents"
10230 print"[147]"
10240 for i=1 to 1000:next
10250 print"[149]a"
10260 print"[149]christian siege"
10270 print"[149]game!"
10280 for i=1 to 100:next
10290 print"[151]a"
10300 print"[151]christian siege"
10310 print"[151]game!"
10320 for i=1 to 100:next
10330 print"[152]a"
10340 print"[152]christian siege"
10350 print"[152]game!"
10360 for i=1 to 100:next
10370 print"[155]a"
10380 print"[155]christian siege"
10390 print"[155]game!"
10400 for i=1 to 100:next
10410 print"a"
10420 print"christian siege"
10430 print"game!"
10440 t=ti
10450 if ti-t<120 then 10450
10460 print"[155]a"
10470 print"[155]christian siege"
10480 print"[155]game!"
10490 for i=1 to 100:next
10500 print"[152]a"
10510 print"[152]christian siege"
10520 print"[152]game!"
10530 for i=1 to 100:next
10540 print"[151]a"
10550 print"[151]christian siege"
10560 print"[151]game!"
10570 for i=1 to 100:next
10580 print"[149]a"
10590 print"[149]christian siege"
10600 print"[149]game!"
10610 for i=1 to 100:next
10620 print"[147][144]"
10630 for i=1 to 1000:next
10640 load"1",8,1