ÿíI:�ÛGLMF.BAS, G/L MASTER FILE MAINTENANCE , RDR, 6/12/78 REV. CP/M 2.0, 11/10/78!J’ ˆ :�ÛCOPYRIGHT 1978 RETAIL SCIENCES, INC./J• ¨ ‰ äÔQJPN$ð"MASTER FILE MAINTENANCE"[J� PÃtJ,PU$ð"$$#,###,###.##"‹JôPU$ð"$$###,###.##"±JþC1$ð"** FIELD 1 (ACCOUNT NUMBER)"×JC2$ð"** FIELD 2 (DESCRIPTION) "ýJC3$ð"** FIELD 3 (TYPE) "#KC4$ð"** FIELD 4 (MASTER/SUB) "IK&C5$ð"** FIELD 5 (BALANCE COL.) "oK0C6$ð"** FIELD 6 (CURRENT AMOUNT)"•K:C7$ð"** FIELD 7 (YTD AMOUNT) "»KDC8$ð"** FIELD 8 (BUDGET AMOUNT) "ÎKNC9$ð"** FIELD"öKSCP$ð"** FIELD 21 (PREV YTD AMOUNT)"!LXCV$ð" CURRENT VALUE: ": CE$ð" ENTER: "\LèNR%ðÿ”(V$( )):�0ò:� °³ :�ÛSET # RECORDS, OPEN FILEhLFCð: ‘˜L$‚ Ið Î : MA#(I)ð: ƒ :�ÛCLEAR $ FIELDSÎL.‘ "ENTER - A - TO ADD A NEW ACCOUNT TO THE FILEM8‘ " C - TO CHANGE AN EXISTING ACCOUNT RECORDBMB‘ " D - TO DELETE AN EXISTING ACCOUNT RECORD{ML‘ " Q - TO QUERY AN EXISTING ACCOUNT RECORD²M`‘ " END - TO END AND RETURN TO THE GL MENU"ÙMj‘:Qð: Q$ð"YOUR SELECTION? ":� 8ÇõMt‹ R$ð"A" Ï � Ð: ‰ N~‹ R$ð"C" Ï � ¸ : ‰ -Nˆ‹ R$ð"D" Ï �  : ‰ IN’‹ R$ð"Q" Ï � †: ‰ ZN¦� ðÒ: ‰ j�NÐFCð:‘SC$:‘"********** G/L ADDITION **********":‘¨NÚ�  N :�ÛACCOUNT #ÈNä� (¹ :�ÛSEARCH FOR RECORDÚNî‹ ER%ð ‰   Oø‹ER%ðÏ‘:‘"** ACCOUNT ALREADY EXISTS **":‘:Ž.O‰ TÓ :�ÛINVALID ER% RETURNED;O M1$ðKEY$WO‚ Ið Î : MA#(I)ð: ƒqO� R :�ÛDESCRIPTION„O � ðU :�ÛTYPE™O*� ØY :�ÛCOLUMN­O4� À] :�ÛLEVELÄO>� ¨a :�ÛCURR AMTÚOH� �e :�ÛYTD AMTïOR� xi :�ÛBUDGET,P\‘:Q$ð"DO YOU WISH TO ENTER FISCAL PERIOD AMOUNTS":� XÊ APa‹ ÿ’(R$)ð Ï zSPf‹ Õ YES ‰ zyPp‚PIðÎ :� `m: ƒ :�ÛPREV YR AMTSšPu� Hq :�ÛPREV YEAR TO DATEÀPz‘:Q$ð "DOUBLECHECK. ANY CHANGES"áP„Qð: � XÊ: ‹ ÿ’(R$)ð ‰ ¢úPŽ‹ YES Ï � 0u: � 0 Q¢� ˜· :�ÛCREATE NEW RECORD!Q¬ŽSQ¸ FCð:‘SC$:‘"********** G/L CHANGE **********"�Q ‘:Q$ð"ENTER ACCOUNT NUMBER OF RECORD TO BE CHANGED: "¹QÌ Qð : QTð : LB!ðd : UB!ð€OC‘ : � ÈÕQÖ ‹ ÿ’(R$)ð Ï R$ðR$ò"00"ôQà ‹ ÿ’(R$)ñï Ï � ðÒ: ‰  Rê M1$ðR$: � Œ¹ :�ÛREAD@Rô ‹ER%ðÏ‘:‘"** ACCOUNT DOES NOT EXIST **":‘:ŽSRþ ‹ ER%ñï ‰ TÓYR ‘wR � 0u :�ÛDISPLAY CURRENT€R& FCð¹R0 ‘ : Q$ð"ENTER FIELD NUMBER OF FIELD TO BE CHANGED: "×R: Qð: UB!ð: LB!ð: � ÈîRD ‹ ÿ’(R$)ð Ï ‰ ² SN ‹ FCð Ï ‰ b :�ÛFROM G/L ADD,SX ‹ N!ñ Ï � ðÒ: ‰ 0 2Sb ‘CSl ‹ N!ñ ‰ € kSq ‹ N!ð Ï � Hq: ‰ Š :�ÛPREV YTD”Sv PIðN!ó: � `m: ‰ Š :�ÛPREV MONTHÆS€ • N! �  N, R, ðU, ØY, À], ¨a, �e, xiñSŠ ‘ : Q$ð"ANY MORE FIELDS TO BE CHANGED"T” Qð : QTð : � XÊT™ ‹ ÿ’(R$)ð ‰ ¨ -Tž ‹ YES ‰ 0 3T¨ ‘BT² ‹ FCð Ï ŽWTÆ � `¸ :�ÛRESTORE]TÐ ŽjTÚ :�ÛPAGE'žT FCð:‘SC$:‘"********** G/L DELETION **********"ÚTª‘ : Q$ð"ENTER ACCOUNT NUMBER OF RECORD TO BE DELETED: "U´Qð : QTð : LB!ðd : UB!ð€OC‘ : � ÈU¾‹ ÿ’(R$)ð Ï Ž5UÈ‹ ÿ’(R$)ð Ï R$ðR$ò"00"TUÒ‹ ÿ’(R$)ñï Ï � ðÒ: ‰ ªnUÜM1$ðR$: � Œ¹ :�ÛREAD Uæ‹ER%ðÏ ‘:‘"** ACCOUNT DOES NOT EXIST **":‘:ަUð‘ÄUú� 0u :�ÛDISPLAY CURRENTñU‹ (MA#()ð ÷ MA#()ð) Ï ‰  :¢ ‰ ^÷U‘*VQ$ð"ARE YOU SURE THAT YOU WANT TO DELETE THIS"AV"Qð : QTð : � XÊTV'‹ ÿ’(R$)ð Ï ŽdV,‹ Õ YES Ï Ž‚V6‹ RL$ñï"Y" Ï � ðÒ: ‰ —V@� ĸ :�ÛDELETE�VTŽÛV^‘:‘"*** DELETION NOT POSSIBLE DUE TO NON-ZERO AMOUNT ***"Wh‘"*** IN EITHER CURRENT OR YTD FIELDS, OR BOTH. ***" Wr‘ BELL$&W|Ž3W†:�ÛQUERY`Wˆ‘ SC$:‘"********** G/L QUERY *********":šW’‘:Q$ð"ENTER ACCOUNT NUMBER OF RECORD TO BE QUERIED: "¼WœQð: LB!ðd: UB!ð€OC‘: � ÈÏW¦‹ ÿ’(R$)ð Ï ŽëW°‹ ÿ’(R$)ð Ï R$ðR$ò"00" Xº‹ ÿ’(R$)ñï Ï � ðÒ: ‰ ’XÄM1$ðR$: � Œ¹OX΋ER%ð Ï ‘:‘"** ACCOUNT DOES NOT EXIST **":‘:ŽnXØ‘:�0u :�ÛDISPLAY CURRENTŸXâ‘:Q$ð"ANY MORE ACCOUNTS TO BE QUERIED":�XÊ:ÁXç‹ ÿ’(R$)ð Ï Ž :¢ ‹ Õ YES Ï ŽËXì‰ ’ÙX¼M• ¨ ‰ YÁM‹ FO% Ï OPð: � `ê :�ÛCLOSE MARISYÆMà :�ÛANYTHING ELSE.YN‘:‘"END OF "òPN$nYN‘:Q$ð"PUSH THE 'RETURN' KEY TO RETURN TO THE MAIN GL MENU "‰YN� 8Ç: ‹ ÿ’(R$)ñï Ï �›YNŠ "A:GL MENU"ªY NQ$ðC1$òCE$ÖY*NQð : QTð : LB!ðd : UB!ð€OC‘ : � ÈòY4N‹ ÿ’(R$)ð Ï R$ðR$ò"00"Z>N‹ ÿ’(R$)ñï Ï � ¸Ó: ‰  NZHNM1$ðR$"ZRNŽ1ZRQ$ðC2$òCE$@ZRQð: � 8Ç_ZR‹ ÿ’(R$)ï Ï � ðÒ: ‰ RjZ&RM2$ðR$pZ0RŽZðUQ$ðC3$òCE$œZúUQð: LB!ð: UB!ð: � ȪZVM3$ðR$: ޹ZØYQ$ðC4$òCE$ÈZâYQð: � 8ÇþZìY‹ R$ð"M" ø R$ð"S" ø ÿ’(R$)ð ø R$ð" " Ï M4$ðR$: Ž[öY� ðÒ: ‰ âY[À]Q$ðC5$òCE$;[Ê]Qð: LB!ð: UB!ð: � ÈZ[Ô]‹ N!ð Ï M5$ð"1" :¢ M5$ðR$`[Þ]Žo[¨aQ$ðC6$òCE$�[²aQð : QTð : LB!ðUB! : � �ɦ[¼a‹ ÿ’(R$)ð Ï D#ð´[ÆaMA#()ðD#º[ÐaŽÉ[�eQ$ðC7$òCE$ë[šeQð : QTð : LB!ðUB! : � �É\¤e‹ ÿ’(R$)ð Ï D#ð\®eMA#()ðD#\¸eŽ$\xiQ$ðC8$òCE$<\‚iQð: LB!ðUB!: � �ÉR\Œi‹ ÿ’(R$)ð Ï D#ð`\–iMA#()ðD#f\ iŽ›\`mQ$ðC9$òÿ“(PIò)ò" (FISCAL PD. #"òÿ“(PI)ò") "òCE$³\jmQð: LB!ðUB!: � �ÉÉ\tm‹ ÿ’(R$)ð Ï D#ðÚ\~mMA#(PIò)ðD#à\ˆmŽï\HqQ$ðCP$òCE$]RqLB!ðUB!: � �É]\q‹ ÿ’(R$)ð Ï D#ð']pqMA#()ðD#-]zqŽ6]0u‘SC$^]:u‘:‘"**** CURRENT RECORD VALUE ****"d]Du‘–]Nu‹ ÿƒ(M1$,,)ð"00" Ï X1$ðÿ�(M1$,) :¢ X1$ðM1$²]Xu‘ C1$;Ð);CV$;Ð-);X1$Î]bu‘ C2$;Ð);CV$;Ð-);M2$ê]lu‘ C3$;Ð);CV$;Ð-);M3$^vu‘ C4$;Ð);CV$;Ð-);M4$"^€u‘ C5$;Ð);CV$;Ð-);M5$H^Šu‘ C6$;Ð);CV$;Ð-);:‘ÙPU$;MA#()n^”u‘ C7$;Ð);CV$;Ð-);:‘ÙPU$;MA#()”^žu‘ C8$;Ð);CV$;Ð-);:‘ÙPU$;MA#()¡^¨u‚PIðÎ é^²u‘C9$òÿ“(PIò)ò" (FISCAL PD. #"òÿ“(PI)ò")";Ð);CV$;:‘ÙPU$;MA#(PIò)ï^¼uƒ_Áu‘ CP$;Ð);CV$;Ð-);:‘ÙPU$;MA#()4_Æu‚ Ið Î  : ‘ "--";: ƒ I:_ÐuŽg_@œ¿ "I",,MD$ò":GLSRC.DAT": † S$(), A!()s_°³:�ÛOPEN¢_º³FI%ð:NA$ð"GLMST.DAT":DI%ðDK%():OPð:�`ê´_ij‹ ER%ï ‰ TÓÙ_γ† F1$(),MA#() :�ÛCOA FIELDS`سÀ #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()M`Ⳃ Ið Î : À #, òIô AS T$, ASF1$(Iò): ƒi`쳆 F2$() :�ÛJE FIELDS£`ö³À #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()Ê`´À #, 'AST$, ASF2$(), ASF2$()è` ´FO%ðó :�ÛFILE OPEN FLAGî`´Žû`x´:�ÛCLOSEa‚´‹ Õ FO% Ï Ž :¢ FO%ð9aŒ´OPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ ŽGa@µ:�ÛREWINDlaJµOPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ Ž…a˜·:�ÛCREATE NEW RECORD®a¢·KE$ðM1$: OPð: � `ê: ‹ ER%ñï ‰ TÓéaü·É F1$()ðM1$: É F1$()ðM2$: É F1$()ðM3$: É F1$()ðM4$$b¸É F1$()ðM5$:‚IðÎ:DD#ðMA#(I):� ñÃ:É F1$(Iò)ðII$:ƒ5b¸Â FI%,OS: ŽRb`¸:�ÛUPDATE CURRENT RECORDgbj¸� (¹ :�ÛSEARCHƒbt¸‹ ER%ñï ‰ TÓ :¢ ‰ ü·˜bĸ:�ÛDELETE RECORDÅbθKE$ðM1$: OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ ŽÞb(¹:�ÛSEARCH FOR RECORDúb2¹KE$ðM1$: OPð: � `ê: Ž cŒ¹:�ÛGET RECORD%c–¹KE$ðM1$: OPð: � `êGc ¹‹ ER%ð Ï Ž :¢ ‹ ER%ñï ‰ TÓ†cª¹M1$ðF1$(): M2$ðF1$(): M3$ðF1$(): M4$ðF1$(): M5$ðF1$()­c¯¹M1ðÿ”(M1$): M3ðÿ”(M3$): M5ðÿ”(M5$)Þc´¹‚ Ið Î :II$ðF1$(Iò):� õÃ:MA#(I)ðDD#:ƒ:Žõcð¹:�ÛGET NEXT RECORDdú¹OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ ‰ ª¹6d€»:�ÛCREATE NEW EXTENT^dŠ»OLðOS: OPð : � `ê: ‹ ER%ñï ‰ TÓ™d”»É F2$()ðJ1$: É F2$()ðJ2$: É F2$()ðJ3$: É F2$()ðJ4$Ïdž»É F2$()ðÿ³(ÓSD!(J5$)):DD#ðJ6#:� ñÃ:É F2$()ðII$àd¨»Â FI%,OS: ŽýdH¼:�ÛUPDATE CURRENT EXTENTeR¼‰ ”»e¬¼:�ÛDELETE EXTENTBe¶¼OPð : � `ê: ‹ ER%ï ‰ TÓ :¢ ŽYe½:�ÛGET NEXT EXTENT€e½OSðOL: OPð : � `ê: ‹ ER%ï ‰ TÓ³e$½J1$ðF2$(): J2$ðF2$(): J3$ðF2$(): J4$ðF2$()çe.½J5$ðÓDS$(ÿ¬(F2$())):II$ðF2$():� õÃ:J6#ðDD#:ŽfPÕ ¨ ‰ ÈÃ: BELL$ðÿ–()òÿ–()òÿ–()1fZÿ "I",,"A:GLSYS.DAT":… #,N$jfdÆ V$(ÿ”(N$)):V$()ðN$:‚ Ið Î ÿ”(N$):…#,V$(I):ƒ I:Ã�fnÃMD$ðV$( ):SC$ðV$():Wðÿ”(V$())¸f‚Ë MD$ñï"A" ÷ MD$ñï"B" Ï � zÕ: ‰ ¼MÌfŒÃ‹ MD$ð"A" ‰ ¾ÃÚf–ÃDðN1:¦ V$ÿfªÃ¿ "I",,MD$ò":GLSYS.DAT":… #,N$6g¯Ã† V$(ÿ”(N$)):V$()ðN$:‚IðÎÿ”(N$):… #,V$(I):ƒ I:Ã`g´ÃMD$ðV$( ): ‹ MD$ñï"B" Ï � HÕ: ‰ ¼Mug¾Ã• ¨ ‰ äÔ: ‰ ðÖgÈË ×ð5 ø ×ð8 Ï � HÕ: ‰ ¼M½gÒË ×ð6 ø ×ð> ø ×ðA Ï � zÕ:‰ ¼MÇgæÃ‰ äÔÿgðÃN#ð€€¨:X9$ðÿ–()òÿ–():X8$ðÿ–()òÿ–(¨):‰ úÃ&hñÃII$ðÿƒ(ÿ´(N#òDD#ôH‡),,):ŽShõÃDD#ð(ÿ­(X9$òII$òX8$)óÿ…(N#))ô×£p= ×#z:Ž‚húØÓSD!(S$)ðÿ”(ÿ‚(S$,)òÿ�(S$,)òÿƒ(S$,,))ÃhÿØÓDS$(D!)ðÿƒ(ÿ“(D!),,)ò"/"òÿƒ(ÿ“(D!),)ò"/"òÿƒ(ÿ“(D!),,)òhÄ¿ "I",,"A:GLDA.DAT":… #,VD$:à  :�ÛDATE%iÄVS$ðV$(): VC$ðV$() :�ÛSYSTEM, COMPANY NAMEViÄ‚ Ið Î ÿ”(V$()): DK%(I)ðÿ”(V$(òôI)): ƒ~iÄ‘ SC$:� ÔÆ:‘:‘ :�ÛDISPLAY HEADERS®i"Ä‘:‘"ONE MOMENT FOR PROGRAM STARTUP....":‘:ŽÜiÔÆ‘Ð(Wóÿ’(VC$))õ);VC$:‘Ð(Wóÿ’(VS$))õ);VS$õiÞÆ‘Ð(Wóÿ’(PN$))õ);PN$jèÆ‘Ð(Wóÿ’(VD$))õ);VD$j.ÇŽ%j8Ç‘ Q$;:± … R$6jtÇRL$ðÿ�(R$,)RjyÇ‹ R$ð"END" Ï ‰ ¼M :¢ ŽtjÈ�8Ç:N!ð:‹R$ðE$ÏŽ:¢DPð:DGð—jÈ‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰È©jÈ‹ÿ’(R$)ð‰ZÈÍj(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))èj2È‹CHï/÷CHñ:ÏDGð:‰PÈk<È‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰È:¢‰PÈ6kFÈ‹(CHñï-÷CHñï+)øJJñïÏ�ðÒ:‰ÈNkPȃJJ:‹DGðÏ�ðÒ:‰ÈykZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽ‡kdÈ�¸Ó:‰ȳkÈÈ� 8Ç: ‹ ÿ’(R$)ð Ï MOð: DAð: YRð: ŽÒkÜÈ‹ÿ’(R$)ñ ø ÿ’(R$)ï ‰ úÈ&lÞÈMOðÚ(R$,"/"):‹ MOð ‰ úÈ :¢ ‹ MOð Ï R$ð"0"òR$FlàÈDAðÚ(,R$,"/"):‹ DAð ‰ úÈ{lâÈ‹ DAð Ï RL$ðÿ�(R$,): R$ð"0"òÿ‚(R$,):R$ðRL$òR$±læÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))ålðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )÷(YRï)÷(YRñc)ÏŽólúÈ�Ô:‰ÈÈm�É�8Ç:DPð:DGð)m¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤Écm¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸É�mÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)–mÇÉ‹ÿ’(R$)ðÏD#ð:ŽºmÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))ÕmÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉþmàÉ‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰�É:¢‰ôÉ%nêÉ‹(CHñï-)÷(CHñï+)øJJñïÏ�ðÒ:‰�É=nôɃJJ:‹DGðÏ�ðÒ:‰�ÉQnþÉD#ðÿ”(R$ò"D"):ŽinXÊQ$ðQ$ò" (Y OR N)? "Šn]ÊYESð:�8Ç:‹RL$ð"Y"ÏYESðó:Ž�n_Ê‹ ÿ’(R$)ð Ï ŽºnbÊ‹RL$ñï"N"Ï�ðÒ:‰]Ê :¢ Žín¼Ê‘:‘"POSITION THE PAPER AT THE TOP OF A PAGE. "oÆÊQ$ð"READY":� XÊ: ‹ ÿ’(R$)ð Ï Ž)oÐÊ‹ Õ YES ‰ ÆÊ :¢ Ž`oðÒ‘"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Žmo"Ó‹ER%ðÏŽ¯oTÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$¹o^Ó‰ ¼Mèo¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:Ž'pÔ‘"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:ŽXpäÔ‘:‘" BASIC ERROR NUMBER ";×;" LINE NO. ";Ö‰pîÔ‘" CONSULT BASIC MANUAL FOR EXPLANATION. "©pøÔ‘:‘"ABNORMAL END OF JOB ":‘ÆpÕ‚IðÎ�:‘BELL$;:ƒ:© ¼MqHÕ‘:‘ "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":ŽQqzÕ‘:‘ "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":ކq_ê:�Û10/30/78 Multi ARray ISam - MARIS (OP) Ëq`ꕨ‰ºê:•OP�Äê,(ë,Œë,ðë,Tì,¸ì,í, €í,äí,Hî,¬î,ï,tïØqjꕨ‰äÔ:Žúqºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔDrÃê:�Û CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) prÄꕨ‰Îê:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$rÎêER%ð×:©ØêšrØê•¨‰ºê:‹ER%ð:ÏER%ð:Žsâê¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$tsìêÉO0$ð"MARIS":ÉO1$ðÿ–(ÿ):ÉO2$ðDA$:ÉO3$ðÿ²(): ÉO4$ðÿ²():ÉO5$ðO4$:ÉO6$ðÿ²(KL%):ÉO7$ðOC$:ÉO8$ð"103078"ŒsöêÂFI%,:ÃFI%:ER%ð:Žês'ë:�Û OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) t(땨‰2ë:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$%t2ëER%ð×:©<ëAt<땨‰ºê:‹ER%ñï:ÏER%ð:Ž tFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$ÆtPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:Ž]uZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ëäudë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%vnëOK$(OI)ðOT$(OJ):OJðOJò:ƒOI:¦OT$:‰‚ë¨vxë‘:‘"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": ‘BE$:NR%ð:ÁFI%,:‹EX%ñÏ‚ë:¢‚OPðÎEX%:ÁFI%: ‹OM$ð"M"ÏNR%ðNR%ò:OK$(NR%)ðOK$òÿ²(OP)ávyëƒOP:‹NR%ñÏ‚ë:¢†OH():OH()ð:OH()ð:OH()ð :OTðwzë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zëSw{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)‹w|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ëªw}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OHÓw‚ëÁFI%,:ÉO1$ðÿ–():ÂFI%,:ODðDI%:‰¸ìþw‹ë:�Û CLOSE MARIS FILE (RETURNS: ER%) xŒë•¨‰Žë:ÁFI%,:ER%ð:‰�ë*xŽëER%ð:©�ë>x�땨‰ºê:‹ER%ðÏŽbx”ë‹NR%ðϪë:¢OKðKL%ò:OTð€ýOKóëx–ë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ðy ëƒOI:¦OT$:‹OJñïÏÂFI%`yªëÁFI%,:ÉO1$ðÿ–(ÿ):ÉO3$ðÿ²(EX%):ÉO4$ðÿ²(NR%): ÉO5$ðÿ²(OA):ÉO7$ðOC$:ÂFI%,:ÃFI%:ER%ð:Ž•yïë:�Û CREATE RECORD (KE$, RETURNS: OI, OS, ER%) ­yðë�í:‹ER%ðÏŽ:¢�”òÝyúë‹NR%ïðOBÏ‚OJðNR%ÎOBÑó:¥OK$(OJò),OK$(OJ):ƒ@zìNR%ðNR%ò:OIðOB:OK$(OI)ðKE$òÿ²(OS):ÉOK$ðKE$:ÉOM$ð"M": ÉOE$ðÿ²(OS):ÉOL$ðÿ²(OS):ÂFI%,OS:ER%ð:ŽzzSì:�Û DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) ÍzTì�í:‹ER%ðÏŽ:¢�øò:NR%ðNR%ó:OTðOS: ‹OIñðNR%Ï‚OJðOIÎNR%:¥OK$(OJ),OK$(OJò):ƒéz^ìOSðOL:‹OSñïOTÏ�øò:‰^ì1{hì‹OIïNR%ÏER%ð:Ž:¢OSðÿ«(ÿ‚(OK$(OI),)): KE$ðÿ�(OK$(OI),KL%):ER%ð:ŽV{·ì:�Û REWIND (RETURNS: OI, ER%) w{¸ìOIð:‹NR%ðÏER%ð:Ž:¢ER%ð:Ž¥{í:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) Þ{íOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%)|&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:ŽE|0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&íf|:íOSðÿ«(ÿ‚(OK$(OI),)):ER%ð:Ž |í:�Û GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) Û|€í�í:‹ER%ðÏŽ :¢ÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž}ãí:�Û GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) }}äí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:ŽÀ}Gî:�Û GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) !~Hî‹OIñðÏER%ð:Ž:¢OIðOIó:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž\~«î:�Û CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) Ú~¬î�”ò:ÁFI%,OE:ÉOL$ðÿ²(OS):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OS):ÂFI%,OL:ÁFI%,OS:ÉOE$ðÿ²(OE): ÉOL$ðÿ²(OL):ÉOM$ð"E":ÂFI%,OS:ER%ð:Žï:�Û DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) 9ïÁFI%,OS:‹OM$ñï"E"ÏER%ð:Ž:¢�øòïÁFI%,OE:ÉOL$ðÿ²(OL):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OE):ÂFI%,OL:ER%ð:Ž·sï:�Û GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) ðtïÁFI%,OS:‹OM$ñï"E"ÏER%ð:¢OEðÿ«(OE$):OLðÿ«(OL$):ER%ðö~ïŽ €/ò:�Û SETUP (NR%) €0ò®O:†OK$(NR%):ŽH€“ò:�Û GET NEW SECTOR (RETURNS: OS) ~€”ò‹OAñïÏÁFI%,OA:OSðOA:OAðÿ«(OL$):¢EX%ðEX%ò:OSðEX%±€žòÁFI%,:ÉO3$ðÿ²(EX%):ÉO5$ðÿ²(OA):ÂFI%,:ER%ð:Žç€÷ò:�Û FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) 3�øòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉOM$ð"F":ÉOL$ðÿ²(OA):OAðOS: ÂFI%,OS:‰žòV�ùÿ‚ IIðLC Î A: ž: ƒ II: LCð: ŽE, OL, ER%) 3�øòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉOM$ð"F":ÉOL$ð