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)