1 REM ** SUB-HUNT 2 REM FOR A LEVEL II MODEL I, OR MODELS II-IV 3 REM FROM RADIO SHACK MICROCOMPUTER NEWSLETTER 197911 4 REM ORIGINAL BY WALLY OF MERRIVILLE, OHIO 5 REM MADE CROSS-PLATFORM 2021 BY MCH 10 CLS 20 REM INITIAL GAME SETUP 21 DIM A(8,8) 22 FOR A = 1 TO 8:FOR B = 1 TO 8 23 A(A,B)=0 24 NEXT B:NEXT A 25 C=RND(8):D=RND(8):REM SUB COORDINATES 26 X=0:Y=0:REM USER-INPUT COORDINATES 27 F=0:REM NUMBER OF TORPEDOES 28 GOSUB 100:REM DISPLAY THE GAME BOARD 30 GOSUB 200:REM GET USER INPUT 33 A(X,Y) = 1 34 IF X=C AND Y=D THEN GOTO 40 35 F=F+1 36 IF F >= 10 THEN GOTO 50 37 GOSUB 100: REM DISPLAY THE GAME BOARD 38 GOTO 30 40 REM USER HIT SUB 41 GOSUB 100 42 PRINT "YOU DID IT! YOU SANK THE SUB! AND IN ONLY";F;"SHOTS" 43 INPUT"WANT TO PLAY AGAIN";A$:IF A$="YES" OR A$="Y" THEN RUN ELSE END 50 REM OUT OF TORPEDOES 51 GOSUB 100 52 PRINT "I AM SORRY, YOU RAN OUT OF TORPEDOES!" 53 INPUT"WANT TO TRY AGAIN";A$:IF A$="YES" OR A$="Y" THEN RUN ELSE END 100 REM DISPLAY THE SCREEN 110 CLS 120 PRINT " *** SUB-HUNT ***" 125 PRINT "TRY TO SINK THE SUB WITH YOUR TORPEDOES!" 130 PRINT "YOU HAVE";10-F;"TORPEDOES LEFT" 150 PRINT 160 PRINT " 1 2 3 4 5 6 7 8" 170 FOR A = 1 TO 8: PRINT A" "; 180 FOR B = 1 TO 8 181 P$=" - " 182 IF A(A,B) = 1 THEN P$=" X " 183 IF A(A,B) = 1 AND A=C AND B=D THEN P$=" S " 184 PRINT P$; 189 NEXT B 190 PRINT 192 NEXT A 193 PRINT 195 RETURN 200 REM USER INPUT WITH VALIDATION 210 REM RETURNS X,Y WITH VALID VALUES 215 PRINT "ENTER COORDINATES AS X,Y. 2,8 IS FAR RIGHT, SECOND ROW." 220 PRINT "WHERE DO YOU THINK THE SUB IS";:INPUT X,Y 230 IF X<1 OR X>8 OR Y<1 OR Y>8 THEN PRINT "INVALID COORDINATES.":GOTO 220 240 IF A(X,Y) = 1 THEN PRINT "YOU ALREADY TRIED THERE.":GOTO 220 250 RETURN