10 REM        PINBALL 2001
 20 INPUT"Do you want instructions (Y/N)";A$
 25 IF LEFT$(A$,1)="Y" THEN 2500
 30 FOR X=1 TO 30:PRINT:NEXT
 40 FORX=0TO43:POKEX+53514,155:POKEX+54986,154
 41 NEXT
 60 FORX=54018TO54466STEP64:POKEX+59,157:NEXT 
 70 FORX=53558TO54013STEP65:POKEX,169:POKEX+1,86
 71 NEXT
 75 FORX=53513TO53954STEP63:POKEX,170:POKEX-1,96
 76 NEXT
 80 FORX=54589TO55030STEP63:POKEX,170:POKEX+1,96
 81 NEXT
 85 FORX=54648TO54837STEP63:POKEX,189:POKEX+64,96:NEXT
 90 FORX=54530TO54985STEP65:POKEX,169:POKEX-1,96
 91 NEXT
 95 FORX=53588TO53716STEP64:POKEX,233:POKEX+23,233:NEXT
 100 FORX=53721TO53849STEP64:POKEX,143:POKEX+1,136:POKEX+6,143
 105 POKEX+7,136:POKEX+12,143:POKEX+13,136:NEXT
 110 FORX=54599TO54004STEP65:POKEX,190:POKEX+1,96:NEXT
 115 FORX=54795TO54797:POKEX,128:POKEX+39,128:NEXT
 120 FORX=54674TO54678:READA:POKEX,A:POKEX+23,A
 121 NEXT
 122 Q=125
 125 A=54110:B=3:FORX=1TO3:FORY=0TO8:POKEA+Y,Q:NEXTY:A=A+63
 130 B=B+2:NEXT X:A=A-64
 135 FORX=1TO3:A=A+65:B=B-2:FORY=0TO8:POKEA+Y,Q:NEXTY,X
 140 A$=CHR$(13):PRINTSPC(63)A$:POKE55167,32
 145 A=53961:FORX=0TO7:POKEX+A,4:POKEX+A+38,4:NEXT
 150 FORX=1TO10:READA:READB:POKEA+54154,B:POKEA+54196,B  
 155 NEXT
 160 POKE2073,96:A=57088
 161 POKE9770,0
 165 B=6
 200 B=B-1:PRINTTAB(47);"BALLS: ";B:IFB=0THEN2400
 201 PRINTTAB(22);"Hit (SPACE) for ball"
 202 PRINTTAB(9);"SCORE    ";S
 205 F=0:FORX=54992TO55023:POKEX,154:NEXT
 210 FORX=1TO50:IF PEEK(57088)=16 THEN 220  
 211 POKEA,2:NEXT
 215 PRINTSPC(60):PRINT
 216 FORX=1TO200:NEXTX:GOTO201
 220 PRINTSPC(60):PRINT
 230 POKE53611,32:C=53620:D=-1
 240 FORX=1TO31:C=C+D:POKEC,226:POKEC+1,32:NEXT
 250 POKE53611,233:FORX=1TOINT(C*RND(1)*19+1)
 260 C=C+1:POKEC,226:POKEC-1,32:NEXT
 300 P=PEEK(A):IFP<2ORP>7THEN400
 301 IF F=1 THEN 400
 352 FL=`84:F=1
 305 IF P=7 THEN 375
 310 IF P=3 THEN  325
 315 FOR FF=55007TO54992STEP-1:POKEFF,FL:GOSUB400:NEXT
 320 FORFF=54992TO55007:POKEFF,154:GOSUB400:NEXT:F=0:GOTO300
 325 FORFF=55008TO55023:POKEFF,FL:GOSUB400:NEXTFF
 330 FORFF=55023TO55008STEP-1:POKEFF,154:GOSUB400:NEXT
 335 F=0:GOTO300
 340 IF F=1 THEN RETURN
 360 GOTO 300
 375 F1=55007:F2=F1+1:FORFF=0TO15:POKEF1-FF,FL:POKE2+FF,FL
 380 GOSUB400:NEXT
 390 FORFF=15TO0STEP-1:POKE1-FF,154:POKE2+FF,154:GOSUB400:NEXT
 395 F=0:GOTO300
 400 C=C+D:IFPEEK(C)<>32THENP=PEEK(C):C=C-D:GOTO500
 401 X=2*RND(1):IFX>.5THENX=64
 402 IF X<.5THENX=-64
 420 POKEC,226:POKEC-D,32
 421 DC=DC+1:IF DC<>10 THEN 440
 422 DC=0
 425 IF PEEK(C+X)<>32THEN440
 430 C=C+X:POKEC,226:POKEC-X,32
 440 IF F=1 THEN RETURN
 460 GOTO 300
 500 IF P=154THENPOKEC,32:GOTO200
 501 IFP=128THENC=C-128:POKEC,226:POKEC+128,32:DD=-D:GOTO400
 505 IFP<>FLTHEN540
 510 X=A*RND(1):IFX<.5-THENX=1
 515 IFX>.5THENX=-1
 520 C=C+X:POKEC,226:POKEC-X,32
 530 IFD=63THEND=-65:GOTO400
 535 IFD=65THEND=-63:GOTO400
 540 S=S+P:PRINTTAB(9);"SCORE ";S:IFP<136ORP=155THEN545
 541 GOTO600
 545 IF D=65 THEND=-63:GOTO400
 550 IF D=-65THEND=63:GOTO400
 555 IF D=-63THEND=65:GOTO400
 560 IF D=63THEND=-65:GOTO400
 600 IF D=65THEND=63:GOTO400  
 605 IF D=-65THEND=-63:GOTO400
 610 IF D=63THEND=65:GOTO400
 615 IF D=-63THEND=-65:GOTO400
 2000 DATA 40,42,42,42,41    
 2010 DATA 0,221,1,222,64,140,65,139,128,140,129,139,192,140,193
 2020 DATA 139,256,220,257,223
 2400 B$="YOUR SCORE"+STR$(S):BB=32-INT(LEN(B$)/2)
 2401 PRINTSPC(60)
 2402 PRINT
 2410 PRINTTAB(BB);B$  
 2415 PRINTTAB(19);"HIT (SPACE) TO PLAY AGAIN"
 2420 FORX=1TO1500:NEXT:PRINTSPC(60):FORI=1TO500:NEXT
 2421 PRINT
 2435 PRINTTAB(18);"HIT (RETURN) TO END THE GAME"
 2440 FORX=1TO1500:NEXT:PRINTSPC(60):FORI=1TO500:NEXT
 2441 PRINT
 2450 POKEA,255:BB=PEEK(A):IFBB=17THENCLEAR:RESTORE:GOTO40
 2455 IFBB=9THENPOKE9770,64:RUN"BEXEC*
 2460 GOTO2415
 2500 FORX=1TO11:PRINT:NEXT:PRINTTAB(28);"PINBALL 2001
 2505 PRINT:PRINT:PRINT
 2510 PRINT"It is a game of pinball in which you control"
 2520 PRINT"the flippers and the computer controls the ball"
 2530 PRINT
 2540 PRINT"To control the left hand paddle use the left (SHIFT)"
 2550 PRINT"To control the right paddle use the right (SHIFT)"
 2560 PRINT"To use both paddles at the same time use both (SHIFTS)"
 2570 PRINT"at the same time (hold them both down)"
 2580 PRINT:PRINT:PRINT
 2590 PRINT"Everything else you need to know is written into the"
 2600 PRINT"program,so just follow it's instructions and you'll"
 2610 PRINT"be o.k.":PRINT:PRINT
 2620 FOR X=1TO 5:PRINT:NEXT
 2630 PRINT"PRESS (Y) FOLLOWED BY (RETURN)":INPUTA$ 
 2640 GOTO 30