10 POKE53281,13:POKE53280,5
15 FORT=0TO8:READH(T),L(T),D(T):NEXT
20 IFPEEK(12288)=7THEN40
25 PRINT"[147][151]PLEASE WAIT 11 SECONDS"
30 FORT=0TO319:READA:POKE12288+T,A:NEXT
35 FORT=49152TO50155:READA:POKET,A:NEXT
40 V=53248:POKEV+21,17
45 FORT=0TO4:POKE2040+T,192+T:NEXT
50 POKEV,35:POKEV+1,174:POKEV+39,6
55 POKEV+2,50:POKEV+3,155:POKEV+40,4:POKE2041,192
60 POKEV+6,255:POKEV+7,102:POKEV+42,8
65 POKEV+8,65:POKEV+9,179:POKEV+43,9
70 SYS49158
75 POKE708,1:S=54272:FORT=STOS+24:POKET,0:NEXT
80 POKES+12,0:POKES+13,240:POKES+24,15
85 GOSUB470
90 INPUT"[147] PLAYER 1[146] (PORT 2)";P$(0):P0=(11-LEN(P$(0)))/2
95 POKEV+39,4
100 INPUT"[156] PLAYER 2[146] (PORT 1)";P$(1):P1=(11-LEN(P$(1)))/2
105 INPUT"[152] WHAT LEVEL (EASY 0 - 9 HARD) [146] 5[157][157][157]";LV:POKE693,242+LV
110 INPUT" BALL SPEED (FAST 0 - 9 SLOW)[146]  5[157][157][157]";BL:KL=BL+3:BL=BL+1
115 INPUT"[154] MATCH BANKSHOTS (Y/N) [146] N[157][157][157]";BS$
120 POKE708,0:POKEV+39,6
125 TM$="[154] SHOTCLOCK:    [157][157][157]"
130 M$=LEFT$(TM$,12)+"[144] "
135 SP$="":HL$="HORSE":PL$="[154]          "
140 FORT=1TO40:CL$=CL$+"":SP$=SP$+"":NEXT
145 P3$=""+CL$
150 P$(0)=""+LEFT$(P3$,P0+3)+P$(0)
155 PH$(0)="":PH$(1)=PH$(0)+""
160 P$(1)="[156]"+LEFT$(P3$,P1+15)+P$(1)
165 S$="[144]=========================":SS$="[144]=[159]           [144]:[159]           [144]="
170 PRINT"[147]"S$:FORT=1TO4:PRINTSS$:NEXT
175 PRINTS$""P$(0)P$(1)
180 BA$="[223][157] [223][157][157]  [223][157][157][157]   [223][157][157][157][157]    [162][157][157][157][157][157][146][223]   [157][157][157][146][223]  [162][157][157][157][146][223] [157][146][223]"
185 FORT=0TO11:BB$=BB$+"[157] ":NEXT
190 PRINT"",,,BA$"[145][145][145][145][145]"BB$
195 FORT=1TO14:DI$=DI$+"[144][205]":NEXT
200 FORT=1TO25:D$=D$+"[144][175]":E$=E$+"[144][183]":NEXT
205 E$=E$+LEFT$(E$,28)+""
210 PRINTLEFT$(SP$,10);D$;DI$""E$
215 F$="[144][175][210][198][198][198][198][198][198][198][198][198][198][157][157][157][157][157][157][157][157][157][157][157][157][157][206][205][157][157][157][157][157][205][205][157][157][157][157][157][205][205]"
220 F$=F$+"[157][157][157][157][157][183][197][196][195][198][198][198][198][198][198][198][198][198][198][198]"
225 PRINTLEFT$(SP$,15),,"[157][157][157]"F$
230 HH$="[151]  [157][157][157]   [157][157][157]  [157][157][157]"
235 HO$="   [157][157][157]  [157][157][157]   [157][157][157]"
240 HR$=" [175][223][157][157][157] [183][146][169][157][157][157] [146][223][223][157][157][157]"
245 HS$="   [157][157][157][162][146][192][162][157][157][157]   [157][157][157]"
250 HE$="   [157][157][157] [146][192][157][157]   [157][157][157]"
255 H$="[156]"+HH$+HO$+HR$+HS$+HE$:PRINT"",,,""H$""
260 X=1:CT=7:POKEV+21,27:POKE254,0:POKE253,0
265 PRINTTM$;CT
270 X=-X:POKE701,0:POKE698,1
275 XX=0:X1=1:IFX=1THENXX=1:X1=0
280 IFPEEK(1282)=176THENPOKE698,0:GOSUB405:GOTO265
285 GOSUB480:IFBU<>0THEN280
290 GOSUB320:IFK=0THEN265
295 PRINTTM$;CT:SYS49152
300 IFPEEK(253)=0THENGOSUB395:GOTO315
305 IFBS$="Y"ANDL=1ANDPEEK(705)=0THENGOSUB415:GOTO315
310 GOSUB410
315 SYS49155:GOTO270
320 POKE698,0:POKE701,1:POKE254,XX
325 O1=XY:O2=YX:XY=PEEK(V+1+X):YX=PEEK(V+2+X):K=1
330 IFPEEK(253)=0THEN350
335 L=L+1:IFL>1THENL=0:GOTO350
340 IFPEEK(1282)=176THENGOSUB405:POKE698,0:K=0:RETURN
345 IFABS(XY-O1)>16ORABS(YX-O2)>16THENGOSUB400:K=0:RETURN
350 POKE2040+XX,193
355 POKEV+8,PEEK(V+1+X)+3:POKEV+9,PEEK(V+2+X)-4
360 GOSUB480:IFBU<>16THEN360
365 GOSUB480:IFBU<>0THEN365
370 IFL=1THEN390
375 POKE682,1:POKE683,1:POKE692,KL
380 IFSW=14THENPOKE682,2:POKE683,1:GOTO390
385 IFSW=13THENPOKE682,1:POKE683,2:POKE692,BL
390 POKE2040+XX,192:RETURN
395 PRINTM$" MISSED ":GOSUB435:RETURN
400 PRINTM$"[157] TOO FAR ":GOSUB425:RETURN
405 PRINTM$"TOO LATE":GOSUB420:RETURN
410 PRINTM$"  GOOD  ":BK=PEEK(705):RETURN
415 PRINTM$" NOBANK ":GOSUB430:RETURN
420 IFPEEK(253)=1THENL=L+1
425 POKE254,X1:POKEV+9,PEEK(V+2+(-X))+7
430 POKE253,0:GOSUB500
435 IFL=0THENRETURN
440 N(XX)=N(XX)+2:LL$=LEFT$(HL$,N(XX)):PRINTPH$(XX);LL$
445 IFN(XX)=10THEN455
450 L=0:BK=0:RETURN
455 POKE698,0:GOSUB470:PRINT"[151] PRESS  Y [146] TO PLAY AGAIN"
460 GETA$:IFA$<>"Y"THEN460
465 RUN
470 FORT=0TO8:POKES+7,L(T):POKES+8,H(T)
475 POKES+11,33:FORI=1TOD(T)*75:NEXT:POKES+11,32:NEXT:RETURN
480 JOY=PEEK(56320+PEEK(254)):BU=JOYAND16:SW=JOYAND15:RETURN
485 POKEV+10,(PEEK(V)+1)AND255:GOTO485
490 POKEV+21,59:POKEV+9,137
495 POKEV,100:POKEV+2,140:POKEV+1,131:POKEV+3,131:POKEV+10,100:POKEV+11,106
500 S=54272:POKES+13,249:POKES+14,252:POKES+8,7:POKES+11,33:POKES+11,32
505 FORT=1TO1000:NEXT:RETURN
510 DATA 4,48,2,5,152,2,5,71,2,4,180,2,4,48,4,4,180,2,3,134,4,4,48,2,2,204,16
515 DATA 7,224,0,63,255,128,127,255,255,127,0,127,255,255,0,223
520 DATA 255,0,240,0,0,254,0,0,254,0,0,254,0,0,254,0
525 DATA 0,254,0,0,130,0,0,255,24,0,247,96,0,235,236,0
530 DATA 247,120,0,250,255,128,245,85,254,255,255,255,127,255,254,128
535 DATA 30,0,0,30,0,0,28,0,0,62,0,0,62,0,0,62 
540 DATA 0,0,52,0,0,63,0,0,31,128,0,31,255,128,31,255
545 DATA 192,31,224,0,63,128,0,32,128,0,53,236,0,58,251,0
550 DATA 53,222,0,58,187,128,53,85,254,63,255,255,31,255,254,77
555 DATA 0,0,0,0,0,0,3,255,128,15,1,224,25,252,48,48
560 DATA 231,248,102,100,28,64,36,156,207,36,62,207,36,158,243,252
565 DATA 206,201,191,254,201,25,158,194,73,158,201,9,158,73,72,68
570 DATA 67,248,68,63,7,248,24,112,48,15,255,224,3,255,128,178
575 DATA 0,0,0,0,0,127,63,255,255,245,85,127,127,255,255,33
580 DATA 17,8,33,17,8,33,17,8,33,17,8,18,170,144,20,68
585 DATA 80,8,170,32,9,17,32,10,40,160,5,69,64,4,170,64
590 DATA 5,17,64,2,170,128,2,68,128,2,68,128,0,0,0,0
595 DATA 0,0,0,0,127,0,1,241,192,3,252,96,7,182,240,7
600 DATA 255,240,5,255,208,7,127,112,3,237,224,1,255,192,0,127
605 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0       
610 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,77      
615 DATA 76,87,193,76,242,194,169,0,160,80,153,167,2,136,208,250
620 DATA 133,253,133,254,133,251,169,220,133,252,141,170,2,141,171,2
625 DATA 169,253,141,175,2,169,254,141,172,2,169,0,160,24,153,0
630 DATA 212,136,208,250,169,15,141,24,212,120,169,70,141,20,3,169
635 DATA 192,141,21,3,88,96,173,30,208,141,177,2,173,196,2,240
640 DATA 6,238,0,208,238,8,208,173,186,2,240,20,206,182,2,208
645 DATA 20,206,2,5,173,2,5,201,177,176,5,162,0,142,186,2
650 DATA 169,60,141,182,2,173,189,2,208,65,173,174,2,208,6,206
655 DATA 9,208,76,136,192,238,9,208,166,254,240,1,232,24,189,0
660 DATA 208,105,10,141,8,208,56,173,9,208,253,1,208,201,1,144
665 DATA 7,201,10,176,11,76,187,192,238,9,208,169,1,76,181,192
670 DATA 206,9,208,169,0,141,174,2,32,131,195,160,1,162,2,196
675 DATA 254,240,8,169,0,141,169,2,76,208,192,169,1,141,169,2
680 DATA 173,189,2,240,8,173,169,2,240,3,76,43,193,177,251,74
685 DATA 176,20,72,189,1,208,201,112,240,11,222,1,208,173,169,2
690 DATA 240,3,206,9,208,104,74,176,20,72,189,1,208,201,220,240
695 DATA 11,254,1,208,173,169,2,240,3,238,9,208,104,74,176,12
700 DATA 72,189,0,208,201,24,240,3,222,0,208,104,74,176,12,72
705 DATA 189,0,208,201,240,176,3,254,0,208,104,162,0,136,208,3
710 DATA 76,191,192,238,175,2,240,3,76,187,192,169,253,141,175,2
715 DATA 76,49,234,138,72,152,72,174,180,2,160,0,136,208,253,202
720 DATA 208,248,104,168,104,170,96,169,0,160,10,153,187,2,136,208
725 DATA 250,133,253,169,35,141,178,2,169,17,141,4,212,141,189,2
730 DATA 32,198,195,169,238,141,163,194,173,192,2,240,3,76,208,194
735 DATA 172,170,2,174,171,2,136,16,3,76,80,194,173,9,208,208
740 DATA 21,173,188,2,240,3,76,60,194,173,8,208,201,255,208,3
745 DATA 76,169,194,76,80,194,173,190,2,240,8,206,190,2,208,8
750 DATA 76,60,194,173,188,2,208,3,76,63,194,173,9,208,201,180
755 DATA 176,90,201,150,240,118,201,97,208,117,173,191,2,208,112,173
760 DATA 8,208,201,236,176,11,173,193,2,208,100,32,220,195,76,63
765 DATA 194,201,254,176,5,205,181,2,176,35,169,15,141,184,2,173
770 DATA 185,2,201,65,176,5,169,31,141,184,2,173,27,212,45,184
775 DATA 2,141,190,2,238,190,2,32,131,195,76,54,194,169,1,133
780 DATA 253,169,252,141,8,208,32,163,195,76,63,194,169,196,141,252
785 DATA 7,169,32,141,29,208,169,9,141,43,208,169,1,141,192,2
790 DATA 141,194,2,32,131,195,32,198,195,76,63,194,32,209,195,206
795 DATA 9,208,173,194,2,208,9,238,178,2,173,178,2,141,1,212
800 DATA 202,16,6,152,48,106,76,186,194,173,193,2,240,7,173,9
805 DATA 208,41,3,240,85,165,253,208,81,173,191,2,240,5,173,192
810 DATA 2,240,68,173,8,208,201,26,176,8,169,238,141,163,194,76
815 DATA 163,194,201,255,208,29,173,192,2,208,19,173,9,208,201,60
820 DATA 144,23,201,110,176,19,32,131,195,169,1,141,193,2,169,206
825 DATA 141,163,194,206,8,208,76,186,194,32,209,195,32,220,195,169
830 DATA 1,141,191,2,141,188,2,32,67,193,32,67,193,76,134,193
835 DATA 173,188,2,208,8,164,254,177,251,41,16,208,74,76,120,193
840 DATA 173,195,2,208,6,169,1,141,186,2,96,169,17,141,176,2
845 DATA 165,254,208,3,238,176,2,173,177,2,45,176,2,205,176,2
850 DATA 240,8,169,1,141,195,2,76,128,193,169,0,141,189,2,166
855 DATA 254,208,7,232,134,254,232,76,13,195,202,134,254,24,189,1
860 DATA 208,105,5,141,9,208,96,169,206,141,71,195,169,238,141,96
865 DATA 195,173,9,208,141,185,2,169,1,141,173,2,141,188,2,173
870 DATA 193,2,240,3,76,60,194,160,4,174,173,2,173,9,208,208
875 DATA 6,238,9,208,76,74,195,238,9,208,173,8,208,201,255,208
880 DATA 6,32,209,195,76,123,195,238,8,208,32,67,193,202,208,234
885 DATA 206,173,2,136,208,211,238,172,2,240,16,169,238,141,71,195
890 DATA 32,209,195,169,206,141,96,195,76,55,195,169,254,141,172,2
895 DATA 76,120,193,169,2,141,1,212,169,185,141,5,212,169,99,141
900 DATA 6,212,141,15,212,169,129,141,4,212,141,18,212,169,128,141
905 DATA 4,212,96,169,0,141,6,212,141,4,212,141,5,212,169,42
910 DATA 141,1,212,169,252,141,6,212,169,17,141,4,212,169,16,141
915 DATA 4,212,141,194,2,96,169,206,141,63,194,169,238,141,71,194
920 DATA 96,169,238,141,63,194,169,206,141,71,194,96,169,194,141,252
925 DATA 7,169,0,141,43,208,169,48,141,29,208,96