GfABASIC,@@n~$&'(((>(V(V(V()))*(KXYVALUEBQCSHIPRSHIPXSPOTYSPOTCSINKRSINKZUBOAT BATTLESHIPCARRIER DESTROYERTANKERIJLOOK_HITDUM1DUM2DUM3DUM4DUM5S_UBOATS_TANKERS_BATTLE S_CARRIER S_DESTROYERSTRAYSILLCHECKPPSWITCHDUMM1DUMM2DUMM3DUMM4DUMM5LOOKCOMUBOAT COMBATTLESHIP COMCARRUIER COMDESTROYER COMTANKERZPPRINT COMPUTER_WINSDUMMDUMM6REZXBIOSNEXTNRECSNRCXRESDAYHOURMINUTESTARTFINISHTIMERCLOCKNNAITS_OKACTIVENRECRECCHOICEDEVICETEMPDAYSPOSNDQQPOSLNGTHLENGTHTESTFLAGSUCCESSTRYACKMAXTRYLASTHUMAN VDESTROYERVUBOATVTANKERVBATTLEVCARRIER HDESTROYERHUBOATHTANKERHBATTLEHCARRIERACJUNKPICSCREENPINDEXRECORDBSYNCDEVIDLOCTONTOFFLEVELMODEDAYRECSTATDUNXINPUTDATYHOURMSGALRTNSPTEMPSTATUSXTEMPEIGHTEMPTYTMBLANKNAMETNAMENOMDAY1JTIMEJDATEXCYXXSHIPYSHIPTESTSINKESSINKERNVCOMPUTERSECTCHARXORASCREENSUNKAMSGSHIPJUMPJUMP2JUMP3JUMP4JUMP5JUMP8JUMP9JUMP11JUMP10JUMP14JUMP13JUMP15DAYSACTIONSSHIP_DATINFO COMPUTER_HITBRAINSGRIDCOMPUTER_PLACEFILLLISARECT2RECT1 HIT_MARKER RIGHTSINKUPSINK CHECK_SINK STRAY_SINKLEFTSINKDOWNSINK PLACE_SHIPVERTICAL_PLACENOISESTART INSTUCTIONS INSTRUCTIONS INITIALIZE WRITE_RECORDSET_TIMEACK2 OPEN_MODEM OPEN_RS232 OPEN_PORTBSR_PUTGET_ACKSHOW_ALL PRINT_LINE SHOW_ACTIVE SHOW_RECORDSUPDATEDUMMYLOAD_BSRQUITTESTCHECKSUM OPEN_FILE PRINT_HEADERUP_STATUP_DEVUP_LOCUP_DAYUP_TONUP_TOFFUP_LVLUP_MODE PRINT_DAYSUP_DAYSUP_TIMEUP_MOD CHECK_SUMFIXT1 FIX_LENGTHSPRESS_CR PRINT_HEADERFIXBSRk! By Walter Lazear b ST Version by Charles Jackson (c)1988, Antic Publishing 4E F 4Fr.)!Does not work | in low rez!! OK !FqF FXF/EF(!!! FYF300->9 600->8 1200->7 (p!!!!!! FFMF7E@@FgEDATA.BSRFE! F*@@ F E Desk Fi E About BSRk! F E--------------------FEG@F EA F F EF  E Records F0 E Update FF@ E Show Active FP E Show All F ` EFop E Options F E Initialize F  E Set Time FF$ E Load BSR Interface FF$ E--------------------FF  E Quit FF( EF  FvLF FF&F n+FM8MF7U!M!AUX:F Print #1;Chr$(127) .F  +FFE F Fl)!V BSRK! | By Walter Lazear | ST Version by Charles Jackson | (c)1988 Antic Publishing !! OK !FYF 8F.w#  L$!"! !%!%!!!&!%!'F F! F.F n+F 4)! Initialize | Database? !! OK | ABORT !F h JFM*F E0 F E Fk E0000F E0000FE0FEXFE FEIF8EG7FM!8F 8F! 8MF"E Records | Initialized F! EA8 F)!!! OK !Fn Fn.F +F EEF EF!YFE5?@@ FYFR FaH8EG F$! EB= F$!  EB #< FM)FMFX.F! +)FKEF8E?G@FKEK7?$@8@ F! KJFKEKFF FE 8F)$!@! EBK F.F +F Transmit & Get Ack MFs h8!W!DFXE FF"8EG6$ F Transmit to BSR M"?$@8@ "FCE9F9 C FnF 8FWEFFEVEF"" VXF Keep trying VEVF to get F characters e | JFV from BSR DEa F UNTIL we get eWEWFF six chars. R FE OR until 2 ZVXW@@F  we're tired of trying F! ( Try > Maxtry )  ZW@@FhF# FDEa FFF8MFs.F   ++FNHID - St Dev Loc Days T.On T.Off Lvl ModeFFNI--------------------------------mtwtfss----------------------------------F.F+ +!F 6 6 6 JFM;F F  H JF "F F 'E F2E0000000F (E=00000000p5 @` FEG`F .2!! EB4#5?(@@  F ZF?6H" - ""'""'";@` "'"2"'""'"F"'""'"F".F! +4FR Fa6EG`FeQF$YX!` "" - "Fi F".F4 $+"FFEFM#F .F# #+ F FEFM#F .F# !+#FM*FYFFEFM+FHEG7FM!HF  #FA FJFM!F EF `%` JF]M Choose RecordF|FaJStatus,Device I.D.,Location,Days,Time On,Time Off,Level,Mode,Main Menu FI(YX! "Enter Choice FY ! ""F:(F (JFh(E,F FE E7( F8 Z#(hh  8 <<F F <JF IE5( F I JFwIL,!-!.!/!0!1!2!3Fe F F, RZI#(88 FFM;FM!HF ,JF HEHF FE 4JF HEHF FE" Z#,,44 FF ZIF0FFEYF.F$ +;F(E ! FO(EF E=(@ F(E ! FN(EFE;(@  F(E ! FO(EFE=(@` F.FE E+,FF,YFM+F(M!F(6YX! "Status (A, I) "" FFY ! ""F:(F (E( FU  &(JF(EF$ FE  DZ(A(IFFFE(F.F +-F(F,YFM+FFM!F(4YX! "Device (1-8) "" FY! ""F:(F  (JF(EF FE  Z5( 5( F( ^FE(F.F +.FYFM+FFM!F(0YX! " Location "" FY ! ""F:(F  (JF(EF FEE;(@  F.F +/FF,YFEM+FFM!F(M4F*YX!p "------------------F *YX! "8 - Return to menuF (+E6p5 !@@ p5 F EGFF  ?+@ @ 1JFY@!@ "=>F F  VF!YX! "Days"F:(F NE5( F  HNNJFMENF  ?+@M@ 0JFF+!M! E1F  4F!+!M! E0F F+EA5&X+ F F+  h(JFNEF FE  ZNF F.F /+6F0F,YFM+FFM!F($YX! ""-" FY0! ""F:(F  (JF(E-F FE6  @Z5(  5=(@ pp6( F  F-E(F.F /+0F0-EF0E Time On (24 hr.) FM6FFE-F0.FE /+1FF-EFETime Off (24 hr.) FM6FFE-F.FE E+2FTF,YFM+F(M!F(<YX! "Level (0=Hi, 8=Low) "" F=Y8! ""F:(F ^(JF(EF FE Z5( 5( F0 FE(F(.F 2+3FF,YFM+F(M!F(BY ! "Mode (N)ormal / (S)ecurity "" F Y<! ""F:(F (E( F 0(JF(EF FE NZ(N(SF)FE(F.F +&FM*F()! Clear | BSR? !! Yes | No !F HJFFE$EB B@ FMF)!$ Are You Sure | You Want To Quit? !! Yes | No !F JF8FCqF F.F' (@(@(UN   zLv<D^Dxp$d2V Z   V