,,: : ,,: P: ,, - () >( () O2 () `< () qF () P () Z () d () n () x A  :(A) : ( )   :  :  : : (((,)))8(((,)))H : Df ,: :SHOTSSHOTS DROPSUB() A(DROP):SUB()c:  DROPSUB() A(DROP):SUB()c:  DROPSUB() A(DROP):SUB()c : A(DROP)( SUB()SUB() SUB()c  :  L D:TRYTRY: SHOTS ^SHOTS: PvMISS(): 8  MISS " : HITHIT HIT P :  " ,:*** GET RESPONSE FOR SUB SEARCH6 ,: N);: , : ,,B@ "Choose a Level 1, 2, or 3 and Strike Corresponding Key";}J : Z"0" Z"4" A((Z)):AA(Z) : JT ,: N);: , : ,,^ "Choose a Quadrant A Thru X and Strike Corresponding Key";h : Z"A" Z"Y" |/r Z"a" Z"y" Z((Z) ) : hE|DROPA(Z)A:V SEG: j,h "" Z: Z""  : :*** PUT SUB ON THE MAP A ((,)) :B:A(): (A A ) (A A)  : AA(())/(((,))2)\ () ,,,,,,&rBA:CA: 0BA:CA: 0BA:CA: 0BA:CA: 0BA:CA: 0BA:CA: 0BA:CA: 0&BA:CA'0SUB()A:SUB()B:SUB()C:M::*** DISPLAY LETTERS AND LEVELS_D SEG: ,N (() 0)0 SEG0 : SEG8XB: A"  : v:bB: AB  : v:lB0: Ab  : v:: 'v A,A(B): A(B) A,Q A,A(B): A(B) A, A8,A(B ): A(B ) A9, A,A(B): A(B) A,BB: ,:  ,H: " LEVEL 1 " ,: ,H: " LEVEL 2 ": ,: ,H: " LEVEL 3 ": ,!>:*** move depth chargeP SEG: , (() 0)0 SEG0 : SEG8X:Y*:BB((ADROP))C*:L A : E 2 2: E,Qs:: E@ Q  L(E)((B)): L,C*X:Y()B V(X,Y):W(X,Y,)_* ();: D B:4 (X)Y,W: (X)Y,V>CCBH: ,:CCBR LL AA(DROP)LAA\ L,C:X:Y()fV(X,Y):W(X,Y,)p ();: D :?z (X)Y,W: (X)Y,VT: ()() X   : X,Qs:: X,::*** map display SEG (() 0)0 SEG0 : SEG8 ,,: L,:AX: A,: A,: A,: ,: ,: ,: ,Y A  : A,: ,: ,: ,: ,: , ,: A& 2 : A,: 8,: @,: D,: P,: R, T,: ,%A: A,: A,: A,: A,< A,: A ,hA: A,: A,: A,: A,$A: A,: A,: A,: A,. A,: A ,8 A  : A,:B ,: A  : A,:L ,: ,:  ,0V B,: D,: F,X` AH  : A,: A,:nj ,: ,t A  : A,_:~ ,: H, A D : A,: A,: HIT ,, ,#: (,)  ,-: (,)@  AJ V : A,_: A,_:: X,_V  x,/: ,/  ,/: ,/: ,/: 0,/: L,/  ,/: ,/: h,/: ,/  Aj x : A,_: A,_:  A  : A,_: A,_:0! ,/: ,/: 4,/: ,/: ,/X! P ,/: l ,/:  ,/:  ,/!  ,/:  ,/: $ ,/: 8 ,/!  A  : A,_: A,_:! A  : A,_: A,_:: " ,_ " T ,/:  ,/:  ,/: p ,/:  ,/2"(  ,/: ( ,/:  ,/:  ,/c"2 A B : A,_: A,_:: D,/o"<  :"F:*** sub display"P SEG"Z (() 0)0 SEG0 : SEG8"d ,,:"n A  : A,: A,: #x ,: ,: >,: @,6# j,4: l,0^# p,: r,: ,: ,# ,: ,: ,: .,# ~,: ,: ,3: ,0# ,: ,: ,: ,# ,: ,: ,:  ,&$ R,: ^,: l,: n,N$ ,: ,: ,2: ,0v$ ,: ,: ,:  ,$ ,: ,: ,: ,: ,$ ^,: `,: ,$ A  : A,:% ,: ,: ,: ,: ,G% ,: ,: ,: ",: $,x% &,: *,1: ,,0: 0,: 2,% A: F : A,:%" L,: N,: T,: V,: Z,%, \,: r,: t,: v,: ,!&6 ,: ,: ,: ,@&@ A  : A,:q&J ,: ,: ,: ,: ,&T ,: ,: ,: ,: ,&^ ,: ,: ,: ,&h A  : A,:'r ,: A  : A,:B'| ,: ,: (,: >,: @,j' P,: R,: T,: V,' AX  : A,: A,:' ,: ,: ,: ,' A  : A,:: , ( A ` : A,: A,: ( d,: f,H( Ah | : A,:: ~,y( ,: ,-: ,1: ,0: ,( ,: ,( ,:  ,: R,: n,: ,( ,: ,-: ,2) ,0: ,: ,:  ,8) ^ ,: ` ,:  ,:  ,:  ,i)  ,:  ,:  ,:  ,:  ,)  ,:  ,:  ,:  ,: " ,) & ,: * ,: . ,: 0 ,: 2 ,)& 6 ,: : ,: > ,: B ,: F ,-*0 J ,: N ,: R ,: V ,: Z ,^*: ^ ,: b ,: f ,: j ,: n ,*D r ,: v ,: z ,: ~ ,:  ,*N  ,:  ,:  ,:  ,:  ,*X  ,:  ,:  ,:  ,:  ,"+b  ,1:  ,2:  ,3:  ,4:  ,5J+l  ,6:  ,7:  ,8:  ,9i+v  ,-:  ,9:  ,-+  ,8:  ,-:  ,7:  ,-:  ,6+  ,-:  ,5:  ,-:  ,4: $ ,-+ & ,3: , ,-: . ,2: 4 ,-: 6 ,1-, > ,: @ ,: h ,-: j ,3: l ,0^, p ,: r ,:  ,:  ,:  ,,  ,: . ,: ~ ,:  ,:  ,-,  ,4:  ,0:  ,:  ,:  ,,  ,:  ,: P ,: R ,: n ,"- A \ : A,: A,:: ^,(-b- -1.85,-1.1,-.3,.45,1.2,2,-2.00,-1.2,-.5,.3,1.1,1.85- -2.15,-1.4,-.6,.15,.9,1.7,-2.3,-1.55,-.8,0,.8,1.55-****** ANCHORS AWAY- SEG: "MB""T200O3L4" .  "MB""MLCCMBMNEGMLAL8AMNL8EL4L2AO4CL4DO3GO4L1C".Y. : ,,O: ,,O: "(Enter Your Name And Then Strike The Enter Key).* ,: "What Is Your First Name Captain? ";.4  :CAPT$ZA: ,.> (CAPT$) CAPT$"".H: ,: (P,)/R A : A,: (): A,P: ():/\ ,: (P,);K/f ,,: ,: "S E A B A T T L E"/p  ,: "Would You Like Instructions? ": ,/zZ: Z"" z/ Z"N" Z"n" / Z"Y" Z"y" z0 , : "You're the C.O. on a destroyer. You've played cat and moused0 , : "with the enemy sub for two days now. It's time to do battle.s0 , : "0 , : "He's somewhere in the depths below. To fire a depth charge, 1  , : "first select a level 1, 2, or 3; then select the quadrantW1  , : "A thru X. If your depth charge damages the sub, the space1  , : "will be replaced with a flashing star. Remember, the sub1  , : "is THREE quadrants in length. It can be alligned diagonally,=2 , : "horizontally, or vertically. The sub will be on one level.2 , : "It takes three hits to sink either ship. You will be given2 , : "three depth charges for each torpedo fired by your enemy."3 , : "Your ability to find and destroy the sub will determine youro3 , : "next assignment, an aircraft carrier or a garbage barge.3 ,: ,: "Strike Any Key To Continue";: ,:3$ Z: Z"" $ : 3. :** TORPEDO38 HIT B ,L ,V 4B  ,#: (,)4L  ,*: (,)!4V Z4` A : E4  @: E,L}:: 2,:o4j A  4t ,: A,': ()4~ B ,:4 A,': " "4 4 ,: ,4 MISS "Torpedo Missed Captain "CAPT$;:  (5 "A Torpedo Broadside Captain "CAPT$;45 SEGi5 (() 0)0 SEG0 : SEG85 E:A: A,E: A,E: A1 d:5 2,ow: A ,E: AH,E: 2,: A1 d:5 2,ow: A,E: 2,: A1 d:&6 2,ow: A ,E: 2,: A1 d:R6 2,ow: A,E: 2,: A1 d:~6 2,ow: A,E: 2,: A1 d:6 A,E: A,E: A1 d:6 A  ::6 Z: A(G),B(),SUB() 7( A :A(A)AA:A(A)A(A):A(A0)A(A):!72 A : B(A):'7< 97F ******* TAPSW7P SEG: "T100""MN""MB"z7Z "O3L8C.L16C""L2F.L8C.L16F"7d "L2A.L8C.L16F""L4A""L8C.""L16F""L4A""L8C.""L16F""L2A."7n "O3""L8F.L16A""ML""O4L2C""MN""O3L4AL4FL2C."!8x "O3L8C.L16C""ML""L1F""MN""L4F"'8 P8 ******* BATTLE HYMN OF THE REPUPLICl8 SEG: "MB""MN T120"8 "O2 G8 G8. G16 G8. F16 E8. G16 O3 C8. D16 E8. E16 E8. D16 C4"8 "O3 C8.O2 B16 A8.A16 A8.B16 O3 C8.O2 B16 O3C8.O2 A16 G8.A16 G8.E16 G4"I9 "O2 G8. G16 G8. G16 G8. F16 E8. G16 O3 C8. D16 E8. E16 E8. D16 C4"m9 "O3 C4 D4 D4 C4 O2B4 O3 C2."s9 9 : ,9 HIT  9  ,: "Congratulations Captain ";CAPT$9  ,: "You've Accomplished Your Mission":  ,: "And Used Only "TRY" Depth ChargesY: ,: "Your Promotion Is On The Way!!!!": 6 :  ,: "We Are Very Sorry Captain "CAPT$:  ,: "Your Ship Was Lost And Crew Killed!:"  ,: "You Should Be Court-Marshalled For "';, ,: "Your Poor Judgement And Performanceb;6 ,: "Would You Like To Play Again? ";: ,w;@ Z: Z"" @ ;J Z"N" Z"n" "menu;T Z"Y" Z"y" @ ;^ : :  ;h : ,: ,: "What Is Your First Name Captain?";";< SEG: j,: ""  < Z: Z""  < Z"Y" Z"y" "menu= Z"N" Z"n"  1= ,: N);: ,: ,b= " Strike To Leave This Game ";: ,{= XX YY  = XX,YY= ( ) := SEG: j,: ""  = ZI: ZI""  = ZI( ) ZA(): ZAZH:> ZI() X 6>& (ZI) (ZI,)(K) X :  K>0 (ZH)  g>: ZI"a" ZI"z" N |>D ZI((ZI) )>N ZHZHZI: ZI;:  >X ()" "();:ZH(ZH,(ZH)):