home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Gurla_1_19xx_-.d64
/
4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
44 lines
1 restore:c=12288:b=0:v=53248:j=56320:l=0:d=56320
2 print"[147]":poke53280,0:poke53281,0:gosub5000
10 reada:pokec+b,a:b=b+1:ifb=63then50
40 goto 10
50 forx=12352to12414:pokex,255:next
100 data0,255,0,1,0,128,2,126,64,4,129,32,9,0,144,18,0,72,36,0,36
110 data72,243,146,145,2,73,162,2,37,162,2,37,162,122,37,162,10,69,162
120 data11,133,161,10,5,144,242,9,72,0,18,36,0,36,19,255,200,8,0,16
130 data 7,255,224,0,182,9
500 pokev+21,3:poke2040,192:pokev+39,14:pokev,170:pokev+1,140:poke2041,193:pokev+40,1
570 pokev+2,157:pokev+3,140:pokev+29,2:pokev+23,0:pokev+28,0:gosub1000
590 a=peek(d):ifa=119then600
592 ifa=123then600
595 goto590
600 ifa1<>athenpoke12352+q,0:q=q+1:goto620
610 goto590
620 a1=a:ifa1=119thenpokev,peek(v)+5
640 ifa1=123thenpokev,peek(v)-5
650 ifpeek(v+30)=0thenpokev,170
660 ifpeek(12414)=0then2000
670 goto 590
1000 b1=peek(704):b2=peek(705):b3=peek(706):ifb1<48orb1>57thenpoke203,51:new
1100 poke 1521,b1:poke1523,b2:poke1525,b3:return
2000 pokev+21,0:fori=0to9999:next:poke203,51
5000 print"[147][154]":forx=0to10:poke646,x
5010 print"[147]gurlauspommin raaputus":next
5040 print"[154] kohta ruutuusi ilmestyy raaputuspinta"
5050 print"jota voit havittaa lykkaamalla"
5060 print"ilotikkusi porttiin 2 ja liikuttele-"
5070 print"malla sita ees sun taas..."
5080 print" jos saat 3 (kolme) samaa numeroa"
5090 print"nakyviin, kirjoita marko jerrmannille"
5100 print"(osoite mainittu muualla) ja ilmoita"
5110 print"hanelle saamasi numerot.":fori=0to2
5120 forx=0to255:poke646,x
5130 print"paapalkintona":next:next
5160 forx=1to500:next:print"[147][154]"
5170 print"seutulippu":forx=0to2500:next
5190 print" saat lunastaa lipun toimittajiemme"
5200 print"lasnaollessa milloin tahansa se heille":print"sopii..."
5220 print"onnea. muista! jos voitat, on sinulla"
5225 print"viikko aikaa vieda kirje":print"postiin..."
5240 forx=0to7000:next:print"[147]":return