I:GL MENU, GENERAL LEDGER MENU, RDR, 6/10/78 REV. CP/M 2.4, 04/10/79J: COPYRIGHT 1978 RETAIL SCIENCES, INC."J 2J :SJPN$"PROGRAM SELECTION MENU"]J PJPP$"PROGRAM SELECTION MENU":  J:Q$"WHICH PROGRAM DO YOU WISH TO SELECT? "JQT:Q:8K R$"" M : R$"END" M : R$"RP" K R$"DA"  N%K I  VK& R$P$(I) : "A:GL"(R$,)".BAS"^K0 IoK: : KPP$"FINANCIAL REPORTING MENU": :KQ$"WHICH REPORT WOULD YOU LIKE TO GENERATE? "KQT:Q: 8K (R$) L I NM6L R$P$(I) : "A:GL"(R$,)".BAS">L$ IRL. R$"ME" bL8 : L:"ONE MOMENT WHILE PROGRAM IS LOADING.....":L :SUBROUTINE MENU DISPLAYL :M :THIS SUBROUTINE IS CALLED WITH A STRING PARAMETER PP$. THISCM :PARAMETER IS SET UP BY THE INDIVIDUAL MENU PROGRAMS, AND ISM :AN IDENTIFIER WHICH OCCURS WITHIN THE MENU DATA TABLES ANDM :INDICATES THE START OF A MENU SUB-SECTIONM :M :M PN$,PP$: : PN$,PP$N );"--------------------":N )N& TP$: TP$PP$ & DN0 NM$,MM$:NM(NM$)]N: RA P$: M$wND P$(NM),M$(NM):RANN I NM: P$(I),M$(I): INX MM$:Nb I NM: );P$(I););M$(I): INl "O' PROGRAM SELECTION MENU,12,YOU MAY SELECT ANY OF THE FOLLOWING PROGRAMS;O' DA,SET TODAYS DATE\O' MF,MASTER FILE MAINTENANCE~O$' ET,ENTER DAILY TRANSACTIONSO.' AT,ACCOUNTING TRANSFERO8' RP,FINANCIAL REPORTING (SUBMENU)OB' EP,END OF PERIOD PROCESSINGOL' ML,MASTER FILE LISTPQ' TL,TRANSACTIONS FILE LISTN #,R$RHN : RPÕ >RZÿ "I",,"A:GLSYS.DAT": #,N$wRdÆ V$((N$)):V$()N$: I (N$):#,V$(I): I:RnSC$V$():W(V$()): WRÕ : RË 5 8 H: MRË 6 > A z: MRÉ  SVS$V$()%S:ON ERROR GOTO 50500CS":FOR I=1 TO VAL(V$(23))hS,:NAME V$(22+2*I) AS V$(22+2*I)vS6:NEXT IS:GOSUB 59200SCŎSDŋ : 6SNŋ 5 SXő:"*** PROGRAM DATA FILE ";V$(I);" NOT FOUND. ***"0Tbő"*** CHECK SYSTEM GENERATION TO VERIFY ASSIGNMENT. ***":Tlũ MvTƑ SC$::);"PEACHTREE SOFTWARE":(W(VS$)));VS$TƑ );"COPYRIGHT 1978 RETAIL SCIENCES, INC."TƑ(W(PN$)));PN$T.ǎT8Ǒ Q$;: R$TtRL$(R$,)UyNj R$"END" M : Ulj8Uȍ 88Uȋ(R$) (R$) UMO(R$,"/"): MO  : MO R$"0"R$UDA(,R$,"/"): DA Uȋ DA RL$(R$,): R$"0"(R$,):R$RL$R$VMO((R$,)):DA((R$,,)):YR((R$,))KVȋ(MO)(MO )(DA)(DA )(YR)(YRc)ώYVȍ:Vґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Vԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";Vԑ" CONSULT DOCUMENTATION FOR EXPLANATION. "Wԑ:"ABNORMAL END OF JOB ":2WՂI:BELL$;::: MtWHՑ: "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":WzՑ: "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":ROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":WzՑ: "*** SYSTEM FILE INITIALIZE