home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 1 #2
/
Commodore_Disk_User_Vol.1_2_1988_-.d64
/
3macint
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
46 lines
10 ifa=0thena=1:load"skycha*",8,1
20 ifa=1thena=2:load"ship+*",8,1
30 ifa=2thena=3:load"skyscr*",8,1
40 ifa=3thena=4:load"skybak*",8,1
50 ifa=4thena=5:load"2macint",8,1
60 poke53272,(peek(53272)and240)or2
70 poke53270,peek(53270)or16
80 poke53280,0:poke53281,0
90 sys49152
100 poke649,1:poke650,128:poke53276,3
110 poke53286,1:poke53285,11
120 poke53287,15:poke53288,15:poke53289,15
130 a=0:ti$="000000"
140 poke53269,3:poke2041,59:poke53250,0
150 poke53248,40:poke2040,61
160 poke53249,128:p=128:poke53278,0
170 geta$:c%=rnd(1)*5+3:poke53288,c%
180 ifa$="[133]"thenp=p-4:a=0:poke53249,p:poke2040,60:ifp<50thenp=50
190 ifa$="[136]"thenp=p+4:a=0:poke53249,p:poke2040,62:ifp>230thenp=230
200 ifa$=""thena=a+1:ifa=3thena=0:poke2040,61
210 ifr=0thenx=90:r=1:gosub360
220 x=x-15
230 if((x<0)and(peek(53264)=2))thenx=255:poke53264,0:poke53250,x:goto260
240 if(x<0)andpeek(53264)=0thenr=0:x=0:poke53269,1
250 poke53269,3:poke53250,x:ifv<>0theny=(y-v)and255:poke53251,y
260 ifpeek(53278)=3thensc=sc+10:gosub400:r=0
270 ifti$<"000100"then170
280 sys 51200
290 poke53272,21
300 poke53270,200
310 print"you scored"sc"points"
320 print"do you want to play again? (y/n)
321 [151]53251,180:[151]2040,61
322 [129]q[178]40[164]100:[151]53248,q:[130]:[129]q[178]p[164]150:[151]53249,q:[130]
330 [161]a$:[139]a$[178]"y"[167] [138]
340 [139]a$[178]"n"[167] [151]53269,0:[153]"loadcont";:[151]53280,14:[151]53281,6:[128]
350 [137]330
360 y[178][181]([187](1)[172]181[170]50):[151]53269,1:[151]53250,x:[151]53264,2:[151]53251,y
370 [151]53269,3:[139]y[173]8[178][181](y[173]8)[167]v[178]8:[142]
380 [139]y[173]5[178][181](y[173]7)[167]v[178][171]8:[142]
390 v[178]0:[142]
400 [151]2040,61:[151]53269,1:[129]g[178]1[164]16:[151]53267,([194](53287)[170]1)[175]15
410 [151]53286,([194](53286)[170]1)[175]15
420 [151]53285,([194](53285)[170]1)[175]15
430 [130]:[151]53278,0:[142]