ÿêI:�ÛGLMSTFIX.BAS, G/L MASTER FILE REPAIR, RAW, 7/27/78 REV. CP/M 2.4, 7/27/79J:�Û COPYRIGHT 1978 RETAIL SCIENCES, INC.'J’p5J• ¨ ‰ äÔSJPN$ð"G/L MASTER FILE FIX"]J� PæJ‘:‘"INSERT THE DATA DISKETTE WITH FILE TO BE CORRECTED INTO DRIVE 0"ÞJ‘:‘"INSERT A BLANK FORMATTED DISKETTE INTO DRIVE 1"ôJ"‘:Q$ð"READY":�XÊK'‹ÕYESÏ":¢‘:Ì[K,V$()ð"A:GLSYS.DAT":V$()ð"A:GLSRC.DAT":V$()ð"B:GLSYS.DAT":V$()ð"B:GLSRC.DAT"tK1•¨‰6:ÇV$()ASV$()”K6‹×ð:Ï©E :�ÛFILE FOUND?½K;‹×ð5ÏZ1%ðó:©E :�ÛFILE NOT FOUND?×K@‰äÔ :�ÛUNKNOWN ERRORðKE•¨‰J:ÇV$()ASV$()LJ‹×ð:Ï©c :�ÛFILE FOUND?9LO‹×ð5ÏZ2%ðó:©c :�ÛFILE NOT FOUND?BLT‰@‡LY¿"I",,V$(PP%):¿"O",,V$(PP%ò):…#,A$:‘#,A$:Xðÿ”(A$):Q$ðÿ–(")®L^‚IðÎX:…#,A$:‘#,Q$;A$;Q$;:ƒI:Ã:ŽéLc‹Z1%Ï‘"TRANSFERRING ";V$();" TO DRIVE 1":PP%ð:�Y:‘$Mh‹Z2%Ï‘"TRANSFERRING ";V$();" TO DRIVE 1":PP%ð:�Y:‘/Mm•¨‰äÔqMr‘:‘"SET PRINTER TO TOP OF PAGE TO RECEIVE ANY ERROR MESSAGES"‡Mw‘:Q$ð"READY":�XÊ•M|‹ÕYESÏréM†FI%ð:NA$ð"GLMST.DAT":DI%ð:DA$ðVD$:KL%ð:OC$ð"GL MASTER FILE - FIXED"òÿ˜(L)N�OPð:�`ê:‹ER%ðÏÖNš‹ER%ñïÏTÓ[N¤‘:Q$ð"DO YOU WISH TO ERASE THE PRESENT GL DATA FILE ON DRIVE 1":�XÊxN®‹YESÏÈ"B:GLMST.DAT":‰†�N¸‰¶NÖ‘:‘"THIS PROCESSING MAY TAKE A FEW MINUTES...":‘ÖNôNR%ðÿ”(V$( )):�0ò:�ÛSETUPêNþ�°³:‹ER%ïÏTÓõNÿ•¨‰X˜O¿ "R",,"A:GLMST.DAT"GOÀ #,(KL%)AS ZK$,({óKL%)ASZT$,ASZM$,ASZE$,ASZL$OÀ #,(KL%)AS XK$,({óKL%)ASXT$,ASXM$,ASXE$,ASXL$–OÀ #,ASD$,ASXZ$¶OXÁ#,:XZ%ðÿ«(XZ$) :�ÛPASS 1ÄOb‚ZRðÎXZ%ÌOlÁ#ÞOv‹ZM$ñï"M"ÏŠP€KEY$ðZK$:�˜·:‹ER%ðÏ�  :�ÛKEY$ ALREADY EXISTSPŠƒZR0P”Á#, :�ÛPASS 2>Pž‚ZRðÎXZ%FP¨Á#XP²‹ZM$ñï"E"Ïä�P¼KEY$ðZK$:OPð:�`ê :�ÛGET THE MASTERªPÆ‹ER%ðÏ�„:‰ä :�ÛMASTER NOT FOUNDºPЋER%ñïÏTÓÔPÚ�€» :�ÛCREATE EXTENTÜPäƒZRèPîÃ:‰¼MóP �è:žPQ*ž"ERROR : ATTEMPT TO CREATE A MASTER ACCOUNT THAT ALREADY EXISTS FOR ACCOUNT # ";ÿ”(ZK$)^Q4LCðLCò:Ž€Q„�è:ž:II$ðÿƒ(ZT$,',):� õÃÓQŽž"ERROR : MASTER RECORD NOT FOUND FOR THE FOLLOWING TRANSACTION INFORMATION :"ðQ˜ž"ACCOUNT # :";ÿ”(ZK$)R¢ž"DESCRIPTION : ";ÿƒ(ZT$,,)6R¬ž"REFERENCE : ";ÿƒ(ZT$,,)YR¶ž"SOURCE CODE : ";ÿƒ(ZT$,",)†RÀž"DATE : ";ÓDS$(ÿ¬(ÿƒ(ZT$,#,))) RÊž"AMOUNT : ";DD#®RÔLCðLCò:޶RÞ:�ÛÃRè‹LCñ8ÏŽ×Rò‚ZZðLCÎA:ž:ƒZZâRüLCð:ŽðR¼M• ¨ ‰ SÁM‹ FO% Ï OPð: � `ê :�ÛCLOSE MARIS1SÆMà :�ÛANYTHING ELSEFSN‘:‘"END OF "òPN$‰SN‘:‘"INSERT THE GL PROGRAM DISK INTO DRIVE 0":‘:Q$ð"READY":�XʧSN‹ÕYESÏN:¢Ì:Š"A:GL MENU"¹SW˜:�ÛERROR TRAP TX˜‹×ñï9ÏäÔ:¢EM$ð"*** DISK I/O ERROR--SKIPPING RECORD ***": ‘EM$:žEM$:LCðLCòTb˜©ƒ/T°³:�ÛOPEN... FORCE DRIVE 1YTº³FI%ð:NA$ð"GLMST.DAT":DI%ð:OPð:�`êkTij‹ ER%ï ‰ TÓ‰T ´FO%ðó :�ÛFILE OPEN FLAG�T´ŽœTx´:�ÛCLOSEµT‚´‹ Õ FO% Ï Ž :¢ FO%ðÚTŒ´OPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ ŽóT˜·:�ÛCREATE NEW RECORD U¢·OPð:�`ê:‹ER%ñïÏ Ž"Uü·ÉXK$ðZK$:ÉXT$ðZT$3U¸Â FI%,OS: ŽLU€»:�ÛCREATE NEW EXTENTtUŠ»OLðOS: OPð : � `ê: ‹ ER%ñï ‰ TÓ}U¨»‰ü·¥UPÕ ¨ ‰ ÈÃ: BELL$ðÿ–()òÿ–()òÿ–()ÇUZÿ "I",,"A:GLSYS.DAT":… #,N$VdÆ V$(ÿ”(N$)):V$()ðN$:‚ Ið Î ÿ”(N$):…#,V$(I):ƒ I:Ã%VnÃMD$ðV$( ):SC$ðV$():Wðÿ”(V$())NV‚Ë MD$ñï"A" ÷ MD$ñï"B" Ï � zÕ: ‰ ¼MbVŒÃ‹ MD$ð"A" ‰ ¾Ã–V‘ɾà :�Û************ FORCE TO USE A:GLSYS ONLY¤V–ÃDðN1:¦ V$ÉVªÃ¿ "I",,MD$ò":GLSYS.DAT":… #,N$W¯Ã† V$(ÿ”(N$)):V$()ðN$:‚IðÎÿ”(N$):… #,V$(I):ƒ I:Ã*W´ÃMD$ðV$( ): ‹ MD$ñï"B" Ï � HÕ: ‰ ¼M?W¾Ã• ¨ ‰ äÔ: ‰ ðÃ`WÈË ×ð5 ø ×ð8 Ï � HÕ: ‰ ¼M‡WÒË ×ð6 ø ×ð> ø ×ðA Ï � zÕ:‰ ¼M‘WæÃ‰ äÔÉWðÃN#ð€€¨:X9$ðÿ–()òÿ–():X8$ðÿ–()òÿ–(¨):‰ úÃðWñÃII$ðÿƒ(ÿ´(N#òDD#ôH‡),,):ŽXõÃDD#ð(ÿ­(X9$òII$òX8$)óÿ…(N#))ô×£p= ×#z:ŽLXúØÓSD!(S$)ðÿ”(ÿ‚(S$,)òÿ�(S$,)òÿƒ(S$,,))�XÿØÓDS$(D!)ðÿƒ(ÿ“(D!),,)ò"/"òÿƒ(ÿ“(D!),)ò"/"òÿƒ(ÿ“(D!),,)¼XÄ¿ "I",,"A:GLDA.DAT":… #,VD$:à  :�ÛDATEïXÄVS$ðV$(): VC$ðV$() :�ÛSYSTEM, COMPANY NAMEYÄ‚IðÎÿ”(V$()):DK%(I)ðÿ”(V$(òôI)):ƒIDYÄ‘ SC$:� ÔÆ:‘:‘ :�ÛDISPLAY HEADERStY"Ä‘:‘"ONE MOMENT FOR PROGRAM STARTUP....":‘:Ž¢YÔÆ‘Ð(Wóÿ’(VC$))õ);VC$:‘Ð(Wóÿ’(VS$))õ);VS$»YÞÆ‘Ð(Wóÿ’(PN$))õ);PN$ÔYèÆ‘Ð(Wóÿ’(VD$))õ);VD$ÚY.ÇŽëY8Ç‘ Q$;:± … R$üYtÇRL$ðÿ�(R$,)ZyÇ‹ R$ð"END" Ï ‰ ¼M :¢ Ž:ZÈ�8Ç:N!ð:‹R$ðE$ÏŽ:¢DPð:DGð]ZÈ‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰ÈoZÈ‹ÿ’(R$)ð‰ZÈ“Z(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))®Z2È‹CHï/÷CHñ:ÏDGð:‰PÈ×Z<È‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰È:¢‰PÈüZFÈ‹(CHñï-÷CHñï+)øJJñïÏ�ðÒ:‰È[PȃJJ:‹DGðÏ�ðÒ:‰È?[ZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽM[dÈ�¸Ó:‰Èy[ÈÈ� 8Ç: ‹ ÿ’(R$)ð Ï MOð: DAð: YRð: Ž˜[ÜÈ‹ÿ’(R$)ñ ø ÿ’(R$)ï ‰ úÈì[ÞÈMOðÚ(R$,"/"):‹ MOð ‰ úÈ :¢ ‹ MOð Ï R$ð"0"òR$ \àÈDAðÚ(,R$,"/"):‹ DAð ‰ úÈA\âÈ‹ DAð Ï RL$ðÿ�(R$,): R$ð"0"òÿ‚(R$,):R$ðRL$òR$w\æÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))«\ðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )÷(YRï)÷(YRñc)ÏŽ¹\úÈ�Ô:‰ÈÈÌ\�É�8Ç:DPð:DGðï\¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤É)]¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸ÉG]ÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)\]ÇÉ‹ÿ’(R$)ðÏD#ð:Ž€]ÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))›]ÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉÄ]àÉ‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰�É:¢‰ôÉë]êÉ‹(CHñï-)÷(CHñï+)øJJñïÏ�ðÒ:‰�É^ôɃJJ:‹DGðÏ�ðÒ:‰�É^þÉD#ðÿ”(R$ò"D"):Ž/^XÊQ$ðQ$ò" (Y OR N)? "P^]ÊYESð:�8Ç:‹RL$ð"Y"ÏYESðó:Žc^_Ê‹ ÿ’(R$)ð Ï Ž€^bÊ‹RL$ñï"N"Ï�ðÒ:‰]Ê :¢ ޳^¼Ê‘:‘"POSITION THE PAPER AT THE TOP OF A PAGE. "Ø^ÆÊQ$ð"READY":� XÊ: ‹ ÿ’(R$)ð Ï Žï^ÐÊ‹ Õ YES ‰ ÆÊ :¢ Ž&_ðÒ‘"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Ž3_"Ó‹ER%ðÏŽu_TÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$_^Ó‰ ¼M®_¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:Ží_Ô‘"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:Ž,`€Ô‘"*** START PROGRAM NOT RUN. CAN'T CONTINUE. ***";BELL$:Ž]`äÔ‘:‘" BASIC ERROR NUMBER ";×;" LINE NO. ";ÖŽ`îÔ‘" CONSULT BASIC MANUAL FOR EXPLANATION. "¹`øÔ‘:‘"ABNORMAL END OF JOB ":‘: • ¨ ‰ Ö`Õ‚IðÎ�:‘BELL$;:ƒ:© ¼MaHÕ‘:‘ "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":ŽaazÕ‘:‘ "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":Ž–a_ê:�Û10/30/78 Multi ARray ISam - MARIS (OP) Ûa`ꕨ‰ºê:•OP�Äê,(ë,Œë,ðë,Tì,¸ì,í, €í,äí,Hî,¬î,ï,tïèajꕨ‰äÔ:Ž bºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔTbÃê:�Û CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) €bÄꕨ‰Îê:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$�bÎêER%ð×:©ØêªbØê•¨‰ºê:‹ER%ð:ÏER%ð:Žcâê¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$„cìêÉO0$ð"MARIS":ÉO1$ðÿ–(ÿ):ÉO2$ðDA$:ÉO3$ðÿ²(): ÉO4$ðÿ²():ÉO5$ðO4$:ÉO6$ðÿ²(KL%):ÉO7$ðOC$:ÉO8$ð"103078"œcöêÂFI%,:ÃFI%:ER%ð:Žúc'ë:�Û OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) &d(땨‰2ë:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$5d2ëER%ð×:©<ëQd<땨‰ºê:‹ER%ñï:ÏER%ð:ްdFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$ÖdPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:ŽmeZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ëôedë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%fnëOK$(OI)ðOT$(OJ):OJðOJò:ƒOI:¦OT$:‰‚ë¸fxë‘:‘"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": ‘BE$:NR%ð:ÁFI%,:‹EX%ñÏ‚ë:¢‚OPðÎEX%:ÁFI%: ‹OM$ð"M"ÏNR%ðNR%ò:OK$(NR%)ðOK$òÿ²(OP)ñfyëƒOP:‹NR%ñÏ‚ë:¢†OH():OH()ð:OH()ð:OH()ð :OTð&gzë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zëcg{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)›g|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ëºg}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OHãg‚ëÁFI%,:ÉO1$ðÿ–():ÂFI%,:ODðDI%:‰¸ìh‹ë:�Û CLOSE MARIS FILE (RETURNS: ER%) +hŒë•¨‰Žë:ÁFI%,:ER%ð:‰�ë:hŽëER%ð:©�ëNh�땨‰ºê:‹ER%ðÏŽrh”ë‹NR%ðϪë:¢OKðKL%ò:OTð€ýOKóûh–ë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ði ëƒOI:¦OT$:‹OJñïÏÂFI%piªëÁFI%,:ÉO1$ðÿ–(ÿ):ÉO3$ðÿ²(EX%):ÉO4$ðÿ²(NR%): ÉO5$ðÿ²(OA):ÉO7$ðOC$:ÂFI%,:ÃFI%:ER%ð:Ž¥iïë:�Û CREATE RECORD (KE$, RETURNS: OI, OS, ER%) ½iðë�í:‹ER%ðÏŽ:¢�”òíiúë‹NR%ïðOBÏ‚OJðNR%ÎOBÑó:¥OK$(OJò),OK$(OJ):ƒPjìNR%ðNR%ò:OIðOB:OK$(OI)ðKE$òÿ²(OS):ÉOK$ðKE$:ÉOM$ð"M": ÉOE$ðÿ²(OS):ÉOL$ðÿ²(OS):ÂFI%,OS:ER%ð:ŽŠjSì:�Û DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) ÝjTì�í:‹ER%ðÏŽ:¢�øò:NR%ðNR%ó:OTðOS: ‹OIñðNR%Ï‚OJðOIÎNR%:¥OK$(OJ),OK$(OJò):ƒùj^ìOSðOL:‹OSñïOTÏ�øò:‰^ìAkhì‹OIïNR%ÏER%ð:Ž:¢OSðÿ«(ÿ‚(OK$(OI),)): KE$ðÿ�(OK$(OI),KL%):ER%ð:Žfk·ì:�Û REWIND (RETURNS: OI, ER%) ‡k¸ìOIð:‹NR%ðÏER%ð:Ž:¢ER%ð:޵kí:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) îkíOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%)$l&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:ŽUl0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&ívl:íOSðÿ«(ÿ‚(OK$(OI),)):ER%ð:ްlí:�Û GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) ël€í�í:‹ER%ðÏŽ :¢ÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž*mãí:�Û GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) �mäí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:ŽÐmGî:�Û GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) 1nHî‹OIñðÏER%ð:Ž:¢OIðOIó:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Žln«î:�Û CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) ên¬î�”ò:ÁFI%,OE:ÉOL$ðÿ²(OS):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OS):ÂFI%,OL:ÁFI%,OS:ÉOE$ðÿ²(OE): ÉOL$ðÿ²(OL):ÉOM$ð"E":ÂFI%,OS:ER%ð:Ž%oï:�Û DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) IoïÁFI%,OS:‹OM$ñï"E"ÏER%ð:Ž:¢�øò�oïÁFI%,OE:ÉOL$ðÿ²(OL):ÂFI%,OE: ÁFI%,OL:ÉOE$ðÿ²(OE):ÂFI%,OL:ER%ð:ŽÇosï:�Û GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) ptïÁFI%,OS:‹OM$ñï"E"ÏER%ð:¢OEðÿ«(OE$):OLðÿ«(OL$):ER%ðp~ïŽp/ò:�Û SETUP (NR%) 0p0ò®O:†OK$(NR%):ŽXp“ò:�Û GET NEW SECTOR (RETURNS: OS) Žp”ò‹OAñïÏÁFI%,OA:OSðOA:OAðÿ«(OL$):¢EX%ðEX%ò:OSðEX%ÁpžòÁFI%,:ÉO3$ðÿ²(EX%):ÉO5$ðÿ²(OA):ÂFI%,:ER%ð:Ž÷p÷ò:�Û FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) CqøòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ÉOM$ð"F":ÉOL$ðÿ²(OA):OAðOS: ÂFI%,OS:‰žòfqùÿ‚ IIðLC Î A: ž: ƒ II: LCð: ŽOE, OL, ER%) CqøòÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$