ÿ=I:�ÛARMSTFIX.BAS, A/R MASTER FILE FIX, WAM, 02/06/79 REV. AR CP/M 2.0, 2/14/79oI’ ˆ :�ÛCOPYRIGHT 1978 RETAIL SCIENCES INC.|I® AóZ: Ì–IPN$ð"MASTER FILE FIX" I‰ ô¹IË"A:ARMSTFIX.BAS": �ÌI :�Û MONTH DATAþI „ -1,30,59,90,120,151,181,212,243,273,304,334 J:�Û FIELD POSITION IN MASTERJJ„ 6,24,24,24,10,1,4,4,4,2,2,4,4,2,4,4lJ:�Û FIELD POSITION IN EXTENT£J„ 6,2,2,8,13,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4½J1:�Û EXTENT NAME DATAK2„ "ACCOUNT ID","TRANS. DATE","DUE DATE","INVOICE NUM.","TERMS OR REF"JK3„ "CODE (0-9)","G/L FLAG","SALES","FREIGHT","TAXES","SER. CH."“K4„ "MISC. DB"," TOTAL DB","PAYMENTS","CREDITS","RETURNS","DISCOUNT"ÉK5„ "MISC. CR"," TOTAL CR"," TRANS. BALANCE"ÜKô�PÃ:�h¿:�@œêKD�0u:�è€LN‘:‘"THIS PROCESS MAY TAKE A FEW MINUTES.":‘2LX�”u :�ÛTRANS FILESMLb�y :�ÛCREATE NEW MSTfLl�} :�ÛOPEN OLD MSTqLq•¨‰X˜£LvJð:�4…:N%ð:Á#,:XT%ð(ÿ«(XT$)ó) :�ÛPASS 1¾L€‚IðN%ÎXT%:�Š:ƒI:‰zÔLŠ Á#:‹HM$ñï"M"ÏŽìL” KE$ðK1$:OPð:�`êÿLž ‹ER%ðϼM¨ ‹ER%ðÏKð:�Є:‰TÓ1M² Kð:�Є:Ž HM¼É BF$ðBU$:Â#,OS:ŽjMzJð:�4…:N%ð:Á#, :�ÛPASS 2…M„‚IðN%ÎXT%:�Ž:ƒI:‰è›MŽ Á#:‹HM$ñï"E"ÏŽÂM˜ KE$ðK1$:OPð:�`ê :�ÛREAD MASTERÝM¢ ‹ER%ñïÏKð:�Є:ŽN¬OSðOL: OPð : � `ê: ‹ ER%ð ÷ IV$ñX$ Ï ‰ ¬KN¶‹ ER%ð ÷ IV$ðX$ ÷ DT$ñZ$ Ï OSðOL: OPð : � `ê: ‰ ¶cNÀOLðOS: OPð : � `ê€NÊ‹ER%ðÏÉBF$ðBU$:Â#,OS:Ž’NÔKð:�Є:‰TÓ¤NèJð:�4…:�¤¯Nò•¨‰äÔÙNü‘:‘"INSERT PROGRAM DISC INTO DRIVE 0"çN�ÆÊ:‰€»ôN0u:�ÛSETUP(O:u‘:‘"INSERT A BLANK FORMATTED DISK INTO DRIVE 1"bODu‘:‘"INSERT THE DATA DISK TO BE REPAIRED INTO DRIVE 0"mONu‘:�ÆÊ€OXu‹ÕYESÏNu:¢Ì:Ž˜O“u:�ÛCOPY OTHER FILESP”uVV$()ð"A:ARSYS.DAT":VV$()ð"B:ARSYS.DAT":VV$()ð"A:ARDATE.DAT": VV$()ð"B:ARDATE.DAT":VV$()ð"A:ARGLT.DAT":VV$()ð"B:ARGLT.DAT"-PžuPP%ð:�vbP¨u‹Z1%Ï‘"TRANSFERRING SYSTEM FILE TO DRIVE 1":�4vwP²uPP%ð:Z1%ð:�v—P·u‹Z1%ÏPP%ð:Z1%ð:�v:¢‰ÆuÍP¼u‹Z1%Ï‘"TRANSFERRING AR DATE FILE TO DRIVE 1":�CvâPÆuPP%ð:Z1%ð:�vQÐu‹Z1%ÏPP%ð:Z1%ð:�v:¢‰äuv‚IðÎ:…#,A$:‘#,Q$;A$;Q$;:ƒI:Ã:އRCv¿"O",,"B:ARDATE.DAT":‘#,TD$:Ã:ŽÃRfv¿"R",,VV$(PP%):¿"R",,VV$(PP%ò):À#,€ASA$:À#,€ASB$ìRpv‚IðÎÿ±():Á#,I:ÉB$ðA$:Â#,I:ƒI:Ã:ŽÿRyFI$ð"ARCF.DAT" S"y•¨‰6yS,yÈ"B:"òFI$:‰@y1S6y‹×ð5Ï©@y:¢TÓ…‹ÕLPÏŽMVH…‹LCï<Ï�ø§dVR…ž:žH$(J):LCðLCò:ŽvVW˜:�ÛERROR TRAPˆVX˜‹×ð9Ï©ƒ:¢äÔ¨V?œ:�Û PROGRAM INITIALIZATIONÁV@œNR%ðÿ”(V$()): � 0òÖV|œF1$ð"#######.##"çV( †M$(),H$()+W2 M$()ð"* OUT OF ROOM ON DESTINATION DISK WHEN COPYING \ \ *"UW< M$()ð" TRY AGAIN WITH A BLANK DISK"›WF M$()ð"TWO CUSTOMER RECORDS FOUND FOR \ \, SECOND ONE IGNORED"ÜWP M$()ð"NO CUSTOMER RECORD FOUND FOR \ \, INVOICE DROPPED" XZ H$()ð"* PASS 1, COPY CUSTOMER RECORDS *"7Xd H$()ð"* PASS 2, COPY INVOICE RECORDS *"^Xn H$()ð"* FILE RECOVERY COMPLETE *"dX  Ž‚X¬£:�Û EJECT TO TOP OF PAGE¬X¤‹ LCñï Ï ‚ IIðLC Î B: ž" ": ƒ: LCð²X¤ŽÙX÷§:�Û PRINT HEADING ON TOP OF PAPERìXø§� ¤: ž: ž: žxY¨ž Ð(PWóÿ’(H1$))ý);H1$;Ðn);"PAGE ";PA: PAðPAò: ž Ð(PWóÿ’(H2$))ý);H2$:ž Ð(PWóÿ’(H3$))ý);H3$: ž Ð(PWóÿ’(HD$))ý);HD$:ž: ž: LCð : ŽŒYß«:�ÛLIST BAD MSTÉYà«P$ð"("òÿƒ(A$(),,)ò")"òÿƒ(A$(),,)ò"-"òÿƒ(A$(),,)!Zê«T$ðA$(): ‹ T$ð"R" Ï T$ð" REGULAR" :¢ ‹ T$ð"A" Ï T$ð"AUTO BILL" :¢ T$ð" BAL FWD"‰Zô«II$ðA$(): � "Ä: CB#ðDD#: II$ðA$(): � "Ä: BF#ðDD#: II$ðA$(): � "Ä: AB#ðDD#: TX!ðÿ«(A$())õèäZþ«NNðÿ«(A$( )): � 6Ä: DB$ðII$: II$ðA$( ): � "Ä: DB#ðDD#: II$ðA$( ): � "Ä: YS#ðDD#?[¬NNðÿ«(A$( )): � 6Ä: CR$ðII$: II$ðA$(): � "Ä: CR#ðDD#: II$ðA$(): � "Ä: YP#ðDD#S[¬‹ LCï5 Ï � ø§º[¬ ž A$();Ð8);"DATE LAST DB: ";DB$: ž Ð);"TYPE : ";T$;Ð8);"AMT LAST DB :";: ž Ù F1$;DB#Z\&¬ž A$();Ð);"CUR. BAL. :";: ž Ù F1$;CB#;: ž Ð8);"YTD SALES :";: ž Ù F1$;YS#: ž A$();Ð);"BAL. FWD. :";: ž Ù F1$;BF#;: ž Ð8);"DATE LAST CR: ";CR$ ]0¬ž A$();Ð);"AUTO. BILL:";: ž Ù F1$;AB#;: ž Ð8);"AMT LAST CR :";: ž Ù F1$;CR#: ž P$;Ð);"TAX RATE : ";: ž Ù "##.###%";TX!;: ž Ð8);"YTD PAYMENTS:";: ž Ù F1$;YP#: ž]:¬LCðLCò:Ž0]Ó­:�ÛLIST BAD EXTENTD]Ô­‹ LCï: Ï � ø§À]Þ­‚ Jð Î : IðJ: ž N$(I);Ð);: � ȯ: IðJò: ž Ð-);N$(I);ÐD);: � ȯ: IðJò : ž Ð`);N$(I);Ðw);: � ȯ: ž: ƒ Jô]è­Ið: ž Ð`);N$(I);Ðw);: � ȯ: ž: LCðLCò: Ž8^ȯž ": ";: ‹ Iïð Ï ‰ ܯ :¢ • Iò ‰ Ò¯,æ¯,æ¯,Ò¯,Ò¯,Ò¯,Ò¯H^Ò¯ž B$(I);: ޤ^ܯII$ðB$(I): � "Ä: D#ðDD#: ‹ D#ñ' Ï ž Ù F1$;ÿ�(D#);: Ž :¢ ž Ù F1$;D#;: Ž :�Û DOLLARÕ^æ¯NNðÿ«(B$(I)): � 6Ä: ž " ";II$;: Ž :�Û DATEô^¯³:�Û PAUSE TO SHOW MESSAGE6_°³‘: ‘ "PRESS THE 'RETURN' KEY TO CONTINUE ";: Q$ð"": � 8Ç: ŽO_»:�Û END THE PROGRAMb_€»OPð: � `ê: ‘¥_Š»‘ "PRESS THE 'RETURN' KEY TO RETURN TO THE SYSTEM MENU": Q$ð""ò_”»� 8Ç: ‹ RL%ñï Ï � :¢ ‘: ‘ "*** LOADING AR MENU...": Š "A:AR MENU.BAS" `g¿:�Û PRINT A HEADING|`h¿‘ SC$: ‘ Ð(Wóÿ’(H1$))ý);H1$: ‘ Ð(Wóÿ’(H2$))ý);H2$: ‘ Ð(Wóÿ’(H3$))ý);H3$: ‘ Ð(Wóÿ’(H4$))ý);H4$: ‘: ‘: Ž›`OÃ:�Û SYSTEM INITIALIZATIONÎ`PÕ ¨ ‰ HÕ: ¿ "I",,"A:ARDATE.DAT": … #,TD$: Ã8aZÆ V$(): ¿ "I",,"A:ARSYS.DAT": … #,V$(): ‹ V$()ñï"A" Ï Ã: ¿ "I",,V$()ò":ARSYS.DAT": … #,V$()Xan Ið Î : … #,V$(I): ƒ: ÔawÃSC$ð"":‚IðÎÿ’(V$())Ñ:SC$ðSC$òÿ–(ÿ”(ÿƒ(V$(),I,))):ƒ±axÃWðP: BELL$ðÿ–(): PWð„¿a‚Õ ¨ ‰ äÔúa´ÃH1$ðV$(): H2$ð"ACCOUNTS RECEIVABLE": H3$ðPN$: H4$ðTD$3bÄN#ð€€¨:Z9$ðÿ–()òÿ–():Z8$ðÿ–()òÿ–(¨): ‰ ,Ä[bÄII$ðÿƒ(ÿ´(N#òDD#ôH‡),,): މb"ÄDD#ð(ÿ­(Z9$òII$òZ8$)óÿ…(N#))ô×£p= ×#z: Ž«b,ĆMO( ):‚IðÎ :‡MO(I):ƒ:‰@Ä+c1ÄYRðÿ”(ÿ‚(II$,)): MOðÿ”(ÿ�(II$,)): DAðÿ”(ÿƒ(II$,)): NNðÿ…(YRô 6‰ò@€)òMO(MO)òDAóWG: ‹ (YR ü )ñï ÷ MOï Ï NNðNNó1c2ÄŽ�c6ÄT!ðNNòWG: YRðÿ…(T!õ 6‰): DAðÿ…(T!óYRô 6‰): MOð : ‹ (YR ü )ñï ÷ DAï: Ï DAðDAò¿c7Ä‹ DAñðMO(MO) Ï MOðMOó: ‰ 7Ä :¢ DAðDAóMO(MO)ûc8ÄII$ðÿ‚(ÿ“(MO),)ò"/"òÿ‚(ÿ“(DA),)ò"/"òÿ‚(ÿ“(YR),): Žd@ÄII$ðTD$: � 1Ä: TDðNN: Ž,d7Ç:�Û QUERY LINEXd8Ç‘Q$;:R$ð"":±…R$:RL$ðÿ�(R$,):RL%ðÿ’(R$)udtÇ‹ R$ñï"END" Ï Ž :¢ ‰ €»‹dÿÇ:�Û QUERY NUMBER”dÈ�8ǧd ÈN!ð:DPð:DGðÊdÈ‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰ÈÜdÈ‹ÿ’(R$)ð‰ZÈe(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))e2È‹CHï/÷CHñ:ÏDGð:‰PÈ=e<È‹CHð.ÏDPðDPò:‹DPïÏnÈ:¢PÈ\eFÈ‹(CHñï-÷CHñï+)øJJñïÏnÈnePȃJJ:‹DGðÏnÈ™eZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽ­edÈ‹ÕF1%Ï�¸Ó:‰ÈÊenÈ‹F1%ÏE9%ðó:Ž:¢�ðÒ:‰ÈÞeÇÈ:�Û QUERY DATEöeÈÈ�8Ç:‹RLðÏR$ðTD$:ŽfÜÈ‹ÿ’(R$)ñøÿ’(R$)ï‰úÈ=fÞÈMOðÚ(R$,"/"):‹MOð‰úÈ:¢‹MOðÏR$ð"0"òR$ZfàÈDAðÚ(,R$,"/"):‹DAð‰úÈ‹fâÈ‹DAðÏRL$ðÿ�(R$,):R$ð"0"òÿ‚(R$,):R$ðRL$òR$ÁfæÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))æfðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )ÏŽôfúÈ�Ô:‰ÈÈ g�É:�Û QUERY DOLLARg�É�8Ç!gšÉDPð:DGðDg¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤É~g¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸ÉœgÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)±gÇÉ‹ÿ’(R$)ðÏD#ð:ŽÕgÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))ðgÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉhàÉ‹CHð.ÏDPðDPò:‹DPïÏÊ:¢ôÉ3hêÉ‹(CHñï-)÷(CHñï+)øJJñïÏÊEhôɃJJ:‹DGðÏÊYhþÉD#ðÿ”(R$ò"D"):ŽvhÊ‹F1%ÏE9%ðó:Ž:¢�ðÒ:‰�ÉŒhWÊ:�Û QUERY YES/NO­hXÊYESð:�8Ç:‹RL$ð"Y"ÏYESðó:޽h_Ê‹ÿ’(R$)ðÏŽØhbÊ‹RL$ñï"N"Ï�ðÒ:‰XÊ:¢Žóh»Ê:�Û QUERY TOP-OF-PAGE&i¼Ê‘:‘"POSITION THE PAPER AT THE TOP OF A PAGE. "NiÆÊQ$ð"READY (Y/N)? ":�XÊ:‹ÿ’(R$)ðÏŽ_iÐÊ‹ÕYES‰ÆÊ:¢ŽwiïÒ:�Û ERROR MESSAGES°iðÒ‘ "*** INVALID ENTRY. PLEASE REENTER. ***";BELL$: ŽòiTÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$j^Ó• ¨ ‰ : �2j¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:ŽqjÔ‘"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:Ž¢jäÔ‘:‘" BASIC ERROR NUMBER ";×;" LINE NO. ";ÖßjîÔ‘" CONSULT BASIC MANUAL FOR EXPLANATION. ": Eð×: © tÖ'kHÕ‘ "*** IMPROPER SYSTEM FILE. RUN SYSTEM INITIALIZATIION ***": Eð1kRÕ© tÖDktÖ• ¨ ‰ : ¨ Eyk_ê:�Û12/18/78 Multi ARray ISam - MARIS (OP) ¾k`ꕨ‰ºê:•OP�Äê,(ë,Œë,ðë,Tì,¸ì,í, €í,äí,Hî,¬î,ï,tïËkjꕨ‰äÔ:Žíkºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔ7lÃê:�Û CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) clÄꕨ‰Îê:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$rlÎêER%ð×:©Øê�lØê•¨‰ºê:‹ER%ð:ÏER%ð:Žølâê¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$gmìêÉO0$ð"MARIS":ÉO1$ðÿ–(ÿ):ÉO2$ðDA$:ÉO3$ðÿ²(): ÉO4$ðÿ²():ÉO5$ðO4$:ÉO6$ðÿ²(KL%):ÉO7$ðOC$:ÉO8$ð"103078"möêÂFI%,:ÃFI%:ER%ð:ŽÝm'ë:�Û OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) n(땨‰2ë:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$n2ëER%ð×:©<ë4n<땨‰ºê:‹ER%ñï:ÏER%ð:Ž“nFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$¹nPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:ŽPoZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ë×odëOKðKL%ò:OTð€ýOKó:OJðOTò:ÁFI%,EX%:†OT$(OT):OBð: ‚OIðÎOT:ÀFI%,(OB)ASOT$,(OK)ASOT$(OI):OBðOBòOK:ƒ: ‚OIðÎNR%:‹OJïOTÏOJð:ÁFI%pnëOK$(OI)ðOT$(OJ):OJðOJò:ƒOI:¦OT$:‰‚ë›pxë‘:‘"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": ‘BE$:NR%ð:ÁFI%,:‹EX%ñÏ‚ë:¢‚OPðÎEX%:ÁFI%: ‹OM$ð"M"ÏNR%ðNR%ò:OK$(NR%)ðOK$òÿ²(OP)ÔpyëƒOP:‹NR%ñÏ‚ë:¢†OH():OH()ð:OH()ð:OH()ð :OTð qzë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zëFq{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)~q|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ë�q}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OHÆq‚ëÁFI%,:ÉO1$ðÿ–():ÂFI%,:ODðDI%:‰¸ìñq‹ë:�Û CLOSE MARIS FILE (RETURNS: ER%) rŒë•¨‰Žë:ÁFI%,:ER%ð:‰�ërŽëER%ð:©�ë1r�땨‰ºê:‹ER%ðÏŽUr”ë‹NR%ðϪë:¢OKðKL%ò:OTð€ýOKóÞr–ëOJð:ÁFI%,EX%:†OT$(OT):OBð: ‚OIðÎOT:ÀFI%,(OB)ASOT$,(OK)ASOT$(OI):OBðOBòOK:ƒ: ‚OIðÎNR%:ÉOT$(OJ)ðOK$(OI):OJðOJò:‹OJïOTÏÂFI%:OJð÷r ëƒOI:¦OT$:‹OJñïÏÂFI%SsªëÁFI%,:ÉO1$ðÿ–(ÿ):ÉO3$ðÿ²(EX%):ÉO4$ðÿ²(NR%): ÉO5$ðÿ²(OA):ÉO7$ðOC$:ÂFI%,:ÃFI%:ER%ð:Žˆsïë:�Û CREATE RECORD (KE$, RETURNS: OI, OS, ER%)  sðë�í:‹ER%ðÏŽ:¢�”òÐsúë‹NR%ïðOBÏ‚OJðNR%ÎOBÑó:¥OK$(OJò),OK$(OJ):ƒ3tìNR%ðNR%ò:OIðOB:OK$(OI)ðKE$òÿ²(OS):ÉOK$ðKE$:ÉOM$ð"M": ÉOE$ðÿ²(OS):ÉOL$ðÿ²(OS):ÂFI%,OS:ER%ð:ŽmtSì:�Û DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) ÀtTì�í:‹ER%ðÏŽ:¢�øò:NR%ðNR%ó:OTðOS: ‹OIñðNR%Ï‚OJðOIÎNR%:¥OK$(OJ),OK$(OJò):ƒÜt^ìOSðOL:‹OSñïOTÏ�øò:‰^ì$uhì‹OIïNR%ÏER%ð:Ž:¢OSðÿ«(ÿ‚(OK$(OI),)): KE$ðÿ�(OK$(OI),KL%):ER%ð:ŽIu·ì:�Û REWIND (RETURNS: OI, ER%) ju¸ìOIð:‹NR%ðÏER%ð:Ž:¢ER%ð:Ž˜uí:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) ÑuíOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%)v&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:Ž8v0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&íYv:íOSðÿ«(ÿ‚(OK$(OI),)):ER%ð:Ž“ví:�Û GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) Îv€í�í:‹ER%ðÏŽ :¢ÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž wãí:�Û GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) pwäí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:޳wGî:�Û GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) xHî‹OIñðÏER%ð:Ž:¢OIðOIó:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:ŽOx«î:�Û CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) Íx¬î�”ò:ÁFI%,OE:ÉOL$ðÿ²(OS):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OS):ÂFI%,OL:ÁFI%,OS:ÉOE$ðÿ²(OE): ÉOL$ðÿ²(OL):ÉOM$ð"E":ÂFI%,OS:ER%ð:Žyï:�Û DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) ,yïÁFI%,OS:‹OM$ñï"E"ÏER%ð:Ž:¢�øòryïÁFI%,OE:ÉOL$ðÿ²(OL):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OE):ÂFI%,OL:ER%ð:Žªysï:�Û GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) âytïÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:‹OM$ñï"E"ÏER%ðèy~ïŽÿy/ò:�Û SETUP (NR%) z0ò®O:†OK$(NR%):Ž:z“ò:�Û GET NEW SECTOR (RETURNS: OS) pz”ò‹OAñïÏÁFI%,OA:OSðOA:OAðÿ«(OL$):¢EX%ðEX%ò:OSðEX%£zžòÁFI%,:ÉO3$ðÿ²(EX%):ÉO5$ðÿ²(OA):ÂFI%,:ER%ð:ŽÙz÷ò:�Û FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) %{øòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉOM$ð"F":ÉOL$ðÿ²(OA):OAðOS: ÂFI%,OS:‰žò�Û FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) -{øòÁFI%ðÿ:ŽB|“ò:�Û GET NEW SECTOR (RETURNS: OS) x|”ò‹OAñïÏÁFI%,OA:OSðOA:OAðÿ«(OL$):¢EX%ðEX%ò:OSðEX%«|žòÁFI%,:ÉO3$ðÿ²(EX%):ÉO5$ðÿ²