ÿæI:�ÛGLET.BAS, G/L ENTER TRANSACTIONS, RDR, 6/15/78 REV. CP/M 2.3, 7/27/79J’ | :�ÛCOPYRIGHT 1978 RETAIL SCIENCES, INC.(J• ¨ ‰ äÔEJPN$ð"ENTER TRANSACTIONS"OJ� PÃvJ,� @œ :�ÛREAD SOURCE CODE FILE IN�J6JD#ð: JC#ð: J5$ðVD$ËJ�¿ "O",,MD$ò":GLTMP.DAT" :�ÛTEMP FILE FOR SPEED ENTRYãJôPU$ð"$$####,###.##" KþC1$ð"** FIELD 1 (ACCOUNT) " /KC2$ð"** FIELD 2 (DESCRIPTION)"RKC3$ð"** FIELD 3 (REFERENCE) "uKC4$ð"** FIELD 4 (SOURCE) "˜K&C5$ð"** FIELD 5 (DATE) "»K0C6$ð"** FIELD 6 (AMOUNT) "æKXCV$ð" CURRENT VALUE: ": CE$ð" ENTER: " L¼NR%ðÿ”(V$( )):�0ò:�°³ :�ÛSET # RECORDS, OPEN FILESL ‘ SC$:‘Ð);"**** G/L TRANSACTIONS ENTRY ****"}L*‘Ð);" **** SOURCE CODE TABLE ****"£L4‘:‚ Ið Î :‘ Ð);I;Ð");S$(I):ƒÏL9‘ Ð);"END";Ð");"TO END THIS PROGRAM"M>‘:‘"WHAT IS THE CODE OF THE TRANSACTIONS THAT"GMHQ$ð"YOU WILL BE ENTERING? ":LB!ð:UB!ð:EF%ðó:�È:EF%ð: SCðN!OMБ:‘gMÚ�  N :�ÛACCOUNT #†Mß‹ ÿ’(J1$)ð Ï J1$ðJ1$ò"00" M� R :�ÛDESCRIPTION¸M � ðU :�ÛREFERENCEÛM*J4$ðÿ‚(ÿ“(SC),):‘ C4$òCE$òJ4$îM4� À] :�ÛDATEN>� ¨a :�ÛAMOUNT NH� 0u:Nz‘:Q$ð "DOUBLECHECK. ANY CHANGES": � XÊQN‹ ÿ’(R$)ð Ï ‰ ¢dN„‹ YES Ï � 0 ›N¢�   :�ÛWRITE TRANS. INTO TEMP FILE (EDIT LATER)¥N¬‰ ÐØN0 ‘ : Q$ð"ENTER NUMBER OF FIELD TO BE CHANGED: "õN: Qð: UB!ð: LB!ð: � ÈOD ‹ ÿ’(R$)ð Ï ŽOb ‘6O€ • N! �  N, R, ðU, ØY, À], ¨a@O… � 0ukOŠ ‘ : Q$ð"ANY MORE FIELDS TO BE CHANGED"‚O” Qð : QTð : � XÊ™O™ ‹ ÿ’(R$)ð Ï ‰ ¨ ©Ož ‹ YES ‰ 0 ¯O¨ ‘µOÐ ŽP Q$ðÿ–("): ‘ #,Q$;J1$;Q$;Q$;J2$;Q$;Q$;J3$;Q$;Q$;J4$;Q$;Q$;J5$;Q$;Q$;J6$;Q$;P´RCðRCòPÈŽ.Pˆà : ‹ RCð ‰ ÁMePœ‘:Q$ð"DO YOU WANT TO PRINT A CONTROL REPORT":� XÊzP¦‹ ÿ’(R$)ð ‰ ìŒP°‹ Õ YES ‰ ì’Pº‘¬PÄ� ¼Ê :�ÛTOP OF FORM×PÎCR%ðó: � $w :�ÛSET FLAG, DO HEADERSôPì¿ "I",,MD$ò":GLTMP.DAT")Qö‘:‘"THIS PROCESS MAY TAKE A FEW MINUTES . . .":‘9Q‚ IXð Î RChQ … #, J1$,J2$,J3$,J4$,J5$,J6$: J6#ðÿ”(J6$)ŠQM1$ðJ1$: � Œ¹ :�ÛGET MASTERÀQ‹ ER%ð Ï EM$ð"INVALID ACCOUNT NUMBER":�´:‰ PõQ(‹ M3$ñï"2"Ï EM$ð"INVALID ACCOUNT TYPE":�´:‰P4R2‹ M3$ð"2" ÷ M4$ð"M" Ï EM$ð"CAN'T POST TO MASTER":�´:‰PTR<� €» :�ÛADD TRANS TO FILE—R>‹ J6#ï Ï JD#ðJD#òJ6# :¢ JC#ðJC#òJ6# :�ÛTOTAL DEBITS, CREDITS£R@RPðRPò¶RF‹ CR% Ï � y¿RPƒ IXÙRdFF%ðó :�ÛFINAL FLAGãRn‰ ¼MS´EM$ð"NEXT ENTRY REJECTED - "òEM$-S¾‹ CR% Ï ž EM$: LCðLCò: :¢ ‘ EM$7SÈ� y=SÒŽKS¼M• ¨ ‰ mS¾M‹ FF% Ï ‰ ÁM :�ÛFINAL FLAG‘S¿M• ¨ ‰ äÔ: ‹ EF% ‰ ˆ :¢ ‰  ¹SÁM‹ FO% Ï OPð: � `ê :�ÛCLOSE MARISÒSÆMà :�ÛANYTHING ELSEâSÐM‹ CR% ‰ öM TßM‘"TOTAL TRANSACTIONS ENTERED = ";RP1TäM‘ "TOTAL DEBITS = ";:‘ Ù PU$;JD#XTéM‘ "TOTAL CREDITS = ";:‘ Ù PU$;JC#rTîM‹ JD#ïJC# Ï ¥ JD#,JC#¤TóM‘ "OUT OF BALANCE = ";:‘ Ù PU$;JC#òJD#: ‰ N´TöM‹LCï6Ï�ùÿÞTøMž:ž"TOTAL TRANSACTIONS ENTERED = ";RPUýMž "TOTAL DEBITS = ";:ž Ù PU$;JD#,UNž "TOTAL CREDITS = ";:ž Ù PU$;JC#UUNž " ============="oU N‹ JD#ïJC# Ï ¥ JD#,JC#šUNž "OUT OF BALANCE = ";:ž Ù PU$;JD#òJC#­UNLCðLCò: � ùÿÂUN‘:‘"END OF "òPN$VN‘:Q$ð"PUSH THE 'RETURN' KEY TO RETURN TO THE MAIN GL MENU "VN� 8Ç: ‹ ÿ’(R$)ñï Ï �/VNŠ "A:GL MENU">V NQ$ðC1$òCE$jV*NQð : QTð : LB!ðd : UB!ð€OC‘ : � È‚V/N‹ ÿ’(R$)ð Ï R$ðJ1$žV4N‹ ÿ’(R$)ð Ï R$ðR$ò"00"½V>N‹ ÿ’(R$)ñï Ï � ¸Ó: ‰  NÈVHNJ1$ðR$ÎVRNŽÝVRQ$ðC2$òCE$ìVRQð: � 8ÇWR‹ ÿ’(R$)ð Ï R$ðJ2$#WR‹ ÿ’(R$)ï Ï � ðÒ: ‰ R,W!R��e7W&RJ2$ðR$=W0RŽLWðUQ$ðC3$òCE$[WúUQð: � 8ÇsWüU‹ ÿ’(R$)ð Ï R$ðJ3$‘WÿU‹ ÿ’(R$)ï Ï � ðÒ: ‰ úUšWV��e¨WVJ3$ðR$: Ž·WØYQ$ðC4$òCE$ÔWâYQð: LB!ð: UB!ð: � ÈìWçY‹ ÿ’(R$)ð Ï R$ðH4$ XìY‹ ÿ’(R$)ï Ï � ðÒ: ‰ âYXöYJ4$ðR$: H4$ðJ4$$X ZŽ3XÀ]Q$ðC5$òCE$BXÊ]Qð: � ÈÈZXÏ]‹ ÿ’(R$)ð Ï R$ðJ5$eXÔ]J5$ðR$kXÞ]ŽzX¨aQ$ðC6$òCE$ŠX²aQð : � �É�XÆaJ6#ðD#: J6$ðR$£XÐaŽ«X�eKðëXšeKðÚ(K,R$,ÿ–(")): ‹KñïÏR$ðÿƒ(R$,,Kó)òÿƒ(R$,Kò):‰še:¢ŽñX0u‘Y:u‘"**** CURRENT RECORD VALUE ****"YDu‘OYNu‹ ÿƒ(J1$,,)ð"00" Ï X1$ðÿ�(J1$,) :¢ X1$ðJ1$kYXu‘ C1$;Ð);CV$;Ð-);X1$‡Ybu‘ C2$;Ð);CV$;Ð-);J2$£Ylu‘ C3$;Ð);CV$;Ð-);J3$¿Yvu‘ C4$;Ð);CV$;Ð-);J4$ÛY€u‘ C5$;Ð);CV$;Ð-);J5$ùYŠu‘ C6$;Ð);CV$;Ð-);:‘J6#ZÆu‚ Ið Î  : ‘ "--";: ƒ IZÐuŽSZ$wž Ð(Wóÿ’(VC$))õ);VC$;:PGðPGò:ž ÐF);"PAGE ";PGmZ&wž Ð(Wóÿ’(VS$))õ);VS$£Z'wTN$ð"TRANSACTION ENTRY CONTROL REPORT": ¥ PN$,TN$½Z(wž Ð(Wóÿ’(PN$))õ);PN$ËZ)w¥ PN$,TN$åZ*wž Ð(Wóÿ’(VD$))õ);VD$ëZ.wž;[8wž "ACCOUNT DESCRIPTION REFERENCE SC DATE AMOUNT"�[Bwž "------- ----------------------- -------- -- -------- -------------"Ÿ[Lwž: LCð: ŽÄ[y‹ ÿ‚(J1$,)ð"00" Ï J1$ðÿ�(J1$,)Ö[y‹ Õ CR% Ï  { \"yž Ð);J1$;Ð );J2$;Ð$);J3$;Ð0);J4$;Ð4);J5$;\'yž ÐA);&\,yž Ù PU$; J6#J\6yLCðLCò: ‹ LCï: Ï � ùÿ: � $wP\@yŽƒ\ {‘ Ð);J1$;Ð );J2$;Ð$);J3$;Ð0);J4$;Ð4);J5$;™\ {‘ ÐA);:‘ÙPU$;J6#Ÿ\>{ŽÌ\@œ¿ "I",,MD$ò":GLSRC.DAT": † S$(), A!()]Jœ‚ Ið Î : … #,I$: A!(I)ðÿ”(I$): ƒ I :�ÛACCOUNT #'S=]Tœ‚ Ið Î : … #,S$(I): ƒ I :�ÛSOURCE DESCRIPTIONSo]Yœ… #,FM$: FM%ðÿ”(FM$) :�ÛFISCAL MONTH STARTw]^œÃ }]hœŽ‰]°³:�ÛOPEN¸]º³FI%ð:NA$ð"GLMST.DAT":DI%ðDK%():OPð:�`êÊ]ij‹ ER%ï ‰ TÓï]γ† F1$(),MA#() :�ÛCOA FIELDS0^سÀ #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()c^Ⳃ Ið Î : À #, òIô AS T$, ASF1$(Iò): ƒ^쳆 F2$() :�ÛJE FIELDS¹^ö³À #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()à^´À #, 'AST$, ASF2$(), ASF2$()þ^ ´FO%ðó :�ÛFILE OPEN FLAG_´Ž_x´:�ÛCLOSE*_‚´‹ Õ FO% Ï Ž :¢ FO%ðO_Œ´OPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ Ž]_@µ:�ÛREWIND‚_JµOPð: � `ê: ‹ ER%ñï ‰ TÓ :¢ Ž›_˜·:�ÛCREATE NEW RECORDÄ_¢·KE$ðM1$: OPð: � `ê: ‹ ER%ñï ‰ TÓÿ_ü·É F1$()ðM1$: É F1$()ðM2$: É F1$()ðM3$: É F1$()ðM4$9`¸É F1$()ðM5$:‚IðÎ:DD#ðMA#(I):� ñÃ:ÉF1$(Iò)ðII$:ƒJ`¸Â FI%,OS: Žg``¸:�ÛUPDATE CURRENT RECORD|`j¸� (¹ :�ÛSEARCH˜`t¸‹ ER%ñï ‰ TÓ :¢ ‰ ü·­`ĸ:�ÛDELETE RECORDÚ`θKE$ðM1$: OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ Žó`(¹:�ÛSEARCH FOR RECORDa2¹KE$ðM1$: OPð: � `ê: Ž!aŒ¹:�ÛGET RECORD:a–¹KE$ðM1$: OPð: � `ê\a ¹‹ ER%ð Ï Ž :¢ ‹ ER%ñï ‰ TÓ›aª¹M1$ðF1$(): M2$ðF1$(): M3$ðF1$(): M4$ðF1$(): M5$ðF1$()Âa¯¹M1ðÿ”(M1$): M3ðÿ”(M3$): M5ðÿ”(M5$)óa´¹‚ Ið Î :II$ðF1$(Iò):� õÃ:MA#(I)ðDD#:ƒ:Ž bð¹:�ÛGET NEXT RECORD2bú¹OPð: � `ê: ‹ ER%ï ‰ TÓ :¢ ‰ ª¹Kb€»:�ÛCREATE NEW EXTENTsbŠ»OLðOS: OPð : � `ê: ‹ ER%ñï ‰ TÓ®b”»É F2$()ðJ1$: É F2$()ðJ2$: É F2$()ðJ3$: É F2$()ðJ4$äbž»É F2$()ðÿ³(ÓSD!(J5$)):DD#ðJ6#:� ñÃ:É F2$()ðII$õb¨»Â FI%,OS: ŽcH¼:�ÛUPDATE CURRENT EXTENTcR¼‰ ”»1c¬¼:�ÛDELETE EXTENTWc¶¼OPð : � `ê: ‹ ER%ï ‰ TÓ :¢ Žnc½:�ÛGET NEXT EXTENT•c½OSðOL: OPð : � `ê: ‹ ER%ï ‰ TÓÈc$½J1$ðF2$(): J2$ðF2$(): J3$ðF2$(): J4$ðF2$()üc.½J5$ðÓDS$(ÿ¬(F2$())):II$ðF2$():� õÃ:J6#ðDD#:Ž$dPÕ ¨ ‰ ÈÃ: BELL$ðÿ–()òÿ–()òÿ–()FdZÿ "I",,"A:GLSYS.DAT":… #,N$ddÆ V$(ÿ”(N$)):V$()ðN$:‚ Ið Î ÿ”(N$):…#,V$(I):ƒ I:ädnÃMD$ðV$( ):SC$ðV$():Wðÿ”(V$())Íd‚Ë MD$ñï"A" ÷ MD$ñï"B" Ï � zÕ: ‰ ¼MádŒÃ‹ MD$ð"A" ‰ ¾Ãïd–ÃDðN1:¦ V$eªÃ¿ "I",,MD$ò":GLSYS.DAT":… #,N$Ke¯Ã† V$(ÿ”(N$)):V$()ðN$:‚IðÎÿ”(N$):… #,V$(I):ƒ I:Ãue´ÃMD$ðV$( ): ‹ MD$ñï"B" Ï � HÕ: ‰ ¼MŠe¾Ã• ¨ ‰ äÔ: ‰ ðëeÈË ×ð5 ø ×ð8 Ï � HÕ: ‰ ¼MÒeÒË ×ð6 ø ×ð> ø ×ðA Ï � zÕ:‰ ¼MÜeæÃ‰ äÔfðÃN#ð€€¨:X9$ðÿ–()òÿ–():X8$ðÿ–()òÿ–(¨):‰ úÃ;fñÃII$ðÿƒ(ÿ´(N#òDD#ôH‡),,):ŽhfõÃDD#ð(ÿ­(X9$òII$òX8$)óÿ…(N#))ô×£p= ×#z:Ž—fúØÓSD!(S$)ðÿ”(ÿ‚(S$,)òÿ�(S$,)òÿƒ(S$,,))ØfÿØÓDS$(D!)ðÿƒ(ÿ“(D!),,)ò"/"òÿƒ(ÿ“(D!),)ò"/"òÿƒ(ÿ“(D!),,)gÄ¿ "I",,"A:GLDA.DAT":… #,VD$:à  :�ÛDATE:gÄVS$ðV$(): VC$ðV$() :�ÛSYSTEM, COMPANY NAMEkgÄ‚ Ið Î ÿ”(V$()): DK%(I)ðÿ”(V$(òôI)): ƒ“gÄ‘ SC$:� ÔÆ:‘:‘ :�ÛDISPLAY HEADERSÃg"Ä‘:‘"ONE MOMENT FOR PROGRAM STARTUP....":‘:ŽñgÔÆ‘Ð(Wóÿ’(VC$))õ);VC$:‘Ð(Wóÿ’(VS$))õ);VS$ hÞÆ‘Ð(Wóÿ’(PN$))õ);PN$#hèÆ‘Ð(Wóÿ’(VD$))õ);VD$)h.ÇŽ:h8Ç‘ Q$;:± … R$KhtÇRL$ðÿ�(R$,)ghyÇ‹ R$ð"END" Ï ‰ ¼M :¢ މhÈ�8Ç:N!ð:‹R$ðE$ÏŽ:¢DPð:DGð¬hÈ‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰ȾhÈ‹ÿ’(R$)ð‰ZÈâh(È‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))ýh2È‹CHï/÷CHñ:ÏDGð:‰PÈ&i<È‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰È:¢‰PÈKiFÈ‹(CHñï-÷CHñï+)øJJñïÏ�ðÒ:‰ÈciPȃJJ:‹DGðÏ�ðÒ:‰ÈŽiZÈN!ðÿ”(R$):‹(N!ïðLB!÷N!ñðUB!)øLB!ðUB!ÏŽœidÈ�¸Ó:‰ÈÈiÈÈ� 8Ç: ‹ ÿ’(R$)ð Ï MOð: DAð: YRð: ŽçiÜÈ‹ÿ’(R$)ñ ø ÿ’(R$)ï ‰ úÈ;jÞÈMOðÚ(R$,"/"):‹ MOð ‰ úÈ :¢ ‹ MOð Ï R$ð"0"òR$[jàÈDAðÚ(,R$,"/"):‹ DAð ‰ úÈ�jâÈ‹ DAð Ï RL$ðÿ�(R$,): R$ð"0"òÿ‚(R$,):R$ðRL$òR$ÆjæÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))újðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )÷(YRï)÷(YRñc)ÏŽkúÈ�Ô:‰ÈÈk�É�8Ç:DPð:DGð>k¤É‹ÿ�(R$,)ð" "ÏR$ðÿƒ(R$,):‰¤Éxk¸ÉJJðÚ(R$,","):‹JJñïÏR$ðÿƒ(R$,,JJó)òÿƒ(R$,JJò):‰¸É–kÂÉ‹ÿ�(R$,)ð"$"ÏR$ðÿƒ(R$,)«kÇÉ‹ÿ’(R$)ðÏD#ð:ŽÏkÌÉ‚JJðÎÿ’(R$):CHðÿ•(ÿƒ(R$,JJ,))êkÖÉ‹CHï/÷CHñ:ÏDGð:‰ôÉlàÉ‹CHð.ÏDPðDPò:‹DPïÏ�ðÒ:‰�É:¢‰ôÉ:lêÉ‹(CHñï-)÷(CHñï+)øJJñïÏ�ðÒ:‰�ÉRlôɃJJ:‹DGðÏ�ðÒ:‰�ÉflþÉD#ðÿ”(R$ò"D"):Ž~lXÊQ$ðQ$ò" (Y OR N)? "Ÿl]ÊYESð:�8Ç:‹RL$ð"Y"ÏYESðó:޲l_Ê‹ ÿ’(R$)ð Ï ŽÏlbÊ‹RL$ñï"N"Ï�ðÒ:‰]Ê :¢ Žm¼Ê‘:‘"POSITION THE PAPER AT THE TOP OF A PAGE. "'mÆÊQ$ð"READY":� XÊ: ‹ ÿ’(R$)ð Ï Ž>mÐÊ‹ Õ YES ‰ ÆÊ :¢ ŽumðÒ‘"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Ž‚m"Ó‹ER%ðÏŽÄmTÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$Îm^Ó‰ ¼Mým¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:Ž