image of READY prompt

Wang2200.org

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)