Scuba 203
560 IF X(K)=X(7) AND Y(K)=Y(7) THEN 580 570 NEXT K:GOTO 660
580 IF K<4 AND S(K)=2 THEN 980
590 IF K<4 THEN 570
600 FOR L=1 TO 5:LOCATE X(K)+1,Y(K)+1:PR INT" ";:FOR M= 1 TO 10:NEXT M
610 LOCATE X(K)+1,Y(K)+1:PRINT" ";:FOR M =1 TO 10:NEXT M,L
620 LOCATE X(K),Y(K):PRINT" ";
630 P=P+1
640 X(K)=0:Y(K)=0
650 S(K)=0
660 REM FISH
670 R=INT(RND*100)+1:IF R>8 THEN 890 680 IF R>6 THEN R=R-3
690 IF S(R)<>0 THEN 790
700 S(R)=1:IF RND>0.5 THEN 750
710 X(R)=0: Y(R)=INT(RND*11+10)
720 FS=5:M(R)=INT(RND*2+1):D(R)=INT(RND* 3-1)
730 IF R<4 THEN FS=7
740 TS(R)=MIDS(S$,FS,1):GOTO 890
750 X(R)=31:Y(R)=INT(RND*11+10)
760 FS=6:M(R)=-INT(RND*2+1):D(R)=INT(RND *3-1)
770 IF R<3 THEN FS=9
780 Tit(R)=MIDS(S$,FS,1):GOTO 890
790 IF S(R)=1 THEN 820
BOO S(R)=1:IF RND>0.5 THEN 720
810 GOTO 760
820 D(R)=INT(RND*9-4):M(R)=M(R)*2*(INT(R ND*3-1))
830 S(R)=2: IF R<4 THEN e7c9
840 IF SGN(M(R))=1 THEN TS(R)=MIDS(S$,5, 1)
850 IF SGN(M(R))=-1 THEN TS(R)=MIDS(S$,6 1)
860 GOTO 890
870 IF SGN(M(R))=1 THEN TS(R)=MIDS(S$,7, 1)
880 IF SGN(M(R))=-1 THEN TS(R)=MID$(SS,1 0,1)
ew FOR K=1 TO 6:IF S(K)=0 THEN 970
900 LOCATE X(K)+1,Y(K)+1:PRINT " ";:Y(K) =Y(K)+D(K):X(K)=X(K)+M(K)