YZÆ V$(): "I",,"A:ARSYS.DAT": #,V$(): V$()"A" : "I",,V$()":ARSYS.DAT": #,V$()lYn I : #,V$(I): : : SC$(, )YwSC$"":I(V$()):SC$SC$(((V$(),I,))):YxWP: BELL$(): PW: LCYÕ ZH1$V$(): H2$"ACCOUNTS RECEIVABLE": H3$PN$: H4$TD$MZN#:Z9$()():Z8$()(): ,uZII$((N#DD#H),,): Z"DD#((Z9$II$Z8$)(N#))ףp= #z: Z,ĆMO( ):I :MO(I)::@E[1YR((II$,)): MO((II$,)): DA((II$,)): NN(YR6@)MO(MO)DAWG: (YR ) MO NNNNK[2Ď[6T!NNWG: YR(T!6): DA(T!YR6): MO : (YR ) DA: DADA[7ċ DAMO(MO) MOMO: 7 : DADAMO(MO)\8II$((MO),)"/"((DA),)"/"((YR),): 2\@II$TD$: 1: TDNN: F\7: QUERY LINEl\8ǑQ$;:R$:RL$(R$,):RL%(R$)\tNj R$"END" : \: QUERY NUMBER\ȍ8\ N!:DP:DG\ȋ(R$,)" "R$(R$,):\ȋ(R$)Z](ȂJJ(R$):CH((R$,JJ,))/]2ȋCH/CH:DG:PQ]<ȋCH.DPDP:DPn:Pp]Fȋ(CH-CH+)JJn]PȃJJ:DGn]ZN!(R$):(N!LB!N!UB!)LB!UB!ώ]dȋF1%ύ:]nȋF1%E9%:::]: QUERY DATE ^ȍ8:RLR$TD$:%^ȋ(R$)(R$)Q^MO(R$,"/"):MO:MOR$"0"R$n^DA(,R$,"/"):DA^ȋDARL$(R$,):R$"0"(R$,):R$RL$R$^MO((R$,)):DA((R$,,)):YR((R$,))^ȋ(MO)(MO )(DA)(DA )ώ_ȍ:_: QUERY DOLLAR'_ɍ85_DP:DGX_ɋ(R$,)" "R$(R$,):_JJ(R$,","):JJR$(R$,,JJ)(R$,JJ):_ɋ(R$,)"$"R$(R$,)_ɋ(R$)D#:_ɂJJ(R$):CH((R$,JJ,))`ɋCH/CH:DG:&`ɋCH.DPDP:DP:G`ɋ(CH-)(CH+)JJY`ɃJJ:DGm`D#(R$"D"):`ʋF1%E9%:::`W: QUERY YES/NO`XQ$Q$" (Y OR N)? "`]YES:8:RL$"Y"YES:`_ʋ(R$)ώabʋRL$"N"ύ:]:a: QUERY TOP-OF-PAGERaʑ:"PLEASE SET THE PAPER AT THE TOP OF A FORM"aQ$"PRESS 'RETURN' WHEN READY": 8: a: ERROR MESSAGESaґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:bTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$b^ӕ:Lbӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:bԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:bԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";bԑ" CONSULT BASIC MANUAL FOR EXPLANATION. ": E: tAcHՑ "*** IMPROPER SYSTEM FILE. RUN SYSTEM INITIALIZATIION ***": EKcRթ t`ct֕ : c_:12/18/78 Multi ARray ISam - MARIS (OP) c`ꕨ:OP,(,,,T,,, ,,H,,,tcjꕨ: d=ER%:j::Sd: CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) dꕨ:NA$(DI%A)":"NA$:NA$ASNA$dER%:dꕨ:ER%:ER%:e"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$eO0$"MARIS":O1$():O2$DA$:O3$(): O4$():O5$O4$:O6$(KL%):O7$OC$:O8$"103078"eFI%,:FI%:ER%:e': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) %f(땨2:NA$(DI%A)":"NA$:NA$ASNA$4f2ER%:<Pf<땨:ER%:ER%:fF"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$fPFI%,:O0$"MARIS"FI%:ER%:lgZDA$O2$:EX%(O3$):NR%(O4$):OA(O5$):KL%(O6$):OC$O7$: FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$()x:NR%gdOKKL%:OTOK:OJOT:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OJOTOJ:FI%hnOK$(OI)OT$(OJ):OJOJ:OI:OT$:hx:"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": BE$:NR%:FI%,:EX%:OPEX%:FI%: OM$"M"NR%NR%:OK$(NR%)OK$(OP)hyOP:NR%:OH():OH():OH():OH() :OT%izOH(OT)NR%OTOT:OH(OT)OH(OT):zbi{OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)i|OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI|i}OK$(OIOH),OT$:OJ,OK:OHiFI%,:O1$():FI%,:ODDI%: j: CLOSE MARIS FILE (RETURNS: ER%) *j땨:FI%,:ER%:9jER%:Mj땨:ER%ώqjNR%:OKKL%:OTOKjOJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJkOI:OT$:OJFI%okFI%,:O1$():O3$(EX%):O4$(NR%): O5$(OA):O7$OC$:FI%,:FI%:ER%:k: CREATE RECORD (KE$, RETURNS: OI, OS, ER%) k:ER%ώ:kNR%OBςOJNR%OB:OK$(OJ),OK$(OJ):OlNR%NR%:OIOB:OK$(OI)KE$(OS):OK$KE$:OM$"M": OE$(OS):OL$(OS):FI%,OS:ER%:lS: DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) lT:ER%ώ::NR%NR%:OTOS: OINR%ςOJOINR%:OK$(OJ),OK$(OJ):l^OSOL:OSOTύ:^@mhOINR%ER%::OS((OK$(OI),)): KE$(OK$(OI),KL%):ER%:em: REWIND (RETURNS: OI, ER%) mOI:NR%ER%::ER%:m: SEARCH (KE$, RETURNS: OI, OS, ER%) mOTNR%:OB:(KE$)KL%KE$(KE$(KL%," "),KL%)#n&OBOTOI(OTOB):OT$(OK$(OI),KL%):ER%:Tn0OT$KE$OTOI:&:OT$KE$OBOI:&un:OS((OK$(OI),)):ER%:n: GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) n:ER%ώ :FI%,OS:OE(OE$):OL(OL$):ER%:)o: GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) oOINR%ER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:oG: GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) 0pHOIER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:kp: CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) p:FI%,OE:OL$(OS):FI%,OE: FI%,OL:OE$(OS):FI%,OL:FI%,OS:OE$(OE): OL$(OL):OM$"E":FI%,OS:ER%:$q: DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) HqFI%,OS:OM$"E"ER%::qFI%,OE:OL$(OL):FI%,OE: FI%,OL:OE$(OE):FI%,OL:ER%:qs: GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) qtFI%,OS:OE(OE$):OL(OL$):ER%:OM$"E"ER%r~r/: SETUP (NR%) .r0O:OK$(NR%):Vr: GET NEW SECTOR (RETURNS: OS) rOAFI%,OA:OSOA:OA(OL$):EX%EX%:OSEX%rFI%,:O3$(EX%):O5$(OA):FI%,:ER%:r: FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) AsFI%,OS:OE(OE$):OL(OL$):OM$"F":OL$(OA):OAOS: FI%,OS: FREE OLD SECTOR (OS, RETURNS: OEL,%) AsFI%,OS:OE(OE$):OL(OL$):OM$"F":OL$(OA):OAOS: FI%,OS: FREE OLD SECTOR (OS, RETURNS: OE