Listing of file='MISSCMD.' on disk='vmedia/best_of_BD_fules.wvd.zip'
# Sector 160, program filename = 'MISSCMD.' 0000 DIM A$(14)64,A(3),B(3),C(3),D$(3),C$64 : B=8 : A=32 : PRINT HEX(0306) : FOR I=1TO 3 : A(I)=12 : NEXT I : FOR I=1TO 1 : F=5 : INIT(80)A$(),B$,D$ 0001 C$="\A0---'---\A0---'---\A0---'---\A0<############>\A0---'---\A0---'---\A 0---'---\A0" : A$(14)=C$ 0005 A1=0 : GOTO 10 0006 B1=0 : GOTO 10 0010 IF A+A1>63THEN 5 : IF A+A1<2THEN 5 : IF B+B1>11THEN 6 : IF B+B1<2THEN 6 : STR(A$(B),A,1)=B$ : A=A+A1 : B=B+B1 : B$=STR(A$(B),A,1) : STR(A$(B),A,1)="-" : PRINT HEX(01) : MAT PRINT A$ : A1=0 : B1=0 0020 NEXT I : FOR I=1TO 3 : IF A(I)>12THEN 45 : A(I)=A(I)+1 : B(I)=B(I)+C(I) : IF B(I)>64THEN 45 : IF B(I)<1THEN 45 : STR(A$(A(I)),B(I),1)="." : GOTO 1000 0045 IF F>2THEN 50 : FOR O=1TO A(I) : STR(A$(O),B(I)-C(I)*(A(I)-O),1)=HEX(80) : NEXT O : IF A(I)<13THEN 50 : IF STR(A$(14),B(I),1)="\A0"THEN 50 : IF ABS(B(I)-32)<9THEN 3000 : STR(A$(14),INT(B(I)/8)*8+1,8)="\A0\A0\A0\A0\A0\A0\A0\A0" : C=C+1 0050 F=F-1 : A(I)=1 : B(I)=INT(RND(1)*64)+1 : C(I)=SGN(32-B(I))*ABS(SGN(INT(RND(1)*5)-2)) : IF F+8*T<-2THEN 4000 1000 KEYIN A$,1010,2000 1010 ON VAL(A$)-48GOTO 1100,1100,1100,1200,10,1300,1400,1400,1400 : GOTO 10 1100 B1=1 : IF A$="1"THEN 1200 : IF A$="3"THEN 1300 : GOTO 10 1200 A1=-2 : GOTO 10 1300 A1=2 : GOTO 10 1400 B1=-1 : IF A$="7"THEN 1200 : IF A$="9"THEN 1300 : GOTO 10 2000 FOR P=-1TO 1 : D$(P+2)=STR(A$(B+P),A-1,3) : STR(A$(B+P),A-1,3)="***" : NEXT P : PRINT HEX(01) : MAT PRINT A$ : FOR I=1TO 3 : IF STR(A$(A(I)),B(I),1)="*"THEN 2500 : NEXT I 2100 FOR P=-1TO 1 : STR(A$(B+P),A-1,3)=D$(P+2) : NEXT P : IF R=0THEN 10 : R=0 : STR(A$(B),A,1)=B$ : INIT(80)D$(),B$ : GOTO 45 2500 R=1 : S=S+25 : GOTO 2100 2510 DEFFN'0HEX(8A) 3000 REM : GOTO 50 4000 S=S+(6-C)*100 : T=T+1 : PRINT HEX(01);TAB(63);" ";HEX(0D01);"SCORE =";S : IF C<6THEN 1000 : END