home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 85
/
64er_Magazin_Sonderheft_85_19xx_Markt__Technik_de_Side_B.d64
/
20
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
51 lines
10 v=53248:poke53281,14:pokev+28,255:pokev+21,255:pokev+37,9:pokev+38,7:d=10
11 pokev,0:pokev+30,0:poke16383,255:pokev+16,0:pokev+27,0
20 pokev+39,2:pokev+40,2:fort=41to45:pokev+t,8:nextt:poke2040,226:poke2041,240
30 fort=4to5:poke2040+t,231+t:nextt:pokev+23,252:pokev+29,252:pokev+4,255-48
40 pokev+5,90:pokev+6,255-48:pokev+7,90+42:pokev+8,255-48:pokev+9,90+84:poke2046,238
50 pokev+10,255:pokev+11,90+84:pokev+12,255:pokev+13,90+42:x=100:y=150:poke2042,237
51 print"[129][147]";:forr=0to998:print"[178]";:next:poke2023,114:print"":poke2047,239
52 pokev+46,1:pokev+15,90:poke2043,241:poke2044,235:poke2045,236
53 fort=171to0step-22:pokev+14,t:gosub100:pokev+17,t/22+17:nextt:goto53
100 j=peek(56320):if(jand1)=0theny=y-4:poke2040,228:ify<50theny=y+4
101 if(jand2)=.theny=y+4:poke2040,227:ify>227theny=y-4
102 if(jand4)=.thenx=x-4:ifx<25thenx=x+4
103 if(jand8)=.thenx=x+4:ifx>210thenx=x-4
104 wait653,1,1:if(jand16)=.anda=.theny1=y-4:x1=x+10:a=1
105 ifa=1thenx1=x1+20:ifx1>255thena=.:x1=.:y1=.
106 ifpeek(v+30)<>.thengosub110
107 if(jand1)<>.and(jand2)<>.thenpoke2040,226
108 geta$:ifa$="[219]"thend=.:goto120
109 pokev,x:pokev+1,y:pokev+2,x1:pokev+3,y1:return
110 sk=peek(v+30):ifsk=5then200
111 ifsk=9then200
112 ifsk=17then200
113 ifsk=33then200
114 ifsk=65then200
115 ifsk=129then200
116 ifsk=6thengosub120
117 pokev+30,0:return
120 forr=41to45:pokev+r,1:nextr:ifd=0then150
121 forr=41to45:pokev+r,8:nextr:d=d-1:return
150 pokev+21,125:poke2040,226
151 fort=0to255:pokev+41,t:nextt:pokev+21,121
152 fort=0to255:pokev+42,t:nextt:pokev+21,113
153 fort=0to255:pokev+43,t:nextt:pokev+21,97
154 fort=0to255:pokev+44,t:nextt:pokev+21,65
155 fort=0to255:pokev+45,t:nextt:pokev+21,1
156 forr=xto248step8:fort=0to7:pokev,r+t:pokev+22,(7-t)+16:nextt,r
157 pokev+16,1:forr=0to60step8:fort=0to7:pokev,t+r:pokev+22,(7-t)+16:nextt,r
158 print"[147]":pokev+17,27:pokev+22,24:pokev+1,0:pokev+16,0:pokes+24,0:goto1000
200 print"":ifpeek(139)=0then250
201 print"ship destroyed":print"continues";peek(139)
202 poke139,(peek(139))-1:fort=0to255:pokev+39,t:nextt:fort=0to500:nextt:run
250 pokev+17,27:pokev+22,24:poke53281,0
251 v=53248:forr=0to15:pokev+r,0:next
252 s=54272:fort=0to24:pokes+t,0:next
253 print"[147][144]load"chr$(34)"02"chr$(34)",8"
254 print"run"
255 poke 198,10
256 poke631,19:poke632,13:poke633,13:new
1000 poke53281,0:print"[147][144]load"chr$(34)"21"chr$(34)",8":print"run:":poke198,10:poke631,19
1010 poke632,13:poke633,13:end