home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 1 #2
/
Commodore_Disk_User_Vol.1_2_1988_-.d64
/
vertint
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
45 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"2vertint",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:poke53251,0
150 poke53249,220:poke2040,61
160 poke53248,128:p=128:poke53278,0
170 geta$:c%=rnd(1)*5+3:poke53288,c%
180 ifa$=","thenp=p-6:a=0:poke53248,p:poke2040,60:ifp<35thenp=35
190 ifa$="."thenp=p+6:a=0:poke53248,p:poke2040,62:ifp>247thenp=247
200 ifa$=""thena=a+1:ifa=3thena=0:poke2040,61
210 ifr=0thenx=0:r=1:gosub360
220 x=x+15
240 ifx>250thenr=0:x=0:poke53269,1
250 poke53269,3:poke53251,x:ifv<>0theny=(y-v)and255:poke53250,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]220[164]150[169][171]1:[151]53249,q:[130]:[129]q[178]p[164]100[169][171]1:[151]53248,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]53251,x:[151]53250,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]