Listing of file='BREAKOUT' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 363, program filename = 'BREAKOUT' 0010 DIM A$(15)64 : INIT(80)A$() : A=32 : B=6 : PRINT HEX(03); : Z=5 : GOSUB 250 0020 INIT("#")A$(4) : INIT(8B)A$(5) : INIT("=")A$(6) : FOR I=1TO 64STEP 4 : STR(A$(4),I,1),STR(A$(5),I,1),STR(A$(6),I,1)="(" : NEXT I : FOR I=4TO 64STEP 4 : STR(A$(4),I,1),STR(A$(5),I,1),STR(A$(6),I,1)=")" : NEXT I 0030 B=B-1 : IF B<1THEN 210 : E1=-1 : K=INT(RND(1)*Z)-2 : E=14 : D=INT(RND(1)*(Z-2))+A+1 0040 KEYIN A$,50,50 0050 ON VAL(A$)-48GOTO 60,130,70,80,130,90,100,130,110 : GOTO 130 0060 A1=-1 : GOTO 120 0070 A1=1 : GOTO 120 0080 A1=-3 : GOTO 120 0090 A1=3 : GOTO 120 0100 A1=-5 : GOTO 120 0110 A1=5 0120 IF A+A1<1THEN 130 : IF A+A1>65-ZTHEN 130 : A=A+A1 0130 INIT(80)A$(15) : IF STR(A$(E),D,1)<>HEX(80)THEN 200 : STR(A$(15),A,Z)="-------" : STR(A$(15),64,1)=HEX(01) 0140 STR(A$(E),D,1)="." : PRINT HEX(01);"SCORE=";S;" BALLS LEFT";B-1;HEX(01); : MAT PRINT A$; : STR(A$(E),D,1)=HEX(80) 0150 IF D+K>64THEN 170 : IF D+K<1THEN 170 0160 E=E+E1 : D=D+K : IF E<2THEN 180 : IF E=15THEN 190 : GOTO 40 0170 K=-K : GOTO 160 0180 E1=-E1 : GOTO 40 0190 E=15 : E1=-1 : IF D>A+(Z-1)THEN 310 : IF D<ATHEN 310 : K=D-A-3+INT(6/Z) : GOTO 130 0200 STR(A$(E),INT((D-1)/4)*4+1,4)=HEX(80808080) : S=S+(7-E) : E1=-E1 : GOTO 130 0210 E$="GAME OVER" 0220 INIT(80)A$(15) : STR(A$(15),A,Z)="-------" : STR(A$(15),64,1)=HEX(01) 0230 STR(A$(E),D,1)="." : PRINT HEX(01);"SCORE=";S;" BALLS LEFT";B-1;HEX(01); : MAT PRINT A$; 0240 FOR I=1TO 5 : PRINT HEX(010A0A0A0A0A0A0A);TAB(29);E$ : FOR O=1TO 50 : NEXT O : PRINT HEX(010A0A0A0A0A0A0A);TAB(60);" " : FOR O=1TO 50 : NEXT O : NEXT I : IF B<1THEN 320 : GOTO 30 0250 PRINT "KEYIN 'P' TO CHANGE PADDLE SIZE, AND 'B' TO CHANGE BALL NO." : PRINT HEX(0A0A0A0A0A0A0A0A0A0A) 0260 PRINT HEX(0C);"PADDLE=";Z;"BLOCKS LONG","NUMBER OF BALLS=";B-1 0270 KEYIN A$,280,270 : GOTO 270 0280 IF A$=HEX(0D)THEN 300 : IF A$="B"THEN 290 : IF A$<>"P"THEN 270 : Z=Z+2 : IF Z<9THEN 260 : Z=3 : GOTO 260 0290 B=B+2 : IF B<9THEN 260 : B=2 : GOTO 260 0300 PRINT HEX(03) : RETURN 0310 E$="LOSTBALL" : GOTO 220 0320 END