2 poke59467,16:poke59466,95 5 print"{clr}" 10 print"do you want instructions" 20 gosub520 25 print"{clr}" 30 ifa$="n"then106 35 print:print 40 print"3 balls per game.pressing{CBM-C}4{CBM-V}moves" 50 print"bat 1 space to left,{CBM-C}6{CBM-V}moves it to" 60 print"right.bat determines new direction of" 70 print"ball according to where on bat ball" 80 print"lands." 81 print"completing drop targets scores" 82 print"extra ball.maximum 1 extra ball" 83 print"per ball in play." 84 print"1 replay awarded when 50 points" 85 print"scored.1 replay for each" 86 print"additional score of 20 points." 87 print"to get each ball into play press" 90 print"any key." 100 print:print:print"press any key to continue" 105 gosub520 106 cr=1 110 cr=cr-1 120 print"{clr}";:forn=32810to32820:poken,100:next:poke32849,78:poke32861,77 130 forn=32888to33408step40:poken,103:next 140 forn=32902to33422step40:poken,101:next 150 b=33415:pokeb-1,233:pokeb,160:pokeb+1,223 160 n=32809:poken,78:poken+39,78:poken+12,77:poken+53,77 170 x=33135 175 pokex-123,15:pokex-117,15 180 pokex-2,15:pokex+2,15 185 pokex+78,15:pokex+82,15 190 printtab(20);"ball in play 0" 193 print"{down}";spc(20);"credit" 194 gosub518 195 s=0 196 n=1 197 iy=-1:ix=2:gosub490 198 p=32855:x1=7+ix:y1=21 199 t=32895+ix 200 poke32801,n+48 201 x=32852:fory=xtox+2 202 pokey,90:next:fory=x+4tox+6 203 pokey,90:next 204 e=0 205 s1=s 210 gosub520 215 pokep,81 220 q=peek(t) 230 ifq=32orq=96thenpokep,32:p=t:pokep,81:x=x1:y=y1 235 ifq=90thengosub511 240 ifq=103orq=101thenix=-ix:iy=iy+iy:tyy=tyy+1:iftyy>=2thentyy=0:iy=1 250 ifq=100theniy=-iy 260 ifq=15thengosub513:gosub470 270 ifq=77orq=78thenix=-ix:iy=-iy 280 ifq=233thenix=-1:iy=1:goto310 286 ifp=b-40thenix=0:iy=1:goto310 287 ifp=b-39thenix=1:iy=1:goto310 288 ifp=b-41thenix=-1:iy=1:goto310 290 ifq=160thenix=0:iy=1:goto310 291 ifp=b-42thenix=-1:iy=1:goto310 292 ifp=b-38thenix=1:iy=1:goto310 300 ifq=223thenix=1:iy=1:goto310 310 d=0 311 poke59464,q 312 poke59464,peek(t) 315 ifq$="4"thend=1 316 ifq$="6"thend=2 320 getq$:poke151,255 322 poke59464,0 330 ondgosub449,459 340 x1=x+ix:y1=y+iy:t=33728+x1-40*y1 350 ift<32808then360 355 ift<33462then220 360 pokep,32 361 gosub1000 362 ifs1=sthenn=n-1 363 n=n+1 365 ifn<4then197 367 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}" 368 ifcr=0then533 370 print"press{CBM-C}r{CBM-V}for next game" 380 gosub520 390 ifa$="r"then110 440 end 449 ifb=33411thenreturn 450 pokeb+1,32:pokeb,223:pokeb-1,160:pokeb-2,233:b=b-1 452 return 459 ifb=33419thenreturn 460 pokeb-1,32:pokeb,233:pokeb+1,160:pokeb+2,223:b=b+1 463 return 470 d=int(rnd(ti)*3-1):ifd=iythen470 480 iy=d 490 d=int(rnd(ti)*3-1):ifd=ixthen490 500 ix=d:ifix=0andiy=0then470 510 return 511 poket,32:e=e+1 512 ife=6thenn=n-1 513 s=s+1:print"{home}";s:ifs<50thenreturn 514 ifs=50then517 515 ifint((s-50)/20)=(s-50)/20then517 516 return 517 cr=cr+1 518 ifcr<10thenpoke32876,cr+48:return 519 d=int(cr/10):poke32875,d+48:poke32876,cr-d*10+48:return 520 geta$:ifa$=""then520 530 return 533 print"for another game press{CBM-C}space{CBM-V}":poke525,0 534 poke158,0:gosub520 540 ifa$=" "thenrun106 545 poke59464,0:poke59466,254:poke59467,0 550 end 1000 pokeb,160:pokeb+1,223:pokeb-1,233:return