image of READY prompt

Wang2200.org

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