Listing of file='B-NIP' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 449, program filename = 'B-NIP' 0010 COM L,Y0 0020 DIM A$(13)62,N$1,Q$1,C$(1)2,O0$64,N$(2)2,M1$64 : INIT(80)A$() : PRINT HEX(0306) : FOR I=1TO 11 : STR(A$(I),62,1)=HEX(80) : NEXT I : Q$=HEX(80) : INIT(09)O0$ : N$(1)=HEX(2008) : N$(2)="S" : STR(N$(2),2)=HEX(00) : S0$="o" : L=5 : N8$=HEX(8B088008) 0030 GOSUB 400 : Q5=0 : S=0 : P=INT(INT(20*RND(1)+30)/4)*4+1 0040 FOR I=2TO 6 : FOR Z=1TO 3 : BIN(STR(W$,Z))=I+160 : NEXT Z : FOR Z=1TO 53STEP 4 : STR(A$(I),Z,4)=W$ : NEXT Z : NEXT I : Q5=Q5+1 0050 PRINT HEX(010D0A010A0A0A0A0A0A0A0A0A0A0A0A0A0A) : PRINT : PRINT TAB(9);"SCORE -";S;TAB(39);"BALLS -";B0;HEX(01); : INIT(8B)STR(A$(13),P,L) 0060 PRINT HEX(01); : MAT PRINT A$ : PRINT HEX(010A0A0A0A0A0A0A0A);TAB(15);"PRESS ANY KEY TO START THE BALL" 0070 X=13 : Y=INT(L/2)+P : D1=-1 : D2=SGN(RND(1)-.5) : D6=27+ABS(L-7)/2 0080 KEYIN C$,90,80 : IF D6=1THEN 110 : GOTO 80 0090 PRINT HEX(03); : MAT PRINT A$ 0100 PRINT HEX(010D0A010A0A0A0A0A0A0A0A0A0A0A0A0A0A) : PRINT : PRINT TAB(9);"SCORE -";S;TAB(39);"BALLS -";B0;HEX(01); 0110 IF ABS(VAL(N$)-53)>1THEN 130 : N=4*(VAL(N$)-53) : GOTO 130 0120 PRINT HEX(01); : MAT PRINT A$; : STR(A$(X),Y,1)=HEX(80) : KEYIN N$,110,130 0130 P=P+N : IF ABS(P-D6)<D6THEN 140 : P=P-N 0140 Y=Y+D2 : IF ABS(Y-30)<29THEN 150 : Y=Y-2*D2 : D2=-D2 0150 X=X+D1 : IF X>0THEN 160 : X=X-2*D1 : D1=-D1 : X2=0 0160 INIT(80)A$(13) : INIT(8B)STR(A$(13),P,L) 0170 IF X>12THEN 180 : IF STR(A$(X),Y,1)<>HEX(80)THEN 220 : STR(A$(X),Y,1)=S0$ : GOTO 120 0180 X2=0 : X=13 : IF STR(A$(X),Y,1)=HEX(8B)THEN 250 : STR(A$(X),Y,1)=HEX(2A) : PRINT HEX(01); : MAT PRINT A$; : PRINT HEX(010A0A0A0A0A0A0A0A0A);TAB(21);"YOU MISSED IT!" : B0=B0-1 : B1=B1+1 0190 KEYIN C$,190,190 0200 PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A0A0A0A0A);STR(O0$,1,39);"BALLS -";B0; : FOR Z=1TO 200 : NEXT Z : PRINT HEX(010A0A0A0A0A0A0A0A0A);TAB(63);" " : IF B0=0THEN 330 0210 N=0 : GOTO 70 0220 STR(A$(X),Y+((1+INT((Y-1)/4)*4)-Y),4)=HEX(80808080) : IF ABS(X2-X+1)+ABS(D1-1)=0THEN 230 : D1=-D1 0230 X2=X : S=S+ABS(X-7) : STR(A$(X),Y,1)=S0$ : PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A0A0A0A0A);TAB(9);"SCORE -";S; : IF S<210*Q5 THEN 120 : PRINT HEX(01); : MAT PRINT A$ 0240 PRINT HEX(010A0A0A0A0A);TAB(15);"YOU GOT THEM ALL!!! --- YIPPEE!!!" : GOTO 40 0250 STR(A$(X),Y,1)=HEX(2A) : D1=-1 0260 ON ABS(Y-P-2)+1GOTO 270,280,290,300,300 0270 D3=-2 : GOTO 310 0280 D3=-1 : GOTO 310 0290 D3=1 : GOTO 310 0300 D3=2 0310 D2=D2+SGN(D2)*D3 : IF ABS(D2)>=1THEN 320 : D2=SGN(D2+.01) 0320 IF ABS(D2)<4THEN 120 : D2=3*SGN(D2) : GOTO 120 0330 PRINT HEX(010A0A0A0A0A0A0A0A0A);TAB(23);"OUT OF BALLS";HEX(0C) : FOR Z=1TO 200 : NEXT Z : IF N0=1THEN 370 : N0=1 : IF S>170THEN 350 : IF S>140THEN 340 : GOTO 370 0340 B0=1 : GOTO 360 0350 B0=2 0360 PRINT TAB(63);" ";HEX(0C) : PRINT TAB(10);"BUT YOU GET";B0;"MORE BALL";N$(B0);" FOR SKILLFUL PLAY";HE X(0C); : FOR Z=1TO 300 : NEXT Z : PRINT TAB(63);" " : GOTO 200 0370 FOR Z=1TO 500 : NEXT Z : PRINT HEX(03) : PRINT HEX(010A0A0A0A0A0A06) : FOR Y=1TO 3 : PRINT TAB(25);"GAME OVER";HEX(0C) : FOR Z=1TO 60 : NEXT Z : PRINT TAB(63);" ";HEX(0C) : FOR Z=1TO 60 : NEXT Z : NEXT Y 0380 PRINT TAB(25);"GAME OVER" : PRINT : PRINT : PRINT "YOU HAD A SCORE OF";S;"USING";B1;"BALLS AT LEVEL";L9 : N0=0 : S3=S3+S : G3=G3+1 : PRINT "THAT IS AN AVERAGE OF";INT(S3/G3*100)/100;"POINTS IN";G3;"GAME(S)" : PRINT 0390 M1$="DO YOU WANT TO PLAY AGAIN?" : GOSUB 520 : IF STR(A$,1,1)="N"THEN 650 : RESTORE 10 : Q6=1 : B1=0 : GOTO 20 0400 PRINT HEX(03060A);TAB(23);B6$ 0410 READ M1$ : IF M1$="!!!!!"THEN 420 : IF STR(M1$,LEN(M1$),1)="?"THEN 430 : FOR Z=1TO LEN(M1$) : PRINT STR(M1$,Z,1); : S=SQR(1) : NEXT Z : FOR Z=1TO 50 : NEXT Z : PRINT : GOTO 410 0420 GOTO 70 0430 Q6=Q6+1 : GOSUB 520 : IF Q6=2THEN 440 : IF STR(A$,1,1)="Y"THEN 400 : PRINT HEX(030A0A) : FOR Z=1TO 11 : READ M1$ : NEXT Z : GOTO 430 0440 A=VAL(A$)-48 : IF A<1THEN 510 : IF A>6THEN 510 : L9=A : ON AGOTO 450,460,470,480,490 : L=3 : B0=3 : GOTO 500 0450 L=7 : B0=6 : GOTO 500 0460 L=7 : B0=3 : GOTO 500 0470 L=5 : B0=5 : GOTO 500 0480 L=5 : B0=3 : GOTO 500 0490 L=3 : B0=5 : GOTO 500 0500 RETURN 0510 PRINT "1-6 Please" : Q6=1 : GOTO 430 0520 T0=0 : P5=0 : A$,C$=" " : T1=1 : T6=20 : KEYIN A$,520,520 0530 PRINT M1$;" "; 0540 T0=T0+1 : KEYIN C$,570,550 0550 IF T0<T6THEN 540 : T0=0 : T1=T1+2 : IF T1<4THEN 560 : T1=1 0560 PRINT STR(N8$,T1,2); : GOTO 540 0570 P5=P5+1 : IF C$<>HEX(08)THEN 590 : IF P5=1THEN 580 : P5=P5-2 : STR(A$,P5+1,1)=" " : PRINT HEX(082008); : GOTO 540 0580 P5=0 : GOTO 540 0590 PRINT C$; : IF P5>16THEN 600 : IF C$=HEX(0D)THEN 600 : STR(A$,P5,1)=C$ : IF P5=1THEN 600 : GOTO 540 0600 RETURN 0610 DATA "Do you want instructions?" 0620 DATA " This game is played just like the arcade game of the","same nam e. To win, you must hit all of the blocks on" 0630 DATA "the screen. To control the paddle:"," "," ","Push the '4' key to m ove it left"," The '5' key to stop it's movement" 0640 DATA " The '6' key to move it right."," "," ","How do you want to pla y (1-6)?","!!!!!" 0650 SELECT P2 : PRINT HEX(030A06) : PRINT "THIS HAS BEEN A ";HEX(CBC9CEC720C1CEC420CBDEB220D0D2CFC4D5C3D4C9CF CE) : PRINT : PRINT TAB(2);"A DIVISION OF ";HEX(D7C9DAC1D2C4A7D320C9CEC3CFD2D0CFD2C1D4C 5C4);":" : PRINT : PRINT TAB(10);"'THE MAGIC MAKERS'" 0660 PRINT : PRINT TAB(6);"WE HOPE YOU ENJOYED THE GAME" : PRINT 0670 SELECT P : T0=T0+1 : IF T0>250THEN 680 : KEYIN A$,700,670 : GOTO 670 0680 IF M=1THEN 690 : PRINT TAB(7);"Press Any Key To Continue" : M=1 : T0=210 : GOTO 670 0690 PRINT HEX(0C);TAB(63);" ";HEX(0C) : T0=210 : M=0 : GOTO 670 0700 IF M=0THEN 710 : PRINT HEX(0C);TAB(63);" ";HEX(0C0C) 0710 PRINT : END