Listing of file='SUB' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 296, program filename = 'SUB' 0001 I$="B&D" 0010 D2=1 0020 DIM O$64,P(16),D$18,Z$(4),D$(2) : INIT(09)O$ : INIT(0A)D$ : STR(D$,1,1)=HEX(01) : STR(O$,1,1)=HEX(00) : FOR I=1TO 16 : P(I)=100 : NEXT I : PRINT HEX(0306) : D=2 : L=1 : Z$="546" : X=1 0030 D$(2)="<\86>" : Z$(1)=" B&D FULES" : Z$(2)="THE JESTERS" : Z$(3)=Z$(1) : BIN(D$(1))=95 : BIN(STR(D$(1),2,1))=134 : BIN(STR(D$(1),3,1))=132 0040 Y=INT(RND(1)*62+1) : PRINT STR(D$,1,6);STR(O$,1,Z+1);" ";STR(D$,1,17);STR(O$,1,Y);"*";STR(D$,1 ,6);STR(O$,1,T+1);STR(D$(X),D,1);HEX(01);STR(D$(1),L+2,1);" SIDE","SCORE= ";INT(50*V+U/3),Z$(U-3*INT(U/3)+1),"HIGH=";INT(H);"BY:";I$ : U=U+1 : Z=T 0041 X=U-INT(U/2)*2+1 0045 IF D<>2THEN 50 : V=V-.02 0050 IF D2<>1THEN 60 : PRINT STR(D$,1,5);STR(O$,1,24);" " : PRINT STR(D$,1,8);STR(O$,1,24);"PRESS A KEY TO START" : KEYIN A$,150,150 : IF INT(RND(1)*5)<>0THEN 90 : B$=STR(Z$,SGN(INT(RND(1)*5))*((L+1)/2+1)+1,1) : GOTO 90 0060 K=K+1 : IF K<11THEN 70 : K=1 0070 IF P(K)=T+1THEN 130 : P(K)=Y 0080 KEYIN B$,90,90 : B$=A$ 0090 A$=B$ : ON VAL(A$)-51GOTO 100,120,110 : GOTO 120 0100 T=T-1 : D=1 : IF T>=0THEN 40 : T=0 : D=2 : IF L=1THEN 120 : L=1 : V=V+1 : GOTO 120 0110 T=T+1 : D=3 : IF T<62THEN 40 : T=61 : D=2 : IF L=-1THEN 120 : L=-1 : V=V+1 0120 D=2 : GOTO 40 0130 FOR I=1TO 105 : PRINT "BOOM!!! "; : NEXT I : PRINT HEX(05); : IF 50*V+U/3<HTHEN 140 : H=50*V+U/3 : PRINT HEX(03);"HIGH SCORE!!!" : INPUT "INITIALS=",I$ : I$=STR(I$,1,3) 0140 U,V,T=0 : GOTO 10 0150 U,V,T,D2=0 : GOTO 20 0160 DEFFN'0"SCRATCHR";HEX(22)