ÿíI:�ÛGLTL.BAS, GL TRANSACTION REGISTER LIST, RDR, 6/12/78 REV. CP/M 2.1, 01/03/79!J’ X :�ÛCOPYRIGHT 1978 RETAIL SCIENCES, INC./J• ¨ ‰ äÔOJPN$ð"TRANSACTIONS REGISTER"YJ� PÃpJôPU$ð"#,###,###.##"�JþJC#ð: JD#ðžJèNR%ðÿ”(V$( )):�0ò:�°³ÎJБ:‘:‘"*** TRANSACTIONS REGISTER LIST ***":‘Kä‘"YOU MAY SELECT - 1 - TO LIST ALL TRANSACTIONS BY ACCOUNT NUMBER"`Kî‘" - 2 - TO LIST SELECTED TRANSACTIONS BY SOURCE CODE"�K‘:Q$ð"WHAT IS YOUR SELECTION (1 OR 2)? "¥K LB!ð: UB!ð: � ȸK4• N! ‰ ¸ , ßK¸ � ¼Ê :�ÛPUT PAPER AT TOP OF FORMûKÌ � 0u :�ÛPRINT HEADERSLô � ð¹ :�ÛGET NEXT MASTER+Lþ ‹ ER%ð ‰ ¼MIL � ½ :�ÛGET NEXT EXTENT[L ‹ ER%ð ‰ ô eL � è€oL& ‰  ŽL � @œ :�ÛREAD SRC DESCR'S½L¥‘ SC$:‘Ð)" **** SOURCE CODE TABLE ****"âLª‘:‚Ið Î :‘ Ð);I;Ð");S$(I):ƒ&M¯‘:Q$ð"WHAT SOURCE CODE DO YOU WISH TO LIST? ":LB!ð:UB!ð:� È1M´SC%ðN!KM¹� ¼Ê :�ÛTOP OF FORMlM¾PN$ðS$(SC%) :�ÛREPORT TITLE‚MÈ� 0u :�ÛHEADERSœMÜ� ð¹ :�ÛREAD MASTER®M‹ ER%ð ‰ ¼MÈM� ½ :�ÛREAD EXTENTÚM"‹ ER%ð ‰ ÜN,‹ ÿ”(J4$)ðSC% Ï � è€ :�ÛLIST SELECTED SOURCES ONLYN6‰ +N¼M• ¨ ‰ SNÁM‹ FO% Ï OPð: � `ê :�ÛCLOSE MARISlNÆMà :�ÛANYTHING ELSE}NÈM‹ RCð Ï N�NÉM‹LCï4Ï�ùÿÄNËMž:ž"** TOTAL TRANSACTIONS IN LIST = ";RC:ž:LCðLCòîNÚMžÐ");"TOTAL DEBITS ";Ð2);:žÙPU$;JD#OÝMžÐ");"TOTAL CREDITS";Ð2);:žÙPU$;JC#3OßMžÐ2);"--------------"MOâM‹ JD#ïJC# Ï ¥ JC#,JD#|OäMžÐ!);"OUT OF BALANCE";Ð2);:žÙPU$;JC#òJD#ˆOçMLCðLCò§OéM� ùÿ: à :�ÛANYTHING ELSE¼ON‘:‘"END OF "òPN$üON‘:Q$ð"PUSH THE 'RETURN' KEY TO RETURN TO THE MAIN GL MENU "PN� 8Ç: ‹ ÿ’(R$)ñï Ï �)PNŠ "A:GL MENU"`P0už Ð(Wóÿ’(VC$))õ);VC$;:PGðPGò: ž Ðd);"PAGE ";PGzP:už Ð(Wóÿ’(VS$))õ);VS$”PDuž Ð(Wóÿ’(PN$))õ);PN$®PNuž Ð(Wóÿ’(VD$))õ);VD$´P}žQ }ž"ACCOUNT DESCRIPTION REFER. S DATE AMOUNT"ZQ}ž"------- ------------------------- -------- - -------- ------------"iQ}ž: LCð: ŽŽQ耋 ÿ‚(J1$,)ð"00" Ï J1$ðÿ�(J1$,)ÆQ퀞 Ð);J1$;Ð );J2$;Ð&);J3$;Ð1);J4$;Ð5);J5$;Ð@);ÖQò€ž Ù PU$;J6#Rü€‹ J6#ñ Ï JC#ðJC#òJ6# :¢ JD#ðJD#òJ6# :�ÛCREDITS, DEBIT TOTALS.R�LCðLCò: RCðRCòIR�‹ LCï< Ï � ùÿ: � 0uOR�Ž|R@œ¿ "I",,MD$ò":GLSRC.DAT": † S$(), A!()¶RJœ‚ Ið Î : … #,I$: A!(I)ðÿ”(I$): ƒ I :�ÛACCOUNT #'SíRTœ‚ Ið Î : … #,S$(I): ƒ I :�ÛSOURCE DESCRIPTIONSSYœ… #,FM$: FM%ðÿ”(FM$) :�ÛFISCAL MONTH START'S^œÃ -ShœŽ9S°³:�ÛOPENhSº³FI%ð:NA$ð"GLMST.DAT":DI%ðDK%():OPð:�`êzSij‹ ER%ï ‰ TÓŸSγ† F1$(),MA#() :�ÛCOA FIELDSàSسÀ #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()TⳂ Ið Î : À #, òIô AS T$, ASF1$(Iò): ƒ/T쳆 F2$() :�ÛJE FIELDSiTö³À #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()�T´À #, 'AST$, ASF2$(), ASF2$()®T ´FO%ðó :�ÛFILE OPEN FLAG´T´ŽÁTx´:�ÛCLOSEÚT‚´‹ Õ FO% Ï Ž :¢ FO%ðÿTŒ´OPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ Ž U@µ:�ÛREWIND2UJµOPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ ŽKU˜·:�ÛCREATE NEW RECORDtU¢·KE$ðM1$: OPð: � `ê: ‹ ER%ñï ‰ TÓ¯Uü·É F1$()ðM1$: É F1$()ðM2$: É F1$()ðM3$: É F1$()ðM4$èU¸É F1$()ðM5$:‚IðÎ:DD#ðMA#(I):� ñÃ:F1$(Iò)ðII$:ƒùU¸Â FI%,OS: ŽV`¸:�ÛUPDATE CURRENT RECORD+Vj¸� (¹ :�ÛSEARCHGVt¸‹ ER%ñï ‰ TÓ :¢ ‰ ü·\Vĸ:�ÛDELETE RECORD‰VθKE$ðM1$: OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ Ž¢V(¹:�ÛSEARCH FOR RECORD¾V2¹KE$ðM1$: OPð: � `ê: ŽÐVŒ¹:�ÛGET RECORDéV–¹KE$ðM1$: OPð: � `ê W ¹‹ ER%ð Ï Ž :¢ ‹ ER%ñï ‰ TÓJWª¹M1$ðF1$(): M2$ðF1$(): M3$ðF1$(): M4$ðF1$(): M5$ðF1$()qW¯¹M1ðÿ”(M1$): M3ðÿ”(M3$): M5ðÿ”(M5$)¢W´¹‚ Ið Î :II$ðF1$(Iò):� õÃ:MA#(I)ðDD#:ƒ:޹Wð¹:�ÛGET NEXT RECORDáWú¹OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ ‰ ª¹úW€»:�ÛCREATE NEW EXTENT"XŠ»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: ŽÁXH¼:�ÛUPDATE CURRENT EXTENTËXR¼‰ ”»àX¬¼:�ÛDELETE EXTENTY¶¼OPð : � `ê: ‹ ER%ï ‰ TÓ :¢ ŽY½:�ÛGET NEXT EXTENTDY½OSðOL: OPð : � `ê: ‹ ER%ï ‰ TÓwY$½J1$ðF2$(): J2$ðF2$(): J3$ðF2$(): J4$ðF2$()«Y.½J5$ðÓDS$(ÿ¬(F2$())):II$ðF2$():� õÃ:J6#ðDD#:ŽÓYPÕ ¨ ‰ ÈÃ: BELL$ðÿ–()òÿ–()òÿ–()õYZÿ "I",,"A:GLSYS.DAT":… #,N$.ZdÆ V$(ÿ”(N$)):V$()ðN$:‚ Ið Î ÿ”(N$):…#,V$(I):ƒ I:ÃSZnÃMD$ðV$( ):SC$ðV$():Wðÿ”(V$())|Z‚Ë MD$ñï"A" ÷ MD$ñï"B" Ï � zÕ: ‰ ¼M�ZŒÃ‹ MD$ð"A" ‰ ¾ÃžZ–ÃDðN1:¦ V$ÃZªÃ¿ "I",,MD$ò":GLSYS.DAT":… #,N$úZ¯Ã† V$(ÿ”(N$)):V$()ðN$:‚IðÎÿ”(N$):… #,V$(I):ƒ I:Ã$[´ÃMD$ðV$( ): ‹ MD$ñï"B" Ï � HÕ: ‰ ¼M9[¾Ã• ¨ ‰ äÔ: ‰ ðÃZ[ÈË ×ð5 ø ×ð8 Ï � HÕ: ‰ ¼M�[ÒË ×ð6 ø ×ð> ø ×ðA Ï � zÕ:‰ ¼M‹[æÃ‰ äÔÃ[ðÃN#ð€€¨:X9$ðÿ–()òÿ–():X8$ðÿ–()òÿ–(¨):‰ úÃê[ñÃII$ðÿƒ(ÿ´(N#òDD#ôH‡),,):Ž\õÃDD#ð(ÿ­(X9$òII$òX8$)óÿ…(N#))ô×£p= ×#z:ŽF\úØÓ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)): ƒB]Ä‘ SC$:� ÔÆ:‘:‘ :�ÛDISPLAY HEADERSr]"Ä‘:‘"ONE MOMENT FOR PROGRAM STARTUP....":‘:Ž ]ÔÆ‘Ð(Wóÿ’(VC$))õ);VC$:‘Ð(Wóÿ’(VS$))õ);VS$¹]ÞÆ‘Ð(Wóÿ’(PN$))õ);PN$Ò]èÆ‘Ð(Wóÿ’(VD$))õ);VD$Ø].ÇŽé]8Ç‘ Q$;:± … R$ú]tÇRL$ðÿ�(R$,)^yÇ‹ R$ð"END" Ï ‰ ¼M :¢ Ž8^È�8Ç:N!ð:‹R$ðE$ÏŽ:¢DPð:DGð[^È‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰Èm^È‹ÿ’(R$)ð‰ZÈ‘^(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))¬^2È‹CHï/÷CHñ:ÏDGð:‰PÈÕ^<È‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰È:¢‰PÈú^FÈ‹(CHñï-÷CHñï+)øJJñïÏ�ðÒ:‰È_PȃJJ:‹DGðÏ�ðÒ:‰È=_ZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽK_dÈ�¸Ó:‰Èw_ÈÈ� 8Ç: ‹ ÿ’(R$)ð Ï MOð: DAð: YRð: Ž–_ÜÈ‹ÿ’(R$)ñ ø ÿ’(R$)ï ‰ úÈê_ÞÈMOðÚ(R$,"/"):‹ MOð ‰ úÈ :¢ ‹ MOð Ï R$ð"0"òR$ `àÈDAðÚ(,R$,"/"):‹ DAð ‰ úÈ?`âÈ‹ DAð Ï RL$ðÿ�(R$,): R$ð"0"òÿ‚(R$,):R$ðRL$òR$u`æÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))©`ðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )÷(YRï)÷(YRñc)ÏŽ·`úÈ�Ô:‰ÈÈÊ`�É�8Ç:DPð:DGðí`¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤É'a¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸ÉEaÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)ZaÇÉ‹ÿ’(R$)ðÏD#ð:Ž~aÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))™aÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉÂaàÉ‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰�É:¢‰ôÉéaêÉ‹(CHñï-)÷(CHñï+)øJJñïÏ�ðÒ:‰�ÉbôɃJJ:‹DGðÏ�ðÒ:‰�ÉbþÉD#ðÿ”(R$ò"D"):Ž-bXÊQ$ðQ$ò" (Y OR N)? "Nb]ÊYESð:�8Ç:‹RL$ð"Y"ÏYESðó:Žab_Ê‹ ÿ’(R$)ð Ï Ž~bbÊ‹RL$ñï"N"Ï�ðÒ:‰]Ê :¢ ޱb¼Ê‘:‘"POSITION THE PAPER AT THE TOP OF A PAGE. "ÖbÆÊQ$ð"READY":� XÊ: ‹ ÿ’(R$)ð Ï ŽíbÐÊ‹ Õ YES ‰ ÆÊ :¢ Ž$cðÒ‘"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Ž1c"Ó‹ER%ðÏŽscTÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$}c^Ó‰ ¼M¬c¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:ŽëcÔ‘"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:Ž*d€Ô‘"*** START PROGRAM NOT RUN. CAN'T CONTINUE. ***";BELL$:Ž[däÔ‘:‘" BASIC ERROR NUMBER ";×;" LINE NO. ";ÖŒdîÔ‘" CONSULT BASIC MANUAL FOR EXPLANATION. "¬døÔ‘:‘"ABNORMAL END OF JOB ":‘ÉdÕ‚IðÎ�:‘BELL$;:ƒ:© ¼M eHÕ‘:‘ "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":ŽTezÕ‘:‘ "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":މe_ê:�Û10/30/78 Multi ARray ISam - MARIS (OP) Îe`ꕨ‰ºê:•OP�Äê,(ë,Œë,ðë,Tì,¸ì,í, €í,äí,Hî,¬î,ï,tïÛejꕨ‰äÔ:Žýeºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔGfÃê:�Û CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) sfÄꕨ‰Îê: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$wgìêÉ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$(h2ëER%ð×:©<ëDh<땨‰ºê:‹ER%ñï:ÏER%ð:Ž£hFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$ÉhPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:Ž`iZë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ëVk{ë‚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%ð:‰�ë-lŽëER%ð:©�ëAl�땨‰ºê:‹ER%ðÏŽel”ë‹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%cmªëÁ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):ƒCnì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Ï�øò:‰^ì4ohì‹OIïNR%ÏER%ð:Ž:¢OSðÿ«(ÿ‚(OK$(OI),)): KE$ðÿ�(OK$(OI),KL%):ER%ð:ŽYo·ì:�Û REWIND (RETURNS: OI, ER%) zo¸ì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%ð:ŽHp0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&íip:í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%ð:Ž_r«î:�Û 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%)