8 " HIMER DATENSERVICE SEESCHLACHT "L K11K10:920` K21K20:890sA(20,20),D(9)"WHAT'S YOUR NAME""N$,6@I120BJ120DA(I,J)0FJHIJT:XY116:AB$:XY:XY116:AB:XY ^X713hY712%rA(X,Y),|Y3X9IS110:S210XA(S1,S2)2^rS((1)16)15:XY116:AB$:XYX1(((1)4)1)21D8,D9XX1SX1((1)20)1X2((1)20)1A(X1,X2)0500A(X1,X2)3XI&"YOU MUST DESTROY";S:"ENEMY SHIPS TO WIN":N$O0c:S3((1)20)1wDS4((1)20)1NA(S3,S4)0570XA(S3,S4)4blX1((1)8)8vX1((1)20)1X2((1)20)1A(X1,X2)0630A(X1,X2)5 XX14.X1((1)18)2BX2((1)18)2WA(X1,X2)0700fA(X1,X2)6~:XY116:AB$:XYY1((1)8)1M1,M2Y X I19"D(I)0$I*C304P6000>F2500HT10RM3 \D100fD22p10000*uK21:10Jz"WHAT ARE YOUR ORDERS":N$QO(O1)1040,1680,2220,2680,3250,3410,3700,3880,4400,4660K11:10"THE COMMANDS ARE:":"#0: NAVIGATION""#1: SONAR""#2: TORPEDO CONTROL""#3: POLARIS CONTROL"+"#4: MANUEVERING"D"#5: STATUS REPORT"\"#6: HEADQUARTERS"p"#7: SABOTAGE""#8: POWER CONVERSION""#9: SURRENDER"880"";D(1)01080$"ENGINES ARE UNDER RE- PAIR ";N$.8758C811100B"NOT ENOUGH CREW TO MANTHE ENGINES ";N$9L875^VD11((0.23(1)10)((D50)))h`6080j"POWER AVAILABLE:":P:"POWER TO USE"tP1~P10P1P1130P110001210(1)0.431210"ATOMIC PILE GOES SU- PERCRITICAL ";N$:"HEADQUARTERS WILL WARN";L"ALLS SUBS TO STAY FROMRADIOACTIVE AREA"V6180_XS1hYS2qQ11X21((P11000.5)D10.5)XX10XX121YY10YY1211280"YOU CAN'T LEAVE THE AREA ";N$1340"A(XX1,YY1)11290,1330,1630,1390,1440,1470,1490- XXX18YYY1DPP100N(1520o2"YOU ALMOST RAN AGROUND";N$|<A(X,Y)2FA(S1,S2)0PS1XZS2Yd4690nD501290x"YOU RAMMED A SHIP":"YOU'RE BOTH SUNK":N$SS1S06260 6180D501290M"YOU RAMMED YOUR HEAD- QUARTERS":"YOU'RE SUNK"W6180"YOU'VE BEEN BLOWN UP BY A MINE ";N$6180(1)0.211630"YOU WERE EATEN BY A SEA MONSTER ";N$6180X3X2X2Y3Y2Y2X30X320Y31Y32016101A(X,Y)61610E"(1)0.251500T,Q1016106"YOU JUST HAD A NARROW ESCAPE WITH A SEA MON-STER ";N$@Q10JY3TX3^X2h"NAVIGATION COMPLETE":"POWER LEFT";PrP01340(|"ATOMIC PILE HAS GONE DEAD":"SUB SINKS,CREWSUFFOCATES"261808JD(2)01720g"SONAR IS UNDER REPAIR"p880~C51750"NOT ENOUGH CREW TO WORK SONAR ";N$880:"OPTION #";O(O1)1790,20101750"";" ","*","X","S","H","$","#"$X1200Y120D0A(X,Y)01880d:X1X20Y1Y201880nD".";xN1950~XbX11A(X,Y)1lA$vX1D50(1)0.23A(X,Y)1A(X,Y)21860(1).15A(X,Y)21860A$;YXPP50P0880)16603"";>I15IB(I)0PIn"DIR #OF SHIPS DISTANCE":XY117:XY$:XYX18 X1,Y1X30 X4120*S1X1X41S1X1X420S2Y1X41S2Y1X4202140 4A(S1X1X4,S2Y1X4)32130 >X3X31% HB(X3)X4- RX4< \X302200M f" ";X,X3,Z pX41X3f zB(X4);n X4t { X 1980 ""; D(3)02260 "TORPEDO TUBES ARE UN- DER REPAIR ";N$ 880 C102290!"NOT ENOUGH CREW TO FIRE TORPEDO";N$!880(!T2320D!"NO TORPEDOS LEFT":N$M! 880^! D20002360q! (1)0.52360!$ "PRESSURE IMPLODES SUB UPON FIRING...YOU'RE CRUSHED"!. 6180!8 6080!B XS1!L YS2!V X21(75((D50))(1)40.5) "` XX10XX121YY10YY1212460U"j "TORPEDO OUT OF SONAR RANGE...INEFFECTUAL":N$_"t TT1k"~ PP150x" P0460" 1660" A(XX1,YY1)12470,2510,2650,2540,2580,2610,2630" XXX1" YYY1" " 2650# "YOU TOOK OUT SOME IS- LAND ";N$# A(XX1,YY1)0"# 24209# "YOU GOT ONE ";N$C# SS1R# S02520\# 6260# "YOU BLOW UP YOUR HEAD-QUARTERS ";N$# S30:S40:D20#( 2520#2 "SHOT WASTED ON A MINE":N$#< 2520$F "A SEA MONSTER HAD A TORPEDO FOR LUNCH":N$ $P 2520$Z X2$d "DUD"($n 24202$x "";D$ D(4)02720p$ "MISSILE SILOS ARE UN- DER REPAIR ";N$y$ 880$ C232750$ "NOT ENOUGH CREW TO LUNCH A MISSILE":N$$ 880$ M02780$ "NO MISSILES LEFT":N$$ 880 % D50D20002850K% "RECOMMEND THAT YOU DO NOT FIRE AT THIS DEPTH...PROCEED";S% A$h% (A$,1)"N"880{% (1)0.52850% "MISSILES EXPLODES UPONFIRING ";N$:"YOU'RE DEAD"% 6180%" 6080%, "FUEL(LBS.)";%6 F1%@ F10F1F2910&J "YOU HAVE";F;"LBS.":"LEFT ";N$%&T 28608&^ F2(F175.5)p&h S1X1F20S1X1F221S2Y1F20S2Y1F2212980&r "MISSILES OUT OF SONAR TRACKING ";N$:"MISSILES LOST"&| MM1& FFF1& PP300& 2440& D30:D40:D50:D60 ' XS1X1F21S1X1F21(' YS2Y1F21S2Y1F21D' X1X20Y1Y203140Y' D3D3(A(X,Y)3)n' D4D4(A(X,Y)6)' D5D5(A(X,Y)5)' D6D6(A(X,Y)1)' A(X,Y)43100' "YOU DESTROYED YOUR HEADQUARTERS ";N$' D30:S40:D20' 3130 ( A(X,Y)231305(& "YOU JUST DESTROYED YOURSELF ";N$?(0 6180L(: A(X,Y)0S(D YZ(N Xi(X D603180(b "YOU BLEW OUT SOME IS- LAND ";N$(l D503200(v "YOU DESTROYED";D5:"MINES ";N$( D403220( "YOU GOT";D4;"SEA":"MONSTERS ";N$%) "YOU DESTROYED";D3:"ENEMY SHIPS ";N$0) SSD3:) 2940D) "";V) D(5)03290) "BALLAST CONTROLS ARE BEING REPAIRED":N$) 880) C123320) "THERE ARE NOT ENOUGH CREW TO WORK THE CON- TROLS ";N$) 880) "NEW DEPTH";) D1* D10D130003370<* "HULL CRASHED BY PRES- SURE ";N$F* 6180a** PP(((DD1)20.5))*4 "MANUEVER COMPLETE":"POWER LOSS";(((DD1)2.5))*> DD1*H 4690*R "";*\ D(6)03450*f "NO REPORTS ARE ABLE TOGET THROUGH ";N$*p 880 +z C334809+ "NO ONE LEFT TO GIVE THE REPORT ";N$B+ 880[+ "#OF ENEMY SHIPS";St+ "#OF POWER UNITS";P+ "#OF TORPEDOS...";T+ "#OF MISSILES...";M+ "#OF CREWMEN....";C+ "LBS. OF FUEL...";F+ + "WANT DAMAGE REPORT", A$, (A$,1)"N"36702, " ITEM DAMAGE (+,0,-)m,"ENGINES","SONAR","TORPEDOS","MISSILES","MANUEVERING","STATUS","HAEDQUARTERS","SABOTAGE","CONVERTER",$:XY17:XY$:XY,.X19,8A$,BA$;15);D(X),LX -V"YOU ARE AT LOCATION":S1;S2::-`-j880#-t"";5-~D(7)03740l-"HEADQUARTERS IS DA- MAGED. UNABLE TO HELP":N$u-880-D203770-"HEADQUARTES IS DESER- TED ";N$-880-((S1S3)2(S2S4)2)2D513800 ."UNABLE TO COMPLY WITH DOCKING ORDERS":N$.880V."DIVERS FROM HEADQUAR- TERS BRING OUT SUP- PLIES AND MEN"a.P4000i.T8q.M2|.F1500. C25.D2D21.4690.("";.2D(8)03920.<"HATCHES UNACCESSIBLE":N$;" . NO":"SABOTAGES POSSIBLE".F880 /PC103950;/Z"NOT ENOUGH CREW TO GO ON A MISSION ";N$D/d880R/nD30:D40c/xXS12S12t/YS22S22/X1X20Y1Y204010/D3D3(A(X,Y)3)/D4D4(A(X,Y)6)/Y/X/D304060/"NO SHIPS IN RANGE":N$/880*0"THERE ARE";D3;"SHIPS":"IN RANGE ";N$M0"HOW MANY MEN ARE GOING";:N$U0Q1h0CQ11041200"YOU MUST LEAVE AT LEAST 10 MEN ON BOARD":N$040700D5(D3Q10.5)0"D600,XS12S1206YS22S221@D3Q11(1)(1)D3Q10.94220"1JA(X,Y)34220.1TD6D61;1^A(X,Y)0E1hSS1S1rS06260Z1|Ya1X1D6;"SHIPS WERE":"DESROYED ";N$1D60:D701X1Q11D7D7((1)0.6)1X1X1Q1D71D6D6((1)0.15)1X1D404360/2"A SEA MNNSTDR SMELLS THE MEN ON THE WAY BACK"L2D7;"MEN WERE EATEN":N$W2CCD72D6;"MEN WERE LOST":"THROUGH ACCIDENTS":N$2CCD62PP((10Q1(1)10))2&469020"";2:D(9)044402D"POWER CONVERTER IS DA-MAGED ";N$3N8803XC54470A3b"NOT ENOUGH MEN TO WORKTHE CONVERTER":N$J3l880~3v"OPTION":"1 POWER TO FUEL":"2 FUEL TO POWER"3O3O4510,45803447033"FUEL AVAILABLE";F:"CONVERT";3C13C1F C1045203FFC14PP(C13) 446404:4"POWER AVAILABLE";P1:"CONVERT";B4C1X4C1P1C104590c4 PPC1s4FF(C13)4 "CONVERSION COMPLETE":"POWER";P;"FUEL";F4*469044"";4>"YOU'RE NOT VERY PAT- RIOTIC ";N$4H61804R4\Q05fXS14S145pYS24S2445zX1X20Y1Y204760H5A(X,Y)34760l5QQ((1)((S1X)2(S2Y)2))s5Yz5X5Q48105"NO SHIPS IN RANGE TO DEPTH CHARGE YOU":N$552105"DEPTH CHARGES OFF"5(1)0.548506"PORT SIDE ";N$ 64860&6"STARPORT SIDE ";N$A6Q0.13(1)0.924890i6"NO REAL DAMAGED SUS- TAINED ";N$s652106Q0.36(1)0.9649406$"LIGHT, SUPERFICIAL DA-MAGE ";N$6.PP5068D(((1)9)1)(1)26B52106LQ0.6(1)0.9755020,7V"MODERATE DAMAGE":"REPAIRS NEEDED ";N$B7`PP75((1)30)M7jY12_7tX((1)9)1t7~D(X)D(X)(1)8{7Y752107Q0.9(1).98351007"HEAVY DAMAGE. REPAIRS IMMEDIATE ";N$7PP(200((1)76))7X14((1)2) 8Y((1)9)1 8D(Y)D(Y)(1)11'8X185210X8"DAMAGE CRITICAL. WE NEED HELP"8A$"VRAVUKXCNVPCRHFDRSAXQURLQTRHXYACVFZYITLCBSSYYKDQIPCAEGQGPCNOTSIO"8X((1)16)18 "SEND'HELP'IN CODE":"HER IS THE CODE":(A$,X,4)8 9I1300:I9"ENTER CODE";B$959(B$(A$,X,4)5190o92"FAST WORK ";N$:"HELP ARRIVES IN TIME TO SAVE YOU"y9<50409F"MESSAGE GARBLED":N$;" . NO HELP":"ARRIVES"9P61809Z9dD(1)0D(3)0D(4)0D(5)0D(7)05260:nD(8)0D(9)052601:x"DAMAGE TO MUCH":"YOU'RE SINK ";N$;:6180A:v:"****RESULTS OF LAST*******ENEMY MANUEVER****";:X120:Y120:A(X,Y)35690::WD8:VD9:XW0XW21YV0YV215420:X01911 ;A(XWX0,YVX0)05400#;A(XWX0,YVX0)30;A(X,Y)0:;6000B;X0H;"|;,A(XW,YV)15430,5460,5530,5460,560,5600,5650;6A(XW,YV)3;@A(X,Y)0;J6000;T;^:XY116:XY$:XY;hX01((1)8)1;rW,V;|X0 <XW1XW20YV1YV205470<5420&<D505460N<"YOU'VE BEEN RAMMED BY A SHIP ";N$X<6180l<(1)0.155460r<<"YOU HEADQUARTERS WERE RAMMED ";N$<S30:S40:D20:A(XW,YV)0<5620<(1)0.75460<"SHIP DESTROYED BY A MINE ";N$=SS1=S05440 =62603=(1)0.85460\="SHIP EATEN BY A SEA MONSTER ";N$f=&SS1p=05620v=:=DA(X,Y)66000=NXM10XM120YM21YM2205760=XA(XM1,YM2)15730,5760,5830,5850,5900,5730,5930=bA(XM1,YM2)6 >lA(X,Y)0>v6000>1>:XY116:XY$:XYG>X01((1)8)1R>M1,M2Z>X0>XM11XM120YM21YM2205760>5720>"YOU'VE BEEN EATEN BY ASEA MONSTER ";N$>6180>(1)0.205760?"SHIP EATEN BY A SEA MONSTER ";N$ ?SS1?S05730#?6260Q? "A SEA MONSTER ATE YOURHEADQUARTERS ";N$d?S30:S40:D20n? 5730?*(1)0.755760?4"A SEA MONSTER FIGHT":N$?>(1)0.85980?H"AND ONE DIES"?R5730?\"IT'S A TIE"?f5760?pY?zX@ @Y19@X((1)9)1e@D(X)D(X)((1)(2(1)2))(1((D51) (D2000)))((D(X)3))l@Yu@880{@@-1,0,-1,1,0,1,0,1,1,0,1,-1,0,-1,-1,-1@"COURSE (1-8)";@C1@C11C186100@:XY116:XY$:XYAX91(C10.5)AX1,Y1AX9A"A$RA."THERE ARE STILL";S:"ENEMY SHIPS TO LEFT"oA8"WANT ANOTHER GAME J/N"wALA$AV(A$,1)"J"6250A`310Aj6320At"GOOD WORK ";N$A~"YOU GOT THEM ALL"A6210AB0,1,1,1,0,0,0,1,1,1,1,0,1,1,1,0,1,1,1,1,0,0,0,1