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