image of READY prompt

Wang2200.org

Listing of file='SEAFARER' on disk='vmedia/best_of_BD_fules.wvd.zip'

# Sector 436, program filename = 'SEAFARER'
0000 DIM A$(15)64,O$64
   : P=1
   : INIT(09)O$
   : STR(O$,1,1)=HEX(01)
   : PRINT HEX(03)
0010 PRINT TAB(50);"***SEAFARER***"
   : A$(15)=",...,.,.,..,.,,.,,,.,.,.,.,.,,.,,.,...,.,.,.,,,.,,.,.,.,.,,,.,."
0011 INIT(20)A$()
   : A$(15)=",...,.,.,..,.,,.,,,.,.,.,.,.,,.,,.,...,.,.,.,,,.,,.,.,.,.,,,.,."
0019 STR(A$(15),64,1)=HEX(01)
   : FOR I=1TO 6
   : A=INT(RND(1)*8)+5
   : B=INT(RND(1)*60)+2
   : STR(A$(A),B,1)="*"
   : STR(A$(A+1),B,1),STR(A$(A+2),B,1)=HEX(86)
   : NEXT I
0020 INIT("\85")A$(3)
   : STR(A$(3+D),P,8)=HEX(28E0A0E0A0E0A029)
   : STR(A$(2+D),P,8)=HEX(20A0A0C9A0A0A020)
   : IF S<5THEN 30
   : S=5
   : STR(A$(3),55,10)=HEX(86202086202086202086)
   : STR(A$(2),55,10)=HEX(AEA0A0AEA0A0AEA0A0AE)
0030 PRINT HEX(01);
   : MAT PRINT A$
   : KEYIN A$,40,40
0040 IF A$=HEX(0D)THEN 85
   : STR(A$(3+D),P,8),STR(A$(2+D),P,8)=" "
   : IF A$="5"THEN 20
   : ON (VAL(A$)-48)/2GOTO 70,50,60,80
   : GOTO 20
0050 IF P<2THEN 51
   : P=P-1
   : GOTO 98
0051 IF S=0THEN 20
   : P=56
   : S=S-1
   : GOTO 11
0060 IF P>54THEN 61
   : P=P+1
   : GOTO 98
0061 IF S=5THEN 62
   : P=1
   : S=S+1
   : GOTO 11
0062 IF D>0THEN 20
   : PRINT HEX(01);TAB(64)
   : PRINT HEX(01);TAB(25);"DOCKING COMPLETE"
   : PRINT TAB(23);"\CD\C9\D3\D3\C9\CF\CE \C1\C3\C3\CF\CD\D0\CC\C9\D3\C8\C5\C4
     "
   : GOTO 62
0070 PRINT HEX(01);TAB(50)
   : IF D>10THEN 20
   : PRINT STR(O$,1,7);"DIVING"
   : D=D+1
   : S8=S8-1
   : GOTO 98
0080 PRINT HEX(01);TAB(50)
   : IF D<1THEN 20
   : PRINT STR(O$,1,15-8);"SURFACING"
   : D=D-1
   : GOTO 98
0085 REM ************ FIRING *************
0086 FOR I=P+9TO P+19
   : STR(A$(3+D),I-1+T,2)=" "
   : IF I+1<65THEN 87
   : T=-63
0087 STR(A$(3+D),I+T,2)="=\84"
   : PRINT HEX(01);
   : MAT PRINT A$
   : NEXT I
   : A$=" "
   : STR(A$(3+D),I+T,2)=" "
   : T=0
   : GOTO 20
0090 DEFFN'0"\9EI=1TO255:BIN(A$)=I:\A0\D205);A$;:HEX\A0\D3A$,1,1);:\9DI";HEX(0
     D)
0098 E1=1
   : E=1
   : IF STR(A$(2+D),P,8)<>" "THEN 99
   : E=0
   : IF STR(A$(3+D),P,8)<>" "THEN 99
   : E1=0
   : GOTO 99
   : IF D<>0THEN 20
   : S8=S8+1
   : IF S8<50THEN 20
0099 IF (D*E-1)*((D+1)*(E+1)-1)*(E*(D+1)-1)*E1<>0THEN 100
   : IF D<>0THEN 20
   : S8=S8+1
   : IF S8<50THEN 20
   : PRINT HEX(01);TAB(64)
   : PRINT HEX(01);"DIVE! ENEMY SHIPS SPOTTED YOU!"
   : IF S8>60THEN 100
   : GOTO 20
0100 END