1 REM ** SUB-HUNT 2 REM FOR A LEVEL II MODEL I/III 3 REM FROM RADIO SHACK MICROCOMPUTER NEWSLETTER 197911 4 REM ORIGINAL BY WALLY OF MERRIVILLE, OHIO 5 REM SLIGHTLY UPDATED 2021 BY MCH 10 cLS:GOTO 60 20 CLS 21 FOR X= 403 TO 851 STEP 64:READ Y:PRINT@X,Y;:NEXT 22 DIM A(8,8) 23 FOR A = 1 TO 8:FOR B = 1 TO 8 24 READ A(A,B):PRINT@ A(A,B),"X"; 25 NEXT B:NEXT A 26 RESTORE 27 FOR X = 341 TO 362 STEP 3:READ Y:PRINT@X,Y;:NEXT 28 A=RND(8):B=RND(8) 29 PRINT@28,"SUB-HUNT":PRINT@192,"ENTER COORDINATES AS X,Y. 2,8 IS FAR RIGHT, SECOND ROW." 30 PRINT@64,"YOU HAVE";10-F;"TORPEDOES LEFT. " 31 PRINT@128,"WHERE DO YOU THINK THE SUB IS";:INPUT X,Y 34 IF X=A AND Y=B THEN 40 35 PRINT@A(X,Y),"*"; 36 F=F+1:IF F>=10 THEN 50 ELSE 30 40 PRINT@ A(A,B),"*";:PRINT@128,"YOU DID IT! YOU SANK THE SUB! AND IN ONLY";F;"SHOTS" 41 INPUT"WANT TO PLAY AGAIN";A$:IF A$="YES" THEN RUN ELSE END 50 PRINT @ A(A,B),"*"; 51 PRINT@30,"YOU HAVE 0 TORPEDOES LEFT." 52 PRINT@192,"I AM SORRY, YOU RAN OUT OF TORPEDOES!" 53 INPUT"WANT TO TRY AGAIN";A$:IF A$="YES" THEN RUN ELSE END 60 CLS 61 PRINT TAB(28);"SUB-HUNT":PRINT TAB(28)"--------":PRINT 62 PRINT"TRY TO SINK THE SUB WITH YOUR TORPEDOES" 63 PRINT"THE COMPUTER WILL TELL YOU WHEN YOU HIT THE SUB" 64 REM PRINT"ALSO, THE SUB DOES MOVE!" 65 PRINT"YOU HAVE TEN TORPEDOES" 66 PRINT TAB(27)"GOOD LUCK" 70 INPUT "PRESS ENTER TO BEGIN";A$:GOTO 20 80 DATA 1,2,3,4,5,6,7,8,406,409,412,415,418,421,424,427,470,473,476,479,482,485,488,491,534,537,540,543,546,549,552,555,598,601,604,607,610,613,616,619,662,665,668,671,674,677,680,683,726 90 DATA 729,732,735,738,741,744,747,790,793,796,799,802,805,808,811,854,857,860,863,866,869,872,875