f:REVISION 26.00 BOOT/BAS 03/25/02 NO PRINTER LOCKSp `TM$((( ) )):(TM$,,)"W"ER  (PU$()Ʉ* ӄ- '݄2 d P :VERIFY SYSTEM DATEn * :OPEN REBATE FILE-"MASTER/BAS"8SVC,cF%/:D$():M% : SVC(F%,D$,M%)rTM( )C: "Checking for Printer Locks...";: PR : PR;C((D$,PR)): C ((C ?)TM) "LOCK FOUND!!!": 0&: "No Locks Found":݆0:"You have switched off your terminal while it was waiting to print. Check to seethe printer has paper, is online, and is not currently in use by another user, then press one of the following:":" Shift-BREAK for Wyse 30, 30+ and 35": " BREAK on Wyse 55":" Shift F8 on all PosiCat units":"Then type CONT and press enter to restore normal operation"? PR Y,Z,[,\,]:"PRINTER "A$:"PRINTER'14253D"PRINTER ,COLS=80,CLOSE": "LOCK RELEASED!":YA$"PR1":ZA$"PR4":[A$"PR2":.\A$"PR5":=]A$"PR3":V'SVC%,:F%:M% Nh' SVC%(F%,M%)$'"Loading accounts..."8'"R",,"AR2R/DAT"B' , AS T$, AS A$ȈL'TT%():F%݈V' N% TT% `' ,N%: T$"+" M%(N%): SVC%(F%,A$,M%):KK%KK%Dt' N%: KK%;"Valid Accounts Loaded..."L~' R'*:open transaction file with buffer in bank2+SVC,:F%:SIZE% :FL$"TRAN/DAT" + SVC(F%,FL$,SIZE%): SIZE%  : "CREATING REBATE FILE...";:"TINIT/BAS"2+ "R",,"TRAN/DAT", : , AS TR$: ,() + (TR$) () : "Rebate Transaction file is full!":"TRANCONS/BAS"*+ "R",,"AR2R/DAT": , AS FCLOSE$, AS SCLOSE$ ,():FIRST$FCLOSE$:SECOND$SCLOSE$+ER:FM((FIRST$,,)): (FM ) (FM  ) ERdFD((FIRST$,,)): (FD ) (FD ) ERFY((FIRST$,,)): (FY ) (FY c) ER׋ FM((SECOND$,,)): (FM ) (FM  ) ERFD((SECOND$,,)): (FD ) (FD ) ERMFY((SECOND$,,)): (FY ) (FY c) ERx ER ,:ZS:ZC: : ( FCLOSE$FIRST$: SCLOSE$SECOND$: ,():PČPER2:FDATE$UER:FM((FDATE$,,)): (FM ) (FM  ) ER;ZFD((FDATE$,,)): (FD ) (FD ) ERt_FY((FDATE$,,)): (FY ) (FY c) ERdË ER ER2:ZS:ZC: :FDATE$TD$: U ܍nË ER2 CM$"DATE " FDATE$: CM$: PF$"ARBFWRK"(TM$,)"/DAT"*˿"R",,PF$: () :"THE A.R. CLOSE DID NOT SUCCESSFULLY COMPLETE": "AUTOMATIC RECOVERY IN PROCESS. ALL OTHER TERMINALS SHOULD BE TURNED OFF" : :֎4ˑ "PRESS ANY KEY TO CONTINUE";();();()>A$: A$"" > H : "ARBFCLOS/BAS"`:2/7/87 10.05؏jKS$"_ABCDEFGHIJKLMNOPQRSTUVWXYZ,!#$%&'()*=-:<>?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+":XSET$( )( )( )()()()()()()()()%~ C$(X)((X),):K1$():K2$():K3$():K4$():KP$"_"C ();:KL:KZ:ZCIѐKW:O%KP:SVC,:KC:FX%@: KF FX%FX%%:KIKI: (K$)KM VAR$K$:  : @KA,K$(KM(K$),KP$);: : FX%FX%&VAR$K$(KM(K$),"_") R%(KAP):C%KAR%P3 SVC (FX%,VAR$,R%,C%,KS$,XSET$,O%)] KF : A$(XSET$,R%,):K$VAR$ R% ,,(,Z,,,,",T,,,KIKI:KP: KI KIKI:KP: : KZ KI': : %(KIKI:KP: KIKX KZ : KIKI:KW: : `ZKIKIKL: KIKX KZ : KIKIKL:KW: : KIKIKL: KI  KZ KI': : KIKIKL:  : ƒ ZQ ZA:KI': :  KC KIW:KP:HT : KCKC: "KI':KP:TKW:KI:KF:A KV KH:KI': : TKIKI:KP:y0@,"POSITRAK";:@P,(P,);::@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;:@E," ";;" ";:PD@,();:@,(((N(PM$)))," ")PM$(((N(PM$)))," ");:p$@,K3$FM$;:@,K4$;: ZC : K3$;K4$;();();" ZS d,,|,,X,ؔ:GET CORRECT CLOSE DATESK$"INVALID CLOSING DATES": 0: :ؕ@1,();"***The closing dates for the accounts receivable file must ":@,"be set correctly for all charge processing!":@$,"The date must be entered as : month/day/year";:@t,"for ex. 06/30/86";@^,"Last Close Date : ";:@,"Second Last Close Date :";3KX:ZQ:ZA:KFC KI KXv& KI K$FIRST$:KM:KAr: :FIRST$K$0 KI K$SECOND$:KM:KA: :SECOND$K$ɖ:: KF KF:  : X:GET CORRECT SYSTEM DATE]K$"INVALID SYSTEM DATE": 0: :b@(,),();();"*** The system date must be set correctly in order to proceed !";:@(,),"The current system date is invalid --> ";FDATE$;ۗd@(,),"Enter today's date (MM/DD/YY) : ";gKX:ZQ:ZA:KF:l KI 3q KI K$FDATE$:KM:KA: :TD$K$Q: KF KF: l : v"Saving BOOT/BAS":"BOOT/BAS":