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