ÿäI:�ÛGLML.BAS, G/L MASTER FILE LIST, RDR, 6/12/78 REV. CP/M 2.2, 7/27/79J’ X :�ÛCOPYRIGHT 1978 RETAIL SCIENCES, INC.&J• ¨ ‰ äÔAJPN$ð"MASTER FILE LIST"KJ� PÃbJôPU$ð"#,###,###.##"JèNR%ðÿ”(V$( )):�0ò:�°³©JБ:‘:‘"*** G/L MASTER FILE LIST ***":‘óJÚ‘"YOU MAY SELECT - 1 - TO LIST ALL INFORMATION WITHIN THE RECORDS"� ¼Ê :�ÛTOP-OF-FORMLC� @µ'LH� 0u: � Su :�ÛHEADER LINES@LR� ð¹ :�ÛGET RECORDRL\‹ ER%ð ‰ ¼MyLf‹ ÿƒ(M1$,,)ð"00" Ï M1$ðÿ�(M1$,)¬Lpž Ð);M1$;Ð );M2$;Ð');M3$;Ð-);M4$;Ð3);M5$;ËLr‹ FCð Ï ž: LCðLCò: ‰ ` ÝLu‹ FCñï ‰ Mx‹ M3$ñï"2" Ï ž: LCðLCò: ‰ j "Mz‹ M4$ð"M" Ï ž: LCðLCò: ‰ j ,M|‰ „RM‹ M3$ñï"2" Ï ž: ž: LCðLCò: ‰ j wM‚‹ M4$ð"M" Ï ž: ž: LCðLCò: ‰ j ‘M„ž Ð8);:žÙPU$;MA#();«M‡ž ÐG);:žÙPU$;MA#();ÄMŠž ÐV);:žÙPU$;MA#()ÞMŽLCðLCò: ‹ FCð ‰ ` íM“ž: LCðLCòûM˜‚ Ið Î N�‹ Ið Ï ž"FISCAL ";+NŸ‹ Ið Ï ž"PERIOD";RN¢ž Ð );I;Ð );"-";:žÙPU$;MA#(Iò);{N¬ž Ð#);Iò;Ð&);"-";:žÙPU$;MA#(Iò);¤N¶ž Ð<);Iò;Ð?);"-";:žÙPU$;MA#(Iò);½NÀž ÐU);Iò;ÐX);"-";ÔNÞ Ù PU$;MA#(Iò );êNÅ‹ Iñï Ï ž: ‰ ÊOÇž Ði);"YTD - ";Ðp);OÈž Ù PU$;MA#() Oʃ I(OÔž:žCOüLCðLCò :�ÛLINE COUNToO` ‹ FCñ Ï MC#ðMC#òMA#(): MY#ðMY#òMA#()�Oj RCðRCò :�ÛRECORD COUNT²OÄ ‹ LCï: Ï � ùÿ: ‰ H: :¢ ‰ RÀO¼M• ¨ ‰ èOÁM‹ FO% Ï OPð: � `ê :�ÛCLOSE MARISPÆMà :�ÛANYTHING ELSE(PÈM‹ Õ PF% Ï N :�ÛNO PRINTING DONE=PÉM‹LCï8Ï�ùÿ:�0umPËMž:ž"** TOTAL RECORDS IN FILE = ";RC:LCðLCò�PÐM‹ FC ð  ‰ äM :�ÛNO TOTALS FOR THIS LISTÑPÓMž Ð#);"OUT OF BALANCE - CURRENT - ";:žÙPU$;MC#QÕMž Ð#);" Y-T-D - ";:žÙPU$;MY#Q×MLCðLCòQäM� ùÿ0QN‘:‘"END OF "òPN$pQN‘:Q$ð"PUSH THE 'RETURN' KEY TO RETURN TO THE MAIN GL MENU "‹QN� 8Ç: ‹ ÿ’(R$)ñï Ï ��QNŠ "A:GL MENU"áQ0uPF%ðó:Wð„: ž Ð(Wóÿ’(VC$))õ);VC$;:PGðPGò: ž Ðn);"PAGE ";PGûQ:už Ð(Wóÿ’(VS$))õ);VS$R?už Ð(Wóÿ’(PN$))õ);PN$/RDuž Ð(Wóÿ’(VD$))õ);VD$5RIuž;RNuŽyRSuž"ACCOUNT DESCRIPTION TYP M/S COL";¶RUu‹FCñÏžÐ:);" CURRENT Y-T-D BUDGET":¢žôRXuž"------- ------------------------- --- --- ---";9S]u‹ FCñ Ï ž Ð8);"------------ ------------ ------------":¢ žHSluž: LCð: ŽuS@œ¿ "I",,MD$ò":GLSRC.DAT": † S$(), A!()�S°³:�ÛOPEN°Sº³FI%ð:NA$ð"GLMST.DAT":DI%ðDK%():OPð:�`êÂSij‹ ER%ï ‰ TÓçSγ† F1$(),MA#() :�ÛCOA FIELDS(TسÀ #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()[TⳂ Ið Î : À #, òIô AS T$, ASF1$(Iò): ƒwT쳆 F2$() :�ÛJE FIELDS±Tö³À #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()ØT´À #, 'AST$, ASF2$(), ASF2$()öT ´FO%ðó :�ÛFILE OPEN FLAGüT´Ž Ux´:�ÛCLOSE"U‚´‹ Õ FO% Ï Ž :¢ FO%ðGUŒ´OPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ ŽUU@µ:�ÛREWINDzUJµOPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ Ž“U˜·:�ÛCREATE NEW RECORD¼U¢·KE$ðM1$: OPð: � `ê: ‹ ER%ñï ‰ TÓ÷Uü·É F1$()ðM1$: É F1$()ðM2$: É F1$()ðM3$: É F1$()ðM4$0V¸É F1$()ðM5$:‚IðÎ:DD#ðMA#(I):� ñÃ:F1$(Iò)ðII$:ƒAV¸Â FI%,OS: Ž^V`¸:�ÛUPDATE CURRENT RECORDsVj¸� (¹ :�ÛSEARCH�Vt¸‹ ER%ñï ‰ TÓ :¢ ‰ ü·¤Vĸ:�ÛDELETE RECORDÑVθKE$ðM1$: OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ ŽêV(¹:�ÛSEARCH FOR RECORDW2¹KE$ðM1$: OPð: � `ê: ŽWŒ¹:�ÛGET RECORD1W–¹KE$ðM1$: OPð: � `êSW ¹‹ ER%ð Ï Ž :¢ ‹ ER%ñï ‰ TÓ’Wª¹M1$ðF1$(): M2$ðF1$(): M3$ðF1$(): M4$ðF1$(): M5$ðF1$()¹W¯¹M1ðÿ”(M1$): M3ðÿ”(M3$): M5ðÿ”(M5$)êW´¹‚ Ið Î :II$ðF1$(Iò):� õÃ:MA#(I)ðDD#:ƒ:ŽXð¹:�ÛGET NEXT RECORD)Xú¹OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ ‰ ª¹BX€»:�ÛCREATE NEW EXTENTjXŠ»OLðOS: OPð : � `ê: ‹ ER%ñï ‰ TÓ¥X”»É F2$()ðJ1$: É F2$()ðJ2$: É F2$()ðJ3$: É F2$()ðJ4$ÛXž»É F2$()ðÿ³(ÓSD!(J5$)):DD#ðJ6#:� ñÃ:É F2$()ðII$ìX¨»Â FI%,OS: Ž YH¼:�ÛUPDATE CURRENT EXTENTYR¼‰ ”»(Y¬¼:�ÛDELETE EXTENTNY¶¼OPð : � `ê: ‹ ER%ï ‰ TÓ :¢ ŽeY½:�ÛGET NEXT EXTENTŒY½OSðOL: OPð : � `ê: ‹ ER%ï ‰ TÓ¿Y$½J1$ðF2$(): J2$ðF2$(): J3$ðF2$(): J4$ðF2$()óY.½J5$ðÓDS$(ÿ¬(F2$())):II$ðF2$():� õÃ:J6#ðDD#:ŽZPÕ ¨ ‰ ÈÃ: BELL$ðÿ–()òÿ–()òÿ–()=ZZÿ "I",,"A:GLSYS.DAT":… #,N$vZdÆ V$(ÿ”(N$)):V$()ðN$:‚ Ið Î ÿ”(N$):…#,V$(I):ƒ I:ÛZnÃMD$ðV$( ):SC$ðV$():Wðÿ”(V$())ÄZ‚Ë MD$ñï"A" ÷ MD$ñï"B" Ï � zÕ: ‰ ¼MØZŒÃ‹ MD$ð"A" ‰ ¾ÃæZ–ÃDðN1:¦ V$ [ªÃ¿ "I",,MD$ò":GLSYS.DAT":… #,N$B[¯Ã† V$(ÿ”(N$)):V$()ðN$:‚IðÎÿ”(N$):… #,V$(I):ƒ I:Ãl[´ÃMD$ðV$( ): ‹ MD$ñï"B" Ï � HÕ: ‰ ¼M�[¾Ã• ¨ ‰ äÔ: ‰ ðâ[ÈË ×ð5 ø ×ð8 Ï � HÕ: ‰ ¼MÉ[ÒË ×ð6 ø ×ð> ø ×ðA Ï � zÕ:‰ ¼MÓ[æÃ‰ äÔ \ðÃN#ð€€¨:X9$ðÿ–()òÿ–():X8$ðÿ–()òÿ–(¨):‰ úÃ2\ñÃII$ðÿƒ(ÿ´(N#òDD#ôH‡),,):Ž_\õÃDD#ð(ÿ­(X9$òII$òX8$)óÿ…(N#))ô×£p= ×#z:ŽŽ\úØÓSD!(S$)ðÿ”(ÿ‚(S$,)òÿ�(S$,)òÿƒ(S$,,))Ï\ÿØÓDS$(D!)ðÿƒ(ÿ“(D!),,)ò"/"òÿƒ(ÿ“(D!),)ò"/"òÿƒ(ÿ“(D!),,)þ\Ä¿ "I",,"A:GLDA.DAT":… #,VD$:à  :�ÛDATE1]ÄVS$ðV$(): VC$ðV$() :�ÛSYSTEM, COMPANY NAMEb]Ä‚ Ið Î ÿ”(V$()): DK%(I)ðÿ”(V$(òôI)): ƒŠ]Ä‘ SC$:� ÔÆ:‘:‘ :�ÛDISPLAY HEADERSº]"Ä‘:‘"ONE MOMENT FOR PROGRAM STARTUP....":‘:Žè]ÔÆ‘Ð(Wóÿ’(VC$))õ);VC$:‘Ð(Wóÿ’(VS$))õ);VS$^ÞÆ‘Ð(Wóÿ’(PN$))õ);PN$^èÆ‘Ð(Wóÿ’(VD$))õ);VD$ ^.ÇŽ1^8Ç‘ Q$;:± … R$B^tÇRL$ðÿ�(R$,)^^yÇ‹ R$ð"END" Ï ‰ ¼M :¢ Ž€^È�8Ç:N!ð:‹R$ðE$ÏŽ:¢DPð:DGð£^È‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰ȵ^È‹ÿ’(R$)ð‰ZÈÙ^(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))ô^2È‹CHï/÷CHñ:ÏDGð:‰PÈ_<È‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰È:¢‰PÈB_FÈ‹(CHñï-÷CHñï+)øJJñïÏ�ðÒ:‰ÈZ_PȃJJ:‹DGðÏ�ðÒ:‰È…_ZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽ“_dÈ�¸Ó:‰È¿_ÈÈ� 8Ç: ‹ ÿ’(R$)ð Ï MOð: DAð: YRð: ŽÞ_ÜÈ‹ÿ’(R$)ñ ø ÿ’(R$)ï ‰ úÈ2`ÞÈMOðÚ(R$,"/"):‹ MOð ‰ úÈ :¢ ‹ MOð Ï R$ð"0"òR$R`àÈDAðÚ(,R$,"/"):‹ DAð ‰ úȇ`âÈ‹ DAð Ï RL$ðÿ�(R$,): R$ð"0"òÿ‚(R$,):R$ðRL$òR$½`æÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))ñ`ðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )÷(YRï)÷(YRñc)ÏŽÿ`úÈ�Ô:‰ÈÈa�É�8Ç:DPð:DGð5a¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤Éoa¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸É�aÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)¢aÇÉ‹ÿ’(R$)ðÏD#ð:ŽÆaÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))áaÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉ bàÉ‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰�É:¢‰ôÉ1bêÉ‹(CHñï-)÷(CHñï+)øJJñïÏ�ðÒ:‰�ÉIbôɃJJ:‹DGðÏ�ðÒ:‰�É]bþÉD#ðÿ”(R$ò"D"):ŽubXÊQ$ðQ$ò" (Y OR N)? "–b]ÊYESð:�8Ç:‹RL$ð"Y"ÏYESðó:Ž©b_Ê‹ ÿ’(R$)ð Ï ŽÆbbÊ‹RL$ñï"N"Ï�ðÒ:‰]Ê :¢ Žùb¼Ê‘:‘"POSITION THE PAPER AT THE TOP OF A PAGE. "cÆÊQ$ð"READY":� XÊ: ‹ ÿ’(R$)ð Ï Ž5cÐÊ‹ Õ YES ‰ ÆÊ :¢ ŽlcðÒ‘"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Žyc"Ó‹ER%ðÏŽ»cTÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$Åc^Ó‰ ¼Môc¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:Ž3dÔ‘"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:ŽddäÔ‘:‘" BASIC ERROR NUMBER ";×;" LINE NO. ";Ö•dîÔ‘" CONSULT BASIC MANUAL FOR EXPLANATION. "µdøÔ‘:‘"ABNORMAL END OF JOB ":‘ÒdÕ‚IðÎ�:‘BELL$;:ƒ:© ¼MeHÕ‘:‘ "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":Ž]ezÕ‘:‘ "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":Ž’e_ê:�Û10/30/78 Multi ARray ISam - MARIS (OP) ×e`ꕨ‰ºê:•OP�Äê,(ë,Œë,ðë,Tì,¸ì,í, €í,äí,Hî,¬î,ï,tïäejꕨ‰äÔ:Žfºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔPfÃê:�Û CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) |fÄꕨ‰Îê:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$‹fÎêER%ð×:©Øê¦fØê•¨‰ºê:‹ER%ð:ÏER%ð:Žgâê¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$€gìêÉO0$ð"MARIS":ÉO1$ðÿ–(ÿ):ÉO2$ðDA$:ÉO3$ðÿ²(): ÉO4$ðÿ²():ÉO5$ðO4$:ÉO6$ðÿ²(KL%):ÉO7$ðOC$:ÉO8$ð"103078"˜göêÂFI%,:ÃFI%:ER%ð:Žög'ë:�Û OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) "h(땨‰2ë:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$1h2ëER%ð×:©<ëMh<땨‰ºê:‹ER%ñï:ÏER%ð:ެhFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$ÒhPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:ŽiiZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ëðidë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%jnëOK$(OI)ðOT$(OJ):OJðOJò:ƒOI:¦OT$:‰‚ë´jxë‘:‘"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": ‘BE$:NR%ð:ÁFI%,:‹EX%ñÏ‚ë:¢‚OPðÎEX%:ÁFI%: ‹OM$ð"M"ÏNR%ðNR%ò:OK$(NR%)ðOK$òÿ²(OP)íjyëƒOP:‹NR%ñÏ‚ë:¢†OH():OH()ð:OH()ð:OH()ð :OTð"kzë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zë_k{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)—k|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ë¶k}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OHßk‚ëÁFI%,:ÉO1$ðÿ–():ÂFI%,:ODðDI%:‰¸ì l‹ë:�Û CLOSE MARIS FILE (RETURNS: ER%) 'lŒë•¨‰Žë:ÁFI%,:ER%ð:‰�ë6lŽëER%ð:©�ëJl�땨‰ºê:‹ER%ðÏŽnl”ë‹NR%ðϪë:¢OKðKL%ò:OTð€ýOKó÷l–ë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ðm ëƒOI:¦OT$:‹OJñïÏÂFI%lmªëÁFI%,:ÉO1$ðÿ–(ÿ):ÉO3$ðÿ²(EX%):ÉO4$ðÿ²(NR%): ÉO5$ðÿ²(OA):ÉO7$ðOC$:ÂFI%,:ÃFI%:ER%ð:Ž¡mïë:�Û CREATE RECORD (KE$, RETURNS: OI, OS, ER%) ¹mðë�í:‹ER%ðÏŽ:¢�”òémúë‹NR%ïðOBÏ‚OJðNR%ÎOBÑó:¥OK$(OJò),OK$(OJ):ƒLnìNR%ðNR%ò:OIðOB:OK$(OI)ðKE$òÿ²(OS):ÉOK$ðKE$:ÉOM$ð"M": ÉOE$ðÿ²(OS):ÉOL$ðÿ²(OS):ÂFI%,OS:ER%ð:ކnSì:�Û DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) ÙnTì�í:‹ER%ðÏŽ:¢�øò:NR%ðNR%ó:OTðOS: ‹OIñðNR%Ï‚OJðOIÎNR%:¥OK$(OJ),OK$(OJò):ƒõn^ìOSðOL:‹OSñïOTÏ�øò:‰^ì=ohì‹OIïNR%ÏER%ð:Ž:¢OSðÿ«(ÿ‚(OK$(OI),)): KE$ðÿ�(OK$(OI),KL%):ER%ð:Žbo·ì:�Û REWIND (RETURNS: OI, ER%) ƒo¸ìOIð:‹NR%ðÏER%ð:Ž:¢ER%ð:ޱoí:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) êoíOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%) p&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:ŽQp0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&írp:íOSðÿ«(ÿ‚(OK$(OI),)):ER%ð:ެpí:�Û GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) çp€í�í:‹ER%ðÏŽ :¢ÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž&qãí:�Û GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) ‰qäí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:ŽÌqGî:�Û GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) -rHî‹OIñðÏER%ð:Ž:¢OIðOIó:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Žhr«î:�Û CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) ær¬î�”ò:ÁFI%,OE:ÉOL$ðÿ²(OS):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OS):ÂFI%,OL:ÁFI%,OS:ÉOE$ðÿ²(OE): ÉOL$ðÿ²(OL):ÉOM$ð"E":ÂFI%,OS:ER%ð:Ž!sï:�Û DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) EsïÁFI%,OS:‹OM$ñï"E"ÏER%ð:Ž:¢�øò‹sïÁFI%,OE:ÉOL$ðÿ²(OL):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OE):ÂFI%,OL:ER%ð:ŽÃssï:�Û GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) üstïÁFI%,OS:‹OM$ñï"E"ÏER%ð:¢OEðÿ«(OE$):OLðÿ«(OL$):ER%ðt~ïŽt/ò:�Û SETUP (NR%) ,t0ò®O:†OK$(NR%):ŽTt“ò:�Û GET NEW SECTOR (RETURNS: OS) Št”ò‹OAñïÏÁFI%,OA:OSðOA:OAðÿ«(OL$):¢EX%ðEX%ò:OSðEX%½tžòÁFI%,:ÉO3$ðÿ²(EX%):ÉO5$ðÿ²(OA):ÂFI%,:ER%ð:Žót÷ò:�Û FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) ?uøòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉOM$ð"F":ÉOL$ðÿ²(OA):OAðOS: ÂFI%,OS:‰žòbuùÿ‚ IIðLC Î A: ž: ƒ II: LCð: ŽOE, OL, ER%) ?uøòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉO