image of READY prompt

Wang2200.org

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