ÿáI:�ÛGLEP.BAS, G/L END OF PERIOD, RAW, 7/24/78 REV. CP/M 2.4, 9/13/79J:�Û COPYRIGHT 1978 RETAIL SCIENCES, INC.J’ p-J• ¨ ‰ äÔEJPN$ð"END OF PERIOD"OJ� PÊJ‘:Q$ð"WHAT IS THE END OF PERIOD DATE (MM/DD/YY) ":�ÈȺJ‹ÿ’(R$)ðÏ‘"USING ";VD$:R$ðVD$:�ÜÈ:¢VD$ðR$îJ‘:‘"INSERT A BLANK FORMATTED DISK INTO DRIVE 1"$K‘:‘"INSERT THE CURRENT MONTH'S DISK INTO DRIVE 0":K"‘:Q$ð"READY":�XÊMK'‹ÕYESÏ":¢‘:Ì¡K,V$()ð"A:GLSYS.DAT":V$()ð"A:GLSRC.DAT":V$()ð"B:GLSYS.DAT":V$()ð"B:GLSRC.DAT"ºK1•¨‰6:ÇV$()ASV$()ÚK6‹×ð:Ï©E :�ÛFILE FOUND?L;‹×ð5ÏZ1%ðó:©E :�ÛFILE NOT FOUND?L@‰äÔ :�ÛUNKNOWN ERROR6LE•¨‰J:ÇV$()ASV$()VLJ‹×ð:Ï©c :�ÛFILE FOUND?LO‹×ð5ÏZ2%ðó:©c :�ÛFILE NOT FOUND?ˆLT‰@ÍLY¿"I",,V$(PP%):¿"O",,V$(PP%ò):…#,A$:‘#,A$:Xðÿ”(A$):Q$ðÿ–(")ôL^‚IðÎX:…#,A$:‘#,Q$;A$;Q$;:ƒI:Ã:Ž/Mc‹Z1%Ï‘"TRANSFERRING ";V$();" TO DRIVE 1":PP%ð:�Y:‘jMh‹Z2%Ï‘"TRANSFERRING ";V$();" TO DRIVE 1":PP%ð:�Y:‘uMm•¨‰äÔÇM†‘:Q$ð"DO YOU WISH TO PROCESS END OF MONTH OR END OF YEAR DATA (M OR Y)?":�8ÇàMˆ‹R$ñï"M"÷R$ñï"Y"φùM‹XY%ð:‹R$ð"Y"ÏXY%ðó.NÖ‘:‘"THIS PROCESSING MAY TAKE A FEW MINUTES...":‘NNôNR%ðÿ”(V$( )):�0ò:�ÛSETUPhNþ�@œ:�°³:‹ER%ñïÏTÓ“NÿPP%ð((MOóFM%ò )ü )ò :�ÛFISCAL MON.­N¿ "R",,"B:GLMST.DAT"åNÀ #,(KL%)AS ZK$,({óKL%)ASZT$,ASZM$,ASZE$,ASZL$OÀ #,(KL%)AS OK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$RO†F3$(): ‚Ið Î :À#,òIôAST$,ASF3$(Iò):ƒ\OZS%ðtO�ð¹ :�ÛGET MASTERŽO‹ER%ðÏ  :�ÛE O FžO‹ER%ñïÏTÓ®O&XA%ð:XI%ðÝO0‹M1ñðA!()÷M1ïðA!()ÏXA%ðó:‰ˆ :�ÛA,C&L P:‹M1ñðA!()÷M1ïðA!()ÏXI%ðó:‰ˆ :�ÛI,ELPD‘:‘"ACCOUNT # ";M1;" DOES NOT FIT BOUNDARIES OF SYSTEMS FILE"lP€�è :�ÛTRANS TO NEW FILE‰PŠ�½ :�ÛGET TRANSACTION°P”‹ ER%ðÏ�¸ :‰:�Û END OF TRANS¿Pž‹ER%ïÏTÓèP¨‹ÿ”(J4$)ñïÏŠ :�ÛSKIP IF<>3 & EOMQ¼�Ð :�ÛSEND TO NEW FILEQƉŠ/Qè:�ÛSAVE MASTER IN NEW FILE RQòZS%ðZS%ò :�ÛNEXT AVAIL REC #pQüZE%ðZS%:ZL%ðZS%ò:ZP%ðZS%©QÉZK$ðOK$:ÉZT$ðOT$:ÉZM$ðOM$:ÉZE$ðÿ²(ZS%):ÉZL$ðÿ²(ZL%)ÚQ ‚ Ið Î :DD#ðMA#(I):� ñÃ:É F3$(Iò)ðII$:ƒèQÂ#,ZS%:Ž RÐ:�ÛSAVE EACH TRANS IN NEW FILERÚZS%ðZS%òVRäÉZK$ðOK$:ÉZT$ðOT$:ÉZM$ðOM$:ÉZE$ðÿ²(ZS%ó):ÉZL$ðÿ²(ZS%ò)dRîÂ#,ZS%:Ž�R¸ :�ÛSET OE & OL IN MASTER�R Á#,ZP%£RÌ ‹ÿ«(ZE$)ñïZS%Ïà ËRÖ ÉZL$ðÿ²(ZP%):Â#,ZP%:Ž :�ÛNO TRANSåRà ÉZE$ðÿ²(ZS%):Â#,ZP% Sê Á#,ZS%:ÉZL$ðÿ²(ZP%):Â#,ZS%:Ž$S OPð:�`ê :�ÛCLOSE FILE4S¥‹ER%ñïÏTÓ…SªÀ , AS MA$, AS CF$, AS DD$, AS EX$, AS NR$, AS AV$, AS KL$,d AS CM$ªS´ÉMA$ð"MARIS":ÉCF$ðÿ–():ÉDD$ðVD$ÓS¾ÉEX$ðÿ²(ZS%):ÉNR$ðÿ²(NR%):ÉAV$ðÿ²()TÈÉKL$ðÿ²(KL%):‹XY%ÏÉCM$ð"E-O-Y "òVD$ :¢ ÉCM$ð"E-O-M "òVD$TÒÂ#,:Ã=TÜFI%ð:NA$ð"GLMST.DAT":DI%ð_TæOPð:�`ê :�ÛFORCE KEY$ SORToTð‹ER%ñïÏTÓxTú‰¼M�Tˆ‹M3ð÷M4$ñï"M"Ïœ¿T’�è:�¸ :‰:�Û TRANS MASTER W/O EXTENTSÝTœ‹XY%Ïì :�ÛEOY PROC.?öT¦MA#()ðMA#()òMA#()(U°‹XA%ÏMA#(PP%)ðMA#():‰Î:�Û TRUE IF A or C&L]UºMA#()ðMA#()òMA#(PP%):�Û ELSE MUST BE I or EqUÄMA#(PP%)ðMA#()‚UÎMA#()ð#·UØ‹XY%ÏMA#()ð#:‰’ :¢‰€ :�ÛGOTO640 IF EOMæUìMA#()ð#:‹XI%Ϻ :�ÛTRUE IF I or EVöMA#()ðMA#()òMA#() :�ÛELSE MUST BE A or C&L,VMA#(PP%)ðMA#()JVMA#()ð#:MA#()ð#SV ‰’aV¼M• ¨ ‰ ‰VÁM‹ FO% Ï OPð: � `ê :�ÛCLOSE MARIS¢VÆMà :�ÛANYTHING ELSE·VN‘:‘"END OF "òPN$úVN‘:‘"INSERT THE GL PROGRAM DISK INTO DRIVE 0":‘:Q$ð"READY":�XÊWN‹ÕYESÏN:¢Ì:Š"A:GL MENU"EW@œ¿ "I",,MD$ò":GLSRC.DAT": † S$(), A!()WJœ‚ Ið Î : … #,I$: A!(I)ðÿ”(I$): ƒ I :�ÛACCOUNT #'S¶WTœ‚ Ið Î : … #,S$(I): ƒ I :�ÛSOURCE DESCRIPTIONSèWYœ… #,MM$: FM%ðÿ”(MM$) :�ÛFISCAL MONTH STARTðW^œÃ öWhœŽX°³:�ÛOPEN... FORCE DRIVE 0=Xº³FI%ð:NA$ð"GLMST.DAT":DI%ð:OPð:�`êOXij‹ ER%ï ‰ TÓtXγ† F1$(),MA#() :�ÛCOA FIELDSµXسÀ #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()èXⳂ Ið Î : À #, òIô AS T$, ASF1$(Iò): ƒY쳆 F2$() :�ÛJE FIELDS>Yö³À #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()eY´À #, 'AST$, ASF2$(), ASF2$()ƒY ´FO%ðó :�ÛFILE OPEN FLAG‰Y´Ž–Yx´:�ÛCLOSE¯Y‚´‹ Õ FO% Ï Ž :¢ FO%ðÔYŒ´OPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ ŽâY@µ:�ÛREWINDZJµOPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ Ž Z˜·:�ÛCREATE NEW RECORDIZ¢·KE$ðM1$: OPð: � `ê: ‹ ER%ñï ‰ TÓ„Zü·É F1$()ðM1$: É F1$()ðM2$: É F1$()ðM3$: É F1$()ðM4$¾Z¸É F1$()ðM5$:‚IðÎ:DD#ðMA#(I):� ñÃ:ÉF1$(Iò)ðII$:ƒÏZ¸Â FI%,OS: ŽìZ`¸:�ÛUPDATE CURRENT RECORD[j¸� (¹ :�ÛSEARCH[t¸‹ ER%ñï ‰ TÓ :¢ ‰ ü·2[ĸ:�ÛDELETE RECORD_[θKE$ðM1$: OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ Žx[(¹:�ÛSEARCH FOR RECORD”[2¹KE$ðM1$: OPð: � `ê: ަ[Œ¹:�ÛGET RECORD¿[–¹KE$ðM1$: OPð: � `êá[ ¹‹ ER%ð Ï Ž :¢ ‹ ER%ñï ‰ TÓ \ª¹M1$ðF1$(): M2$ðF1$(): M3$ðF1$(): M4$ðF1$(): M5$ðF1$()G\¯¹M1ðÿ”(M1$): M3ðÿ”(M3$): M5ðÿ”(M5$)x\´¹‚ Ið Î :II$ðF1$(Iò):� õÃ:MA#(I)ðDD#:ƒ:Ž�\ð¹:�ÛGET NEXT RECORD·\ú¹OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ ‰ ª¹Ð\€»:�ÛCREATE NEW EXTENTø\Š»OLðOS: OPð : � `ê: ‹ ER%ñï ‰ TÓ3]”»É F2$()ðJ1$: É F2$()ðJ2$: É F2$()ðJ3$: É F2$()ðJ4$i]ž»É F2$()ðÿ³(ÓSD!(J5$)):DD#ðJ6#:� ñÃ:É F2$()ðII$z]¨»Â FI%,OS: Ž—]H¼:�ÛUPDATE CURRENT EXTENT¡]R¼‰ ”»¶]¬¼:�ÛDELETE EXTENTÜ]¶¼OPð : � `ê: ‹ ER%ï ‰ TÓ :¢ Žó]½:�ÛGET NEXT EXTENT^½OSðOL: OPð : � `ê: ‹ ER%ï ‰ TÓM^$½J1$ðF2$(): J2$ðF2$(): J3$ðF2$(): J4$ðF2$()�^.½J5$ðÓDS$(ÿ¬(F2$())):II$ðF2$():� õÃ:J6#ðDD#:Ž©^PÕ ¨ ‰ ÈÃ: BELL$ðÿ–()òÿ–()òÿ–()Ë^Zÿ "I",,"A:GLSYS.DAT":… #,N$_dÆ V$(ÿ”(N$)):V$()ðN$:‚ Ið Î ÿ”(N$):…#,V$(I):ƒ I:Ã)_nÃMD$ðV$( ):SC$ðV$():Wðÿ”(V$())R_‚Ë MD$ñï"A" ÷ MD$ñï"B" Ï � zÕ: ‰ ¼Mf_ŒÃ‹ MD$ð"A" ‰ ¾Ãš_‘ɾà :�Û************ FORCE TO USE A:GLSYS ONLY¨_–ÃDðN1:¦ V$Í_ªÃ¿ "I",,MD$ò":GLSYS.DAT":… #,N$`¯Ã† V$(ÿ”(N$)):V$()ðN$:‚IðÎÿ”(N$):… #,V$(I):ƒ I:Ã.`´ÃMD$ðV$( ): ‹ MD$ñï"B" Ï � HÕ: ‰ ¼MC`¾Ã• ¨ ‰ äÔ: ‰ ðÃd`ÈË ×ð5 ø ×ð8 Ï � HÕ: ‰ ¼M‹`ÒË ×ð6 ø ×ð> ø ×ðA Ï � zÕ:‰ ¼M•`æÃ‰ äÔÍ`ðÃN#ð€€¨:X9$ðÿ–()òÿ–():X8$ðÿ–()òÿ–(¨):‰ úÃô`ñÃII$ðÿƒ(ÿ´(N#òDD#ôH‡),,):Ž!aõÃDD#ð(ÿ­(X9$òII$òX8$)óÿ…(N#))ô×£p= ×#z:ŽPaúØÓSD!(S$)ðÿ”(ÿ‚(S$,)òÿ�(S$,)òÿƒ(S$,,))‘aÿØÓDS$(D!)ðÿƒ(ÿ“(D!),,)ò"/"òÿƒ(ÿ“(D!),)ò"/"òÿƒ(ÿ“(D!),,)ÀaÄ¿ "I",,"A:GLDA.DAT":… #,VD$:à  :�ÛDATEóaÄVS$ðV$(): VC$ðV$() :�ÛSYSTEM, COMPANY NAME bÄ‚IðÎÿ”(V$()):DK%(I)ðÿ”(V$(òôI)):ƒIHbÄ‘ SC$:� ÔÆ:‘:‘ :�ÛDISPLAY HEADERSxb"Ä‘:‘"ONE MOMENT FOR PROGRAM STARTUP....":‘:ަbÔÆ‘Ð(Wóÿ’(VC$))õ);VC$:‘Ð(Wóÿ’(VS$))õ);VS$¿bÞÆ‘Ð(Wóÿ’(PN$))õ);PN$ØbèÆ‘Ð(Wóÿ’(VD$))õ);VD$Þb.ÇŽïb8Ç‘ Q$;:± … R$ctÇRL$ðÿ�(R$,)cyÇ‹ R$ð"END" Ï ‰ ¼M :¢ Ž>cÈ�8Ç:N!ð:‹R$ðE$ÏŽ:¢DPð:DGðacÈ‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰ÈscÈ‹ÿ’(R$)ð‰ZÈ—c(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))²c2È‹CHï/÷CHñ:ÏDGð:‰PÈÛc<È‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰È:¢‰PÈdFÈ‹(CHñï-÷CHñï+)øJJñïÏ�ðÒ:‰ÈdPȃJJ:‹DGðÏ�ðÒ:‰ÈCdZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽQddÈ�¸Ó:‰È}dÈÈ� 8Ç: ‹ ÿ’(R$)ð Ï MOð: DAð: YRð: ŽœdÜÈ‹ÿ’(R$)ñ ø ÿ’(R$)ï ‰ úÈðdÞÈMOðÚ(R$,"/"):‹ MOð ‰ úÈ :¢ ‹ MOð Ï R$ð"0"òR$eàÈDAðÚ(,R$,"/"):‹ DAð ‰ úÈEeâÈ‹ DAð Ï RL$ðÿ�(R$,): R$ð"0"òÿ‚(R$,):R$ðRL$òR${eæÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))¯eðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )÷(YRï)÷(YRñc)ÏŽ½eúÈ�Ô:‰ÈÈÐe�É�8Ç:DPð:DGðóe¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤É-f¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸ÉKfÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)`fÇÉ‹ÿ’(R$)ðÏD#ð:Ž„fÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))ŸfÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉÈfàÉ‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰�É:¢‰ôÉïfêÉ‹(CHñï-)÷(CHñï+)øJJñïÏ�ðÒ:‰�ÉgôɃJJ:‹DGðÏ�ðÒ:‰�ÉgþÉD#ðÿ”(R$ò"D"):Ž3gXÊQ$ðQ$ò" (Y OR N)? "Tg]ÊYESð:�8Ç:‹RL$ð"Y"ÏYESðó:Žgg_Ê‹ ÿ’(R$)ð Ï Ž„gbÊ‹RL$ñï"N"Ï�ðÒ:‰]Ê :¢ Ž·g¼Ê‘:‘"POSITION THE PAPER AT THE TOP OF A PAGE. "ÜgÆÊQ$ð"READY":� XÊ: ‹ ÿ’(R$)ð Ï ŽógÐÊ‹ Õ YES ‰ ÆÊ :¢ Ž*hðÒ‘"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Ž7h"Ó‹ER%ðÏŽyhTÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$ƒh^Ó‰ ¼M²h¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:ŽñhÔ‘"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:Ž0i€Ô‘"*** START PROGRAM NOT RUN. CAN'T CONTINUE. ***";BELL$:ŽaiäÔ‘:‘" BASIC ERROR NUMBER ";×;" LINE NO. ";Ö’iîÔ‘" CONSULT BASIC MANUAL FOR EXPLANATION. "½iøÔ‘:‘"ABNORMAL END OF JOB ":‘: • ¨ ‰ ÚiÕ‚IðÎ�:‘BELL$;:ƒ:© ¼MjHÕ‘:‘ "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":ŽejzÕ‘:‘ "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":Žšj_ê:�Û10/30/78 Multi ARray ISam - MARIS (OP) ßj`ꕨ‰ºê:•OP�Äê,(ë,Œë,ðë,Tì,¸ì,í, €í,äí,Hî,¬î,ï,tïìjjꕨ‰äÔ:Žkºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔXkÃê:�Û CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) „kÄꕨ‰Îê:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$“kÎêER%ð×:©Øê®kØê•¨‰ºê:‹ER%ð:ÏER%ð:Žlâê¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$ˆlìêÉO0$ð"MARIS":ÉO1$ðÿ–(ÿ):ÉO2$ðDA$:ÉO3$ðÿ²(): ÉO4$ðÿ²():ÉO5$ðO4$:ÉO6$ðÿ²(KL%):ÉO7$ðOC$:ÉO8$ð"103078" löêÂFI%,:ÃFI%:ER%ð:Žþl'ë:�Û OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) *m(땨‰2ë:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$9m2ëER%ð×:©<ëUm<땨‰ºê:‹ER%ñï:ÏER%ð:Ž´mFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$ÚmPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:ŽqnZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ëøndë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%"onëOK$(OI)ðOT$(OJ):OJðOJò:ƒOI:¦OT$:‰‚ëwoxëNR%ð:ÁFI%,:‹EX%ñÏ‚ë:¢‚OPðÎEX%:ÁFI%: ‹OM$ð"M"ÏNR%ðNR%ò:OK$(NR%)ðOK$òÿ²(OP)°oyëƒOP:‹NR%ñÏ‚ë:¢†OH():OH()ð:OH()ð:OH()ð :OTðåozë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zë"p{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)Zp|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ëyp}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OH¢p‚ëÁFI%,:ÉO1$ðÿ–():ÂFI%,:ODðDI%:‰¸ìÍp‹ë:�Û CLOSE MARIS FILE (RETURNS: ER%) êpŒë•¨‰Žë:ÁFI%,:ER%ð:‰�ëùpŽëER%ð:©�ë q�땨‰ºê:‹ER%ðÏŽ1q”ë‹NR%ðϪë:¢OKðKL%ò:OTð€ýOKóºq–ë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ðÓq ëƒOI:¦OT$:‹OJñïÏÂFI%/rªëÁFI%,:ÉO1$ðÿ–(ÿ):ÉO3$ðÿ²(EX%):ÉO4$ðÿ²(NR%): ÉO5$ðÿ²(OA):ÉO7$ðOC$:ÂFI%,:ÃFI%:ER%ð:Ždrïë:�Û CREATE RECORD (KE$, RETURNS: OI, OS, ER%) |rðë�í:‹ER%ðÏŽ:¢�”ò¬rúë‹NR%ïðOBÏ‚OJðNR%ÎOBÑó:¥OK$(OJò),OK$(OJ):ƒsìNR%ðNR%ò:OIðOB:OK$(OI)ðKE$òÿ²(OS):ÉOK$ðKE$:ÉOM$ð"M": ÉOE$ðÿ²(OS):ÉOL$ðÿ²(OS):ÂFI%,OS:ER%ð:ŽIsSì:�Û DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) œsTì�í:‹ER%ðÏŽ:¢�øò:NR%ðNR%ó:OTðOS: ‹OIñðNR%Ï‚OJðOIÎNR%:¥OK$(OJ),OK$(OJò):ƒ¸s^ìOSðOL:‹OSñïOTÏ�øò:‰^ìthì‹OIïNR%ÏER%ð:Ž:¢OSðÿ«(ÿ‚(OK$(OI),)): KE$ðÿ�(OK$(OI),KL%):ER%ð:Ž%t·ì:�Û REWIND (RETURNS: OI, ER%) Ft¸ìOIð:‹NR%ðÏER%ð:Ž:¢ER%ð:Žttí:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) ­tíOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%)ãt&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:Žu0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&í5u:íOSðÿ«(ÿ‚(OK$(OI),)):ER%ð:Žouí:�Û GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) ªu€í�í:‹ER%ðÏŽ :¢ÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Žéuãí:�Û GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) Lväí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž�vGî:�Û GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) ðvHî‹OIñðÏER%ð:Ž:¢OIðOIó:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž+w«î:�Û CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) ©w¬î�”ò:ÁFI%,OE:ÉOL$ðÿ²(OS):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OS):ÂFI%,OL:ÁFI%,OS:ÉOE$ðÿ²(OE): ÉOL$ðÿ²(OL):ÉOM$ð"E":ÂFI%,OS:ER%ð:Žäwï:�Û DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) xïÁFI%,OS:‹OM$ñï"E"ÏER%ð:Ž:¢�øòNxïÁFI%,OE:ÉOL$ðÿ²(OL):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OE):ÂFI%,OL:ER%ð:ކxsï:�Û GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) ¿xtïÁFI%,OS:‹OM$ñï"E"ÏER%ð:¢OEðÿ«(OE$):OLðÿ«(OL$):ER%ðÅx~ïŽÜx/ò:�Û SETUP (NR%) ïx0ò®O:†OK$(NR%):Žy“ò:�Û GET NEW SECTOR (RETURNS: OS) My”ò‹OAñïÏÁFI%,OA:OSðOA:OAðÿ«(OL$):¢EX%ðEX%ò:OSðEX%€yžòÁFI%,:ÉO3$ðÿ²(EX%):ÉO5$ðÿ²(OA):ÂFI%,:ER%ð:޶y÷ò:�Û FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) zøòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉOM$ð"F":ÉOL$ðÿ²(OA):OAðOS: ÂFI%,OS:‰žò%zùÿ‚ IIðLC Î A: ž: ƒ II: LCð: ŽOE, OL, ER%) zøòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉOM$ð"F":ÉOL$ðÿ²(OA):OAðOS: ÂFI%,OS:‰žò%zùÿ‚ IIðLC Î A: ž: