a ()b )"******* SeaBattle *******"bPb )"For Morrow Micro Decision MD-2, Lear-Siegler MDT-20 terminal."Xb:^b(b2  )"adapted from "(")"More Basic Computer Games"(")", by D. H. Ahlb< )"Creative Computing Press, Morristown, New Jersey (1979).*cF:Original program in H-P Basic by Vincent Erickson]cP:Converted to Microsoft Basic by Steve NorthcZ:Converted to MBasic by Robert K. Waits (1983)cd:Script, SBHELP program, graphic and other enhancements by RKW (1983)"cn:cx::  d ()-d )"******* SeaBattle ******* "5d:hd"Are you continuing a previously SAVEd game";qd A$d (A$,)"Y" "d ( );" "e"For instructions type HELP when asked: What are your orders? _" eGe AC,E,GP,RZ : OMIT D,F,QTe U$()`e D(d)oe A(2,2)e"Please enter your one- to four-digit Code Number: ";: ; CODE$e ( );" "@f ( );" "pf""Prepare for orders. Enter your name: ";{f, ;N$f6((CODE$)(CODE$)(N$))f@fJN$ "Captain "(N$,)fT:"Your Code Name for this mission is ";N$;"."f^$gh: PICK SUBMARINE NAMEAgr N : U$(N): N`g|: N(): U$U$(N)g AMOEBA,ANEMONE,ABALONE,CATFISH,CARP,GOLDFISH,SILVERFISH,SANDCRABg SANDFLEA,TITANIC,MAHI MAHI,SEA TURKEY,SEASLUG,SEATURTLE"h"You are Captain of the intrepid submarine "U$". Your"ah"mission is to destroy all Enemy ships in your vicinity."h"You are armed with missiles and torpedos. You also have"h"a skilled and daring Underwater Demolition Team (UDT Frogmen)."i"Good Luck to you and the ";U$;", ";N$;"."8i: SET UP BATTLE AREAGi I Vi J ciA(I,J)ki Jsi Ii: ISLANDi i X  i& Y  i0 A(X,Y)i: YiD XiN: SUBMARINEiXS1 : S2 jbA(S1,S2)"jl: ENEMY SHIPS+jvXS[jS() :SHIPS TO SINK= 10 TO 25djSSSnj nj X (())j D8,D9j Xj X ((S))jX1()jX2()j A(X1,X2) kA(X1,X2)k XVk:"You must destroy";S;"Enemy ships to successfully complete your"fk"mission."k : HEADQUARTERSkS3()k S4()k* A(S3,S4) k4A(S3,S4)k>: UNDERWATER MINES lH X ()lRX1 ()2l\X2 ()Jlf A(X1,X2) RYlpA(X1,X2)alz Xl: SEA MONSTERSl X l X1()lX2()l A(X1,X2) lA(X1,X2)l nl Y  () m M1,M2m Ym X?m: SET STARTING VALUESMm I XmD(I)`m IimCsm$Pp}m.F m8T mBMmLD2mVD2mZ 2mj: COMMAND SECTIONnt XS S((SS)) 333 N -n~ ():"What are your orders, ";N$;Hn O$: O$"?" 2bn (O$,)"SA" 8"|n (O$,)"HE" 8"n O$""  : n D() C  : n O$"R"  : n D() C  : o O$"N" o O$"T"  *o O$"M"  =o O$"D" Po O$"S" do O$"HQ" wo  O$"U" o O$"C" o O$"A" *o( 2o2: COMMAND CODE INSTRUCTION SUBROUTINEo< ()pF N =: ( );: N: " "RpP N =: ( );: N: " ==COMMAND CODES=="pZ N =: ( );: N: " -----------------"pd N =: ( );: N: " - SONAR "pn N =: ( );: N: " R - RANGE REPORT "&qx N =: ( );: N: " N - NAVIGATION "[q N =: ( );: N: " T - TORPEDO CONTR"q N =: ( );: N: " M - MISSILE CONTR"q N =: ( );: N: " U - UDT MISSION "q N =: ( );: N: " D - DEPTH CONTROL"/r N =: ( );: N: " C - PWR/FUEL CONV"dr N =: ( );: N: " S - STATUS REPORT"r N =: ( );: N: " HQ - HEADQUARTERS"r N =: ( );: N: " A - ABORT MISSION"s N =: ( );: N: " -----------------"8s N =: ( );: N: " "ns N O: ( );: N :POSITIONS CURSORxs js: N -- NAVIGATIONs D() ,s"Engines are under repair ";N$;"."s" js, C Jt6"Not enough crew remaining to man engines ";N$;".")t@ jMtJD1((k~ )((D)))WtT dt^" Power Available:";P;" units. Power to use";th P1$tr (P1$) (P1$)P ^t|P1(P1$)t P1 t (\ 4u"FIRST OFFICER REPORTS ENGINES OVERLOADED. REPAIRS REQUIRED."@uD()Ju jSuXS1\uYS2euQ1u X2 ((P1d)D1)u XX1 XX1 YY1 YY1 u"You cannot leave the area ";N$;"!"u D&v A(XX1,YY1) ,:,,v,,,1vXXX1 A(X,Y) pIyH  ZyR Q1 py\ N$;", you have narrowly escaped the jaws of a Sea Monster."yfQ1yp Y3yz X3y X2z"Course adjustment complete. Power Units remaining: ";P;"."z P DTz:"DISASTEROUS ENGINE FAILURE...YOUR SUBMARINE IS DISABLED."pz   : z: -- SONARz D() z"Sonar equipment is under repair."z jz C {"No sonar operators are available, ";N$;"."{ j={: PRINT OUT MAPP{ ():::_{ X n{ Y {$ " ","***","[U]","\E/","{H}"," m ","~~~"{. A(X,Y) V {8 X X Y Y V {B " . ";{L  {V $ |` X1 A(X,Y)|j A$$|t X1X|~ D k~ A(X,Y) A(X,Y) B x| ~ A(X,Y) B | A$;| Y| | X| SM | PP2| P j| | : R -- RANGE REPORT| I } B(I) } I4} : " HEADING SHIPS RANGE">} nL} X X}( X1,Y1a}2 X3q}< X4 }F S1X1X4 S1X1X4 S2Y1X4 S2Y1X4 x }P A(S1X1X4,S2Y1X4) n }Z X3X3}d B(X3)X4}n X4~x X3  ~ " ";X,X3(~ X4 X3W~ ( );: N : ( );: N: B(X4)`~ X4h~ X~ :"Your present position coordinates are:(";S2;",";S1;")"~  ~ : T -- TORPEDO CONTROL~ D()   "Torpedo tubes are under repair." j& C  P "Insufficient crew to fire torpedo."Z jh T ,  "Torpedoman reports no torpedos left."" j, "TORPEDO READY.": d6 D3 h @ Dc T J  ^ 5T :"TORPEDO EXPLODES PREMATURELY DUE TO EXCESSIVE DEPTH.": j>h XS1Gr YS2q| X2 (((D))) XX1 XX1 YY1 YY1  ր " Target out of sonar range. Torpedo missed." TT뀤 PP P p 8 A(XX1,YY1)  , , , ,N , , C XXX1N YYY1\ ".....";f  p   "Your torpedo has run aground on the island. Embarassing to say the least."Ձ A(XX1,YY1)߁    & "...DIRECT HIT! Enemy Ship sunk. "0 SS.: S  8D BN  X "Sorry, ";N$;" you just torpedoed (and destroyed) your own Headquarters!"b D()dl S3: S4: D2v  킀 "!!! KABOOMM !!! You blew up a mine."  5 "A Sea Monster just had your torpedo for lunch, ";N$;"."?  H X2W Z:  "Torpedo malfunction. No explosion. Dud."  : M -- MISSILE CONTROLă D()  "Missile launchers under repair." j C  2 "Crew insufficient to launch missile."< jM M 4 N$;", Missile Control reports no missiles remaining."* j4 D D  > "Missile Control Officer recommends that you not" H "fire missiles from present depth."0R "Proceed with missile launch";9\ A$Rf (A$,)"N" jlp Z:  Zvz  Z: ():؅ "MISSILE EXPLODES UPON FIRING. THE ";U$;" IS DESTROYED WITH ALL HANDS."䅘 C::  "MISSILE READY.": d( " Missile Fuel (kg): ";1 F1B F1 j[ F1 F1F  "Missile Officer reports you have";F;"kg of fuel remaining."߆ "If you wish to cancel missile launch enter Missile Fuel: 0"  Z  F2(F1K)P S1X1F2 S1X1F2 S2Y1F2 S2Y1F2 L"Missile beyond sonar tracking range................missile lost."$MM.FFF18PP,ÇB  އLD3: D4: D5: D6V XS1X1F2 S1X1F2` YS2Y1F2 S2Y1F2Bj X X Y Y  WtD3D3(A(X,Y))l~D4D4(A(X,Y))D5D5(A(X,Y))D6D6(A(X,Y)) A(X,Y) "DIRECT HIT ...................... On your own Headquarters! "D()dD3: S4: D5: D6) ? A(X,Y) P ()::ĉ"YOU HAVE DESTROYED YOUR OWN SUBMARINE. POSTHUMOUS COURT MARTIAL PROCEEDINGS CERTAIN."ЉCO::ډ A(X,Y)  Y X  D6 >!( D6 <c2"Good shot ... portion of island totally destroyed. "t< D5 dF D5 "CIC reports one mine destroyed. "ΊP D5 dZ"Combat Information Center Officer reports";D5;"mines destroyed."&d D4 kn D4 "Sonar indicates that one Sea Monster is now missing."|x D4 "Sonar indicates that";D4;"Sea Monsters are now missing."Ջ"Good work, ";N$;"." D3 "CIC Officer reports one Enemy ship confirmed sunk!"] D3 "CIC Officer reports";D3;"Enemy ships confirmed sunk." D3 "The crew sends their compliments to you, ";N$;"."匴 D3 "Missile guidance control malfunction... target missed."SSD3 S   $&: D -- DEPTH CONTROL: D() w"Ballast control under repair. Not possible to change""depth at this time." j C ,ۍ"Ballast Control Crew are having lunch."" j,"What is new depth";6 D1J@ D1 "The ";U$;" is a submarine, not an aircraft!": ,eJ D1 D1 rvO ()::ÎT"HULL CRUSHED BY EXCESSIVE PRESSURE...THE '";U$;"' AND ALL HANDS LOST."ˎ^CՎh rPP(((DD1)))| "Steady at new depth,";D1;"meters."S "Power Units consumed = ";((DD1)) D1 "You are now surfaced and very vulnerable!"DD1 pЏ: 5 - STATUS/DAMAGE REPORT䏸 D()  "DAMAGE CONTROL UNABLE TO REPORT." j& C m"Damage Control Officer is unavailable. No replacement on duty."w j:" STATUS REPORT"" Enemy Ships ";SSS;" SUNK"ې" ";S;" REMAIN"" Power Units ";P" Torpedos ";T,&" Missiles ";MO0 " Missile fuel ";F;" kg"j:" Crew ";CD" Depth ";D;" meters"N"Do you wish a Damage Report";X A$Ցb (A$,)"N" l:" DAMAGE CONTROL REPORT "v" [ + Operational - Severe ]""H" Engines ";(D())n" Sonar Equipment ";(D())" Torpedo Systems ";(D())" Missile Systems ";(D())" Ballast Control ";(D())" Power Converter ";(D())," UDT Equipment ";(D())R" Damage Control ";(D()) D()- " Headquarters Destroyed " D()-  :  ʓ" Headquarters ";(D())ԓ  j: 6 -- HEADQUARTERS  D() He* D()F "Your Headquarters has been destroyed, ";N$;"... remember?": j4"Headquarters is damaged....unable to help."> jH D2 fR"Radioman reports no response from Headquarters. The worst is feared." \ j7f ((S1S3)(S2S4)) D ]p ((S1S3)(S2S4)) z"You cannot transfer supplies unless surfaced, ";N$;"." j̕"You are too far from HQ, ";N$;"."֕ j"Do you require supplies and reinforcements, ";N$; A$0 (A$,)"N" j"Headquarters has successfully transferred supplies, armaments and crew." P P T T M Mǖ F Fٖ C CD2D2 p): U -- DEPLOY UNDERWATER DEMOLITION TEAM (FROGMEN)= D() 8z$"SCUBA equipment is under repair. Mission postponed. ". j8 C V͗B"Insuffient UD Team personnel to attempt mission."חL jV D2 t'`"UD Team cannot leave the ";U$;" at this depth, ";N$;"."1j jxtD3: D4: D5 :SETS SHIPS, SEA MONSTERS AND MINES IN RANGE=0~ XS1 S1 YS2 S2Ę X X Y Y ٘D3D3(A(X,Y))D4D4(A(X,Y))'D5D5(A(X,Y)) :D5= MINES IN RANGE (2 SPACES) / Y7 XI D3 "Sonar Officer reports that there are no ships within UDT range." j D3  :  "Sonar Officer reports one ship within UDT range." . "Sonar Officer reports";D3;"ships within UDT range!"b"How many Frogmen do you wish to deploy, ";N$;k Q1# Q1 "UDT mission cancelled.": j( CQ1 Q1(C) Pњ2 CQ1 K<"Sorry, ";N$;", at least ten crewmen must remain on board the ";U$;"."'F qK"You have only";(C);"UDT personnel on board the ";U$;", ";N$;"."{L P  #} d : ZڛZ"UDT Leader reports poor visibility. Mission aborted.": &d:D5=INT(D3/Q1+.5) IN ORIG. VERSION- WHAT DOES IT DO? ADDED 5040;5230nn D5 "UDT mission aborted due to floating mine hazard.": wxD6 XS1 S1 YS2 S2ǜ D3Q1 D3Q1fff ݜ A(X,Y) 霪D6D6A(X,Y)SS Y X' N : N:_ D6 "UD TEAM LEADER REPORTS MISSION ABORTED."p D6 " D6 "UD TEAM LEADER REPORTS ENEMY SHIP SUNK." D6 ""COMBAT INFORMATION OFFICER REPORTS ";D6;" SHIPS DESTROYED!" "D6: D7, X Q1.6D7D7()6@ XHJ X Q1D7]TD6D6(~)e^ Xvh D4 r"UDT Leader reports Sea Monster in sight!"| N : N:  D7 D6 "Frogmen evaded Sea Monster!": ? D7 "UDT Leader reports one Frogman devoured by Sea Monster."P D7 "UDT Leader reports that";D7;"Frogmen were devoured by Sea Monster."CCD7 N : N:  D6 D7 "All Frogmen have safely returned. No casualties." D6 i D6 "UDT Leader reports that one Frogman is missing and presumed AWOL."z D6 Š"UDT Leader reports that";D6;"Frogmen are missing and presumed AWOL."РCCD6 S PP( Q1 ) p6: C -- POWER/MISSILE FUEL CONVERSIONJ& D() D0"Damage Control reports Power Converter is under repair.": jD C bN"You have insuffient crew to man Power Converter, ";N$;"."X j8b: ;" FUEL TO POWER = 1 POWER TO FUEL = 2 Enter Option: ";O$Kl O$"1" ev O$"2"  : b: MISSILE FUEL TO POWER CONVERSION梊"Missile fuel available for conversion: ";F;" kg. Amount to convert"; C1 C1F C1 FFC1#PP(C1)- b: POWER TO MISSILE FUEL CONVERSION"Power available for conversion: ";P;" units.""Amount to convert "; C1ϣ C1P  C1 jPPC1 FF(C1)C"Conversion completed. Power=";P;"units. Missile Fuel=";F;"kg."M  px* ():: : A -- ABORT MISSION4 C C > : H٤>"Your";C;"surviving crew members commend your action,";N;"."H T M S R : fKR"In your present situation, ";N$;", discretion is undoubtedly the better"g\"part of valor.": "f"He who fights and runs away .... will probably face Court Martial.": "p: ENEMY ACTION SECTION(z:"================= ACTION REPORT FOLLOWS ================== "=Q: D Q XS1 S1e YS2 S2 X X Y Y  A(X,Y) ȦQQ(@((S1X)(S2Y)))Ц Yئ X 8 XS1 S1  YS2 S2. X X Y Y $D A(X,Y) $hQQ (((S1X)(S2Y)))QQ(ff' wD): DAMAGE INVERSELY PROPORTIONAL TO DEPTH$ Yȧ. X֧8 Q VB"Sonar operator reports no Enemy Ships within attack range.""L 2V D jk`"INCOMING SHELLFIRE FROM NEARBY ENEMY SHIPS.": j"DEPTH CHARGE EXPLOSIONS OFF ";t  ~"PORT SIDE." ب"STARBOARD SIDE." Q~ k ("Damage Control reports negligible damage."2 Q QQ8 u "Damage Control reports superficial damage sustained."PP2D(()) ٩ Q y <"DAMAGE CONTROL REPORTS MODERATE DAMAGE. REPAIRS REQUIRED."0PPK()>  Y OX()bD(X)D(X)j( Yt2 < Qfff { ϪF"HEAVY DAMAGE SUSTAINED! IMMEDIATE REPAIRS REQUIRED."P"ONE CREW MEMBER LOST.":CC: ZPP((L))"d X ()3nY()GxD(Y)D(Y) O XY "DAMAGE CRITICAL! IMMEDIATE AID IMPERATIVE!":"TWO CREW MEMBERS LOST.":CC:ȫ  < "YOU MUST SEND THE FOLLOWING MESSAGE: "(")"SOS FROM THE ______"("): "(_____ IS YOUR SUBMARINE NAME)."H ()d ;"SEND MESSAGE: ";B$: B$"SOS FROM THE "U$ T : rެA$"WKRPRTGI4K6LIRU9LHY84MCPSUF8DLAFH83JFY5XMJJ3HZZ89PLEH2NBVPQWOSKDJ756G"X(): ()/" "N$;", YOU MUST SEND 'HELP' IN CODE!"X I%  : I% :TIME DELAY"THIS IS THE CODED MESSAGE TO BE SENT: ";(A$,X,):í: TIME DELAY - THEN ERASE MESSAGE CODE" I% : ();: I%, ( ); ();".... "#6 ;"ENTER CODED MESSAGE: ";B$)@DJ B$(A$,X,) rT"Fast work, ";N$;"! A rescue/repair team arrives in the nick of time."^PPh 2r (): "MESSAGE GARBLED. THE ";U$;" PLUNGES TO OBLIVION.":|C .0: CHECK IF ALL SYSTEMS ARE DAMAGEDl D() D() D() D() D()  D() D() ѯ"DAMAGE CONTROL REPORTS THE ";U$;" HAS SUSTAINED EXTREME DAMAGE.""EMERGENCY CONDITION! MAYDAY! MAYDAY!"  =: MOVE EMEMY SHIPS / SEA MONSTERS ".........................................................." X  Y Ͱ A(X,Y)  :SEA MONSTER MOVES: EMEMY SHIP MOVESWD8VD9= XW XW YV YV lR& X0  r0 A(XWX0,YVX0) X:A(XWX0,YVX0)DA(X,Y)N X X0bl A(XW,YV) v,,,,,*,\vA(XW,YV)A(X,Y) 8: CHANGE SHIP DIRECTIONB nZ X0 ()d W,Vm X0 XW XW YV YV  l D "YOU HAVE BEEN RAMMED BY AN ENEMY SHIP!"  ~ 6 N$;", Headquarters destroyed by Enemy action."C D()dfS3: S4: D2: A(XW,YV)p  >* 333 ̳4"Combat Information Center reports Enemy ship destroyed by mine."ֳ>SSH S R \ L Sf"Combat Information Center reports Enemy ship devoured by Sea Monster!"]pSSgz H: SEA MONSTER MOVES A(X,Y) ش XM1 XM1 YM2 YM2   A(XM1,YM2) ,,,B,t,,A(XM1,YM2)+A(X,Y)5 j: CHANGE SEA MONSTER DIRECTIONt n X0 () M1,M2 X0ѵ XM1 XM1 YM2 YM2 ۵ SM:  8 N$;", the ";U$;" has been devoured by a Sea Monster ... no survivors."A$SM." Posthumous honors will be accorded you and your crew.":ƶ8"Do you wish to be reincarnated for another mission";: ۶B L~ L"Sonar Officer reports Enemy ship devoured by Sea Monster!"&VSS7` S Aj t"COMBAT INFORMATION CENTER REPORTS THAT HEADQUARTERS HAS BEEN"·~"DEVOURED BY A SEA MONSTER. So much for Headquarters."׷S3: S4: D2䷒D()d  @  O"Combat Information Center reports a raging Sea Monster battle!"Y !n L "One Sea Monster dead; the other survived. ~ ~ ~ ~~~ "; "Sea Monster battle ended in stalemate. Both survived. ~~~ ~~~ ";  ! Y) XK(: REPAIRSY2 Y j<X()FD(X)D(X)(())(((D) (D)))((D(X)))P YZ jd: SUB-ROUTINE FOR COURSE / HEADING n 1,-1,1,0,1,1,0,-1,0,0,0,1,-1,-1,-1,0,-1,1@x ;" Enter HEADING: ";C1$U C1$"?" | N : ( );: N: ( ) N ?: ( );: N:" 7 8 9 "к N ?: ( );: N:" \|/ " N ?: ( );: N:" 4-*-6 "$ N ?: ( );: N:" /|\ "N N ?: ( );: N:" 1 2 3 "X xb  C1$"5" (C1$) (C1$)  n X9 ((C1$))û X1,Y1̻ X9һ: MISSION ABORTED8":: N$;", YOU HAVE ABORTED A VERY IMPORTANT MISSION.":l, C "You have";C;"surviving crew members."6 C "You have no surviving crew members."μ@ C "You have miraculously survived."J"Your mission was to destroy";SS;"Enemy ships."9T S "There is but one Enemy ship remaining."s^ S "There are still";S;"Enemy ships remaining."h"Court Martial proceedings are pending. You may exonerate"r"yourself by accepting another assignment. Do you accept";| A$ (A$,)"N"  : |K: MISSION ACCOMPLISHED!t N : N: ()::::: )"MISSION ACCOMPLISHED!":辮"PROMOTIONS AND COMMENDATIONS FOR YOU AND THE VALIANT CREW OF THE ";U$;".": )"Do you wish another assignment, "N$;# A$D (A$,)"N" | :  e (): N  : : N" Very well. Court Martial proceedings at 0800 tomorrow.":::::¿ 0,1,1,1,0,0,0,1,1,1,1,0,1,1,1,0,1,1,1,1,0,0,0,1" 1,1,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0( Q :::"ENJOY YOUR R AND R, ";N$;"."W& 0 SSS "During your tour of duty";SSS;"Enemy Ships were sunk.": :::D N : SUBROUTINE FOR SECOND ENEMY TASK FORCE+X "=========================================================="kb " SONAR OFFICER REPORTS SECOND ENEMY TASK FORCE DETECTED!"l "=========================================================="v X (SS) X1() X2()” A(X1,X2)  ž A(X1,X2)¨ X ² XS&¼ T : SUBROUTINE FOR TORPEDO LAUNCHi ( ); ( ) N H: ( ); N)"====*"; K : K: N Z ( ); H)"...POOOF";:  ! Z  !! ( ); N)"KABOOM!" ! N ,: Z: N: Z<! ( ); H)".' | `. ";Q ! N : N*! ( ); H)" "; ( ); ( );4!>!: SUBROUTINE FOR MISSILE LAUNCHH! ( ); ( )R! N H: ( ); N)"IIIII>"; \! K : K: N-f! ( ); N)"FLASH-KABOOM!"Bp! N : Nfz! ( ); B)".:o|#|~`/.\:+-";{Ą! N : NĎ! ( ); B)" ` ~ ' ";Ę! N : NĢ! ( ); B)" ";Ĭ! ( ): ( )Ķ!*!: SUBROUTINE FOR SEA MONSTER FIGHT>! ( );( )b! E $: ( ); E)"~~~";z! G : G: E! $)"~~~";! EI $ : ( ); E)"~~~ ";! G : G: E" ( ); ( ); $)".~#!%o-`"!" ( ): ( ); $)" "O" ( ): ( ): #)" ";U$"t.": CHAIN TO SBHELP8" "O", #, "SEABAT.DAT"B" #,C,D,F,M,P,S,T,U$,N$,SS,S1,S2,S3,S4,D1,D2,D3,D4L" #,D5,D6,D7,D8,D9,XSV" I : #,D(I): I`" I% j" J% 2t" #, A(I%,J%)A~" J%: I%JLj" #dǒ" (O$,)"SA"  sǜ" "SBHELP"yǦ"ǰ": ENTRY POINT FROM SBHELPǺ" AC,E,GP,RZ" D(d)" A(2,2)" <#" "I", #, "SEABAT.DAT"4" #,C,D,F,M,P,S,T,U$,N$,SS,S1,S2,S3,S4,D1,D2,D3,D4O" #,D5,D6,D7,D8,D9,XSk# I : #,D(I): I{ # I% # J% # #, A(I%,J%)(# J%: I%2# () F#<# 5 " F#F# #P# j6Z#:CHR$ CODES: 7 BEEP, 8 BACKSPACE, 11 UPLINE, 12 SPACE, 13 RETURN W/O[#: LINEFEED, 26 CLEAR SCREEN & HOME CURSOR, 30 HOME CURSORɌ#: FOR DOCUMENTATION OF ORIGINAL SEABATTLE PROGRAM SEEɍ#: REFERENCE IN LINES 50 AND 60.ʎ#: FOR HELP TEXT SEE "SBHELP.BAS". END OF PROGRAM.NAL SEABATTLE PROGRAM SEEɍ#: REF