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