ÿòI:�ÛGLTB.BAS, G/L TRIAL BALANCE (DETAIL REPORT), RDR, 6/30/78 REV. CP/M 2.4, 7/27/79&J:�Û COPYRIGHT 1978 RETAIL SCIENCES, INC.0J’ X>J• ¨ ‰ äÔVJPN$ð"TRIAL BALANCE"`J� PÃxJôFM$ð"#,###,###.##-"¨JþNR%ðÿ”(V$( )): � 0ò: � °³ :�ÛINIT, OPENéJ‘:Q$ð"WHAT DATE IS TO BE PRINTED ON THE REPORT (MM/DD/YY)? "K0� ÈÈ :�ÛGET & SAVE DATE*K:‹ÿ’(R$)ðÏ‘"USING ";VD$:¢VD$ðR$DKXPF%ðó :�ÛPRINT FLAG^Kl� ¼Ê :�ÛTOP-OF-FORMtK¼� 0u :�ÛHEADERS³KÐ�  N :�ÛREAD AND PROCESS MASTER RECORDS UNTIL TYPE 2 HITÓKä� ½ :�ÛREAD TRANS EXTENTLø‹ ER%ð ‰ è :�ÛNO MORE FOR THIS MASTER)L ž Ð/);J2$;ÐI);ÿ�(J5$,);ÐQ);J4$;9L4ž ÐU);J3$;QLHž Ð`);:ž Ù FM$;J6#uL\LCðLCò: ‹ LCï< Ï � ùÿ: � 0užLp‹ J6#ñ Ï CC#ðCC#òJ6# :¢ CD#ðCD#òJ6#²L„T#()ðT#()òJ6#¾L˜JCðJCòÈL¬‰ äêLèž Ð`);:ž Ù FM$;T#();:ž" *";Müž Ðo);:ž Ù FM$;T#()òMA#();:ž" *"MLCðLCò8M‹ JCð Ï ‰ $:¢ JCð>M$žbM8LCðLCò: ‹ LCï< Ï � ùÿ: � 0upML‚ Ið Î †M`T#(I)ðT#(I)òT#()ŽMtƒ IÊMˆMA#()ðT#(): � `¸ :�ÛREWRITE MASTER WITH NEW CURRENTðMœT#()ð :�ÛRESET CURRENT TO ZERON°‰ Ð :�ÛGO AROUND AGAINN¼M• ¨ ‰ DNÁM‹ FO% Ï OPð: � `ê :�ÛCLOSE MARIS]NÆMà :�ÛANYTHING ELSEoNÈM‹ Õ PF% Ï NNÉM‹LCï6Ï�ùÿ�NËMž:ž" *** TOTALS :";Ð%);ËNÍMž"BEGINNING";Ð6);"CURRENT";ÐE);"ENDING"ãNÐMà :�ÛANYTHING ELSEýNÑMž Ð);"DEBITS";Ð#);OÓMž Ù FM$;BD#;:ž Ð2);/OÕMž Ù FM$;CD#;:ž ÐA);CO×Mž Ù FM$;BD#òCD#^OÙMž Ð);"CREDITS";Ð#);wOÛMž Ù FM$;BC#;:ž Ð2);�OÝMž Ù FM$;CC#;:ž ÐA);¤OßMž Ù FM$;BC#òCC#ÊOáMž:ž" *** OUT OF BALANCE :";Ð#);çOãMž Ù FM$;BD#òBC#;:ž Ð2);PåMž Ù FM$;CD#òCC#;:ž ÐA); PçMž Ù FM$;BD#òBC#òCD#òCC#3PéMLCðLCò: � ùÿHPN‘:‘"END OF "òPN$ˆPN‘:Q$ð"PUSH THE 'RETURN' KEY TO RETURN TO THE MAIN GL MENU "£PN� 8Ç: ‹ ÿ’(R$)ñï Ï �µPNŠ "A:GL MENU"ÏP N� ð¹ :�ÛREAD MASTERëP4N‹ ER%ð Ï ‰ ¼M :�ÛEOFQ9NM3ðÿ”(M3$) :�ÛTYPE CODE:QHN‹ ÿƒ(M1$,,)ð"00" Ï MM$ðÿ�(M1$,) :¢ MM$ðM1$NQ\N‹ M3ñï Ï ‰ ¬NhQpNž:žÐ); MM$;Ð);M2$:žŒQ„NLCðLCò: ‹ LCï< Ï � ùÿ: � 0u–Q˜N‰  N¨Q¬N‹ M3ñï ‰ `O¿QÀNž Ð);MM$;Ð);M2$;ÚQÔNž Ð");:ž Ù FM$;MA#()þQèNLCðLCò: ‹ LCï< Ï � ùÿ: � 0u0RüN‹ MA#()ñ Ï BC#ðBC#òMA#() :¢ BD#ðBD#òMA#()YRO‚ Ið Î  : TY#(I)ðTY#(I)òMA#() : ƒ_R$OŽvR`Ož Ð);MM$;Ð);M2$;šRtOž Ð`);:ž Ù FM$;T#(M3);:ž" **";ÅRˆOž Ðo);:ž Ù FM$;T#(M3)òTY#(M3);:ž" **"ËRœOžïR°OLCðLCò: ‹ LCï< Ï � ùÿ: � 0uSÄO‚ IðM3 Î  Ñ óSØOT#(I)ðSìOTY#(I)ð$SPƒ I.SP‰  NjS0uWð„: ž Ð(Wóÿ’(VC$))õ);VC$;:PGðPGò:ž Ðn);"PAGE ";PG„S:už Ð(Wóÿ’(VS$))õ);VS$žSDuž Ð(Wóÿ’(PN$))õ);PN$¸SNuž Ð(Wóÿ’(VD$))õ);VD$¾SXuž@Tbuž" ------------ACCOUNT------------ -BEGINNING- --------------------------TRANSACTION----------------------- ---ENDING---"ÀTluž" NUMBER DESCRIPTION BALANCE DESCRIPTION DATE SRC REFERENCE AMOUNT BALANCE"BUvuž" ------ ----------------------- ----------- ------------------------ ----- --- --------- ----------- ------------"HU”užWU¨uLCðLCò: Ž„U@œ¿ "I",,MD$ò":GLSRC.DAT": † S$(), A!()¾UJœ‚ Ið Î : … #,I$: A!(I)ðÿ”(I$): ƒ I :�ÛACCOUNT #'SõUTœ‚ Ið Î : … #,S$(I): ƒ I :�ÛSOURCE DESCRIPTIONS'VYœ… #,MM$: FM%ðÿ”(MM$) :�ÛFISCAL MONTH START/V^œÃ 5VhœŽAV°³:�ÛOPENpVº³FI%ð:NA$ð"GLMST.DAT":DI%ðDK%():OPð:�`ê‚Vij‹ ER%ï ‰ TÓ§Vγ† F1$(),MA#() :�ÛCOA FIELDSèVسÀ #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()WⳂ Ið Î : À #, òIô AS T$, ASF1$(Iò): ƒ7W쳆 F2$() :�ÛJE FIELDSqWö³À #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()˜W´À #, 'AST$, ASF2$(), ASF2$()¶W ´FO%ðó :�ÛFILE OPEN FLAG¼W´ŽÉWx´:�ÛCLOSEâW‚´‹ Õ FO% Ï Ž :¢ FO%ðXŒ´OPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ ŽX@µ:�ÛREWIND:XJµOPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ ŽSX˜·:�ÛCREATE NEW RECORD|X¢·KE$ðM1$: OPð: � `ê: ‹ ER%ñï ‰ TÓ·Xü·É F1$()ðM1$: É F1$()ðM2$: É F1$()ðM3$: É F1$()ðM4$ñX¸É F1$()ðM5$:‚IðÎ:DD#ðMA#(I):� ñÃ:ÉF1$(Iò)ðII$:ƒY¸Â FI%,OS: ŽY`¸:�ÛUPDATE CURRENT RECORD4Yj¸� (¹ :�ÛSEARCHPYt¸‹ ER%ñï ‰ TÓ :¢ ‰ ü·eYĸ:�ÛDELETE RECORD’YθKE$ðM1$: OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ Ž«Y(¹:�ÛSEARCH FOR RECORDÇY2¹KE$ðM1$: OPð: � `ê: ŽÙYŒ¹:�ÛGET RECORDòY–¹KE$ðM1$: OPð: � `êZ ¹‹ ER%ð Ï Ž :¢ ‹ ER%ñï ‰ TÓSZª¹M1$ðF1$(): M2$ðF1$(): M3$ðF1$(): M4$ðF1$(): M5$ðF1$()zZ¯¹M1ðÿ”(M1$): M3ðÿ”(M3$): M5ðÿ”(M5$)«Z´¹‚ Ið Î :II$ðF1$(Iò):� õÃ:MA#(I)ðDD#:ƒ:ŽÂZð¹:�ÛGET NEXT RECORDêZú¹OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ ‰ ª¹[€»:�ÛCREATE NEW EXTENT+[Š»OLðOS: OPð : � `ê: ‹ ER%ñï ‰ TÓf[”»É F2$()ðJ1$: É F2$()ðJ2$: É F2$()ðJ3$: É F2$()ðJ4$œ[ž»É F2$()ðÿ³(ÓSD!(J5$)):DD#ðJ6#:� ñÃ:É F2$()ðII$­[¨»Â FI%,OS: ŽÊ[H¼:�ÛUPDATE CURRENT EXTENTÔ[R¼‰ ”»é[¬¼:�ÛDELETE EXTENT\¶¼OPð : � `ê: ‹ ER%ï ‰ TÓ :¢ Ž&\½:�ÛGET NEXT EXTENTM\½OSðOL: OPð : � `ê: ‹ ER%ï ‰ TÓ€\$½J1$ðF2$(): J2$ðF2$(): J3$ðF2$(): J4$ðF2$()´\.½J5$ðÓDS$(ÿ¬(F2$())):II$ðF2$():� õÃ:J6#ðDD#:ŽÜ\PÕ ¨ ‰ ÈÃ: BELL$ðÿ–()òÿ–()òÿ–()þ\Zÿ "I",,"A:GLSYS.DAT":… #,N$7]dÆ V$(ÿ”(N$)):V$()ðN$:‚ Ið Î ÿ”(N$):…#,V$(I):ƒ I:Ã\]nÃMD$ðV$( ):SC$ðV$():Wðÿ”(V$())…]‚Ë MD$ñï"A" ÷ MD$ñï"B" Ï � zÕ: ‰ ¼M™]ŒÃ‹ MD$ð"A" ‰ ¾Ã§]–ÃDðN1:¦ V$Ì]ªÃ¿ "I",,MD$ò":GLSYS.DAT":… #,N$^¯Ã† V$(ÿ”(N$)):V$()ðN$:‚IðÎÿ”(N$):… #,V$(I):ƒ I:Ã-^´ÃMD$ðV$( ): ‹ MD$ñï"B" Ï � HÕ: ‰ ¼MB^¾Ã• ¨ ‰ äÔ: ‰ ðÃc^ÈË ×ð5 ø ×ð8 Ï � HÕ: ‰ ¼MŠ^ÒË ×ð6 ø ×ð> ø ×ðA Ï � zÕ:‰ ¼M”^æÃ‰ äÔÌ^ðÃN#ð€€¨:X9$ðÿ–()òÿ–():X8$ðÿ–()òÿ–(¨):‰ úÃó^ñÃII$ðÿƒ(ÿ´(N#òDD#ôH‡),,):Ž _õÃDD#ð(ÿ­(X9$òII$òX8$)óÿ…(N#))ô×£p= ×#z:ŽO_úØÓSD!(S$)ðÿ”(ÿ‚(S$,)òÿ�(S$,)òÿƒ(S$,,))�_ÿØÓDS$(D!)ðÿƒ(ÿ“(D!),,)ò"/"òÿƒ(ÿ“(D!),)ò"/"òÿƒ(ÿ“(D!),,)¿_Ä¿ "I",,"A:GLDA.DAT":… #,VD$:à  :�ÛDATEò_ÄVS$ðV$(): VC$ðV$() :�ÛSYSTEM, COMPANY NAME#`Ä‚ Ið Î ÿ”(V$()): DK%(I)ðÿ”(V$(òôI)): ƒK`Ä‘ SC$:� ÔÆ:‘:‘ :�ÛDISPLAY HEADERS{`"Ä‘:‘"ONE MOMENT FOR PROGRAM STARTUP....":‘:Ž©`ÔÆ‘Ð(Wóÿ’(VC$))õ);VC$:‘Ð(Wóÿ’(VS$))õ);VS$Â`ÞÆ‘Ð(Wóÿ’(PN$))õ);PN$Û`èÆ‘Ð(Wóÿ’(VD$))õ);VD$á`.ÇŽò`8Ç‘ Q$;:± … R$atÇRL$ðÿ�(R$,)ayÇ‹ R$ð"END" Ï ‰ ¼M :¢ ŽAaÈ�8Ç:N!ð:‹R$ðE$ÏŽ:¢DPð:DGðdaÈ‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰ÈvaÈ‹ÿ’(R$)ð‰ZÈša(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))µa2È‹CHï/÷CHñ:ÏDGð:‰PÈÞa<È‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰È:¢‰PÈbFÈ‹(CHñï-÷CHñï+)øJJñïÏ�ðÒ:‰ÈbPȃJJ:‹DGðÏ�ðÒ:‰ÈFbZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽTbdÈ�¸Ó:‰È€bÈÈ� 8Ç: ‹ ÿ’(R$)ð Ï MOð: DAð: YRð: ŽŸbÜÈ‹ÿ’(R$)ñ ø ÿ’(R$)ï ‰ úÈóbÞÈMOðÚ(R$,"/"):‹ MOð ‰ úÈ :¢ ‹ MOð Ï R$ð"0"òR$càÈDAðÚ(,R$,"/"):‹ DAð ‰ úÈHcâÈ‹ DAð Ï RL$ðÿ�(R$,): R$ð"0"òÿ‚(R$,):R$ðRL$òR$~cæÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))²cðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )÷(YRï)÷(YRñc)ÏŽÀcúÈ�Ô:‰ÈÈÓc�É�8Ç:DPð:DGðöc¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤É0d¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸ÉNdÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)cdÇÉ‹ÿ’(R$)ðÏD#ð:އdÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))¢dÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉËdàÉ‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰�É:¢‰ôÉòdêÉ‹(CHñï-)÷(CHñï+)øJJñïÏ�ðÒ:‰�É eôɃJJ:‹DGðÏ�ðÒ:‰�ÉeþÉD#ðÿ”(R$ò"D"):Ž6eXÊQ$ðQ$ò" (Y OR N)? "We]ÊYESð:�8Ç:‹RL$ð"Y"ÏYESðó:Žje_Ê‹ ÿ’(R$)ð Ï Ž‡ebÊ‹RL$ñï"N"Ï�ðÒ:‰]Ê :¢ Žºe¼Ê‘:‘"POSITION THE PAPER AT THE TOP OF A PAGE. "ßeÆÊQ$ð"READY":� XÊ: ‹ ÿ’(R$)ð Ï ŽöeÐÊ‹ Õ YES ‰ ÆÊ :¢ Ž-fðÒ‘"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Ž:f"Ó‹ER%ðÏŽ|fTÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$†f^Ó‰ ¼Mµf¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:ŽôfÔ‘"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:Ž%gäÔ‘:‘" BASIC ERROR NUMBER ";×;" LINE NO. ";ÖVgîÔ‘" CONSULT BASIC MANUAL FOR EXPLANATION. "vgøÔ‘:‘"ABNORMAL END OF JOB ":‘“gÕ‚IðÎ�:‘BELL$;:ƒ:© ¼MÕgHÕ‘:‘ "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":ŽhzÕ‘:‘ "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":ŽSh_ê:�Û10/30/78 Multi ARray ISam - MARIS (OP) ˜h`ꕨ‰ºê:•OP�Äê,(ë,Œë,ðë,Tì,¸ì,í, €í,äí,Hî,¬î,ï,tï¥hjꕨ‰äÔ:ŽÇhºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔiÃê:�Û CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) =iÄꕨ‰Îê:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$LiÎêER%ð×:©ØêgiØê•¨‰ºê:‹ER%ð:ÏER%ð:ŽÒiâê¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$AjìêÉO0$ð"MARIS":ÉO1$ðÿ–(ÿ):ÉO2$ðDA$:ÉO3$ðÿ²(): ÉO4$ðÿ²():ÉO5$ðO4$:ÉO6$ðÿ²(KL%):ÉO7$ðOC$:ÉO8$ð"103078"YjöêÂFI%,:ÃFI%:ER%ð:Ž·j'ë:�Û OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) ãj(땨‰2ë:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$òj2ëER%ð×:©<ëk<땨‰ºê:‹ER%ñï:ÏER%ð:ŽmkFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$“kPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:Ž*lZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ë±ldë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%ÛlnëOK$(OI)ðOT$(OJ):OJðOJò:ƒOI:¦OT$:‰‚ëumxë‘:‘"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": ‘BE$:NR%ð:ÁFI%,:‹EX%ñÏ‚ë:¢‚OPðÎEX%:ÁFI%: ‹OM$ð"M"ÏNR%ðNR%ò:OK$(NR%)ðOK$òÿ²(OP)®myëƒOP:‹NR%ñÏ‚ë:¢†OH():OH()ð:OH()ð:OH()ð :OTðãmzë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zë n{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)Xn|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ëwn}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OH n‚ëÁFI%,:ÉO1$ðÿ–():ÂFI%,:ODðDI%:‰¸ìËn‹ë:�Û CLOSE MARIS FILE (RETURNS: ER%) ènŒë•¨‰Žë:ÁFI%,:ER%ð:‰�ë÷nŽëER%ð:©�ë o�땨‰ºê:‹ER%ðÏŽ/o”ë‹NR%ðϪë:¢OKðKL%ò:OTð€ýOKó¸o–ë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ðÑo ëƒOI:¦OT$:‹OJñïÏÂFI%-pªëÁFI%,:ÉO1$ðÿ–(ÿ):ÉO3$ðÿ²(EX%):ÉO4$ðÿ²(NR%): ÉO5$ðÿ²(OA):ÉO7$ðOC$:ÂFI%,:ÃFI%:ER%ð:Žbpïë:�Û CREATE RECORD (KE$, RETURNS: OI, OS, ER%) zpðë�í:‹ER%ðÏŽ:¢�”òªpúë‹NR%ïðOBÏ‚OJðNR%ÎOBÑó:¥OK$(OJò),OK$(OJ):ƒ qìNR%ðNR%ò:OIðOB:OK$(OI)ðKE$òÿ²(OS):ÉOK$ðKE$:ÉOM$ð"M": ÉOE$ðÿ²(OS):ÉOL$ðÿ²(OS):ÂFI%,OS:ER%ð:ŽGqSì:�Û DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) šqTì�í:‹ER%ðÏŽ:¢�øò:NR%ðNR%ó:OTðOS: ‹OIñðNR%Ï‚OJðOIÎNR%:¥OK$(OJ),OK$(OJò):ƒ¶q^ìOSðOL:‹OSñïOTÏ�øò:‰^ìþqhì‹OIïNR%ÏER%ð:Ž:¢OSðÿ«(ÿ‚(OK$(OI),)): KE$ðÿ�(OK$(OI),KL%):ER%ð:Ž#r·ì:�Û REWIND (RETURNS: OI, ER%) Dr¸ìOIð:‹NR%ðÏER%ð:Ž:¢ER%ð:Žrrí:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) «ríOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%)ár&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:Žs0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&í3s:íOSðÿ«(ÿ‚(OK$(OI),)):ER%ð:Žmsí:�Û GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) ¨s€í�í:‹ER%ðÏŽ :¢ÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Žçsãí:�Û GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) Jtäí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž�tGî:�Û GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) îtHî‹OIñðÏER%ð:Ž:¢OIðOIó:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž)u«î:�Û CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) §u¬î�”ò:ÁFI%,OE:ÉOL$ðÿ²(OS):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OS):ÂFI%,OL:ÁFI%,OS:ÉOE$ðÿ²(OE): ÉOL$ðÿ²(OL):ÉOM$ð"E":ÂFI%,OS:ER%ð:Žâuï:�Û DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) vïÁFI%,OS:‹OM$ñï"E"ÏER%ð:Ž:¢�øòLvïÁFI%,OE:ÉOL$ðÿ²(OL):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OE):ÂFI%,OL:ER%ð:Ž„vsï:�Û GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) ½vtïÁFI%,OS:‹OM$ñï"E"ÏER%ð:¢OEðÿ«(OE$):OLðÿ«(OL$):ER%ðÃv~ïŽÚv/ò:�Û SETUP (NR%) ív0ò®O:†OK$(NR%):Žw“ò:�Û GET NEW SECTOR (RETURNS: OS) Kw”ò‹OAñïÏÁFI%,OA:OSðOA:OAðÿ«(OL$):¢EX%ðEX%ò:OSðEX%~wžòÁFI%,:ÉO3$ðÿ²(EX%):ÉO5$ðÿ²(OA):ÂFI%,:ER%ð:Ž´w÷ò:�Û FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) xøòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉOM$ð"F":ÉOL$ðÿ²(OA):OAðOS: ÂFI%,OS:‰žò#xùÿ‚ IIðLC Î A: ž: ƒ II: LCð: ŽOE, OL, ER%) xøòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉOM$ð"F":ÉOL$ðÿ²(OA):OAðOS: ÂFI%,OS:‰žò#xùÿ‚ IIðLC Î A: ž: ƒ