home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 1 #3
/
Commodore_Disk_User_Vol.1_3_1988_-.d64
/
bugged
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
41 lines
1 hs=0:d$="":l$=chr$(29):r$=chr$(17):printchr$(147)
11 poke53281,0:co=14:pk=160
21 forx=0to39:y=0:gosub321:gosub341:y=1:gosub321:gosub341:y=24:gosub321
31 gosub341:nextx:x=39:fory=1to23:gosub321:gosub341:nexty:forx=15to38step6
41 cn=(x-7)/6:fory=2to23:gosub321:gosub341:ifco=cnthenco=co+1:goto61
51 co=cn
61 x=x+1:gosub321:gosub341:x=x-1:nexty:nextx:x=0:co=13:fory=2to23:gosub341
71 nexty:if sc>hs then hs=sc
81 bp=10:gosub 381:bl=5:sc=0
91 hs$=str$(hs):hs$=right$(hs$,len(hs$)-1)
101 printtab(2);"hi-score:";tab(12);hs$;tab(17);"score:";tab(30);"balls:";
111 printtab(37);right$(str$(bl),1);chr$(19);:gosub371
121 bx=4:vx=1:bl=bl-1:printtab(37);right$(str$(bl),1);chr$(19);:by=int(rnd(1)*19)+3
131 vy=int(rnd(1)*3)-1:ifvy=0then131
141 ro=peek(56320):pk=32:gosub381:ifnot(roand1)=1thenbp=bp-2
151 ifnot(roand2)=2thenbp=bp+2
161 pk=160:gosub381
171 y=by:x=bx:pk=32:gosub321
181 y=y+vy:x=x+vx:ifx<0then261
191 gosub331:ifpk=32then251
201 ify<2ory>23thenvy=-vy:goto171
211 ifx>38orx<1thenvx=-vx:goto171
221 gosub351:sc=sc+co*10:gosub371:pk=32:gosub321
231 ifrnd(1)*4>1thenvx=-vx:goto171
241 goto181
251 pk=81:co=1:gosub341:gosub321:bx=x:by=y:goto141
261 ifbl>0then121
271 print tab(10);left$(d$,24);"another game(y/n)?";
281 getz$:ifz$=""then281
291 ifz$<>"y"orz$<>"n"then281
301 ifz$="y"then1
311 ifz$="n"thenprintchr$(147);:end
321 poke1024+x+40*y,pk:return
331 pk=peek(1024+x+y*40):return
341 poke55296+x+40*y,co:return
351 co=peek(55296+x+40*y)
361 co=co/16:co=(co-int(co))*16:return
371 x$=str$(sc):printtab(24);right$(x$,len(x$)-1);chr$(19);:return
381 x=0:y=bp:gosub321:y=y+1:gosub321:return
391 y=bp:gosub321:y=y+1:gosub321:return