:REVISION 27.03 MASTER/BAS 10/18/06 C-310 AND OKI-320-AUTOMATICALLY FIXES EXTRANEOUS OR UNASSIGNED ERROR USING ,G„ },: },: },܄A( )( ) Q1$,MZ%  E$(X$)(X$,(X$,()))$SVC,:VAR$(d)ʅ "R",,"DIR/SYS.SYS:0": , AS A$: ,:K%(A$): (K% ) :(A$,,)(K% ): ,: :: "UNASSIGNED GRAN AT 00H - REPAIRED": K ': : ܅ CHECK: ` TM$((( ) )):(TM$,,)"W"ER!(PU$()+2 jn p :READ MANUFACTUER CODES AND STORE NAME INTO ARRAYSx  :PUT MANUFACTURER CODES INTO BANK 2ˆ  :PUT STORE NAME, MESSAGE INTO BANK 1  :PUT MESSAGES, LITERALS IN BANK 19 CASH @:PUT PASSWORDS AND CASH DRAWERS INTO BANK 1?RCHECK: ^CHECKq:MASTER MENUZA:ZS:ZC:  K$"" : և PROGRAMS(M)  ZS:ZC:  : $ ZA ER:@(,*), (,);"INVALID PASSWORD!";: J @:: kINDEX(ZZ$," "PW$" "): INDEX (PW$," ") PW$"" INDEXЈ INDEX INDEX(INDEX) : @(,*), (,);: "INVALID PASSWORD!";: X  ::: %$ CODES(INDEX) PROGRAMS(M) @(,(),();" UNAUTHORIZED ! ";:ER: L  :CHECKS & SELECTS PRINTERSz M ,(,2,<,F,P,Z,d,n ,: (AA$, ,)"Y" "INVTYPE/BAS" : MZ%: ANN$() "INVOICE/ALT" : "INVOICE/BAS"(:Q1$(PRI$,(((TM$,))) , ):"AR/BAS.2"INFORMAT/BAS"@<"BLDREP/BAS"TF"POSYSTEM/BAS"fP"UPDATE/BAS"xZ"SYSTEM/BAS"d"UTILITY/BAS"n:"Type DO MASTER for master menu";:x :LOAD BANK WITH MANUFACTURER CODESA$() F%: SVC(F%)F%E I :(A$,,)MF$(I): SVC(F%,A$):K*o :PUT MANUF. CODES INTO BANK 1} F%:B% I  O%u(I)d:(VAR$,,d)(d)݋ (VAR$,,(SI$(I)))SI$(I)() SVC(F%,B%,O%,VAR$)  *:PUT LITERALS, MESSAGES IN BANK 15:X%CF%:B%j X$: (X$,"END OF DATA") (VAR$,,d)X$()(d)O%0u(X%d) SVC(F%,B%,O%,VAR$)ČX%X%Ό ֌:X$"_ABCDEFGHIJKLMNOPQRSTUVWXYZ,!#$%&'()*=-:<>?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+"( )( )( )()()()()()()()()ҍ(VAR$,,d)X$()(d):O%0u(d): SVC(F%,B%,O%,VAR$)؍68 " #### \ \ \ \ \ \ #####.## #####.## #####.## #####.## " " #### This Pg. #####.## #####.## #####.## #####.## #####.## #####.## ####.##"֎ "*** OVER CREDIT LIMIT *** " " 0-30 31-60 61+ CORE "F "NOT FOUND: RETYPE TO RECORD "~ "MISSED SALES FULL " "RECORDED AS A MISSED SALE " "DO NOT ADD MORE THAN 99 ITEMS TO AN INVOICE "& "PRINTING INVOICE "^ "REBATE LOGGED " "INVALID MANUFACTURER CODE "ΐ "INVALID CUSTOMER NUMBER " "CASH ONLY CUSTOMER "> "NOT THAT MANY IN STOCK "v  " " "THIS ITEM DOES NOT EXIST " "CHOOSE AN ALTERNATE NUMBER OR PRESS "# "THIS ITEM HAS A CORE CHARGE "1F "END OF DATA"9p:Kz , AS YY$o I : ,I=:MF$(I)YY$: I : ,I:SI$(I)E$(YY$):@DR$"":SM$"":PW$"": ,-:͒E J ?JUI$(PASSW$,(J) ,): :PW$PW$UO$:SM$SM$(PASSW$,(J) ,):DR$DR$(PASSW$,(J) ,)ET^BUF$SM$DR$PW$:F%:B%:O%R: SVC(F%,B%,O%,BUF$)h PACKF%Lj(PU$,,)PI$(, )ٓʈ SVC (F%,PU$):PO$(PU$,):擠 UNPACKF%(PU$,,)UI$: SVC (F%,PU$)&UO$(PU$,):W "R",,"CONFIG/DAT": ,@ AS AA$, AS BB$l , AS PASSW$} , AS PC$ PROGRAMS(),PASSWORDS$(),CODES()ZZ$" ": I  : ,I:PROGRAMS(I)(PC$):ؐ ,:RV$(AA$,,)% ,:STORE$(AA$,((AA$,())))D ,:PRI$(AA$, )BB$u ,: (AA$,,)"Y" CASH : CASH{P֑@(X,Y),()(W,())();̕ւ J  H :@(XJ,YW),();:֑@(XH,Y),()(W,())();ւ J  H :@(XJ,Y),();:#֎7`:2/7/87 10.05jKS$"_ABCDEFGHIJKLMNOPQRSTUVWXYZ,!#$%&'()*=-:<>?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+":XSET$( )( )( )()()()()()()()()A~ C$(X)((X),):K1$():K2$():K3$():K4$():KP$"_"_ ();:KL:KZ:ZCe旒KW:O%KP:KC:FX%@: KF FX%FX%%:KIKI: (K$)KM VAR$K$:  : @KA,K$(KM(K$),KP$);: : FX%FX%& ZE FX%FX%@ ZI FX%FX%0VAR$K$(KM(K$),"_")MR%(KAP):C%KAR%Pu SVC (FX%,VAR$,R%,C%,KS$,XSET$,O%) KF : A$(XSET$,R%,):K$VAR$ژ R% ,,(,Z,,,,",T,,,KIKI:KP:+ KI KIKI:KP: : KZ KI': : g(KIKI:KP: KIKX KZ : KIKI:KW: : ZKIKIKL: KIKX KZ : KIKIKL:KW: : 噌KIKIKL: KI  KZ KI': : KIKIKL:  :  ZQ ZA:KI': : 8 KC KIW:KP:HT : KCKC: J"KI':KP:`TKW:KI:KF:yKI':HT:KH:KIKI:KP:0@,"POSITRAK";:@P,(P,);:5:@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;:@E," ";;" ";:D@,();:@,(((N(PM$)))," ")PM$(((N(PM$)))," ");:$@,K3$FM$;:@,K4$;:ě:2/08/87 MENU ROUTINEKN$"_123456789":KJ:FG%:FF%:KURPC:K$"_":KA(RN)PC :KJ$""# J NZKU(RJ)PC:@KU,(KN$,J,);". ";K$(J);K4$;~ (K$(J)) KJ KJ(K$(J)) KU(RN)PC:@KU,"Selection :";:KUKU:@KU,RV$;XR:YC:WKJ:HN: :XRN:YC:W:H: :YC:W:H: /@KA,K$;K1$;:@KA,"";sK$: K$""  : K2$;:FI%FF%: (K$)  FF%(K$) K$() K$"1":ANN$():ҝ K$( ) FF%FF% : K$( ) FF%FF%  FF%  FF%N : FF% N FF%O FG% KU(RFG%)PC:@KU," ";(KN$,FG%,);". ";K$(FG%);KJ$;K4$;l#KJ$(KJ(K$(FF%)))}( K$"" Ϟ- (K$() ZQ) ZA: : (K$( )) (K$()) L9 L9: 2K$C$(FF%):FG%FF%:KU(RFF%)PC:@KU,K3$;K$;". ";K$(FF%);KJ$;K4$;,7L9: P ZC : K3$;K4$;();();o" ZS d,,|,,Xu,|:GET PASSWORD~ CHECK : Ɵ UP$(),UC$(),US$(),UD$()' I  : , (I) AS DUM$, AS UP$(I), AS UC$(I), AS US$(I), AS UD$(I), AS DUM$:2 ,-A I UI$UP$(I): :PASSWORDS$(I)UO$:CODES(I)(UC$(I)):ZZ$ZZ$UO$" "@(,*),"Password: ";ܠKX:KM:ZA:ZQ:ZI:KF:KA젚 KI   KI K$"": :PW$K$-: KF KF:  : ZI:@:MENU SCREENo 0:K$"MASTER MENU": ::@,();PM$STORE$: DC1 :R1 JZQ:R:C:K$()"Point of Sale Operation":K$()"Accounts Receivable":K$()"Invoice Register Management":K$()"Inventory Management Reports":K$()"Purchase Order System"עK$()"Part Entry and Editing":K$()"System Utilities":K$()"Inventory Management Utilities":K$()"Exit to MSI DOS":N: :MFF%:!@(,),();"Report Printer:";:@(,),"Invoice printer:";: FOOO(( ) ) :HT:KHvPR1$(PRI$,OOO,):PR2$(PRI$,OOO,)KM:ZA:ZQ:KF:KX:ZE KI KX& KI K$PR1$:KAP: :PR1$(K$" ",)$0 KI K$PR2$:KAP: :PR2$(K$" ",)?: KI: KF KF: SDZE: ZA lΤN(PRI$,OOO,(PR1$))PR1$:(PRI$,OOO,(PR2$))PR2$: KH VVV :(PRI$,(VVV) , )PR1$PR2$: VVVߤS HT lX ,+b(AA$, ,P)(PRI$,P):(BB$,,j)(PRI$,8,j): ,Bl@(,),();:@(,)," Aborts changes";:@(,)," Save parameters for ";TM$;@(,)," Set until next time in Master Menu";:@(,)," Save for all Workstations";8 M PRI : PRIOOO(( ) ) :PR$(PRI$,PRIOOO,): ("PR1 PR2 PR3 PR4 PR5 LOCAL",PR$) PR$"LOCAL""PRINTER "PR$" (FTYPE)"ܦNNN( ): NNN  PRI (NNN) V$"invoice" : V$""/ PRI (NNN) V$"white"B$ (V$) .@(,),"Insert "V$" paper into printer "PR$", then press .";ק8:IN$=INKEY$:IF IN$="" THEN RUN ELSE IF IN$<>CHR$(13) THEN 65080B PRI "PRINTER (FORMS=4)" : "PRINTER (FORMS=0)"L