àáÍ'á'C°C±C²C³C´CµC¹C1°CG0¨CG1¤HG0¨HG1¤SL0¨SL1¨SD¨SN¤SH¤S1¤S2¤S¤B¤W¤W2¤HA¨D¨P¤ØÙÔLTÒSIØSÌSÖBØBÙCIØHÄSÍXÓSÙSØXÉYÉH±H²W²OÓLÓHÐÓGÓÎHIØBÈXÔYÔOÅDÔIØIÙWØWÙP±D±D²DÓT±T²VØGØVÙGÙH×Q±Q²YÓE±E²E³FØFÙLÅRÉUÐDÎDÒXÄYÄU±U²U³DÐKØKÙÄB±B²HØHÙZ±Z²WÃWÖ@€ @ € @ @ @€€€€€€€€@@€ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdef ##*****************************›##* *›##* HIGH SEAS BY TOM HUDSON *›(##* A.N.A.L.O.G. COMPUTING *›2##* *›<##*****************************›F("€‚ƒ„…†‡(0,1,2,3,4,5,9,10›P%@‚€%*** LEFT MARGIN ***›Z>>ˆ9†<†,‰;A,Š9†<†,‹;A,Œ9…<…,9…<…,Ž9…<,d33;@P,;ƒ,‘;ƒ,’;ƒ,“;ƒ,”;ƒ,•;…,–;…,n:—9†<†,˜9„,™;,6˜8,-(6˜8‚,-‚16˜8ƒ,-ƒ:6˜8„,-„x< š-€†›-€†6ˆ8š<›,-€)6Š8š<›,-€46—8š<›,-€8 ›< š‚G š-€…›-€…6Œ8š<›,-€)68š<›,-€- ›86Ž8š<€,-€C6Ž8š<,-€G šŒ1 6‰. 6‰7A,. +6‰7@,.‰16‹.‰–W<6.2DESTROYER SUBMARINE CRUISER BATTLESHIPA-CARRIER KH:€, ?PW6œ-?P 1 (}1(#    °±²³´µ¶·¸¹     °±²³´µ¶·¸¹ ª=6-A“›-‚@#-…›=( >:,  ++++++++++ ´5-@!›)( >:,  ++++++++++ 16-%5 ›¾G-…@"(    ÃÏÍÐÕÔÅÒ  4-@!@G(     ÐÌÁÙÅÒ   È A! Ò> A!0*(I'M SETTING UP MY FLEET.4 A"p> A! Ü; A!01(IT'S TIME TO SET UP YOUR SHIPS.; A!`æc 6ž-6Ÿ-‚6 - A +6ž-@16Ÿ-ƒ76 -‚A A M6ž-@!S6Ÿ-ƒY6 -ƒc A ðG6ž-@16Ÿ-„6 -„% A 16ž-@A76Ÿ-…=6 -…G A úX A! (%H:, ?P:(I WILL GO FIRST.D A!`N A! X A0)( YOU GO FIRST! A!`) A! *** HUMAN'S TURN ***›: A! %(ENTER YOUR SHOT - ):B:,‚A"- 6‘. A%-¡ €)¡!†)¢ €)¢!†A,P6£-¡%¢$‡%‰7£<£,0 & A!@<(OOPS - TRY AGAIN!F A!`P Ap66‰7£<£,.2@Lˆ8¡<¢,!€6“.*26Ž8ˆ8¡<¢,<,-Ž8ˆ8¡<¢,<,%B6¤-Ž8ˆ8¡<¢,<,L APJ? 6“.  A A!@5(YOUR SHOT MISSES!? A!`T6‰7£<£,.1 A0^d A A!@)( IT'S A HIT!!!3 A!`dˆ8¡<¢,ApAAA0APh&r ¤"‚6¥- Ap| A0† ¤"ƒ6¥-‚ Ap A0š ¤"ƒ6¥-ƒ Ap¤ A0® ¤"„6¥-„ Ap¸ A0¤ …A0Ì 6¥-…ÖA-€@7( YOU SUNK MY 7+¥&,$‡%<¥$‡,!!!A A!`à 6¦-¦%¦"…A!ê A0ô-@%¢‚%¡(“$þ6 A!@"(INCORRECT INPUT!, A!`6 Ap*** HUMAN SET-UP ***› A! --(SHIP: 7ž<ž%†, --- LENGTH:Ÿ &+('(BOW COORDINATE (EG. B4) - +”0($(STERN COORDINATE - (“:B:”,‚)B:“,‚AD 6‘.”6’.“ A%N¢ €)¢!†)§ €)§!†AX¡ €)¡!†)¨ €)¨!†Ab,6©-N:¡&¨,6ª-N:¢&§,,O:©&ª,AlAO:¡&¨,%O:¢&§,+Ÿ&,# A!P7(SHIP WON'T FIT!A A v 6«-¨6¬-§€ 6«-«&©6¬-¬&ªŠ. ­-Ÿ6«-«%©6¬-¬%ª.Š8¬<«,!€A” ­6«-¨&©6¬-§&ªžP ­-Ÿ6«-«%©6¬-¬%ª1-@$%¬@%«:(7ž<ž,E6Œ8 <­,-¬P68 <­,-«¨6Š8¬<«,-  ­$², A!P"(INCORRECT INPUT!, A ¼) A!P( NO DIAGONALS!) A Æ( A!P((SHIP OVERLAPS ANOTHER!Ð A!` A Ú*** COMPUTER'S TURN ***›äŽ8…<€, …6®-… A€îŽ8„<€, „6®-„ A€ø'Ž8ƒ<€, ƒ)Ž8‚<€, ƒ6®-ƒ' A€ 6®-‚ Ž8<€, ‚6¯-‚ A 'Ž8‚<€, ƒ)Ž8ƒ<€, ƒ6¯-ƒ' A  Ž8„<€, „6¯-„ A * 6¯-…4-°!€A€-*** SRCH FOR NEXT HIT ***›>,±!@uA `,*** SYSTEMATIC ***›H 6²-€6³-€R 6³-³%³!‡A \" A€"‹7´<´,0 APf( A@(µ!€*H:, ?€APp AP²"A z AP„ 6²-€6³-€Ž 6³-³%³!@uA `˜" A€"‹7´<´,0 A ¢( A@(µ!€*H:, ?€A ¬ A ²"A ¶ A À2 š-€†›-€† A2‹7´<´,0 A €Ê! 6²-€ AP!²"A Ô  › šÞ2 š-€†›-€† A2‹7´<´,0 Aè! 6²-€ A !²"A ò › š&ü% A A %¶®A@ A0· ®$ 6²- $ A A ¶ ® $$ A0· ®$. 6²- $86š-P:H:€,$‡,6›-P:H:€,$‡,B6´-š%›$‡%$L6¸-+š%›,'‚¸&P:¸,œ'V$`C 6©-6ª-€ Ap6¶-¹&6©-6,6ª-€6 Ap@6¶-¶%¹%C$jC 6©-€6ª- Ap6·-¹%6©-€,6ª-66 Ap@6·-·%¹%C$t; 6µ-€º-š&š%!»-›&›%;º €)º!†)» €)»!†A`~$6´-º%»$‡%‹7´<´,42$6µ-µ%ˆ » º$’ 6¹-€6¼-š6½-›œ( 6¼-¼%©6½-½%ª%¼ €)¼!†)½ €)½!†($¦ —8¼<½,$° 6¹-¹% A€º/ ¾-¤ 6—8Œ8¥<¾,<8¥<¾,,-(6°-°&, ¾/$Ä 6¿-€6À-€ÎJ 6Á-€6©-6ª-€ A€%6Â-Á+6Á-€26©-686ª-€B A€J6Â-Â%ÁØJ 6Á-€6©-€6ª- A€%6Ã-Á+6Á-€16©-€86ª-6B A€J6Ã-Ã%Áâ ¯6¿-ì ï6À-ö$ 6Ä-Å6Æ-Ç6Á- ( 6Ä-Ä%©6Æ-Æ%ª%Ä!†)Æ!†)Ä €)Æ €($—8Ä<Æ,"$ 6Á-Á% A(G 6•.=:›,)6•7,.>:@:•7B:•,,,%@,26–.=:š,G6•7@,.–7B:–,,2) 6“. 6—8š<›,-)Š8š<›,"€AP<' 6“.*'6Ž8Š8š<›,<€,-Ž8Š8š<›,<€,%F" A6‹7´<´,.1"6±-±%P A! ( MY SHOT IS •Z-@$%š‚%›(“d: “4  A!@&( IT'S A MISS!0 A!`: Apn- A!@( IT'S A HIT!' A!`-6È-x A6‹7´<´,.2‚6—8š<›,-‚6°-°%ŒS 6É-š6Ê-›6¤-Ž8Š8š<›,<€,PŠ8š<›,A0APApAAS&– ¤"‚6¥- A0  Apª ¤"ƒ6¥-‚ A0´ Ap¾ ¤"ƒ6¥-ƒ A0È ApÒ ¤"„6¥-„ A0Ü Apæ¤ …Apð 6¥-…ú<-€@<(YOUR 7+¥&,$‡%<¥$‡, HAS BEEN SUNK! A!` A$$*** ONE MORE COMPUTER-SINK ***› 6Ë-Ë%Ë"…A!" 6È-€ Ap,""*** SINK SHIP SUBROUTINE ***›67 6Ì-€6Í-†6Î-$H:,!?P*6Ì-†06Í-€76Î-6@ Ï-ÌÍÎÐ-ÌÍÎJ—8Ï<Ð, ‚A`T+°"A€+*** RANDOM DIR SHOT ***›^ 6Å-Ï6Ç-Ð A h¿Ar 6Ñ-†6Ò-†| Ï!€6Ñ-—8Ï&<Ð,† Ï †6Ò-—8Ï%<Ð,% Ñ"€*Ò"‚6š-Ï&6›-Ð% A š% Ñ"‚*Ò"€6š-Ï%6›-Ð% A ¤ÀA`® 6Ó-†6Ô-†¸ Ð!€6Ó-—8Ï<Ð&, Р†6Ô-—8Ï<Ð%,Ì% Ó"€*Ô"‚6š-Ï6›-Ð&% A Ö% Ó"‚*Ô"€6š-Ï6›-Ð%% A à; Ð Ï;*** NOW YOU KNOW THERE ARE PARALLEL SHIPS ***›ê Ï-€†Ð-€†ô—8Ï<Ð, ‚ Ð Ï&þ 6Å-Ï6Ç-Ð A ¿AP 6Ñ-†6Ò-†6Õ- Ï!€6Ñ-—8Ï&<Ð,& Ï †6Ò-—8Ï%<Ð,0Ñ"€)Ò"€A:ÀAD 6Ó-†6Ò-†6Õ-‚N Ð!€6Ó-—8Ï<Ð&,X Ð †6Ô-—8Ï<Ð%,bÓ"€)Ô"€Al Ð Ï&vÕ"‚AP€"6Ö-6%P:H:€,$ƒ,"Ö"€A Š—8Ï%Ö<Ð,6Ö-6Ö” 6š-Ï%Ö6›-Ð A ž"6×-6%P:H:€,$ƒ,"×"€AP¨—8Ï<Ð%×,6×-6ײ 6š-Ï6›-Ð%× A ¼Sš-@ !6Ø-%P:H:€,$„,16Ù-%P:H:€,$„,:6Ú-˜8Ø,F6˜8Ø,-˜8Ù,O6˜8Ù,-ÚS šÆ5 Û-„2˜8Û,A A A @A `5&ÐZ 6©-6ª-€6š-Ï6›-Ð% Ap+6Ö-¹26©-686ª-€B ApL6Ö-Ö%¹%ZÖ ¯A!Ú A päZ 6©-66ª-€6š-Ï6›-Ð& Ap,6Ö-¹26©-86ª-€B ApL6Ö-Ö%¹%ZÖ ¯A!î A pøZ 6©-€6ª-66š-Ï6›-Ð& Ap,6Ö-¹26©-€86ª-B ApL6Ö-Ö%¹%ZÖ ¯A! A p Z 6©-€6ª-6š-Ï6›-Ð% Ap+6Ö-¹16©-€86ª-6B ApL6Ö-Ö%¹%ZÖ ¯A!8 6Ü-Ï%©6Ý-Ð%ª1Ü €)Ü!@ )Ý €)Ý!@ 5 Û8&  —8Ü<Ý, Û&* 6š-Ü6›-Ý A 4  Û &> *** SCREEN SUBROUTINES ***›H( A!0( œœœœœœœœœ% A!0($R-€@$\-€@$f-€@ $p *** TIME DELAY ROUTINE ***›z¹-A ¹$„*** END-OF-GAME CODE ***›Ž Ë"… A%`˜/ A!` A! ! A!0/Ë"…A" ¢( YOU WIN!! A"0¬(I WIN!!¶) A!@%(ANOTHER GAME (Ù/Î))•À •4NÊ% •0Y A!@(œ% A"0Ô%Þ""*** SET COMPUTER'S SHIPS ***›è[ 6 -6Ÿ-‚ A#6 -‚%6Ÿ-ƒ/ A#56 -ƒ;6Ÿ-ƒE A#K6 -„Q6Ÿ-„[ A#ò 6 -…6Ÿ-… A#$ü-6¼-P:H:€,$‡,6½-P:H:€,$‡,-6Þ-P:H:€,$„, ,)Þ%A# A#@A#`A#€,& ½ ŸA# & 6ß-6à-€6©-€6ª-6& A$$ +‡&¼, ŸA#. % 6ß-€6à-6©-6ª-€% A$8 +‡&½, ŸA#B % 6ß-6à-€6©-€6ª-% A$L ¼ ŸA#V  6ß-€6à-6©-66ª-€` 6á-¼6â-½ ˆ8¼<½,A#j A 6ã-á%ß6ä-â%àã ‡*ä ‡Aˆ8ã<ä,*H:@, ?•A#t = 6ã-á&ß6ä-â&àã!6*ä!6=ˆ8ã<ä,*H:, ?•A#~ 0å-+Ÿ&,6á-á%©6â-â%ª0ˆ8á<â,A#ˆ ; 6ã-á%ß6ä-â%àã ‡*ä ‡;ˆ8ã<ä,*H:, ?•A#’ = 6ã-á&ß6ä-â&àã!6*ä!6=ˆ8ã<ä,*H:, ?•A#œ  å¦ - 6á-á%©6â-â%ª-á €)á!†)â €)â!†A$° !!ˆ8á<â,*H:, ?•A#º  6á-¼6â-½6ˆ8á<â,- Ä 1å-+Ÿ&,6á-á%©6â-â%ª*6ˆ8á<â,- . å1$Î *** DECODE GRID INPUT ***›Ø 06¡-@:‘7<,,&@e06¢-@:‘7B:‘,,,&@Hâ 06¨-@:’7<,,&@e06§-@:’7B:’,,,&@Hì $ö ++*** SHOW COMPUTER'S LAYOUT AT END ***› D š-€†›-€†6æ-ˆ8š<›,.-@%›‚%š4æ"€:( D A%€ **(>:@:7+æ&,$‡%<+æ&,$‡%,,%A(,  › š$€ D:HISEAS.BAS