K]MSGNFINISSTARNRESTATDEVIDLOCDAYTONTOFFLEVELMODENRECSYNCSECTCHARINDEXRECORDRECRECSECCHAHOUTIMMINUTDAFIELDAYQDAYBO@% 2@@%    L@$<AMAy   @$@@   !"#$%@ BSR INTERFACE PROGRAM BY WALTER D. LAZEAR(c)1988, ANTIC PUBLISHING A A1 SET 8502Y@.@@R:V@@@R:Y$cPUT MSG TO BSRd?-@B:,'(@7<,;-@@? n   $GET MSG BYTE)@$ GET ACK3-@@! AP% 0@3$&&DO CHECKSUM (USE START & FINISH)'67<,.>:,'-&@##67<,.>:@:7<,,%@:7<,,,   $+PRINT HEADER,,,($ID-ST DEV,LOC,DAYS,TON,TOFF,LVL,MODE6 (  $]SHOW RECORD^( MTWTFSSc @( hKH(- ,7@<@,,,,,,K$INIT PROG6-@$gg;@,;@P,;@,;@,9,9,;@ ,;@ ,;@2,;@ ,q];@,;@,;@,;@,;@,;@,;@,;@,q-@@x67<,.>:AU, &@O@6@@ R1:x@8@@2R1:)6. D:INDEX.BSR&6. D:DATA.BSR)$WRITE RECORD467@,. %67@2,. 467@,.v67@<@,.167@<@,.H67@<@,._67@<@ ,.v67@!<@!,.X67@"<@",.167@#<@),.H67@0<@0,.U(@X$READ RECORD@v6.7@<@,16.7@<@,H6.7@<@,_6.7@<@ ,v6.7@!<@!,R6.7@"<@",16.7@#<@),H6.7@0<@0,R Af$%GET INDEX&8@+@@8@0A-@@'68,-4@=68,-A :@$WPARSE TIMEX)6-P:'A,&6-&+$A,)$CLEAR INTERFACEX,(#Clearing Interface Memory, OK (Y,N)080YR(Interface Not ChangedU'X$I 6.)67@<@,.>:,I67@<@,.>:@,$ @P A! A$$ MAIN A(}("( BSR MASTER PROGRAM"(( 1. Init Database( 2. Set Time( 3. Update Records##( 4. Show Active Records ( 5. Show All Records""( 6. Load BSR Interface ( 7. QUITe B)+!* @,eAA A0A@APA`Ap  AINIT DATABASES@+@@6@S@@Q 6.0 6. (6.0 36.0 ;6.0C6.XQ6.0 H-@6.I(@168,-:68,-D APH B(@-@.(@8,>(@8,B :@@7( Initialized  RECORDS:$SET INTERFACE TIMED"(Day of Week (MON=1,SUN=7)&0(Hour4@(MinuteD] 6.)67@<@,.>:@,C67@<@,.>:,]67@<@,.>:,o/67@ <@ ,.>:@#+&@,,;6-@G6-@!Q AP[ @Pe Ao A (DONE$ UPDATE RECORD = (} AP!(Record #%= )!A0 J@+@@@@8,8,J A  AP(( 1 = Status ( 2 = Device ID ( 3 = Location (4 = Days ( 5 = Time ON ( 6 = Time OFF ( 7 = Level (8 = Mode (-------- (9 = QUIT UPDATE! (& (Field' e!* @eA2A2 A20A2@A2PA2`A2pA2A20  (} A0  <"(STATUS (ctive, nactive)&<0A*0IA2 $ @(Device ID (1-8)@A:, @)A:,!@A2  $ (Location ? 6-B:, @567%@<%@,. ? A25 $  Ab6.=:, $ ?(Time ON (24HR)?A:, )A:,!A$A2P $ @(Time OFF (24HR)@A:, )A:,!A$A2` $ D(Level(0=High,8=Low) DA:, )A:,!@A2p $ 8(Mode (ormal,ecurity"80N*0SA2 $ 3@8,8," AP-@0'3$SHOW ACTIVE RECORDS? AP@5@@? A--@ A#4A- AP* @@' AE*$5#(Ӡ٠٠Ϡ5AdAU F:Ad,"AUAEAdAU$SHOW ALL RECORDSa AP@5@@? AM-@W Aa AP* @@' AE*$oWRITE TO INTERFACEpj@+@@5 AP? APR(WRITING RECORD`-@j Az4IAa@`(6.6-$@<67@<@,.>:@,H!AUV6-&AV` A` 67@<@,.>:,B67@<@,.>:P:'@,,b67@ <@ ,.>:@,j4S67@ <@ ,.>:@ , 67@!<@!,.>:A:,,J 6-A:, A067@"<@",.>:,J67@#<@#,.>:,d 6-A:, @ D67@$<@$,.>:@#+@&,,d67@%<@%,.>:,[!@/67@$<@$,.>:,[67@%<@%,.>:@#+@&,,R#67@&<@&,.>:@,R67@'<@',.>:+A:,$@2,%@,A 08A67@'<@',.>:@:7@'<@',,%@,J6-@ 6-@(% AP/ @P9 AC AJ(.9967@<@,.>:@:7@<@,,%@,J 6-A:, A067@"<@",.>:,J67@#<@#,.>:,R#67@'<@',.>:@,- AP7 @PA AK AR(.) (DONE@&@)$8-( } DAYS#Ae-6.-------B*6-(&-@@*"L( (es/o)V&(+4Y)4N,(& Ab `I'67<,.>:@E&@$+4Y,,/4YI6-%@#+&@,j   $d>>Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday 6-A:,6.-------S -@@6@86-@#+&@,>F6-&S67<,.*   $X(QUITTING D:BSRK.BAS