10 Z=19712:A=16917 20 POKEA,126:POKEA+1,77:POKEA+2,00 30 DATA 95,134,251,151,2,182,191,255,132,8,38,2,198,1,134,127,151,2,182,191,255,132,4,38,2,202,2,247 35 DATA 77,31,57,0 40 READ B:IFB=0THEN60 45 POKE Z+R,B:R=R+1:GOTO40 60 REM 100 CLS0:FORX=0TO62:SET(X,0,1):SET(X,1,1):SET(X,26,1):SET(X,27,1):NEXTX:FORY=0TO27:SET(0,Y,1):SET(1,Y,1):SET(62,Y,1) 105 B=1:PT=0:V1=5:V2=4:PU=0 110 SET(63,Y,1):NEXTY:PRINT@462,"BREAKOUT";:FORX=1TO5:SOUND50*X,1:NEXTX:GOSUB3000 200 A=15:D=3:W=49151:FORX=ATOA+4:SET(D,X,5):NEXTX 390 C=1:FORZ=25TO49STEP4 395 C=C+1:FORY=2TO25:FORX=1TO2:SET(Z+X,Y,C):NEXTX,Y,Z 405 S=-1:Y=RND(23)+2:IFY<12THENE=1 410 IFB>5THEN4000 420 IFY>=12THENE=-1 430 X=25:SET(X,Y,5) 500 L9=USR(0):K=PEEK(19743) 510 IFK=1THENGOSUB2100 520 IFK=2THENGOSUB2000 540 RESET(X,Y) 550 A6=A6+S:A7=A7+E:IFINT(A6)=XANDINT(A7)=YTHEN500 600 X=X+S:Y=Y+E 610 IFY<2THENE=1:Y=2:SOUND200,1 611 IFY>25THENE=-1:Y=25:SOUND200,1 615 IFX<5THENGOSUB2300:IFEF=1THENEF=0:FORZ=1TO100:NEXTZ:GOTO410 617 IFX>61THENS=S*-1:SOUND100,1:GOTO600 620 IFPOINT(X,Y)>1THENGOSUB2400 800 SET(X,Y,5) 900 GOTO500 1000 K$=INKEY$:IFK$=""THEN1000 2000 A=A-1:IFA<2THENA=2 2010 SET(D,A,5):RESET(D,A+V1):RETURN 2100 A=A+1:IFA>21THENA=21 2200 SET(D,A+V2,5):RESET(D,A-1):RETURN 2300 IFA>YORA+V20THENP=X:P1=Y-1 2420 IFR=0ANDT=0THENP=X:P1=Y 2430 IFR<>0ANDT=0THENP=X-1:P1=Y 2440 IFR<>0ANDT<>0THENP=X-1:P1=Y-1 2500 FORT=0TO1:FORZ=0TO1:RESET(P+T,P1+Z):NEXTZ:NEXTT 2505 S=-1 2510 IFJ=8ANDTJ=1THENTJ=2 2520 IFJ=8ANDTJ=0THENTJ=1 2530 IFTJ=2ANDS<0THEN2540 2535 IFTJ=2ANDS>0THENS=-1 2540 IFTJ<>2THENS=-1 2550 IFPU<20THEN2620 2610 R=RND(2):S=S*R 2620 E=RND(5)-3 2700 PT=PT+J*8 2710 GOSUB3000 2730 PU=PU+1:IFPU=84THENPU=0:GOTO390 2900 RETURN 3000 PRINT@449,"SCORE= "; 3010 W=5-LEN(STR$(PT)):PRINT@455+W,PT; 3020 PRINT@471,"BALL#";B;:RETURN 4000 FORX=1TO10:SOUND175,1:NEXTX 4010 PRINT@195,"GAME OVER"; 4100 PRINT@491,"PLAY AGAIN?"; 4110 K$=INKEY$:IFK$=""THEN4110 4120 IFK$="N"THENPRINT:PRINT@486,"BYE, COME BACK SOON!":END 4200 IFK$="Y"THEN100 4210 GOTO4000 4230 END