' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(0 pϠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`Assets,11,Fixed Assets,12,Other Assets,20,Current Liabilities,21,Long Term Liabilities,22,Other Liabilities,30,Capital,31,Retained Earnings,40,Sales,41,Sales Adjustments,50,Cost of Goods Sold,60,Expenses"'70,Other Income & Expenses,80,Income Tax ExpensI1MX:MX(I)M:I1MX(I)13< A$MN$(M):Y$("0"(Y),2)o ML$(I)A$" 19"Y$:A$(A$,3):MS$(I)A$"/"Y$ MM1:M12M1:YY1 (:  RW$"BR" @RW$,GD$,AA%(N),$DS$,#BB,#MC,#MD,A#PY:13: RW$"BW":5320 XPX!'10,Current N$(0)"positive":PN$(1)"negative"/D$CL$:5`D$OP$GX$G1$",L16":D$OP$GD$G1$",L102"BR,GX$,0,#NC:AN(NC),AY%(NC),AA%(NC):NCįBR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NCBR,GD$,0,#RA,#AF,#MR,#MY,#M1,#BF:MLM11:MLML12 MMR:YMY1 99999:MM1E99RS,0,TD$:RS,1,CO$:RS,7,GV$:RS,8,G1$XRD,1,PS:RD,2,FF:RD,3,LPMN$(12),PY(MX),MS$(MX),ML$(MX),MX(MX),TY(NY),TY$(NY),AD(NV1),DC$(1),PN$(1)I1NY:TY(I),TY$(I):I112:MN$(I):"DC$(0)"Debit":DC$(1)"Credit":PP,"Press [SPACE BAR] to return to General Ledger Menu":WS,A$:200IuD$(4):BL$(7)(7):ES$(27):SP$" "CL$"CLOSE":OP$"OPEN":G$"GENERAL LEDGER":GX$"GLINDEX.FILE":GD$"GLDATA.FILE" H38:H464:V115:V219:NVV2V11:MX13:NY14:AX9 or entering any Budget or Comparative data."^::GO,20:YN,"OK to continue",N:N0200(RA)E$"NO RETAINED EARNINGS ACCOUNT DEFINED":4580NCıE$"NO ACCOUNTS DEFINED"CGO,1,8:CS:12:BL$;:OP,"UNABLE TO CONTINUE: "E$:14:Oentered, the"y"system will verify that each month is in balance before allowing you to proceed to the next month.":-OP,"This option should be used only !A!F!T!E!R the Chart of Accounts has been entered and!B!E!F!O!R!E posting any Journal entrieshould also enter the ending account balances for the 12 months previous ("MS$(1)" to "MS$(MX1)")." "The data will be entered one month at a time, and you will be required to enter the ending year-to-date balance for each account. As the data is 0,Current Liabilities,21,Long Term Liabilities,22,Other Liabilitiesh$'30,Capital,31,Retained Earnings.'40,Sales,41,Sales Adjustments8'50,Cost of Goods Sold,60,Expenses,70,Other Income & ExpensesB'80,Income Tax ExpensesKSales,41,Sales Adjustments,50,Cost of Goods Solds 8'60,Expenses,70,Other Income & Expenses,80,Income Tax Expenses '1,9,11,22,34,22,57,24D1$",L102" D$OP$DF$G1$",L22"7BR,DF$,0,A@DU%:99=QX1::D$CL$:PX'10,Current Assets,11,Fixed Assets,12,Other Assets'20,Current Liabilities,21,Long Term Liabilities,22,Other Liabilities$'30,Capital,31,Retained Earnings0 .'40,AA%(I):N052604pN(N):AA%(I)N:US%(N)25240UrFL,0,3,DD:FL,0,13,PY:5250wxBR,GD$,N,$DS$,A#DD:3,A#PY:13DS$NW$(N):BW,GD$,N,$DS$,A#DD:3,A#PY:13BW,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NC D$OP$GX$G1$",L16":D$OP$GD$G(NX),AY%(NX),AA%(NX),US%(NX),NW$(NX)_ NCįBR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NC:UA,NC,US%,AA%qBR,GD$,0,#RA(RA)įFD,RA,NC,AN,I:I0RA0 (RA)ĭAY%(I)31RA0(PZBW,GX$,0,#NC,#NX,#NE:BW,GD$,0,#RAdNC5280nI1NC:N1E91RS,1,CO$:RS,7,GP$:RS,8,G1$:RS,99,FC$^DD(3),TY(NY),TY$(NY),HH(4),HL(4),PY(13)zI1NY:TY(I),TY$(I):I14:HH(I),HL(I):DU%(99)BR,GX$,0,#NC,#NX,#NENXNCNXNCNX1NX1NENCNENC$AN ":XMMS$"-"":PU,LS$,D4,X:(LD$(4):BL$(7)(7):ES$(27)gCL$"CLOSE":OP$"OPEN"xDL$"DELETE"GX$"GLINDEX.FILE":GD$"GLDATA.FILE":DF$"DEPTS.FILE"SP$" ":IS$"INVALID SELECTION"C1.5:HU100:SN1:NY14:UX999999:MM30:" M-T-D:";:XMT:4400:;GO,HH(T),8:HG,HL(T):4120VGO,HH(T),8:HG,HL(T)oGO,HH(T)(T1),10:uh~rV20|GO,1,V:35,23:CS::GO,1,V:V14:42204200:GO,20,20:GO,1,13:CS:DN(NUHU(NUHU).5):0S$"NG: Posting to a prior month. OK to continue",N:N03036D PMMS HD$(VI)A$] 3310 DF$HD$(VI):VI3110,3120,3130& SB,1,JH$(JN),JT%,", [RETURN] only for #"HD$(1)",",1," or !Quit",P$:V3:H17:L53(JN1):G15:0 DF$MM$DF$LD$F:3010# SQ,A$,"QUIT",N:N30802 ES1:3090[ DT,A$,N:NE$"INVALID DATE":3034 M((A$,2)):NM12((A$,2)):NCJM0:3074 A$DF$ED03074 NFJE$"CANNOT POST TO A PRIOR YEAR":3034; 3200:OY,A$:4200:BL$;:YN,"WARNInter !R!E!C!U!R to Post recurring Journal Entries)"D VI2İ4300 3210:HG,G:3200:KI,L,A$:ER:3210:HG,G:ESA$ES$:ES3090 A$""A$DF$ VI3030,3050,3080 A$""A$SP$3040 E$"INVALID "JH$(JN):UC,E$ ER,E$ 33104713(BA0):OD,0,BA::H14:3200:DDįOF,4,VG(VL):E 7):e` H23:3200:OS,22,AD$(VL): H47:3200:CL:DDİ2600:OD,0,VA(VL) ( DDCCVA(VL)0:26202 CCJT%2JT%3< H4713CC:3200 3 3100:4500:VI1Ģ23:OP,"(Eapital,31,Retained Earnings>.'40,Sales,41,Sales Adjustments8'50,Cost of Goods Sold,60,Expenses,70,Other Income & Expenses,80,Income Tax Expenses*Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,DecKR=I113:A$"/"("0"(YR),2):YR$(M)A$:I1YR$(13)A$YMM1:M12M1:YRYR1a:uX1::D$CL$:PX'10,Current Assets,11,Fixed Assets,12,Other Assets'20,Current Liabilities,21,Long Term Liabilities,22,Other Liabilities$'30,CI112:MN$(I):ID$OP$GX$G1$",L16":D$OP$GD$G1$;",L102"[BR,GX$,0,#NCwAN(NC),AY%(NC),AA%(NC) NCįBR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NCBR,GD$,0,#RA,#AF,#MR,#MY,#M1,#BFBFĺD$OP$BF$G1$",L60"(|YRMY1:MMDEX.FILE":GD$"GLDATA.FILE":BF$"BUDGETS.FILE"SSP$" ":MX999999:HU100:MM1E9RS,0,TD$:RS,1,CO$:RS,7,GV$:RS,8,G1$RD,1,PS:RD,2,FF:RD,3,LPAD(3),PY(13),BU(12),BC(12)TY(14),TY$(14):I114:TY(I),TY$(I):MN$(12),YR$(13):enses` *January,February,March,April,May,June,July,August,September,October,November,Decemberxed Assets,12,Other Assetsd'20,Current Liabilities,21,Long Term Liabilities,22,Other Liabilities$'30,Capital,31,Retained Earnings.'40,Sales,41,Sales Adjustments,50,Cost-of-Goods Sold 8'60,Expenses,70,Other Income & Expenses,80,Income Tax Exp:BR,DF$,0,A@DU%:DX2,RW$"BR"[@RW$,GD$,AA%(IW),$DS$,#BB,#MC,#MD,A#PY:13}BFį@RW$,BF$,AA%(IW),A#BU:12RW$"BW":5320"DNDU%(DN)DD$"":,BR,DF$,DN4,$DD$:X1::D$CL$:PX'10,Current Assets,11,Fi12:MN$(I):CD$OP$GX$G1$",L16":D$OP$GD$G1$",L102"UBR,GX$,0,#NCqAN(NC),AY%(NC),AA%(NC) NCįBR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NCBR,GD$,0,#RA,#AF,#MR,#MY,#M1,#BF,A#JQ:8,#OBBFĺD$OP$BF$G1$",L60"(D$OP$DF$G1$",L22"arative"XV16:V2V12:V3V21:H11:H254:HU100:AX999999:IX999999999:DX99:MM1E9RS,1,CO$:RS,7,GV$:RS,8,G1$:RS,99,FC$RS,0,TD$TY(14),TY$(14),BU(12),PY(13),MN$(12),MY$(13),PM(13),DU%(DX),JQ(8)I114:TY(I),TY$(I): I13700:EtEBįGO,H21,16:"-------------":GO,H29:IV:" Total ":K~QuD$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN"GX$"GLINDEX.FILE":GD$"GLDATA.FILE":BF$"BUDGETS.FILE":DF$"DEPTS.FILE"SP$" ":BH$"budget":CH$"compcount Type"jbGO,H1:"========= ====================== ====================== ========================"~dBW3EB:HW7BWj4200:3000:MFMlN1MX:3500nP$MN$(M):A$(P$,3):EBY$(YR):P$P$" 19"Y$:A$A$"/"Y$pMY$(N)P$:A$": ":es]"*January,February,March,April,May,June,July,August,September,October,November,DecemberDuary,March,April,May,June,July,August,September,October,November,DecemberDts","Check Number",CHK@-.'"Cash Receipts","Voucher Number",VHRp-8'"Purchases Journal","Purchase Order #",PO#-B'"Sales Journal","Invoice Number",INV ,n4180!,xGO,10,L1:BX,56,7a,GO,12,L12:"List of available Recurring Journal Entries:"n,:GO,16,I1RN:OS,12,RC$(I):I4(I4)ĺ:GO,16,:,X1::D$CL$:PX,','"General Journal","Voucher Ref #",""-$'"Cash Disbursemen :";:GO,47:"Description:"S+LGO,27:"Post to:";:GO,47:"Curr. Month: "MY$(0)a+VLD$TY$:+4180:"Ln Account Description DR Amount Amount"+GO,10:"== ======= ====================== =========== ===========":,d)0:X0*6110?*JAN:4200:GO,20,20:PL,F4,JA,L"= ",LA${*GO,20,22:YN,"OK to post to this journal",N:N06100*N6030*JC(JN1)JA*8:OP,"*** Post Journal Entries -- "JD$(JN)" ***"+BGO,1,3:OS,14,JH$(JN):":";:GO,27:"Date":6050)4200:JN16200>)GO,35,VJN:HG,(JD$(JN))2[)XJC(JN1):GO,1,V6:CS)4200:"Enter "JD$(JN)" account number: ";:XY,H:XįOF,4,X)GO,H:DI,7,ST%,N:ER:ST%36030)ST%2ST%0:NX)4900:WH06130*NXJC(JN1E(GO,12,12:CS:"The following journals are available:":XY,H,V:m(I15:GO,28:"< "I" > - "JD$(I):(4200:"Select journal (1-5) or [RETURN] only to quit: ";(NI,0,ST%,JN:ER:ST%2200)ST%JN1JN5įER,"INVALID JOURNAL SELECTION$(3),#VT,A#VG:12,A#VA:12,@PF%:1'A$"BW":52207'p_'z::1:OP,"GENERAL LEDGER SYSTEM"'|3:OP,"*** Post Journal Entries ***"'~5:OP,CO$(GO,19,6:BX,42,2:GO,22,8:PU,L"Journal status:",I4,JV%,L" Entries,",I4,100JR%XR%.5,L"% full"YY1/& CJY12CM:NGD(5):FJ(Y(NCM))12Nb&(MCM:A$"JanFebMarAprMayJunJulAugSepOctNovDec"&*I112:MY$(M)(A$,M32,3)"/"("0"(Y),2):MM1:MM12:YY1&,:MY$(0)MY$(CM)&2&P&ZA$"BR"'dGO,1,2:@A$,RF$,RC%(RV),$HD$(1),$HD$",L102"+%BR,GD$,0,A#GD:6,A#JQ:4,A#JC:4M%BR,GX$,0,#NC:AN(NC),AA%(NC)p%NCįBR,GX$,1,A#AN:NC,A%AA%:NC% D$OP$RF$G1$",L160":BR,RF$,0,#RN,A$RC$:RX,A%RC%:RX%D$OP$JF$G2$",L9":BR,JF$,0,%JV%,%JE%,%JR%,%XR%&CMGD(3)1:YGD(4):CM12CM1::RS,1,CO$:RS,7,GV$:RS,8,G1$:RS,9,G2$:RS,99,FC$q$HD$(3),VG(LX),VX(LX),VA(LX),AD$(LX),DD(3),PY(13),MY$(12)$JD$(5),JH$(5),JI$(5):I15:JD$(I),JH$(I),JI$(I):$RC$(RX),RC%(RX),GD(6),JQ(4),JC(4)$$%D$OP$GX$G1$",L16":D$OP$GD$G1BL$(7)(7):ES$(27)2#CL$"CLOSE":OP$"OPEN"#GX$"GLINDEX.FILE":GD$"GLDATA.FILE":JF$"JOURNAL.FILE":RF$"RECURRING.FILE"#MM$"MMDDYY"#C1.5:L17:EP10:HU100:LX99:RX15:QX99999:AX999999#SP$" ":ER$"INVALID RESPONSE"3$RS,0,TY$"SQ,A$,"EDIT",L:LAR1:?"SQ,A$,"REJECT",L:LAR0:Q"ER,ER$:4820W"$".ST%0N100NAXįER,"INVALID ACCOUNT NUMBER":WH0:"8FD,N,NC,AN,WH:WH0įER,"ACCOUNT NUMBER NOT ON FILE":RF0:"BBR,GD$,AA%(WH),$A$:"#D$(4):,1,21:CS:35,24:GO,12,21:G!3200:PU,LHD$(VI),XL(HD$(VI)),FC$:i!(P$,2)"En"P$"Enter "P$}!4200:OP,P$:!AR0!SB,1,P$,AR,"!Accept, ",1,"!Edit or !Reject: ",P$!4200:OP,P$:KI,0,A$:ER"SQ,A$,"ACCEPT",L:LARAR1:,L1V2:CS::SLVL:SDDD:VLV1V21:DD1A BIV2EP:VLVT4170m DVL1I:4100:OI,2,VL:2300:2400:2500{ JVLVL1: LGO,14,L1EP1:OX,8,SP$:VLVTįGO,14:OP,!" more " NVLSL:DDSD: TGO,10,6:CS: ^34,L1:35,L1EP:!h35,23:GO MY$(PM):= 3200:VI2įOY,HD$(2):GO,H,V1:MY$(PM):PGO,10,V:CL:mVVLV11:V1VEP4140"VL1VLV11:GO,10,V:,V(EP1)VLVT4150.4190:SU,0::V1V11:41306V1VL5:V11V118V21:4160:4130( @4190:GO,12 P$"Date or [RETURN] only for "(DF$,2)"/"(DF$,3,2)"/"(DF$,2)]4 V3:H36:L8:G8:: P$"Description":V3:H60:L20:G12: GO,H,V: GO,HG1,V: 3100 3200:VI2įOS,L,HD$(VI): OY,HD$(2):GO,H,V1:HD$(2)MM$ĺ8): 8:PU,I6,JV%,L" Entries ",I8,X,L" Entries ":NJV%:2550= J XXNXh PL,B6,D8,XTT,6,5,L"%":( GO,28,11:" Using Budget Option: "YN$(BF0)" ":D$(4):BL$(7)(7):ES$(27) CL$"CLOSE":OP$"OPEN":UL$"UNLOCK":G$"GENERAL LEST%32300E$ ST%NMANMNįER,"INVALID NUMBER OF ACCOUNTS":2330`. MAN:500:XCMA:XR%MJv8 5250:2500:2300|  2600 GO,28,17:PU,I6,NC,L" Accounts",I8,XC,L" Accounts":NNC:XXC:2550: X6:JV%100XJR%JV%7 X(XR%X):GO,2F:MAXC:500:XR%MJ#5250:2500) GO,8,17:HG,17:330:YN,"Want to change maximum number of accounts",N:N0100 600:MNXE:MN1MN1 (MNMA)MNMA 330:"Enter maximum number of accounts ("MN"-"MA"): ";:NI,0,ST%,N:ER  Budget Data";:P$"DELETE":2244H"Adding Budget Data file";:P$"ADD"", Confirm by typing ";:OP,!P$:": ";:KI,0,A$:UC,A$:A$P$2230BF$GF$(3)FL$:V$G1$BFĺD$"DELETE"BF$V$:2280N0:D$OP$BF$V$:BW,BF$,0,#N:D$CL$BF$BFB4CV22:NV2200]>CV:OP,"--- No adjustments for Hard Disks, "PS$" ---":WS,A$:100cuJR%BF2300IV:2600:330:YN,0,"Want to change Budget Option status",N:N0100Nİ2600:2300330:BFĺBL$"WARNING: Deleting "2GX$GF$(1)FL$:GD$GF$(2)FL$:JF$GF$(8)FL$m D$OP$GX$G1$",L"GS(1):D$OP$GD$G1$",L"GS(2):370:X1SXD$OP$JF$G2$",L"GS(8):370:X2SX5200NVİ600:MAXCĭMAXEXCMA MAXC:500:MJXR%2090"MJJR%XR%MJ*5250:2500V%,%JE%,%JR%,%XR%2X1b1::D$CL$:PX*"January","February","March","April","May","June","July","August","September","October","November","December"DD$OP$GX$G1$",L16":D$OP$GD$G1$",L102"OBR,GX$,0,#NC:AN(NC),AY%(NC),AA%(NC){ NCįBR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NCBR,GD$,0,#RG,#AF,#MR,#MY,#M1D$OP$RF$G1$",L160" BR,RF$,0,#RN,A$RC$:RX,A%RC%:RX(D$OP$JF$G2$",L9"*BR,JF$,0,%J== =========== ===========":%!d/!n4180F!xGO,10,L1:BX,56,7!GO,12,L12:"List of available Recurring Journal Entries:"!:GO,16:RNĺ"":!I1RN:OS,12,RC$(I):I4(I4)ĺ:GO,16!:!X!b1::D$CL$:PXDtain Recurring Journal Entries ***" GO,1,3:"Reference ID: ";:XY,H1:10)"Description: ";:XY,H2:22)"# entries=";:XY,H3  4180:"Ln Account Description DR Amount Amount"!GO,10:"== ======= ====================%AA%:NC? D$OP$RF$G1$",L160":BR,RF$,0,#RN,A$RC$:RX,A%RC%:RXTUA,RN,US%,RC%:zBW,RF$,0,#RN,A$RC$:RX,A%RC%:RX:PZA$"BR"dGO,1,2:@A$,RF$,RC%(IW),$VR$,$VD$,#VT,A#VG:12,A#VA:12,@PF%:A$"BW":5220p# z::1:OP,"*** Main"INVALID RESPONSE"?RS,0,TY$:RS,7,GV$:RS,8,G1$:RS,99,FC$nHD$(3),VG(LX),VA(LX),AD$(LX),DD(3),PY(13)RC$(RX),RC%(RX),US%(RX)D$OP$GX$G1$",L16":D$OP$GD$G1$",L102"BR,GX$,0,#NC:AN(NC),AA%(NC)NCįBR,GX$,1,A#AN:NC,AD$(4):BL$(7)(7):ES$(27):NF$(14)FCL$"CLOSE":OP$"OPEN"GX$"GLINDEX.FILE":GD$"GLDATA.FILE":RF$"RECURRING.FILE"G$"GENERAL LEDGER":GM$"GLMENU":RL$"RECURRINGLIST"C1.5:L17:EP10:HU100:LX12:RX15:AX999999SP$" ":ER$""ED0:(SQ,A$,"EDIT",L:LED1:ISQ,A$,"DELETE",L:LED1:[ER,ER$:4810a$.ST%0N100NAXįER,"INVALID ACCOUNT NUMBER":WH0:8FD,N,NC,AN,WH:WH0įER,"ACCOUNT NUMBER NOT ON FILE":RF0:BBR,GD$,AA%(WH),$A$:+more "NVLSL:DDSD:+TGO,10,6:CS:B^34,L1:35,L1EP:hh35,23:GO,1,21:CS::GO,12,21:(P$,2)"En"P$"Enter "P$4200:OP,P$:4200:OP,"Enter !Edit, !Delete, or [RETURN] only: " KI,0,A$:ER:ESA$ES$:ESA$(23);::V1V11:4130,6V1VL5:V11V11A8V21:4160:4130y@4190:GO,1,L1V2:CS::SLVL:SDDD:VLV1V21:DD1BIV2EP:VLVT4170DVL1I:4100:OI,2,VL:2300:2400:2500JVLVL1:LGO,14,L1EP1:OX,8,SP$:VLVTįGO,14:OP,!" Nov,Deco,November,30,December,31/*"For the current month, no options","For a specified month, with options","Comparing two months","Budget Variance"/."Detailed","Consolidated, by department","Consolidated, by account"eCMM:N113:A$(MN$(M),3)"/"("0"(Y),2):MY$(M)A$:N1MY$(0)A$:AY(0)Yp.AY(M)Y:MM1:MM12:YY1v..FY$MN$(MF)" 1, 19":.XPX/'January,31,February,28,March,31,April,30,May,31,June,30,July,31,August,31,September,30,October,31D1:400:MV:AA2:DD2:400:YVC-SMĭTY40TY41IMIMM:IYIYYW-MT(I)M:YT(I)Yh-550::GC:n-z-"A$"BR"-,@A$,GQ$,(RR),#RT,#SM,#CF,#BF,#M1,#M2,#YM,#DN,#DC,#CC,#ZL,#CP,$NN$:-JA$"BW":5420-|-MMR1:YMY:M12M1:YY1O.:12:D$CL$GH$),(RRĺD$OP$GQ$G1$",L128"3,255009,Pb,ZIM0:IY0:BVA24:FL,0,NC,YT:NCı,dI1NC:TYAY%(I):TY405270,fGAAN(I):370:OK5270,nBR,GD$,AA%(I),$DS$,#BB,#MC,#MD,A#PY:13:MBMDMC,pBVįBR,BF$,AA%(I),A#BU:12-xAA1:D$OP$GD$G1$",L102":D$OP$DF$G1$",L22"\+BR,GX$,0,#NC:AN(NC),AY%(NC),AA%(NC),MT(NC),YT(NC)+ NCįBR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NC+BR,GD$,0,#RA,#AF,#MR,#MY,#MF,#UB:BR,DF$,0,A@DU%:99:UBĺD$OP$BF$G1$",L60" ,D$OP$GH$G1$",L400":BR,GH$,0,A$RH$0:QURR0`*DU%(99),RH$(12),MN$(12),MY(12),AY(12),BU(12),PY(13),RT$(4),YN$(1),DC$(2),MY$(13)*I112:MN$(I),MY(I)::YR4(YR4)MY(2)29*I14:RT$(I):*I02:DC$(I):*YN$(0)"No":YN$(1)"Yes"**$+D$OP$GX$G1$",L16":D$"Income Statement":IR$"INVALID RESPONSE":TT$"TOTAL ":H1$"-----------":H2$"===========":G$"GENERAL LEDGER")HU100:SB128:C5.5)RS,0,TD$:RS,1,CO$:RS,7,GV$:RS,8,G1$:RS,99,FC$:YR((TD$,2)))RD,1,PS:RD,2,FF:RD,3,LP:RD,7,RR *SURR00(~12:OP,"Report generation in progress":6(N(KB16384:KS16368{(D$(4):ES$(27):CL$"CLOSE":OP$"OPEN"(GX$"GLINDEX.FILE":GD$"GLDATA.FILE":DF$"DEPTS.FILE":BF$"BUDGETS.FILE":GH$"GLHEADINGS.FILE":GQ$"GLQUEUE.FILE"p)SP$" ":ISn Liabilities,Decreases in Assets,USES OF FUNDS,Increases in Assets,Decreases in Liabilities&JCHANGES IN WORKING CAPITAL,COMPONENTS OF WORKING CAPITAL,Changes in Current Assets,Changes in Current LiabilitiesBDANCE SHEET,ASSETS,Current Assets,Fixed Assets,Other Assets,LIABILITIES,Current Liabilities,Long Term Liabilities,Other Liabilities,CAPITAL,Year-to-Date Earnings,""\&@STATEMENT OF SOURCE AND USE OF FUNDS,SOURCE OF FUNDS,Increases in Net Worth,Increases i0,DEPTS,22,GLHEADINGS,400,GLQUEUE,128,RECURRING,160,JOURNAL,9$ NINCOME STATEMENT,Income,Adjustments,NET INCOME,Cost of Goods Sold,GROSS PROFIT,Expenses,OPERATING PROFIT,Other Income & Expenses,PROFIT BEFORE TAXES,Provisions for Taxes,NET PROFIT%0uBAL,#BF,A#GD:81#h@RW$,JF$,0,%JV%,%JE%,%JR%,%XR%:D#RW$"BW":5220l#XER(222):EFĭER6ER8EF0:XO:#1::D$CL$:PX#'January,February,March,April,May,June,July,August,September,October,November,December=$*GLINDEX,16,GLDATA,102,BUDGETS,6(12),GD(8),Z(20),Z%(99),Z$(20)<"YN$(0)"No ":YN$(1)"Yes"R"I112:MN$(I):m"I18:GF$(I),GS(I):"I112:H1$(I)::I112:H2$(I)::I112:H3$(I):""P"ZRW$"BR""d@RW$,GX$,0,#NC,#XC,#XE #f@RW$,GD$,0,#RA,#AF,#MR,#MY,#M18,VD$'!TM((TD$,2)):TY((TD$,2))4!RD,0,NV^!NVįFF,G1$,DV$:DD$"diskette":5070!SQ,VD$,"VOLUME",N:N63N:V1((G1$,N)):V2((G2$,N))!DD$VD$"s":DV$DD$" "(V1)" and "(V2)"YN$(1),MN$(12),GF$(8),GS(8),H1$(12),H2$(12),H3$DGER") GD$G$" DATA DISKETTE":SP$" " IN$"Initializing: ":FL$".FILE":CG$"Create General Ledger Data Files":PS$"Press [SPACE BAR] to continue" SZ256:CZ120:AX500:JX18000:TT10000!RS,0,TD$:RS,1,CO$:RS,7,GV$:RS,8,G1$:RS,9,G2$:RS,2322:42107SQ,A$,"DEPARTMENT",N:NDC1:CCHU:4300eSQ,A$,"ACCOUNT",N:NDC2:CC10HU:4300wER,IR$:4250336:V3CV330:YN,"Print zero total lines",ZL:ZL04252336:NN$""330:"Enter special note, if any: ";:XY,H:PU,2CVKrP$"!Detailed or !Consolidated "BS$": ":380:ESVV1:322:4130q|SQ,A$,"DETAILED",N:NDC0:4300~SQ,A$,"CONSOLIDATED",N:NįER,IR$:4210CVCV1:P$" Consolidate by !Department or !Account number: ":380:ES4260 VV2:)";D'N0įSB,N1,"s",A$:" (Relative: "(N)" month"A$" back)";L':R'$}'.CPEP23:OL24::4990:GO,1,1:4950'8QUİ310:4990:15:OP,"Listing may be aborted by pressing the [ESC] key":'BOLLP:EPLP4:PW,PS(VOW80:PN0:NL1:70 : "DC$(DC)<&:GO,20:"Zero total lines : "YN$(ZL)y&:GO,20:"Special note : ";NN$;:NN$""ĺ"";&CV22:330:GO,12:YN,"Accept this report configuration",N:Nġ:100&&GO,40:CFĺP$": ";'A$;:Nĺ" (Current monthGO,12:IS$": "RT$(RT);:SMĺ" ("("MY",YM1,1)"-T-D)";z%::GO,20:"Specified month(s): ";:A$T1$:NM1:P$"1st":4850%CFA$T2$:NM2:P$"2nd":4850%:GO,20:"Departmentalized : "YN$(DN0);:DN0ĺ", Dept # "DN;&::GO,20:"Report type M:N0NCMN:N1NN12<$MN:A$MY$(M):YAY(M):MMCM`$P2MMF1:P20P2P212:YY1$SMPE$MN$(M)SP$(MY(M))", 19"(A$,2):PS$FY$("0"(Y),2)$$P$(SP$(N),2)" Month":N1P$P$"s"$$$QUı7%:390:310:SMP11#rYMSMP11:P21F#tNP1:4790:P1$P$:NP2:4790:P2$P$p#zHP$"":HC$"":DCHC$"("DC$(DC)")"#|DNįBR,DF$,DN4,$A$:DN$"(Department # "(DN)": "A$")"#~SMHP$"From "PS$" to "PE$#Q$"======":BFQ$"Budget"#$N12): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:4520f"ST%N1N12įER,"INVALID MONTH NUMBER":4560r"NNM:x"\"fMM1:4750:D1N:D2N:P1P2:T1$A$:SMMM2:4750:D2N:T2$A$"hA112(D10)YM:A212(D20)SMYM:BFA25YM:D2D2CM#pSİ330:CVCV1:0!SQ,A$,"CURRENT",N:NN0:p!SQ,A$,"SPECIFIC",N:NM1:A$"specific month number":4550!SQ,A$,"RELATIVE",N:NM1:A$"number of months back from current month":4550!ER,IR$:4520!CVCV13"330:" Enter "A$" (1-:LCP0:44503 FSQ,A$,"PRINTER",L:LCP1:4450E HER,IR$:4410U b4700:4800h lSUİ5450:200n vt  SB,1,"Select ",1,P$,1,"month: !Current (for ",1,MY$(0),1,"), !Specific, or !Relative: ",P$!330:OP,P$:KI,0,A$:ER:ESA$ES$:Eany: ";:XY,H:PU,LNN$,X40(NN$),FC$QGO,H:KI,40,A$:ER:A$ES$İ320:4360d A$""NN$A$|"GO,H,CV:OS,40,NN$0336:SUCP1:4450:P$"Select !Console or !Printer: ":380:ES4420<RT1İ320:4380>4000 DSQ,A$,"CONSOLE",Lmber: ":380:ESVV3:322:4310NSQ,A$,"DEPARTMENT",L:LDC1:CCHU:4350|SQ,A$,"ACCOUNT",L:LDC2:CCHU10:4350ER,IR$:4340336YN,"Print zero-total lines",ZL:ZL0VV3:322:4310336:NN$""%"Enter special note, if DU%(DN)4262"336:V3CViP$"!Detailed or !Consolidated "IS$": ":380:ESVV2:322:4210SQ,A$,"DETAILED",L:LDC0:4350SQ,A$,"CONSOLIDATED",L:LįER,IR$:4310CVCV1 :P$" Consolidate by !Department or !Account nu|SQ,A$,"ALL",L:LDNO:4300G~SQ,A$,"SINGLE",L:LįER,IR$:4210SCVCV1330:" Enter department number (1-99): ";:NI,0,ST%,DN:ERST%3VCV1:322:4210ST%DN0DN1004270ER,"INVALID OR UNDEFINED DEPARTMENT":42504120X@P$"Print !Month-to-date or !Year-to-date results : ":380:ESVV1:322:4120{JSQ,A$,"MONTH",L:LYM0:4200LSQ,A$,"YEAR",L:LYM1:4200NER,IR$:4160h336:V2CVrP$"For !All or a !Single department: ":380:ESİ320:4150:YM0:DN0:DC0:ZL0:NN$"":4400H:OP,IS$": "RT$(RT):CV4:V0CVfV1V0:P$"":CFP$"1st "4500:M1N:ESİ390:4000CF4130336:V1CVCFP$"2nd ":4500:ES4130VV0:322:4100"M2N:SMYM0:4200,3366SMuration",N:Nġ:100JGO,38:P$": "A$;:Nĺ" (Current month)";N0įSB,N1,"s",A$:" (Relative: "(N)" month"A$" back)";:$.CPEP23:OL24::4990:GO,1,1:49508QUİ310:4990:15:OP,"Listing may be aborted by preQUıC310:GO,12:"Funds Statement Report Configuration: ":GO,20:"Specified months:";:A$T1$:NM1:P$"1st":4850:A$T2$:NM2:P$"2nd":4850:GO,20:"Special note : "NN$;:NN$""ĺ""GO,12,18:YN,"Accept this report configly,31,August,31,September,30,October,31,November,30,December,31)*"For the current month, no options","For a specified month, with options","Comparing two specified months")."Detailed","Consolidated, by department","Consolidated, by account"K(P,$NN$:(JA$"BW":5420 (|@(MMR1:YMY:M12M1:YY1(CMM:N113:A$(MN$(M),3)"/"("0"(Y),2):MY$(M)A$:N1MY$(0)A$(MM1:MM12:YY1(:(X1::D$CL$:PX?)'January,31,February,28,March,31,April,30,May,31,June,30,Ju'P'ZFL,0,NC,Y2:NCı7'dI1NC:AY%(I)395240M'f5300:YBBBMCMDy'nDD1:400:Y1(I)V:CFDD2:400:Y2(I)V'x550::GC:'BR,GD$,AA%(I),$DS$,#BB,#MC,#MD,A#PY:13:''"A$"BR"(,@A$,GQ$,(RR),#RT,#SM,#CF,#M1,#M2,#DC,#CC,#ZL,#CX$G1$",L16":D$OP$GD$G1$",L102"1&BR,GX$,0,#NC[&AN(NC),AY%(NC),AA%(NC),Y1(NC),Y2(NC)& NCįBR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NC&BR,GD$,0,#RA,#AF,#MR,#MY,#MF&D$OP$GH$G1$",L400"& BR,GH$,1,A$RH$:12&(RRĺD$OP$GQ$G1$",L128"&25500RD,2,FF:RD,3,LP:RD,7,RR.%SURR0:QURR0n%RH$(12),MN$(12),MY(12),PY(13),RT$(3),YN$(1),DC$(2),MY$(12)%I112:MN$(I),MY(I)::YR4(YR4)MY(2)29%I13:RT$(I):%I02:DC$(I):%YN$(0)"No":YN$(1)"Yes"%%&D$OP$GX$"GLINDEX.FILE":GD$"GLDATA.FILE":GH$"GLHEADINGS.FILE":GQ$"GLQUEUE.FILE"$SP$" ":IR$"INVALID RESPONSE":TT$"TOTAL ":BS$"Balance Sheet"$HU100:SB128:C5.5$RS,0,TD$:RS,1,CO$:RS,7,GV$:RS,8,G1$:RS,99,FC$$YR((TD$,2))%RD,1,PS:,"Listing may be aborted by pressing the [ESC] key":O#BOLLP:EPLP4:PW,PSh#VOW80:PN0:NL1:700#~12:OP,"Report generation in progress":##KB16384:KS16368#D$(4):ES$(27)#CL$"CLOSE":OP$"OPEN":G$"GENERAL LEDGER"L$Gt this report configuration",N:Nġ:100/"G"GO,40:CFĺP$": ";j"A$;:Nĺ" (Current month) ";"N0įSB,N1,"s",A$:" (Relative: "(N)" month"A$" back)";":"$".CPEP23:OL24::4990:GO,1,1:49506#8QUİ310:4990:15:OP month(s): ";:A$T1$:NM1:P$"1st":4850K!CFA$T2$:NM2:P$"2nd":4850w!:GO,20:"Report type : "DC$(DC)!:GO,20:"Zero total lines : "YN$(ZL)!:GO,20:"Special note : "NN$;:NN$""ĺ"";)"CV22:330:GO,12:YN,"AccepMM1:4750:D1N:D2N:T1$A$:CFMM2:4750:D2N:T2$A$:J zND1:NNCMx |PE$MN$(N)SP$(MY(N))", 19"(T1$,2): NM:N0NCMN:N1NN12 A$MY$(N):  QUı 310:GO,12:BS$" Report Configuration: ":(!GO,20:"Specifiedonths back from current month":45506ER,IR$:4520BCVCV1330:" Enter "A$" (1-12): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:4520ST%N1N12įER,"INVALID MONTH NUMBER":4560NNM:\fHC$"":DCHC$"("DC$(DC)")"8 p (for ",1,MY$(0),1,"), !Specific, or !Relative: ",P$p330:OP,P$:KI,0,A$:ER:ESA$ES$:ESİ330:CVCV1:SQ,A$,"CURRENT",N:NN0:SQ,A$,"SPECIFIC",N:NM1:A$"specific month number":4550$SQ,A$,"RELATIVE",N:NM1:A$"number of m0&FSQ,A$,"PRINTER",N:NCP1:44508HER,IR$:4410Hb4700:4800[lSUİ5450:200vSMH1$"------------":H2$"============":HM$PE$:4490H1$" ----------":H2$" ==========":HM$""5SB,1,"Select ",1,P$,1,"month: !CurrentLNN$,X40(NN$),FC$DGO,H:KI,40,A$:ER:A$ES$VV3:322:4310WA$""NN$A$o&GO,H,CV:OS,40,NN$0336:SUCP1:4450:P$"Select !Console or !Printer: ":380:ES4420<RT1İ320:4360>4000DSQ,A$,"CONSOLE",N:NCP0:4452)QSES1:)#ST%0AA0AAMX4840U#ER,"INVALID OR UNDEFINED ACCT #":4810s#FD,AA,NC,AN,A:A04832#1700:GO,H,CV:OF,4,AA:334:GO,H13,CV:"Description: "DS$#334#400:ESVV1:322:4810#380:ES4850 $A1AA:A2A1:SUSVCV1:322%"jST%2ST%O:AADF^"pST%0AA0AAMXįER,"INVALID ACCOUNT NUMBER":4710w"zGO,H,CV:OF,4,AA:"XY,H,V1"330:"Enter account number";:QSĺ" or [RETURN] only";"": ";:XY,H:DI,7,ST%,AA:ER:ESST%3:ESı #(ST%630 !,A1AA8!4P$"end":DFA2:4700:ESCVCV1:4650B!6A2AAK!>334h!H400:ESVV1:322:4630z!J380:ES4680!R!\CVCV1:H46!f330:" Enter "P$"ing account number";:GO,H2:": ";:OF,4,DF "hGO,H:DI,0,ST%,AA:ER:ESST%3:EZ:NZ0İ320:4600! 334:V1CV~ 330:OP,"Include !All or !Selective accounts: ":KI,0,A$:ER:ESA$ES$:ESİ320:4620 SQ,A$,"ALL",N:NA10:4670 SQ,A$,"SELECTIVE",N:NįER,IR$:4630 A1100:A2999999!*P$"start":DFA1:4700:ES400:450:ES0:jA10:330:OP,"Print !Detail or !Summary Trial Balance: ":KI,0,A$:ER:ESA$ES$:ESıSQ,A$,DE$,N:NSU0:4610SQ,A$,SU$,N:NSU1:4610ER,IR$:4600334 330:YN,"Omit zero activity / zero balance accounts",N00 z AC$"complete ":500:580A600:L58:3700:OD,0,BB::YtPU,F4,GA,SL,DS$:lNL5:600:SP$A$"**********":A$:A$" "P$:A$:SP$:QU4550CV11:330:CSRT4600,4800:ESıNġ:100QSİ5450:20049ns were posted to prior months this fiscal"B 9)"year --- the amounts are not reflected in the current month totals":SP$H OBP$(OB)" Account(s) are"OB$"!!":3800R AL((CB)C1)įOD,19,CB,A$:P$"The Chart of Accounts is"OB$"by:"A$:38:600:"***** G/L Account is"OB$"!!"t PL,B15,S27,"Summary balances are ----->",D2,MD,D2,MC,D2,BA:SP$:OBOB1 NL1: NL2:600:SP$* PL,B15,S28SU,RT$,D2,TD,D2,TC4 AP3400> NL4:600:SP$+@ "** NOTE: These journal transactioCY:JA(JA):12)% OD,0,JA::GC/ 3240= NJ3350 SUİ600:43)"---------- ---------- ----------":600:15):OS,27,EB$ PL,D0,JD,D0,JC,D0,BBJCJD:600:SP$ TCTCJC:TDTDJD:SU3350 (MCJC)C1(MDJD)C13350& NL3033007 JREP%(N):JG%(N)0:1600:JRJREN%4:1500a 600:NLĭTFL64:3700:"Con't":600 PMVY0:APAPPM:PM$" ":PMPM$"**" FJ,(VY),A$:S$SR$(VS) PU,LPM$,S4,S$,S9,VR$,S20,VD$,B1,YA$,B1 YJAPM:JA0JDJDY:3280 JCJM:N113:A$(MN$(M),3)"/"("0"(Y),2):MY$(M)A$:N1MY$(0)A$]!MM1:MM12:YY1e!:y!X1::D$CL$:PX!'January,February,March,April,May,June,July,August,September,October,November,DecemberKBBMCMD@ nDD1:400:Y1(I)V:E1E1V:DD2:400:Y2(I)V:E2E2VQ x550::GC:W  BR,GD$,AA%(I),$DS$,#BB,#MC,#MD,A#PY:13:  "A$"BR" ,@A$,GQ$,(RR),#RT,#M1,#M2,#CP,$NN$: JA$"BW":5420 | MMR1:YMY:M12M1:YY1D!CMA,#AF,#MR,#MY,#MF)D$OP$GH$G1$",L400"_ BR,GH$,1,A$RH$:12:YE$RH$(11):BR,GH$,2,A$RH$:12"I112:RH$(I)""RH$(I)SP$$(RRĺD$OP$GQ$G1$",L128"25500:PZE10:E20:FL,0,NC,Y2:NCıdI1NC:AY%(I)395240 f5300:YBRRSURR0:QURR0:RH$(12),MN$(12),PY(13),MY$(13)PI112:MN$(I):V\D$OP$GX$G1$",L16":D$OP$GD$G1$",L102"BR,GX$,0,#NCAN(NC),AY%(NC),AA%(NC),Y1(NC),Y2(NC) NCįBR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NCBR,GD$,0,#RILE":GH$"GLHEADINGS.FILE":GQ$"GLQUEUE.FILE"]SP$" ":IR$"INVALID RESPONSE":TT$"TOTAL "uHU100:SB128:C5.5H1$" ------------":H2$" ============"RS,0,TD$:RS,1,CO$:RS,7,GV$:RS,8,G1$:RS,99,FC$RD,1,PS:RD,2,FF:RD,3,LP:RD,7,ssing the [ESC] key":/BOLLP:EPLP4:PW,PSHVOW80:PN0:NL1:700w~12:OP,"Report generation in progress":}KB16384:KS16368D$(4):ES$(27)CL$"CLOSE":OP$"OPEN":G$"GENERAL LEDGER "-GX$"GLINDEX.FILE":GD$"GLDATA.Fle,A/R,Inventory,INV,Payroll,PAY%*All journal entries,"Today's entries only (daily audit trail)",All entries since last audit trail,Specific transaction dates%."Invoice: ","Credit: ","Debit: ","Check to: ","Payment from: "Kent from: "LQ$G1$",L128"$($$$"A$"BR"U$,@A$,GQ$,(RR),#RT,A#JU:JX,#DC,#D1,#D2,#CP:g$JA$"BW":5420o$XPX %'General Journal,G/L,Cash Disbursements,C/D,Cash Receipts,C/R,Purchases Journal,P/J,Sales Journal,S/J,Accounts Payable,A/P,Accounts ReceivabL16":D$OP$GD$G1$",L102"Y#BR,GX$,0,#NC:AN(NC),AA%(NC):NCįBR,GX$,1,A#AN:NC,A%AA%:NC# BR,GD$,0,#RA,#AF,#MR,#MY:MMR1:YMY:M12M1:YY1# TM$(M):TY$("0"(Y),2)#D$OP$JF$G2$",L9":BR,JF$,0,%JV%,%JE%,%JR%,%XR%:JR%(JV%) $RRĺD$OP$G,G1$:RS,9,G2$6"RD,1,PS:RD,2,FF:RD,3,LP:RD,7,RRJ"QSRR0:QURR0|"JU(JX),SR$(JX),SD$(JX),YN$(1),DC$(3),PR$(10)"YN$(0)"No ":YN$(1)"Yes""I1JX:SD$(I),SR$(I):"I03:DC$(I):"I15:PR$(I):""#D$OP$GX$G1$",CL$"CLOSE":OP$"OPEN":G$"GENERAL LEDGER "|!GX$"GLINDEX.FILE":GD$"GLDATA.FILE":JF$"JOURNAL.FILE":GQ$"GLQUEUE.FILE"!SP$" ":IS$"INVALID SELECTION":DJ$"Journal Detail Report"!JX9:T10:HU100:SB128"RS,0,TD$:RS,1,CO$:RS,7,GV$:RS,8CVCV1:4820 D1N:CVCV1P P$"ending":DD1:4750:ESİ330:CVCV2:4850Y D2N GO,26,V12:OX,50,SP$:GO,27:IV:SP$DC$(DC);:DC3įPU,L", days ",I2,D1,L" thru ",I2,D2 SP$;:   KB16384:KS16368 D$(4):ES$(27)-!"I" > - "DC$(I):&:XY,H,CV:V0CV330:"Enter option (1-3) or [RETURN] only for all entries: ";:NI,0,ST%,DC:ER:ESST%3:ESıST%2DC0:4880ST%DC1DC3įER,IS$:4820DC34880 330:CVCV1:P$"starting":D1:4750:ES",I2,D:XY,H:HH2:GO,HBNI,2,ST%,N:ER:ESST%3:ESİ330:XST%2ND:ST%0ST%N1N31įER,"INVALID DAY ENTERED":4760GO,H,CV:OI,2,N:CVV2:330:CS:"Select portions of the Journals to be included:":I13:GO,20:"< 5H45:VV5fGO,H,V:Ep4700:GO,H21:YN$(JU(I));:GO,H21:}zGO,2,V1:BX,74,8:GO,5,V12:"Journal Selections:"|I1JX:4700:PU,S19,SD$(I),L":":I1JX:4720::330:PU,S40," Enter "P$" day of the month (1-31)",L": ":SQ,A$,"QUIT",N:Nİ4720:4680L<ER,"YES OR NO ANSWER REQUIRED":4650h>4720:II1:IJX4650HES0:330:YN,"Accept these journal selections",N:N04620RFD,1,JX,JU,N:N0įER,"NO JOURNALS SELECTED":4620T \H12:VV13I:I$"BW":5420 )X1::D$CL$:PXO)'G/L,C/D,C/R,P/J,S/J,A/P,A/R,INV,PAY,"???")$' "Invoice: ","Credit: ","Debit: ","Check to: ","Paymt from: "Ke: ","Credit: ","Debit: ","Check to: ","Paymt from: "y%(NC),AA%(NC):NC5150?(BR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NC[(RRĺD$OP$GQ$G1$",L128"i((EA,AY%:o((D$OP$JF$G2$",L9"(BR,JF$,0,%JV%,%JE%,%JR%,%XR%(JR%(JV%):(("A$"BR"(,@A$,GQ$,(RR),#RT,#TB,#SU,#NZ,#A1,#A2,#CP: )JARD,7,RR5'RTRT100(RT99):TBRT1:QSRR0:QURR0H'SR$(9),PR$(5)]'I09:SR$(I):r'I15:PR$(I):x'~''D$OP$GX$G1$",L16":D$OP$GD$G1$",L102"'BR,GX$,0,#NC:BR,GD$,0,#RA,#AF,#MR,#MY:MRMR1:MR12MR1:MYMY1( AN(NC),AYVALID RESPONSE":DE$"DETAIL":SU$"SUMMARY":OB$" OUT OF BALANCE "x&EB$"**** Ending Balance":RT$"***** Report total"&C1.5:T10:HU100:SB128:MX1000000&RS,0,TD$:RS,1,CO$:RS,7,GV$:RS,8,G1$:RS,9,G2$'RD,1,PS:RD,2,FF:RD,3,LP:RD,6,RT:%%XFD,A2,NC,AN,I:A2I:I0A2I1+%`1%I%KB16384:KS16368m%D$(4):BL$(7)(7):ES$(27)%CL$"CLOSE":OP$"OPEN":G$"GENERAL LEDGER "%GX$"GLINDEX.FILE":GD$"GLDATA.FILE":JF$"JOURNAL.FILE":GQ$"GLQUEUE.FILE"A&SP$" ":IR$"IN0:NZ0:$$-$.ALA1:JR1:H2$"":H3$""p$8NZH3$"(Zero Activity / Zero Balance accounts not included)"$:TBSUHU$"SUMMARY "HU$$BALA11:A2NC:$LTBH2$"(Selected accounts: "(A1HU)" thru "(A2HU)")"%VFD,A1,NC,AN,I:A1(I)ion"&GO,H2:PL,X22,"=",B2,X22,"=".R1D6RRNR:4200::`hGO,H1,V1R:RNR4220rCL:R1įGO,H113:""t|PU,I2,R,L" - "PU,S22,RT$(RT%(R))::PU,B2,S22,RI$(R):RLNIV:GO,H2,V1R:4230LT3:GO,T240200` GO,1,CV:CS::OP,"NOTE: The report queue can be aborted by pressing the [ESC] key."r RRM:Rİ4200& RMRM1:SD,6,RM:RMNR2000 RRM:4250:LNRM:1800GO,2,8:CS:"Queued Reports:";:GO,H2:" Report Type Descript2,ID$:   NR3050\ GO,1,12:BL$;:OP,"*** NO REPORTS DEFINED IN THE QUEUE ***" GO,1,15:OP,"--- Press [SPACE BAR] to return to menu ---":WS,A$:200 4100:XY,H,CV:CVCV3 GO,12,CV:YN,"OK to print reports in the queue",N:N(LN):4240:RD,59,TT:RT%(LN)TT:RS,96,RI$(LN)[vADAVRA%(LN):RT%(LN)0:RA%(LN)0:5150sVV1LN:5200:1650340:"Enter report description: ";:XY,H:PU,LID$,X22(ID$),FC$:GO,H:KI,22,A$:ESA$ES$:ESıA$""ID$A$GO,H3,V:OS,2T:RI$(LN)ID$:ADįFD,0,QX2,US%,AV:RA%(LN)AV:US%(AV)1Z5200:N0:BW,GQ$,RA%(LN),#NiD$CL$:MMSD,56,0:SD,57,LN:SD,58,ADNRA%(LN):RRT%(LN):SUNN:SD,6,100SC(R)SD,7,N:P$PG$(R):250.lRD,57,LN:RD,58,AD:TRT%(LN):ID$RI$:1580(BL$;:15600,4300:TTN:T1TTX>.TTXT1H61550@342:GO,H2,V:IV:OS,22,RT$(T)::2000:ESTTT:1510JGO,H3,V:ID$r340:YN,"Accept this report",N:N01600tN1400SD,59,RT%(LN):SS,96,RI$(LN)9RT%(LN)2,LN,L" -":CL:342:BX,71,3yGO,1,24:OP,"Use [<--] or [-->] keys to highlight report, press [SPACE BAR] to accept"T1TX:4300::TTTIV:4300:(8);:GK,A$:A$ES$İ342:1400"N(A$):N321600$N8N1:1580&N21N10/2LN0įFL,0,QX,RT%:FL,0,QX,RA%:R1:1370kFNNRLN:NįMV,N,RT%(LN):MV,N,RA%(LN):MV,N,RI$(LN)PRT%(NR)0:RA%(NR)0:RLNZ5150:5200dGO,1,V1R:CS:4150:1100x340:CS:RLN:4200:1100ID$"":TT1VV1LN:GO,H1,V:PU,I,"INVALID LINE NUMBER":1200+RD015009RD1300t4240:VV1LN:ID$RI$(LN):2000:ESRI$(LN)ID$:52004200:1100LN0İ4240GO,12,23:OP,"Confirm by typing !D!E!L!E!T!E: ":KI,0,A$:UC,A$(A$"DELETE"İ4200:340:CS:120DRD0:P$"delete":12009tER,"INVALID RESPONSE":1120340:SB,RD," or !All",A$:"Enter line number (1-"NR") to "P$;:OP,A$:": ";:NI,0,ST%,LN:ER:ST%21100ST%0LN0LNNR1220LI,A$:SQ,A$,"ALL",LN:LNRDLN1:1300ERe, ",1,"or [RETURN] only to quit: ",P$Y `340:OP,P$:KI,0,A$:ER:A$SP$A$ES$200 jSQ,A$,"ADD",N:NADLNNR1:1500 lSQ,A$,"EDIT",N:NRDP$"edit":RD1:1200 nSQ,A$,"REPLACE",N:NRDP$"replace":AD0:1200pSQ,A$,"DELETE",N:NR"REPORTS" 2706 GO,1,1::D$"RUN"P$".PROG"GV$Q WD,G$"PROGRAMS":250k TGO,1,21:CL:GO,12: VGO,1,18:CS:GO,5:  4100:RD,56,ES:SD,56,0:ES1900 LADNRQX:RDNR0' VSB,1,"Enter ",AD,"!Add, ",RD,"!Edit, !Replace, !Delet 7000 5000:5100O 2SUHD$"Setup and Maintain Report Queue":100y <HD$"Print Reports in Queue":RM3100 d80:OP,G$"SYSTEM":3:OP,"*** "HD$" ***":5:OP,CO$: nSU1000 x3000 GO,1,1::D$CL$:P$"GLMENU":MM,G$         4620O 330:OP,"Select desired journals by entering !Yes, !No or !Quit":I1*4700:HG,20:4720:KI,3,A$:4710:HG,20:A$ES$4660,II1:I4650.46204A$""46706SQ,A$,"YES",N:NJU(I)1:46708SQ,A$,"NO",N:NJU(I)0:4670,I,JU(I):450:ES0:7CVV2:ESİ330:CS:4680X:1:OP,"Setup "DJ$:4730 P$"Include !All or !Selective journals: ":380:ES4630QSı4620SQ,A$,"ALL",N:NįFL,1,JX,JU:4740:4680SQ,A$,"SELECTIVE",N:NįER,IS$:L7217,20L:RT$(T);:ID$(4):BL$(7)(7):ES$(27):SP$" "wOP$"OPEN":CL$"CLOSE":GQ$"GLQUEUE.FILE"QX8:TX6:V19:H116:H2H15:H3H129:G$"GENERAL LEDGER "QX8:TX6:V19:H116RS,1,CO$:RS,7,GV$:RS,8,G1$:RS,99,FC$,Uses of Funds heading," Increases in Fixed Assets"," Decreases in L.T. Liabilities.Increase/Decrease in Working Capital,Components of Working Capital," Changes in Current Assets"," Changes in Current Liabilities"Dm Liabilities sub-heading"," Other Liabilities sub-heading",Equity or Capital heading,Year-to-Date Earnings,""S.Funds Statement report name,Sources of Funds heading," Increases in Net Worth"," Increases in L.T. Liabilities"," Decreases in Fixed Assets"Income Tax Expenses,Net Profit total line*Balance Sheet report name,Assets major heading," Current Assets sub-heading"," Fixed Assets sub-heading"," Other Assets sub-heading"n+Liabilities major heading," Current Liabilities sub-heading"," Long Ter:PX'Income Statement report name,Sales or Revenue,Sales or Revenue Adjustments,Net Sales or Revenues,Cost of Goods Sold,Gross Profit total line,Expenses incurred,Operating Profit total line)'Other Income and Expenses,Profit Before Tax total line,:I112:T1$(I)::I112:T2$(I)::I112:T3$(I):@F^D$OP$GH$G1$",L400"BR,GH$,0,A$H1$:12:BR,GH$,1,A$H2$:12:BR,GH$,2,A$H3$:12 PZBW,GH$,0,A$H1$:12:BW,GH$,1,A$H2$:12:BW,GH$,2,A$H3$:12dXb1::D$CL$GH$"GLHEADINGS.FILE";SP$" ":ER$"INVALID RESPONSE"hRS,1,CO$:RS,7,GV$:RS,8,G1$:RS,99,FC$RT$(3),T1$(12),T2$(12),T3$(12),H1$(12),H2$(12),H3$(12),T$(12),H$(12)RT$(1)"Income Statement":RT$(2)"Balance Sheet":RT$(3)"Funds Statement",V:HG,36:AL((NXH)ES)6003 NN12ES:7009 _*HO1āI112:H1$(I)H$(I)::1004HO2āI112:H2$(I)H$(I)::100>I112:H3$(I)H$(I)::100D$(4):ES$(27)OP$"OPEN":CL$"CLOSE":UL$"UNLOCK":G$"GENERAL LEDGER ")ESAL740%N1AL0:740.760RSQ,A$,"QUIT",L:LALAL0:760h(A$,1)"/"750N1įER,"CAN'T USE '/' IN REPORT NAME":720NSįER,"CAN'T USE '/' IN THIS REPORT HEADING":720H$(N)A$GO,H,V:OS,S,H$(N)GO,51,"Enter text for report heading",AL," or !Quit",P$:340:OP,P$N1NSįGO,1,22:OP,"(Note: To force new report page, start text with !/)"GO,H,V:PU,LH$(N),XS(H$(N)),FC$GO,H,V:KI,S,A$:ER:GO,1,22:CL:ESA$ES$:ES(A$"")A$H$(N"(XH)"), !All, or [RETURN] only: ":NI,0,ST%,N:ERGlST%2800evST%N0NXHALO:700LI,A$:SQ,A$,"ALL",N:NAL1:N1:700ER,"INVALID LINE NUMBER":610V4N:NSHO2N11:H43:S306(N1):GO,5,V:IV:T$(N):ASB, Heading Description Text of report heading"2GO,1,4:"== ==================================== ====================================":I1XHDPL,I2,I,L" ",S38,T$(I),LH$(I)NX6b340:OP,"Enter line # to edit (1-RAMS":250 TGO,12,20:CL:$ W HO1āI112:H$(I)H1$(I):T$(I)T1$(I)::550 HO2XH11:I112:H$(I)H2$(I):T$(I)T2$(I)::550 I112:H$(I)H3$(I):T$(I)T3$(I): &GO,1,1:CS:OP,"*** Customize "T$" ***"?0GO,1,3:"Ln 12,19:CL^ "Enter option (1-3) or [RETURN] only to quit: ";:NI,0,ST%,HO:ER:ST%2200~ ST%HO1HO3įER,ER$:150 XH12:T$RT$(HO):500 GO,1,1::5200:D$CL$ 270 MM,G$"REPORTS":D$"RUNGLMENU.PROG"GV$ WD,G$"PROG 7000 5000:80$ 5100* dA n:OP,G$"SYSTEM"x p3:OP,"*** Customize General Ledger Reports ***" r5:OP,CO$: xGO,12,9:"Available customizing options are:":: zI13:GO,20:" < "I" > - Customize "RT$(I):: GO,         port configuration",N:N04534.Nġ:100FQSRT1:5450:200fJR1:H2$"":DCH2$DC$(DC)DC1įRD,9,JR:JRJR1(JR0)DC2JRAF1DC3DD1:360:D1D:DD2:J1$J2$:360:D2D:H2$H2$", "J1$" thru "J2$ JU0:I1JX:BT,JUger System through ",YTD$,L".":SP$D* AFJR%:BW,GD$,0,#RA,#AF:KP]H AC$"complete ":500f 580sQU4550FL,0,JX,JU:ES0V12:V2V112:4600:ESı4800:ES4530CVV2:330:CS:400:ES4532CVV22:330:YN,"Accept this res were posted to prior months this fiscal"~ 8)"year --- the amounts are not reflected in the current month totals":SP$ AU3400 NL4:600:SP$# " NOTE: This Detail Journal Report is a complete AUDIT TRAIL for the General":PL,B8,L"Led& PU,B21,F4,GA,S22,DS$G0 JA0ĺ14):JA(JA):TCTCJAPM:3130X2 TDTDJAPMm: OD,4,JA:::GCsN  NL2:600:SP$ PL,B30,L"*** Report Total *** ",D4,TD,D4,TC AP3300 NL4:600:SP$* "* NOTE: These journal transaction(VE%O3):600:NL2NL1" SP$K PMVY0:APAPPM:PM$" ":PMPM$"*" FJ,(VY),A$:PL,LPM$,YA$,B1,S4,SR$(VS1),S9,VR$,LVD$ E1VE%:1600:FD,GA,NC,AN,I:I0DS$"":3100 DS$AD$(I):DS$""įBR,GD$,AA%(I),$DS$:AD$(I)DS$ NL1İ600VST):VT%VT%VST:VSVS4.VS1VS8VS0NVS5VS6VD$PR$(VT%)VD$\JRJR4:@BR,JF$,JR,%AN%,@DN%,#JA,@EN%:GAHUAN%DN%:JRJR1: CPįCS TD0:TC0:AP0:JV3200 UDĆAD$(NC):UD1 N1JV:JRJR%(N):1500 NL2VE%(VY):VT%910404DC3ĭVYD1VYD2AU0:1040VBT,JU,VS1,I:IAU0:1040NN1:JR%(N)JR4:JD(N)VSE2VYE1NJRJRVE%:550:1020JVN:SR,JD,JR%,JV$EA,JD:UJ0:BR,JF$,JR,%VE%,#VY,$VD$,$VR$,@VT%VSVT%:VSTVS(W " Date Jnl Ref. No. Description / Accounts Debits Credits":PL,L"====== === ======== ",X31,"=",B2,X11,"=",B3,X11,"=":JD(JV%):UJ1:AU(CP0)((JR1)(DC2)):E1JV%1:E2E135000:N0JRJR%10501500:VY700:610GC:CPė:,FFĺ(FF):BLLNOL:SP$::HUPNİ650vPNPN1:LN7:K(OW(CO$))2PU,L"As of: ",YTD$:K15)CO$K8)"Page "PN(OW(HU$))2);HU$DCĺ(OW(H2$))21)"("H2$")":LNLN1SP$:800:900:$"aborted ":RR0:SD,7,RR:500:UJįEA,JD:UJ09D590DF:582ON7000mPAQ$"another ":QUĺ:50vR200|Xb550:LNNLEPLNLNNL:l900:CPĢ24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$580 v0:700512:OP,"Report generation in progress":;X900:CPİ650:PW,QU1:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:GO,1,1:&K(KB):KSBı(KS,0:KSB(ES$)ı0CPLNLN2:SP$:"***** LISTING ABORTED"/:AC$,"CONSOLE",N:NCP0:8SQ,A$,"PRINTER",N:NCP1:IER,IS$:420uCPEP24:OL24:650:490:GO,1,1:480QUİ350:310:490:15:OP,"Listing may be aborted by pressing the [ESC] key":CPPS:OLLP:EPOL6:PW,PSO3OL3:OW80:PNTM$,1,A$,1,TY$,J2$:DT,J2$,N:NDD1:360\ jDN:SB,1,TM$,1,"/",1,A$,1,"/",1,TY$,J2$: |330:OP,P$:KI,0,A$:ER:ESA$ES$: 600:SP$:  QSCP1: 330:OP,"Select !Console or !Printer: ":KI,0,A$:ER:ESA$ES$:ESıSQ,AQUEUE":RRP$"GLMENU":MM,G$"REPORTS"2 250K D$"RUN"P$".PROG"GV$f WD,G$"PROGRAMS":230 6CV7:GO,1,CV:CS:CVCV2:330 JGO,1,CV:CL:GO,12: ^:OP,G$"SYSTEM":3:OP,"*** "DJ$" ***":5:OP,CO$::, hA$("0"(D),2):SB,1, 7000 5000:51003 QUİ5400:RT200P UD0:UJ0:AQ$"":QU150X 280 dQSİ350:310:YN,"Print "AQ$DJ$,N:N0200 HU$(DJ$,1):UC,HU$:4500:ESİ1000:3000 QS100 SD,56,1 50 1::D$CL$( P$"GL                600:L23:3700:OD,0,BB:NL0:33103 NJ03230L NL6:600:SP$:3600 " ***** Too much account detail, Unable to list":NL0:3310 NENJ53(NJ):NL1:NEO3NLNE 600:SP$:NL1NL0 JC0:JD0:3600:NJ3300 FD,A,E,JG%,N:N0I0)< XPEE1:JG%(E)I:EP%(E)JR1D> AU%(I)AU%(I)1:550:ND GC:[N CPįCSoX NCA2A13360 AA1A2:XPĭAP2İ2000 GAAN(A):1700:BABBMCMD:JCMC:CBCBBA:JDMD:NJ0:SUNJAU%(A) NZĭBAMCMDNJ3350# SUNL2: 2 E0:AP0:OB0:XP0:P10:P20:TC0:TD0:CB0S JQ(((0)2500)4):SU3150k JXJE%:JXJQJXJQ XPJE%JX:JG%(JX),EP%(JX),AU%(NC):D21 JV3150& N1JV:JRJR%(N):15000 M1VE%:1600:EN%MEN%M:1650: FD,GA,NC,AN,I:I0:P1A:P2A3AUAU%(P2):AUJXAU%(P2)1:2050INNAU:NJX2100bP2P21:P2A22020r4P2P21:E0N1JV:JRJR%(N):1500M1VE%:1600:FD,GA,NC,AN,J:JP1JP22230AU%(J)0EE1:JG%(E)J:EP%(E)JR1550::VSTVS(VST):VT%VT%VST:VSVS49VS1VS8VS0`VS5VS6ĭVT%6VD$PR$(VT%)VD$nJRJR4:@BR,JF$,JR,%AN%,@DN%,#JA,@EN%:GAHUAN%DN%:JRJR1:rBW,JF$,JR1,%AN%,@DN%,#JA,@EN%:BR,GD$,AA%(A),$DS$,#BB,#MC,#MD: N": SUı>JD(JV%):D11:E1JV%1:E2E135000:N0PJRJR%10501500:NN1:JR%(N)JR4:JD(N)VSE2(VY)E1NJRJRVE%:550:1020JVN:NįSR,JD,JR%,JV$EA,JD:JR1:D10:BR,JF$,JR,%VE%,#VY,$VD$,$VR$,@VT%%VSVT%:ct No Account Description Beg. Bal Debits Credits End. Bal ":SUĺ"======= =========================== ===== ========== ========== ==========":"======= ====================== ========== ========== ========== ==========$:K15)CO$K8)"Page "PN3(OW(HU$))2);HU$]H2$""ĺ(OW(H2$))2);H2$:LNLN1H3$""ĺ(OW(H3$))2);H3$:LNLN1SP$:800:900: SUĺ"Acct No Reference No. / Description Date Debits Credits Balance":O*"Ac900:CP630dn24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$580wv700:TF1:610}GC:CPė:FFĺ(FF):LLNOL:SP$::PNİ650PNPN1:LN7:K(OW(CO$))2PU,L"As of: ",YTD,A$:GO,1,1:!&K(KB):KSBı;(KS,0:KSB(ES$)ıi0CPLNLN2:SP$:"***** LISTING ABORTED":AC$"aborted ":RR0:SD,7,RR:500D590F:582N7000PAQ$"another ":QU170R200XTF0b550:LNNLEPLNLNNL: l5:OP,"Listing may be aborted by pressing the [ESC] key":ZCPPS:OLLP:EPOL6:PW,PSvO3OL3:OW80:PN0:70012:OP,"Report generation in progress":900:CPİ650:PW,QU1: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WSSP$:  V2CV:QSCP1:k330:OP,"Select !Console or !Printer: ":KI,0,A$:ER:ESA$ES$:ESıSQ,A$,"CONSOLE",N:NCP0:SQ,A$,"PRINTER",N:NCP1:ER,IR$:420CPEP24:OL24:650:490:GO,1,1:480;QUİ310:490:1 250" D$"RUN"P$".PROG"GV$= WD,G$"PROGRAMS":230V 6CV9:GO,12,CV:CS:a @VCV2| B330:CVCV1:CVV322 D JGO,12,CV:CL: NCVCV2:330 |334:YN,"Accept this report configuration",N:ESN0:ESVV2:322 ~600:310:YN,"Print "AQ$HD$,N:N0200X HU$(HD$,1):UC,HU$:D10:D20:4500:ES160n QSįSD,56,1:200w 100 1000:3000 D1įEA,JD D2įEA,JG%,EP%,AU% 50 1::D$CL$ P$"GLQUEUE":RRP$"GLMENU":MM,G$"REPORTS" 7000" 5000:5100:53009 QUİ5400:RT200y AQ$"":HD$"Trial Balance":TBHD$"Account Detail Report" (QU150 2P$"Print ":QSP$"Setup Queued " 480:OP,G$"SYSTEM":3:OP,"*** "P$HD$" ***":5:OP,CO$: d& nQS                330:" Enter "A$" (1-12): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:4520ST%N1N12įER,"INVALID MONTH NUMBER":4560NNM:\pMM1:4750:D1N:T1$A$:MM2:4750:D2N:T2$A$:NM:N0NCMN:N1NN12A$MY$(N)::KI,0,A$:ER:ESA$ES$:ESİ330:CVCV1:KSQ,A$,"CURRENT",N:NN0:SQ,A$,"SPECIFIC",N:NM1:A$"specific month number":4550SQ,A$,"RELATIVE",N:NM1:A$"number of months back from current month":4550ER,IR$:4520CVCV1N"CONSOLE",N:NCP0:4400>SQ,A$,"PRINTER",N:NCP1:4400PER,IR$:4310V0fb4700:4800~lSURT1:5450:200ES0:SB,1,"Select ",1,P$,1,"month: !Current (for ",1,MY$(0),1,"), !Specific, or !Relative: ",P$+330:OP,P$ any: ";:XY,H:PU,LNN$,X40(NN$),FC$W|GO,H:KI,40,A$:ER:A$ES$VV1:320:4120jA$""NN$A$GO,H,CV:OS,40,NN$336:SUCP1:4450330:OP,"Select !Console or !Printer: ":KI,0,A$:ER:A$ES$İ330:VCV2:320:4210SQ,A$, H$RH$(H):(H$,1)"/"3050@ H$(H$,2):SK(LNTL)İ620M SKİ600S `QU4450o310:V0CVP$"1st ":4500:M1N:ESı336:V1CVP$"2nd ":4500:ESVV0:320:4100"M2Nh336:NN$""&r330:"Enter special note, if:":PF1 2800: " 6006 6):OS,29,DS$T PL,DDS,D1,DDS,D2,DDS,V:ZT eV T$TT$|^ NL1LDLQLS:600` CQ63:IS3(CO1)h LDĺCQ);H1$r SK0:3000| PL,BIS,SCQIS,T$H$,DDS,TV LQĺCQ);H2$ LSĺSP$  C:AYAY%(I):AYU1AYU2İ2750& O U130I0:DS$YE$:D1E1:D2E2:2760^ GVGVTV:d  D1Y1(I):D2Y2(I):SD1D1:D2D2 VD1D2:Vı IDĭIDV0ı ID0S2VV TVTVV:Iİ5300 PFNL2:SK1:3000:SP$:" "H$"` HDG5j NL3:SK1:3000:SP$:H$":":PL,X(H$),"="Kt GV0:SHH:HH1:Q o LS1:LD1:LQ0:CO2:2900 H9:TVWC:LS1:LD0:LQ1:CO2:T$"":2910( 2 2700:PFCO1:LD1:LQ0:LS0:2900F HH1:  TV0:PF0:NC2742  I1N:TVGV:WCGV:2500 H6:2400?U111:U212:ID1:S0:2600_U121:U222:ID1:S1:2600}HSH:TVGV:WCWCGV:25002550:H10:2400U110:U210:ID0:S0:2600(U120:U220:ID0:S2:2600x390:2550AC$"complete ":500:580N3:SP$:(OW(NN$))2);NN$:SP$8SP$:800:TLLN:Y 40)T1$8)T2$7)"Inc/"n35)H2$H2$H2$:5200:DS6:WC0:CPįCSLH2:2400VU130:U239:ID0:S1:2600`U121:U222:ID1:S1:2600jU111:U212:ID1:S0:2600~HSHress [ESC] to stop":WS,A$:A$ES$5801v700:BGC:CPė:SFFĺ(FF):jTBLNOL:SP$::p}PNİ650LN6:PNPN1:T(OW(CO$))2PU,L"As of: ",YTD$:T15)CO$T7)"Page "PN(OW(RH$(1)))2);RH$(1)"NN$""LNL/0CPLNLN2:SP$:"***** Listing aborted"U:AC$"aborted ":RR0:SD,7,RR:500_D590jF:582uN7000PQU200RAQ$"another ":50X550:LNNLEPLNLNNL:NL1:b620:600&lCPĢ24:OP,"Press [SPACE BAR] to continue -- p320 B" JGO,1,CV:CL:GO,8:. NCVCV2? PCVCV2:330O 600:SP$:U d DVYB:r VPY(D):x  CPİ650:PW,QU1: 24:OP,"Report "AC$"-- press [SPACE BAR]":WS,A$:GO,1,1: &T(KB):TSBı(KS,0:TSB(ES$)atement",N:N0200/ 4000:ESİ4900:1000< SU100I SD,56,1O _ 1::D$CL$i 250 P$"GLQUEUE":RRP$"GLMENU":MM,G$"REPORTS" D$"RUN"P$".PROG"GV$ WD,G$"PROGRAMS":230 6CV9:GO,8,CV:CS: @330:CVCV1:CVV 7000 5000:5100/ AQ$"":QU50B 5400:RT200K 150d 280:OP,G$"SYSTEM" 4P$"Print":SUP$"Setup Queued" 63:OP,"*** "P$" Funds Statement ***":5:OP,CO$: d n310:SUİ330:GO,12:YN,"Print "AQ$"Funds St         z#    ƮǠ)ծǠ  !ӮǠ&"ӮǠ ӮǠŮǠ ԮǠ ŮǠ ŮǠ ԮǠԮǠٮǠ$ǮǠԮǠ ԮǠ ŮǠϠծǠ ǠӮǠ ԮǠ̮ǠT2T19:T2TX1200s330:OP,"Consolidate by !Account, !Department, or !Type: ":KI,0,A$:ER:A$ES$1100SQ,A$,T$,N:NM1000:1550SQ,A$,DN$,N:NMHU:1550SQ,A$,"TYPE",N:NM0:1550ER,IR$:1500300:I1AN:L%(I)L%,H,V:DN:310:FD,N,AN,A,I:oxV:OP,"Press [<--] or [-->] to highlight type, then [SPACE BAR] to select"23:OP,!" "T$(T)" ":DF0:GO,40:400:ES1100I1450TTI:T1TAXTAXT11410T1T2:T2T1:T3T11:T28::1350:ESİ330:VV1:13001 I2I:I0I2I1@(II1:1200T2XI:I0XI1F330:" Enter "P$"ing "T$" number"5(P$))": ";:XY,H:310:GO,H:DI,7,ST%,N:ER:ESST%3:ESıPST%2ND:ST%0ZST%0NHUNX9E$T$:370:1350dGOE1280Nı600:KıbNSNXE$"TOO MANY "T$"S SELECTED, Max="(NX):372::1100vL%(I)1:NSNS1700Nı600:KNSNS(N0):L%(I)0:700X0:DHU:P$"start":1350:I1(I):ES1100VV1:XI1:DX9:P$"end"1110?jSN:I1:I2AN:T11:T2TX:TSN5:DKN6DN0:DEN2N4olDENSE$"NO "T$"S SELECTED":372:1110tS8įGO,31,V1S1:HG,32~S1200,1200,1300,1300,1400,1500,1600,1700300II2İ800:11001250:II1:1210NL%(I):D"Specify "DN$" number":322>2P$"Display selected ":320FBS0_LGO,31,SV11:HG,32N700:710:V21:330:35,23:CS:V330:"Enter option (1-8) or [RETURN] only: ";:NI,0,ST%,N:ER:ST%3100XST%21800`ST%N1N8įER,IR$:VV1:330:CS:GO,3:"Available options:";:I1H$P$"Select all ":320g&P$" De-select all ":320(P$"Select specific ":320*P$" De-select specific ":320,P$"Select specific "T$" types":322.P$"Consolidate selected ":3200P$PL,I2,DN,B1:$ NS0:ANıJ*N1AN:IL%(N):I0NSNS1:840i4I0ĭL%(I)L%(I)2:840u>L%(N)0}H:N1:A$"Select "T$"s":334GO,17,7:BX,46,2:GO,20,9:"# selected "T$"s = ";:GO,47:"Department:"V112.UC,A$:I(A$):ESA$ES$:ESı-I32I0:=I8I1:MI21I1:d(I127)DFI2:sBL$;:400KDK:KAA(I):KDN(AHU(AHU))X500:KTSKT%(I)T1T%(I)T2bGO,42,9:OI,3,NS:GO,59,9:DN0ĺ"All":tUC,E$:ER,E$:R|OP,"--- Press [SPACE BAR] to continue ---":WS,A$:1::~330:CS:22:UC,E$:BL$;:OP,"--- NO "E$" SELECTED, Press [SPACE BAR] to return to previous step ---":WS,A$:OZ$:Q$A$Q$:"0,"SVHU:"V":GK,A$:GO,1,V:CL:GO,12:/ LV4:330:CS:V6:V:_ N332:OP,!" Step # "(N)" --- "A$" ":n PVV2:330 TVXİ330:VV1:340 V ^D(K)D(K)X:KK12: h330:YN,"OK to proceed to the next step",N:ESN0: rE$"INVALID "E$" NUMBER",CD 1000 > 1::D$CL$:LFĭDF$GV$İ8000:ES100H 250k MM,GL$:D$"RUNGLMENU.PROG"GV$ WD,GL$" PROGRAMS":230 ,GO,1,21:CS:22:OP,!" Please wait ": 6PU,F4,D,B2: @P$P$T$"s" BGO,24:"< "I" > - "P$:II1: J' 7000 50001 80:OP,GL$" SYSTEM"l 3:OP,"*** Convert General Ledger Data to DIF ***":} 25200:AQ$"" d n332:V9:330:YN,"Want to convert "AQ$"General Ledger data",N:N0200 DN1:T1:NS0:FL,0,AN,L%:NC0:FL,0,CX             1:UA,NR,US%,RA%:APBW,GQ$,0,A@RT%:QX,A@RA%:QX,A$RI$:QX:KP:IXPX'Income Statement,ISS,0,Balance Sheet,BSS,0,Funds Statement,FUNDS,0,Trial Balance Report,TBALANCE,1,Journal Detail Report,JLIST,0,Account Detail Report,TBALANCE,2DRD,6,RM:SURM99PRT%(QX),RA%(QX),RI$(QX),US%(QX2),RT$(TX),PG$(TX),SC(TX)sI1TX:RT$(I),PG$(I),SC(I):yD$OP$GQ$G1$",L128":BR,GQ$,0,A@RT%:QX,A@RA%:QX,A$RI$:QXNR0:I1QX:RT%(I)NRI(:FL,0,QX2,US%:US%(1)1:US%(2)&"VECTORS":"0,"UC:QQ$9&"TUPLES":"0,"NSHD:QQ$Q&"DATA":"0,0":QQ$_&HD4200m&M1$:BT$&V1NC:NCD(V):A$CT$(CD(V)):390&N7āI112:A$M$(M(I))"/19"(Y(I)):390:&"&hD$&rN1AN:LL%(N):L04300F'tAA(N):TY:MM1I1I&%MM1:MM12:YY1,%$2%}%332:12:OP,"Please wait, creating DIF data file":GO,20,10:BX,40,5%GO,32,14:"Account: ";:XY,H:%ZFĺD$"INITTEMP"DF$:D$"DELETETEMP"DF$%D$OP$F$DF$:D$WR$F$%"TABLE":"0,1":QQ$ready exists, OK to replace",N:N0XV3:340:3060z$ 336:YN,"OK to create the DIF data file",N:N0XV3:340:3060$& N100$ UB0:UCNC:AP0:I1NC:NCD(I):UCUC12(N7):UBUB(N6N7N9):APAP(N5): %MMR:YMY:I1211:M(I)M:Y(I)UC,A$:I(A$):I65I903064?# N2(A$):(A$,N,1)","I0N# :I3064u# F$A$:GO,H,V:OS,20,F$::ZF3100# EF1:EFĺD$UL$F$DF$:EF0:3090# ER63100# ER,"DISKETTE ERROR OR WRITE PROTECTED":30604$ 336:BL$;:YN,"DIF data file al confirm by typing !I!N!I!T: ":KI,0,A$:UC,A$:A$"INIT"3054T" XV2:340:3040a" 336:CS" V3V:330:PU,L"Enter DIF file name: ",X20,FC$:XY,H:HH20:GO,H:KI,20,A$:ER:A$ES$3052" A$""3070" ER,"INVALID DIF FILE NAME":3060# itializing the DIF data diskette will destory any programs or data currently saved on the diskette."! 330:YN,"Initialize the DIF data diskette",ZF:ZF0İ330:CS:XV1:340:3020! ZF3054@" ZFİ336:OP,"Diskette will be initialized,000 360:NES2100 L N3:A$"Define final parameters":334:V9 V1V:330:YN,"Create the DIF data file with column titles",HD:HD02000 336 V2V:ES1:DK$"DIF DATA DISKETTE":8100:ES100o! LF1:GO,5,V6:OP,"! !N!o!t!e!: In:2350:CNCNCC! 2400:2100+ 2100C. DTDTI:DT1DTFXS8 DTFXDT1qB BFĭDT6DT7DT92350wL ` 2450:"Column #"C": ";:CNCįOS,22,CF$(CD(C))j  GO,1136(CC2),V1CC2(CC2):  NCE$"COLUMN DATA":382:1CNCDTCD(C)JIDT1:N(I3):VV2N:H822(I3N):GO,H,V:HG,20kGO,H,V:400:HG,20:ES2310xI2300I2İ2350:2200CNCāICNC1:CD(I)CD(I1):CD(NC)0:CCNC:DTCD(C):2400:NCNC1:DT1:2100CD(C)DT:I1 by pressing the following keys ---"hGO,4,V32:OP,"[<--] - Highlight previous data type [SPACE BAR] - Accept !H!i!g!h!l!i!g!h!t!e!d type":jGO,4:OP,"[-->] - Highlight next data type"pDFCNC:DFįGO,43:"[DELETE] - Delete column";z1DT154VV3:330:CS:XNC1:XCXXCX>330:"Enter column number (1-"X") or [RETURN] only: ";:NI,0,ST%,C:ER:ST%31000@ST%22500HST%C1CXE$"COLUMN":370:2110\2450:HG,10$f330:OP,"--- Select column data,H:GO,1,V1:CS:4NSE$T$"S":382:100I360:NES1100ON2:A$"Select data to appear in columns":334V17:V2V17:V3V23:C1CX:2400:GO,5,V22:BX,70,5:GO,8,V2 I1FX:OS,22,CF$(I):3(I3)Iĺ:GO,8:V3V3Including: ";IJI1AN:L%(J)Iİ1770:DA(J):310:XY,H:H6įGO,21W:1760:_AXe1770:" ";:IV:" End ";:1780:1050XY,H:H4ĺGO,1:(KB)155ĹKS,0::1750XY,H,V:V23ıXY,H:24:380:1790:GONI,0,ST%,N:ER:ST%31100;JST%N0NHUDNN:1100dTLI,A$:SQ,A$,"ALL",N:NDN1:1100zhE$DN$:370:1600A0:1790:NS1740I1AN:XL%(I):X01732DA(I):X1İ1770:310:17301760:A1ĺ 1770:IV:OF,4,D::" (I)1*:FL,0,TX,AL:J0:X0:AN21100EI1AN:L%(I)11590R"M1580l$N(A(I)M):NX1582~&XN:JI:1590,NT%(I):JAL(N):JAL(N)I:1590.L%(J)2:L%(I)J6:800:1100@330:OP,"Enter "DN$" number (1-99) or !All: ": 7000 5000l 2:80:OP,"Manzanita Software Systems":3:OP,"<<< The Business Accountant >>>"r d RD,4,CF:GO,1,4:CS:CFįRS,1,CO$:CO$""įOP,"for":5:OP,CO$:300 5:OP,!" SYSTEM NOT CONFIGURED YET "$ ,GO,1,8:CS:GO,12Current Assets,Fixed Assets,Other Assets,Current Liabilities,L.T. Liabilities,Other Liabilities,Capital,Retained Earnings1.Sales,Sales Adjustments,Cost of Goods Sold,Expenses,Other Inc. & Exp.,Income Taxes22Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,MTD Budget," MTD Bgt"0$'"12/YTD Comparatives",YTD/Comps,"12/MTD Comparatives",MTD/Comps,"12/YTD Budgets",YTD/Bgts,"12/MTD Budgets",MTD/Bgts0*10,11,12,20,21,22,30,31,40,41,50,60,70,800.All Balance Sheet Accounts,All Income Statement Accountsz1.BAR] to continue",ES," or use [ESC] to abort",1," ---",A$l/V6:OP,A$:WS,A$::ESA$ES$:GO,1,V:CS:/'Account Number,Account #,Account Type,Acct Type,Description," Desc",YTD Balance," YTD Bal",MTD Balance," MTD Bal"0'YTD Budget," YTD Bgt",,.XEFER(222):ER4ER6ER8EF0:XO:@.b1::D$CL$:PXF.@c.TDK$GL$" PROGRAMS":ES1.A$SP$:UFįFF,DF$,A$:A$SP$A$": ".GO,1,V:CS:V2:OP,"Please load the following diskette:":V4:OP,!A$DK$SP$:/SB,1,"--- Press [SPACE GX$,1,A#A:AN,A%A%:AN,A@T%:ANJ-pI1AN:FD,T%(I),TX,AY,N:T%(I)N(N0):-xD$OP$GD$G1$",L102":BR,GD$,0,#RA,#UT,#MR,#MY,#M1,#BF-BFĺD$OP$BF$G1$",L60"--BR,GD$,A%(I),$A$,#BB,#MC,#MD,A#P:12,#P:UBįBR,BF$,A%(I),A#B:12-MMCMD:YBBM:),CD(CX),CF$(FX),CT$(FX),AY(TX),AL(TX),T$(AX),M$(12),M(12),Y(12)],I1FX:CF$(I),CT$(I):r,I1TX:AY(I):,I1AX:T$(I):,I112:M$(I):,,P,ZD$OP$GX$G1$",L16":BR,GX$,0,#AN,dA(AN),A%(AN),T%(AN),L%(AN):AN5240-nBR,"GLDATA.FILE":BF$"BUDGETS.FILE"q+T$"account":DN$"department":IR$"INVALID SELECTION":SP$" ":SS$" "+CX8:C2CX2:FX11:TX14:AXTX2:NX250:HU100:X9999999+RD,0,UF:RS,7,GV$:RS,8,G1$:RS,27,DF$:RS,99,FC$@,D(48),G(7),P(12),B(12)BN1:350:BX:XB(M):350#*:)*A*KB16384:KS16368e*D$(4):BL$(7)(7):ES$(27)*CL$"CLOSE":OP$"OPEN":UL$"UNLOCK":WR$"WRITE":GL$"GENERAL LEDGER"*Q$(34):QQ$Q$Q$:BT$"BOT":OZ$"1,0":M1$"-1,0" +GX$"GLINDEX.FILE":GD$h: ",F4,A(I):4800)p:Q)IST%(I)8:5300:G(4)G(4)Y:G(5)G(5)MISYIS)B0:ISāJI112:BBB(M(J))::G(6)G(6)B(I11)B(M(1)):G(7)G(7)B(M(1)))APı)J112:KJ:MM(J):N1(MM1)IS)XP(M):350:XXPN1:350:PP(M)*XB(M:392: (( (D$WR$F$0(M1$:"EOD"=(D$CL$F$x(018:OP,"DIF data file creation is complete":20:380(:AQ$"more ":100(\IN:FL,0,7,G:FL,0,48,D:G(1)SA:4800:DS$A$:L1ı)fIIAN:L%(I)NįGO,27,15:PL,L"Consolidated witT%(N):S12((T3T11)T13):D$:GO,H,14:OF,4,A:GO,27,15:PL,B26c'|4700:D$WR$F$:M1$:BT$'C1NC:KCD(C):K74260'K2A$T$(T2):390:4290'K3A$DS$:390:4290'VG(K):392:4290(A$"":390:J(K8)12:I112:JJ1:VD(J) Load ";::" SYSTEM MANAGER ";::" Diskette"Y :" 2) Press any key when ready...";a A$t :(47081)16  COPYRIGHT 1984 MANZANITA SOFTWARE SYSTEMSE# D$(4):BL$(7)4 :(27)(17):D$"PR#0":: dn n3:4::" GENERAL LEDGER PROGRAMS DISKETTE ":| x:BL$BL$ "The Business Accountant System cannot be started up from this diskette" : "To start up the system:". :" 1) SOXįER,"INVALID SELECTION":330TBT,PW,OS,N:NįER,"SECURITY VIOLATION":330OS6įBT,SA,OS,N:NA$(S$(OS),1):UC,A$:ER,A$" NOT AVAILABLE":330CF(OS8OS9)įER,"SYSTEM NOT CONFIGURED YET --- USE OPTION # 8":330#OS510,S:YN,"OK to quit",N:N0300H rSS,0,"":SD,4,1:1::D$CL$:216,0 |:FF,BV$,A$:GO,16,10:"TO REBOOT: Insert diskette in "A$:GO,28,12:"Press [SPACE BAR] when ready ";:WS,A$: (27)(17):D$"PR#0"::49152256((BV$,3))!ST%OS1O:"Available options are:"::OX10:r @I1OX:S$(I):GO,20:PL,L"<",I3,I,L" > - "S$(I):::XY,X,Y0:RD,70,PW JGO,12,Y0:CL:"Enter option number (1 to "OX") or [RETURN] only to quit: "; TNI,0,ST%,OS:ER:ST%2400 ^QUIT hGO,12,Y0:C,0,NV:RD,71,PW:RS,1,CO$:RS,6,SV$:RS,7,GP$:RS,8,G1$:RS,9,G2$TP$(12),SC(12)ZXER(222):EFĭER6ER8EF0:XO:bPXEF0:XO:bPX (C) COPYRIGHT, 1982 SOFTWARE DIMENSIONS, INC.20:OP,"--- Press [SPACE BAR] when ready or use [ESC] to abort ---"_WS,A$:(A$)27ġ:50ekD$(4):BL$(7)(7)UL$"UNLOCK":OP$"OPEN"GL$"GENERAL LEDGER ":PG$GL$"PROGRAMS"GX$"GLINDEX.FILE":JF$"JOURNAL.FILE"ARD12,V1:"Available options are:"YOPOP1:GO,20,V11OP:PL,L"<",I3RM,OP,L" > - ",LO$qP$(OP)P$:SC(OP)SC|SC0:GO,1,7:CS:GO,1,12:OP,"Please load the following diskette:"FF,G2$,A$:GO,1,15:OP,!A$": "DK$" "DGO,1,$GX$G1$:EF0:590!&NVLF700501200:LF1:520MNRD,9,J1:J10600PD$OP$JF$G2$",L9":BR,JF$,0,%JV%,%JE%,%JR%:SD,9,JR%XbMM:SD,6,SC:SD,7,0:DK$PG$:EF1lEFĺD$"RUN"P$GP$WD,DK$:30OPįGO,1,7:CS:V17RM:GO,RMįBT,PW,N,I:IįER,"SECURITY VIOLATION":210@SM500XRMRM:SD,5,RM:50^,h@350JMM,"MAIN"::D$"RUNMODMENU.PROG"GP$^WD,PG$:300LF0:SCSC(N):P$P$(N)".PROG":SC0600DK$GL$"DATA":1::EF1EFĺD$UL R$""gGO,12,V14OP:CL:OP,"Enter option number (1-"(OP)")"R$" or [RETURN] only: "NI,0,ST%,N:ER:ST%2ĴRM1280,300LI,A$:SQ,A$,"REPORTS",SM:SMSMRM:SMNOP1SMĭST%N1NOPįER,"INVALID SELECTION":2103IST":1000HO$"Print Account Detail Report":P$"TBALANCE":SC2:1000O$"Customize General Ledger Reports":P$"GLCUSTOMIZE":1000O$"Setup and Maintain Report Queue":P$"GLQUEUE":SC100:1000O$"Print Reports in Queue":P$"GLQUEUE":1000rts,":200:O$"Print Income Statements":P$"ISS":1000gO$"Print Balance Sheets":P$"BSS":1000O$"Print Funds Statement":P$"FUNDS":1000O$"Print Trial Balance Report":P$"TBALANCE":SC1:1000 O$"Print Journal Detail Report":P$"JLl Ledger":P$"GLRESET":1000kO$"Create and Adjust General Ledger Data Files":P$"GLCREATE":SC1:1000O$"Convert General Ledger Data to DIF":P$"GLDIF":1000GO,19,V12OP:"REPORTS - Transfer to General Ledger Reports Menu" R$", !RepoMaintain Budget and Comparative Data":P$"BCMAINT":1000w O$" Print Budget and Comparative Data":P$"BCLIST":1000 O$"Post Journal Entries":P$"GLENTRY":1000 O$" Maintain Recurring Journal Entries":P$"RECURRING":1000O$"Close GeneraCOA":1000D zO$" Print Chart of Accounts":P$"GLLIST":SC1:1000 |O$" Enter Initial Account Balances":P$"INBAL":SC1:1000 ~O$"Maintain List of Departments":P$"DEPTS":1000 O$" Print List of Departments":P$"GLLIST":SC2:10008 O$" 7000 1:5000! 80. 2RD,5,RMQ 4MT$"SYSTEM":RMMT$"REPORTS" <:1:OP,"<<< The Business Accountant >>>" >3:OP,"GENERAL LEDGER "MT$" MENU" @5:OP,CO$ d nOP0:SC0:RM150 xO$"Maintain Chart of Accounts":P$"     ! GO,HH(T),10:OS,24,TY$(N):=H FD,TP,NY,TY,N:N0N0CR p GO,1134(N7),12N7(N7)(RGN8):vGO,27,13:BX,26,2(TP39)$MTDD(2)DD(3):BADD(1)MT.GO,30,15:XBA:TP40ĺ"Balance:";:4400:8" Y-T-D:";:4400::GO,SA$ES$:ES3290( A(A$):A323280= A8NN1:3270S A21NN1:3270c BL$;:3240u N8RG3260 NNYN1 N1NNY 3240 TPTY(N):SNN:TP31RANU:3290 RGRA0 GO,1,11:CS:EXİ3600 4100 3400:T4s: [<--] - Highlight previous account type":GO,21:"[-->] - Highlight next account type" GO,21:OP,"[SPACE BAR] - Accept !h!i!g!h!l!i!g!h!t!e!d account type" NSN:TPİ3400 N8RGN9 3500:HG,24 GK,A$:3500:HG,24:EA$SP$DS$A$) T3:4100:OS,22,DS$:GN DNDU%(DN)A$"":3160\P BR,DF$,DN4,$A$yX T2:4100:OS,HL(T),A$: TYPE RG(NURA)RA:4250:T4:4110 GO,9,11:CS:BX,61,8 N1NY:RG(N8)İ3500:TY$(N) f GO,13,22:"PresNCIW:NCNC1CN0įMV,N,AN(IW):MV,N,AY%(IW):MV,N,AA%(IW)T$CAIW1:790^ DESC 4260:OP,"Enter account description" T3:4110:PU,LDS$,X22(DS$),FC$ 4110:KI,22,A$:ER:4100:ESA$ES$:ES3100 A$""A$DS$ A$""IW)NJ800SRKDįER,"CANNOT EDIT TYPE, ACCOUNT HAS ALREADY BEEN USED":800m\3200:ESAY%(IW)TPv^800|GO,20,22:"Confirm by typing ";:IV:DL$;::": ";KI,0,A$:UC,A$:A$DL$650US%((AA%(IW)))0:(NURA)RA0NV)2GO,1,13:CS:100  ~*4260:OP,"Edit !Description or !Type or [RETURN] only: ":KI,0,A$:ER:A$ES$A$""6504SQ,A$,"DESCRIPTION",N:N8406SQ,A$,"TYPE",N:N850>ER,IS$:810H3000:ESĭA$""N(AA%(IW)):NW$(N)DS$:AA%(T ON FILE":100%DS$"":TPO:3150@3000:ES(DS$"")700R3200:ES752kNCNC1:NCNENENCNNCIW:N0770MV,N,AN(IW):MV,N,AY%(IW):MV,N,AA%(IW)AN(IW)NU:AY%(IW)TP:CAIW FD,0,NX,US%,AV:NW$(AV)DS$:AA%(IW)AV:US%(A0ER,IS$:650=ER,"ACCOUNT NUMBER NOT ON FILE"|4260:GO,12:YN,"Want to add account number",N:N0100NCNXįER,"NO ROOM, CHART-OF-ACCOUNT FILE IS FULL":1004300:DNDU%(DN)750ER,"DEPARTMENT #"("0"(DN),2)" NO(2)DD(3))$v4300:A0DS$NW$(N)K3150:3100:TPAY%(IW):3300:CAIWU3600SB,1,"Enter !Edit",KD,", !Delete,",1," or [RETURN] only: ",P$:4260:OP,P$KI,0,A$:ER:A$""A$ES$790SQ,A$,"EDIT",N:N800SQ,A$,DL$,N:NKD10064200:4270:IWCAN:NUAN(IW):4100:OF,4,NU:550<JOF,4,NU4200:4270:FD,NU,NC,AN,IW:IW0IW(IW):EX0:700&EX1XbAAA%(IW):N(A):US%(N)1KD1:FL,0,3,DD:630lBR,GD$,N,$DS$,A#DD:3 nKD((DD(1)DD(2)DD(3))DDA$%SQ,A$,"NEXT",N:KNNN1:400ISQ,A$,"PREV",N:KPNN1:400oER,"INVALID ACCOUNT NUMBER":150u4100:CL:4200:5200:D$CL$250MM,"GENERAL LEDGER"::D$"RUNGLMENU.PROG"GP$WD,"GENERAL LEDGER PROGRAMS":230", !Next",KP,", !Prev",KNKP,",",1," or [RETURN] only to quit",P$:4200:OP,P$ (RA)Ģ22:OP,!" NOTE: No Retained Earnings Account defined " T1:4100:OX,7,FC$:CL:4110:DI,7,ST%,NU:ER:4100:ST%2200 ST%0NU0NUUX500LI, ====================== ========================": 2CA0@ d nGO,20,13:BX,41,2:GO,23,15:PL,L"Number of Accounts =",I4,NC,L" (",I3,HU(NCNX)C1,L"% full)" xCA0CA0 zCANCCANC KNCANC:KPCA1P SB,1,"Enter account number",KN, 7000" 5000:5300:5100 80:OP,"GENERAL LEDGER SYSTEM":3:OP,"*** Maintain Chart of Accounts ***":5:OP,CO$ (GO,1,8:"Account # Department Account Description Account Type"1 *"========= ======================          OG"PV$WD,DK$:50FDK$"SYSTEM MANAGER":RS,6,PV$:SC0:yDK$"GENERAL LEDGER PROGRAMS":RS,7,PV$:SC1:DK$"ACCOUNTS PAYABLE PROGRAMS":RS,10,PV$:SC2:DK$"ACCOUNTS RECEIVABLE PROGRAMS":RS,13,PV$:SC3:DK$"INVENTORY CONTOP,"Please load the following diskette:"\GO,1,15:FF,PV$,A$:OP,!" "A$": "DK$" "GO,1,20:OP,"--- Press [SPACE BAR] when ready or use [ESC] to abort ---"WS,A$:(A$)27300 *MM:SD,5,0:SD,69,OS:EF14EFĺD$"RUN"P$".PR700.NRS,0,DF$:GO,12,Y0:CS:3000:ES330PGO,1,Y02:OP,"--- Press [SPACE BAR] to continue ---":WS,A$:GO,1,Y0:CS:330XP$"STATUS":1010PV$""įER,"SYSTEM MODULE NOT AVAILABLE":330NVSCMM800)GO,1,8:CS:GO,1,12:520,530,540,550,560,570,580,590,600>P$"GLMENU":1020:700YP$"APMENU":1030:700tP$"ARMENU":1040:700P$"INVMENU":1050:700&P$"PAYMENU":1060:7000P$"LABELSMENU":1010:700:P$"UTMENU":1010:700DP$"CONFIGURE":1010::DU%(DN)052305dBW,DF$,DN4,$DD$(DN):DU%(DN)1;nTxBW,DF$,0,A@DU%:DX:ZXnb1::D$CL$:PXD0,D$OP$DF$G1$",L22":D$OP$GX$G1$",L16"QBR,DF$,0,A@DU%:DX:BR,GX$,0,#NC_NC5150} AN(NC):BR,GX$,1,A#AN:NCI1NC:NAN(I):AD%(NHU(NHU))1:ND0:D10:D20(N1DX:DU%(N)NDND1:D2N:D1D1N*:PZDN1DXr35,23:GO,1,20:CS::GO,20,20:)?D$(4):ES$(27)ZCL$"CLOSE":OP$"OPEN"sDL$"DELETE":SP$" "GX$"GLINDEX.FILE":DF$"DEPTS.FILE"HU100:DX99RS,1,CO$:RS,7,GP$:RS,8,G1$:RS,99,FC$DD$(DX),DU%(DX),AD%(DX)ER:ESA$ES$:ES3100( A$""A$DS$C A$""A$SP$DS$A$] T1:4100:OS,L,DS$:{Tİ4120:GO,H,V1:HG,L4120:HG,L:GO,H,V2:Tİ4120:GO,H,V1:HG,L4120:HG,L:GO,H,V2:V9:H258T:GO,H,V:L616T:h# BE DELETED":640IGO,20,22:"Confirm by typing ";:IV:DL$;::": ";k$KI,0,A$:UC,A$:A$DL$640.DU%(NU)0:NDND1:5150:100  4200:OP,"Enter department description" T1:4100:PU,LDS$,XL(DS$),FC$ 4110:KI,L,A$:4100:MENT NUMBER NOT ON FILE"S4200:YN,"Want to add department number",N:N0100^DS$""w3000:DS$""ES500DU%(NU)NDND1DD$(NU)DS$:DU%(NU)15150:EX640100AD%(NU)įER,"DEPARTMENT NUMBER BEING USED, CANNOT%(NU)0DS$DD$(NU):630.lBR,DF$,NU4,$DS$8v31004200:OP,"Enter !Edit, !Delete, or [RETURN] only: ":KI,0,A$:ERA$""A$ES$100SQ,A$,"EDIT",N:N750SQ,A$,DL$,N:N1000ER,"INVALID SELECTION":640ER,"DEPART200":?D$CL$250EMM,"GENERAL LEDGER":D$"RUNGLMENU.PROG"GP$lWD,"GENERAL LEDGER PROGRAMS":230r|NUCDNUNUN:DU%(NU)420GO,1,13:CS:T0:4120:GO,H2,V2:PU,I2,NU,L" "CDNU:DU%(NU)700XbEX1:DUR EX0:T0:4110:PU,B2,X2,FC$:CL:GO,H2:NI,4,ST%,NU:4100:ER:ST%2200l ST%NU0NUDX500 LI,A$:SQ,A$,"NEXT",N:KNNN1:400 SQ,A$,"PREV",N:KPNN1:400 ER,"INVALID DEPARTMENT NUMBER":150 4100:CL:4200:517,13:BX,44,2:GO,21,15:PL,L"Number of Departments =",I3,ND,L" (",I3,HU(NDDX).5,L"% full)" xKNCDD2:KPCDD1D10:4200 SB,1,"Enter department number (1-99)",KN,", !Next",KP,", !Prev",KNKP,",",1," or [RETURN] only to quit",P$:4200:OP,P$o 7000 5000:5100| 80:OP,"GENERAL LEDGER SYSTEM":3:OP,"*** Maintain List of Departments ***":5:OP,CO$ (GO,25,8:" Dept":GO,25:"Number Department Description" *GO,25:"====== ======================" 2CD0 d` nGO,     P$GD$G1$",L102"!BR,GX$,0,#NC=AN(NC),AY%(NC),AA%(NC)iNCįBR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NCt(FO1:PD$OP$DF$G1$",L22"ZBR,DF$,0,A@DU%:DX:5160Xb1::D$CL$:PX'10,Current Assets,11,Fixed Assets,12,Other AssetsC'2 RESPONSE":GL$"GENERAL LEDGER":Q$"="5FO0:NY14aRS,0,TD$:RS,1,CO$:RS,7,GP$:RS,8,G1$RD,1,PS:RD,2,FF:RD,3,LP:RD,6,FTTY(NY),TY$(NY),DU%(99)I1NY:TY(I),TY$(I):FOıDL5200 D$OP$GX$G1$",L16":D$O400:ESESıDL42205330:CS:CVCV4:4200;SKB16384:KS16368iD$(4):ES$(27)CL$"CLOSE":OP$"OPEN"GX$"GLINDEX.FILE":GD$"GLDATA.FILE":DF$"DEPTS.FILE"SP$" ":HU100:TH1000:DX99:AX999999:OW80&IR$"INVALIDCV1:4100"N2N.,N1N2NN1:N1N2:N2N?6NHU:DLN1{8H2$"(Selected "AD$"s: "(N1N)" thru "(N2N)")"hDL4300r350:YN,"Indent account numbers to show consolidation",IC:IC04300|CVSV:330:CS:4050 350:330:CS:350:SVCVnN1MN:N2MX:H2$"":330:OP,"Print !All or !Selective "AD$"s: ":KI,0,A$:ER:A$ES$ġ:120SQ,A$,"ALL",N:N4200SQ,A$,"SELECTIVE",N:NįER,IR$:4050P$"start":DFN1:370:ES4050N1N P$"end":DFN2:370:ESCVID40.PL,BTID,F4,NU,B6ID,S25,DS$,LTY$(K)@8LANU:LYAYFLcAC$"complete":500:570i}4000:T22:7205100N1DX:DU%(N)2070NN1NN22070BR,DF$,N4,$DS$ 600:PL,BT3,I2,N,B6,LDS$:1200 4000:T9:720:5100:NC12004LYAY%(1):LA0eN1NC:NUAN(N):AYAY%(N):NUN1NUN21100}BR,GD$,AA%(N),$DS$FD,AY,NY,TY,K:K0K0AYLYİ600:SP$600:ICID2:1070$ID0:(NUTH)(LATH)ID2&(NUHU)(LAHU)""ĺ(OW(H2$))2);H2$:LNLN12SP$:800:900d DLĺT)"Dept # Department Description":*T)"Acct Number Account Description Account Type":DLįPL,BT,L"======= ",X22,Q$:PL,BT,X11,Q$,B3,X22,Q$,B3,X24,Q$:!e [ESC] to abort listing"0zWS,A$:A$ES$570>700:600DUGC:CPė:fFFĺ(FF):|LLNOL:SP$::650PNPN1:LN6:L(OW(CO$))2PU,L"As of: ",YTD$:L15)CO$L7)"Page "PN(OW(HU$))2)HU$H2$* LISTING ABORTED.....".2AC$"aborted":5008:590CD:580NN7000fPAQ$"another ":100lXbL(KB):L128620dKS,0:L128(ES$)550lLNLN1:LNEP630nv900:CP640x24:OP,"Press [SPACE BAR] to continue or usg may be aborted by pressing the [ESC] key":LCPPS:OLLP:EPOL6:PW,PSlHU$(HD$,1):UC,HU$:PN0:rLNLN1:900:CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE BAR]"WS,A$:GO,1,1:&0CPLNLN2:SP$:"****L:~OF,4,N:CL:f330:OP,"Select !Console or !Printer: ":KI,0,A$:ER:ESA$ES$:ESıSQ,A$,"CONSOLE",N:NCP0:EP23:650:480SQ,A$,"PRINTER",N:NįER,IR$:420-332:12:OP,"Report generation in progress":15:OP,"Listin0:OS,313DL," Enter "P$"ing "AD$" number":": ";:XY,H:NDF:380 vGO,H:@IN$,0,ST%,N:ER:ESST%3:ESCVCV1:330:CS: xST%2ST%0:NDF zST%0N0NMX(ST%DL)E$"INVALID "AD$" NUMBER":UC,E$:ER,E$:372|GO,H,CV:DLĺN;:COP,CO$:332 x332A 330:YN,"Print "AQ$HD$,N:N0200S FT1000,2000Y i 1::D$CL$s 250 MM,GL$:D$"RUNGLMENU.PROG"GP$ WD,GL$" PROGRAMS":230 JGO,12,CV:CL: LCV9:330:CS: ^CVCV2:330 rCVCV1G t33 7000 5000:80% (AQ$""1 2DLFT2} <DLIN$"NI":HD$"List of Departments":AD$"department":MN1:MXDX:100 FIN$"DI":HD$"Chart of Accounts":AD$"account":MN100:MXAX d n:OP,GL$" SYSTEM":3:OP,"*** Print "HD$" ***":5:      T *****"::"This option is used to enter the initial balances for all accounts in your Chartof Accounts. At a minimum you should enter the ending account balances for the"g"previous month ("MS$(MX)"). However, if the data is available you se entered for:";3rM1MX:310:MS$(M)::CV12:GO,1,CV2:CS:BX,77,2:GO,3,CV:"Outstanding Balance:";:XY,H1:GO,42:"Year-to-Date Earnings:";:XY,H2:350:GO,1,CV1:BX,77,NV1:GO,1,1:GO,1,8:CS:OP,"***** I M P O R T A N5,L"Initial Account Balances for ",S21,ML$(M):"Page "PN SP$:6)"Account Description Balance Account Type" 6)"======= ====================== =========== =======================" LN5:hGO,1,8:CS:"Data will bDS$,D4,PY(CM),B1,LTY$:LYTY:|NL2:2700:PL,B39,L"-----------":PU,B15,L"Outstanding Balance =":XOB:352::2600:PW,01500( FFĺ(FF):2 LNLNLP:SP$:: LNNLEPLNLNNL: 2600:2710:27008 PNPN1:PU,L"As of: ",YTD$,B,"ACCOUNT NUMBER NOT DEFINED":1610GrED1:FD,AN,NV,AD,V:V01670p|FD,0,NV,AD,V:V0VV2:360:1050VV1V1:1050EPLP6:LY0:PN0:PW,PS:27104N1NC:400:LYĭTYLYNL1:2700:SP$>NL1:2700:PL,B6,F4,AN(N),B1,S22,5350 @vJ330:OP,"Enter account number to edit, !All, or [RETURN] only: ":DI,7,ST%,AN:ER:ST%21500TST%0AN0ANAX1640^LI,A$:SQ,A$,"ALL",N:NįER,"INVALID ACCOUNT NUMBER":1610`ED1:1030#hFD,AN,NC,AN,N:N0įER$,1,", enter ",OB,"!Accept, ",1,"!Edit, or !List: ",P$Z330:OP,P$:KI,0,A$:ER:300|SQ,A$,"ACCEPT",N:NOB1550SQ,A$,"EDIT",N:N1600SQ,A$,"LIST",N:N2000ER,"INVALID RESPONSE":1530CUEYįFD,RA,NC,AN,N:5300:BBBBYE:maining accounts "@DBDFD:PY(CM)B:CUBBB:EYTY39BB0a5350:OBOBD:TY39YEYEDo350:390~ED01600NNXNXN(NN1:1100OBP$MS$(M)" is Out-of-Balance":BL$;:1520P$"Entry complete for "MS$(M)8SB,1,P01200~ST%11180&ED01300DN1Ĵ(ED0)11130,1600_NN1:VV1İ382:1110oVV1:1110LI,A$:SQ,A$,"QUIT",L:LįER,"INVALID AMOUNT ENTERED":1130330:CS:BD:EDİ390:1600QF1:OP,!" Please wait, reviewing the reNX)#`ENN:DPY(CM):QFBD:1200jGO,1,23:CL:OP,"(this is a "DC$(C)" account and is normally entered as a "PN$(C)" amount)"lGO,H3,V:HG,31:GO,H4:OD,0,D:GO,H4:DI,11,ST%,B:GO,1,23:CSnGO,H3,V:HG,31:ST%2BD:ST%0tST%ED0:N1:NX0:CMMX(M):CUMMX:EYCMMLUFL,0,NV,AD:VV11:340:GO,1,V1:CS:^QF0$330:OP,"Enter YEAR-TO-DATE account balances for "ML$(M)" or !Quit"LED01110NNNC1500P360V400:C(TY19TY50)TY70:370:DFED(N,DS$,S24,TY$,D0,PY(CM):AD(VV11)AN(N):P|L1NV:AD(L)AD(L1)::SC23:384u~LNV11:AD(L1)AD(L)::SC22340:(SC);::GO,H4,V:OD,0,B:5300:TYAY%(N):FD,TY,NY,TY,K:K0TY$"":TY$TY$(K):OB0:YE0:4300*: @310:HG,6:% B310:HG,6:9 JGO,10,22:CL:L LGO,1,20:CS:o T32,2:33,76:34,V11:35,V2: ^GO,H1,CV:XOB:352:GO,H2:XYE `S$" ":XMMS$"-" bPU,LS$,D4,X: hVV1:VV2İ380:VV2 j)rGO,H3,V:PU,F4,AN(N),B1,S232:MM1:(MMX)1100,200> 1000:KP:322:MM1:MMXī100D T 1::D$CL$^ 250 MM,G$:D$"RUNGLMENU.PROG"GV$ WD,G$" PROGRAMS":230 ,A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):300 . 6V8:H19M8:M7VV1:HH56 8GO,H,V^ 7000 5000:5100u 280:OP,G$" SYSTEM":3:OP,"*** Enter Initial Account Balances ***":5:OP,CO$: <4500:4200:M1 d n320:GO,1,CV2:CS:GO,12,CV:YN,"OK to enter data for "ML$(M),N:N0İ322:MM1:M1100,50 xNİ32     ,N:NEB1:PA$"monthly budget":DH$BH$:4950TDSQ,A$,CH$,N:NEB0:DH$CH$:4950vLER,"INVALID SELECTION":4910VEBBFįER,"BUDGET OPTION NOT BEING USED":4910 `GO,H1,V1:CS:"Account # Department Account Description AcCS:|GO,12,20:CL:Z1:OP,"*** Maintain Budget and Comparative Data ***"n3:OP,CO$::t$.GO,8,V12:CL:OP,"Maintain !Budget or !Comparative data or [RETURN] only to quit: ":KI,0,A$8A$""A$ES$ġ:200-BSQ,A$,BH$N1PY(13)D:VPY(M)D:)tMMDRA~M1MM12:YRYR1ZM12MM12:YRYR1`j3600x3520:XDS$" ":XMMS$"-"PU,LS$,D0,X:<YB0:I112:YBYBBU(I):FGO,H2,17:XYB:3820hGO,12,13:CS:r4220:3700:& EBİ39000 @N N1MX:3500:3520:OX,13,SP$:]X EBįGO,H2,17:OX,13,SP$cb  VV3N:H16BW:N7VV6:HH30 GO,H,V: GO,H8BW,V:EBDBU(M):DPY(M):N1DPY(13)$BEBYBYBBU(M)D:BU(M)D:L4200:OP,"Verification complete, comparative data is OK"KI12000::Q4210:N0:YN,N,"OK to return to General Ledger Menu",N:Nı:PF0:50  EBDR1:MX12:FMM1: DR1:MX13:FMMR:YRMY1: MFM:N1MX:3500:3800:(13)>D2150HN2140sRGO,1,V2:CS:BL$"Comparative data is Out-of-Balance for the following month(s):"\NN1:3500:A$(MN$(M),3):A$"/"YR":";:OD,0,D:f3700:pOBN0:BW,GD$,0,#RA,#AF,#MR,#MY,#M1,#BF,A#JQ:8,#OBrN22009zrifying the integrity of the comparative data "IFL,0,13,PM:NC21004200:GO,26:"Checking Account Number: ";:XY,X:IW1NC:5300:GO,X,13:OF,4,AN(IW): I113:PM(I)PM(I)PY(I)::4N0:EB0:3000:MFM:I1MX:DPM(M):I1DPM0%ER,"INVALID AMOUNT":3800:720:LDD:3810:3650[3510:HG,HW:3700:EBİ3910pNN1:NMX710v EBİ3900600 *EDİ5350:EBPF1R3150:100CHKGO,1,V1:CS:PFOBı/V13:OP," Please wait, vet",A$:OP,A$:GO,H8BW,V:DI,12,ST%,I:ERDST%2İ3600:750UST%3730t3510:HG,HW:NN1:N600MMDR:3710:710ST%0(I)IXDI:750LI,A$:SQ,A$,"QUIT",I:Iİ3800:NMX:760SQ,A$,"REPEAT",I:IEBRE1:DLD:75$""800lES850HvSQ,A$,"EDIT",N:NįER,"INVALID RESPONSE":610`4220:ESNMX:700hN1MFMDR(N1):3710:3600:LDD:RE0:ED13500:HG,HW:REDLD:750-4220:SB,1,"Enter "PA$" for "MY$(N),EB,", or !Repeat,",1," or !QuiALANCE SHEET ACCOUNTS"iFGO,1,22:OP,"--- Press [SPACE BAR] to continue ---":GO,H29,V2:WS,A$:100N3000:3100:ED0:EBPA$"balance":ISPA$"year-to-date balance"Xb4220:OP,"Enter !Edit or [RETURN] only: ":KI,0,A$:ER:ESA$ES$:A550IWD:4206FD,NU,NC,AN,IW:IW0180m&4210:AYAY%(IW):NUAN(IW):DNNUHU(NUHU):CAIW05300:5400:FD,AY,14,TY,N:N0N02GO,H11,V2:PL,F4,NU,B1,S23,DD$,S23,DS$,S24,TY$(N):ISAY39:ISEB590DER,"CANNOT BUDGET B,N:NKPN1:400C ER,"INVALID OR UNDEFINED ACC'T NUMBER":150I d 2000:GO,1,1::D$CL$n 250 MM,"GENERAL LEDGER":D$"RUNGLMENU.PROG"GV$ WD,"GENERAL LEDGER PROGRAMS":230  IWCAN:EB550DIWN:D1DNCAY%(IW)39," or [RETURN] only to quit",P$:4210:OP,P$I S7:GO,H1,V1:HG,S2~ GO,H11,V2:CL:OX,S,FC$:GO,H11:DI,S,ST%,NU GO,H1,V1:HG,S2:ER ST%0NU0NUAX500 ST%250 LI,A$:SQ,A$,"NEXT",N:NKNN1:400 SQ,A$,"PREV"a 7000 5000:80/ 4500:5100:PF0U 2GO,1,1:HG,80:GO,1,V1:CS:4900u <GO,4311EB,1:HG,115EB~ FCA0 d xCA0CA0 zCANCCANC KNCANC:KPCA1. SB,1,"Enter account number",KN,", !Next",KP,", !Prev",KNKP,",",1          10CBHU:L2CBCB10DH3$"(Consolidated by "A$" Number)"Y350:400:ESıvBPCVV2:330:CS:4210CVV1:330:CS:4100KB16384:KS16368D$(4):ES$(27)CL$"CLOSE":OP$"OPEN":G$"GENERAL LEDGER".GX$"GLINru "(A2HU)")"^BP4300.h350:V2CVur330:YN,"Print consolidated budgets",L:L0CVV1:330:CS:4100tLCB0:4300|CVCV1:P$" Consolidate by !Department or !Account number: ":A1$"Department":A2$"Account"~360:ESİ354:42t !All or !Selective accounts : ":A1$"ALL":A2$"SELECTIVE"S360:ESİ352:4050aL141906P$"start":DFA1:370:ES4110@A1N:P$"end":DFA2:370:ESCVCV1:4150JA2N:A2A1NA1:A1A2:A2NTH2$"(Selected accounts: "(A1HU)" th !Comparative Data: ":A1$"Budget":A2$"Comparative"F360:ES4000|L1BFįER,"BUDGET OPTION NOT BEING USED":4050BPL1:DT$A$" Data"HD$"CHART OF ACCOUNTS, with "DT$:UC,HD$350:V1CVA1100:A2MX:H2$"":H3$"";P$"Prin":";:310:MMOF:OF4:!:gBPįPU,B36,L"Total yearly budget =":XYB:310:FL,0,12,BC:LC0:pSP${LAN1AC$"complete":500:570332YN,"Print "AQ$"data listing",N:N02003504P$"Print !Budget orFD,AY%(LA),14,TY,K:K0K0*.NL7:600S0PL,B4,F4,AN(LA),B2,S24,DS$,LTY$(K)mLYB0:R1NR:MFMR1V13):OF5BP:NK32(R5)`K1NK:M12MM12j" "MN$(M);:BPXBC(M):YBYBX:1150tXM:R1ĭK1X13vYR$(X);:XPY(X)~1300BPAY401300?BR,GD$,AA%(N),$DS$,A#AD:3,A#PY:13SBPLAN:1050BR,BF$,AA%(N),A#BU:12:TB0:I112:BC(I)BC(I)BU(I):TBTB(BC(I)):(NNC)CBĭ(AN(N)CB)(AN(N1)CB)1310TB1300LANįBR,GD$,AA%(LA),$DS$$800:900:M " Acct No Account Description / Account Type / "DT$:qPL,L" ======= ",X64,"=":wNC1500LA1:BPNR5:FMMR:1016NR4:FMM1:FL,0,12,BCFM12FM1N1NC:390:NUAN(N):AYAY%(N):NUA1NUA2:FFĺ(FF):*LLNOL:SP$::09650ZPNPN1:LN7:L(OW(CO$))2PU,L"As of: ",YTD$:L15)CO$L7)"Page "PN(OW(HD$))2);HD$H2$""ĺ(OW(H2$))2)H2$:LNLN1H3$""ĺ(OW(H3$))2)H3$:LNLN1 SP$:$"aborted":500:590%D:5800N7000GPAQ$"another ":50MXVb390olLNNLEPLNLNNL:v900:CP640x24:OP,"Press [SPACE BAR] to contunue -- press [ESC] to stop"zWS,A$:A$ES$570700:600TOFGC:CPborted by pressing the [ESC] key":BCPPS:OLLP:EPOL6:PW,PSVOW80:PN0:720\w900:CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE BAR]"WS,A$:GO,1,1:&0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC:CL:L(KB):L128ı6KS,0:L128(ES$)ıA:550GP$"Select !Console or !Printer: ":A1$"CONSOLE":A2$"PRINTER":360:ESıL1CP0:EP24:650:480#332:12:OP,"Report generation in progress":15:OP,"Listing may be aINVALID SELECTION":360# rCVCV1n t330:OS,32," Enter "P$"ing account number":": ";:XY,H:NDF:380 vGO,H:DI,0,ST%,N:ER:ESST%3:ESİ354: xST%2ST%0:NDF zST%0N0NMXįER,"INVALID ACCOUNT NUMBER":372|GO,H,CV:OF,4,N":230 6S$" ":XMMS$"-"1 8PU,LS$,DO,X:E JGO,12,CV:CL:Y LCV9:330:CS:j ^CVCV2:330s `354 b330:CVCV1: h330:OP,P$:KI,O,A$:ER:ESA$ES$:ESı jSQ,A$,A1$,L:LA$A1$:L1: lSQ,A$,A2$,L:LA$A2$:L2: nER," 7000 5000- AQ$"":5100:55005 80P 2:1:OP,G$" SYSTEM" 43:OP,"*** Print Budget and Comparative Data ***" 65:OP,CO$ d4000:1000 1::D$CL$ 250 MM,G$:D$"RUNGLMENU.PROG"GV$ WD,G$" PROGRAMS     "INVALID AMOUNT":2500:2100)RVA(VL)NE\DD1:2500:VLVTVTVLSfRF2200mpRFRF1:ARRF:ARıBA0:VTāI1VT:BABAVA(I):(BA)C1BA0GO,47,L1EP1:"----------- -----------"GO,23:"Unposted balance:";:CLGO,000; VG(VL)N:VX(VL)AA%(WH):AD$(VL)A$:DD1:2300:2400H4RF2140>DD(VLVT)ES:P$"amount to be applied, prefix credits with a minus sign":4500@2600:DI,11,ST%,N:ER:4200:ST%3VTVTES:2200:2000BST%2DD2140HST%0įER,0:DI,7,ST%,N:ER:ST%220404DDİ2300:2100CDDİ4100^V1VTĭVTVLVT:4120iAR1:{ST%32050EDVL120344100:VLVL1:4120:ES1:2100DDST%0įLI,A$:SQ,A$,"DELETE",L:LAR1:2150 4900:WH0İ2300:2V,N,VX(VL):MV,N,VA(VL):MV,N,AD$(VL)F8VTVT1:4160:2200:1010L|ES0:AR0:DDVLVT:4120:OI,2,VL:DDįCLH14:RFNVG(VL):ST%0::2060SB,1,"General Ledger account number or [RETURN] only",DD,", or !Delete",P$:4500 320ber to edit";:VTLXĺ" or add";:VLVT1Z" (1-"VL"): ";:NI,0,ST%,N:ER:ST%2600ST%N0NVLįER,"INVALID LINE NUMBER":1010VLN:ADVLVT:ED1:2000:AR01060ADAR01010520$V2VLV11(.NVTVL:NįMV,N,VG(VL):M(I),$A$,A#DD:3,A#PY:13::|BW,JF$,0,%JV%,%JE%,%JR%,%XR%fA$HD$(1):N((A$)):(N)A$JT%930JQ(JT%)N1:BW,GD$,0,A#GD:6,A#JQ:4,A#JC:4RVİ5200:PF%1:5250LD$HD$(2)KP:100VT500(4200:VLLX:" Enter line num:NVG(I):AN%NHU:DN%NAN%HU:JE%JE%1:ST%I:JR%JR%1[\BW,JF$,JR%,%AN%,@DN%,#AR,@ST%fBR,GD$,VX(I),$A$,A#DD:3,A#PY:13hMPM:N2(AR0):MN1jDD(N)DD(N)AR:M890pMCM890rPY(M)PY(M)AR:MM1:M12M1t880zBW,GD$,VX6*4200:OP,"Please wait, Posting journal entry"y4JR%4VTXR%įER,"NO ROOM ON DISK TO POST JOURNAL ENTRY":700>JV%JV%1:VE%VT:A$JI$(JN)HD$(1):DT,HD$(2),N:PMNNHBW,JF$,JR%1,%VE%,#N,$HD$(3),$A$,@JT%:JR%JR%48RI1VT:ARVA(I)VT1)BA:520JvVA(VL)VA(VL)BA:VVLV11:V0VEPVL1V:DD1:2500Yx2200:600BL$;:P$"WARNING: Debits not equal to credits. ":AR1:4810:AR5301000600P$"Journal entry complete: ":4800:AR530AR0İ4200:650 $(3)HD$(3)A$:3300?GO,1,4:"Recurring J/E : ";:OS,8,RJ$NRFVT:170Th6300:VT0:V11VLVT1:ED0:2000:ARVT5504180:170&ARVTLX520X(BA)700bJT%640lFD,JA,VT,VG,VL:VL0VT2RF1:VG(VT1)JA:VA(RJ$HD$(1):HD$(2)TY$:JT%HD$(1)SV$rA$HD$(3):IH(A$,1)"?":IHIH(A$):HD$(3)"":IH1HD$(3)(A$,IH1)4180:VI13:3300:IH470VI3:P$"Please complete description":4510:4300GO,HIH1:KI,LIH1,A$:A$ES$100HDA$:ER:A$ES$A$""414jUC,A$:FS,A$,RN,RC$,IW:IW0įER,"RECURRING JOURNAL ENTRY NOT DEFINED":420RVIW:5200:PF%4404200:BL$;:YN,"WARNING: Posted this month already. OK to use",N:N0HD$(3)"":400NE$"":HD$(3)"":414&MENU.PROG"GV$4 WD,"GENERAL LEDGER PROGRAMS":230= RJEV E$"":RNİ6500:420 E$"NO RECURRING JOURNAL ENTRIES DEFINED" 4180:E$""įER,E$ HD$(1)SV$:132 4200:PU,L"Enter recurring journal ID: ",X8,FC$:XY,H:GO,H8KI,8,VIVI1:VI130 ED150,170A VI1įUC,A$:A$"RECUR"400W VIVI1:VI4130 P$"Journal entry header information: ":4800 AR100 AR1500 ED1:VI1:130 GO,1,1::D$CL$ 250 MM,"GENERAL LEDGER":D$"RUN GL" 7000 5000$ 5100:80. 260004 d| n4180:FL,"",3,HD$:HD$(2)MM$:JT%JN1:RV0:RF0:PM0:GO,1,4:24) pJT%120 rNJQ(JT%):NNQXN1 tHD$(1)(N) xED0:VI13:3300::VI1 SV$HD$(1) 3300:3000:ES140           mplete description":V3:HH2:L20:G12:DF$VD$:> GO,H,V:P GO,HG1,V:Z 3100v 3200:VI1įOS,L,VR$: OS,L,VD$:GO,10,V:CL:VVLV11:V1VEP4140"VL1VLV11:GO,10,V:,V(EP1)VLVT4150.4190: 3200:KI,L,A$:ER:GO,1,20:CS:3210:HG,G:ESA$ES$:ES3310R A$""A$DF$j VI1įUC,A$:VR$A${ VI2VD$A$ 3310 VI3110,3130& P$"Recurring J/E Reference ID":V3:HH1:L8:G13:DF$VR$:0: P$"description: end with ? for inco00:OD,0,VA(VL) ,( K0:DDKVA(VL)0@2 H4713K:3200F b 3100:VI1İ4500:3030 SB,1,"Enter ",1,P$,KN,", !Next",KP,", !Prev",KNKP,",",1," or [RETURN] only to quit",P$:4200:OP,P$ 3200:PU,LDF$,XL(DF$),FC$:3210:HG,G@EP1:"----------- -----------"FGO,23:"Unposted balance:";:CLfGO,4713(BA0):OD,0,BA:H14:3200:DDįOF,4,VG(VL): 7):` H23:3200:AD$(VL)NF$įOS,22,AD$(VL):j IV:" Account not found ":: H47:3200:CL:DDİ26 a minus sign":4500S@2600:DI,11,ST%,N:ER:4200:ST%3VTVTES:2200:2000gBST%2DD2140HST%0įER,"INVALID AMOUNT":2500:2100RVA(VL)N\DD1:2500:VLVTVTVLBA0:VTāI1VT:BABAVA(I):(BA)C1BA0!GO,47,L1ST%32050EDVL12034A4110:VLVL1:4120:ES1:2100sDDST%0įLI,A$:SQ,A$,"DELETE",L:LAR1: 4900:WH0İ2300:2010 VG(VL)N:AD$(VL)A$:DD1:2300:24004>DD(VLVT)ES:P$"amount to be applied, prefix credits withES0:AR0:DDVLVT:4120:OI,2,VL:DDįCLSB,1,"General Ledger account number or [RETURN] only",DD,", or !Delete",P$:4500H14:3200:DI,7,ST%,N:ER:ST%22040DDİ2300:2100DDİ4100V1VTĭVTVLVT:4120AR1: L) 8VTVT1:4160:2200:1010&_GO,12,23:CL:OP,"Confirm by typing !D!E!L!E!T!E: "KI,0,A$:UC,A$:A$"DELETE"6104200:IW0100US%(RC%(IW))0:NRNIW:RNRN1:N0įMV,N,RC$(IW):MV,N,RC%(IW)CCIW1:EF1:900,%N0NVL1050VLI,A$:SQ,A$,"DESCRIPTION",L:LįER,"INVALID LINE NUMBER":1010pVI2:3000:EF1:1010VLN:ED1:ADVLVT:2000:EF1:AR01060ADAR01010520$V2VLV11.NVTVL:NįMV,N,VG(VL):MV,N,VA(VL):MV,N,AD$(VFD,0,RX,US%,AV:RC$(IW)VR$:RC%(IW)AV:CCIW:US%(AV)1DREFİ5250REFİ5150_KP:100e4200:VLLX:" Enter line number to edit";:VTLXĺ" or add";:VLVT1" (1-"VL;:OP,"), or !Description: ":NI,0,ST%,N:ER:ST%2600STVLVT1:ED0:2000&ARVTLX520/&EF15Xjb(BA)įER,"WARNING: DEBITS NOT EQUAL TO CREDITS"|l4800:ES100nED800vED012001000 *4200:IW08504IW(IW):RNRN1:NRNIW:N0įMV,N,RC$(IW):MV,N,RC%(IW)6>WD,G$" PROGRAMS":230/5200:VT440eI1VT:FD,VG(I),NC,AN,WH:WH0AD$(I)NF$:430BR,GD$,AA%(WH),$AD$(I)VI1:3300:VI2:3300:6300VT460V11:V21:VL1:41602200:CCIW:6006300:VT0:V11curring Journal Entry",N:N0100] RNRXE$"RECURRING JOURNAL ENTRY FILE IS FULL":146z 4180:VI2:3000:ES130 PF%0:500 4180::5150:D$CL$ ESP$GM$:MM,G$:230 P$RL$:MM 250 1::D$"RUN"P$".PROG"GV$,"NEXT",N:N150& KNIWCC1:400P E$"INVALID VOUCHER REFERENCE NUMBER"g ER,E$:VR$"":130 SQ,A$,"PREV",N:N160 KPIWCC1:400 144 FS,A$,RN,RC$,IW:IW0400" ER,"RECURRING ENTRY NOT ON FILE":4200:YN,"Want to add Re 7000 5000$ 5100:803 26000:CC09 dh n6500:EF0:VR$"":VD$"":GO,H3,3:OI,2,RNw pCC0CC1 rCCRNCCRN tKNCCRN:KPCC1 xVI1:3300:VI2:3300 VI1:3300:3000:ESA$""200 SQ,A$,"QUIT",N:N144 SQ,A$          lPXm'General Ledger System,Accounts Payable System,Accounts Receivable System,Inventory Control System'Payroll,Labels Plus,System Utilities,System Setup and Configuration,Change Today's Date,System Status ReportA8 SS,0,A$:GO,1,Y:CL:GO,32:PL,L"Date set: ",YA$:>bD$(4):BL$(7)(7):ES$(27)UL$"UNLOCK":OP$"OPEN":CL$"CLOSE"RD,0,NV:RD,4,CF:RD,49,SA:RD,69,MM:RS,5,BV$S$(12)XbER(222):EFĭER6ER8EF0:XO:ROL PROGRAMS":RS,16,PV$:SC4:L$DK$"PAYROLL PROGRAMS":RS,20,PV$:SC5:V DATE GO,26:"Enter today's date: ";:XY,X,Y:OY,DF$:CL:GO,X:KI,8,A$:ER:ESA$ES$:ESı A$""A$DF$ DT,A$,JD:JDįER,"INVALID DATE ENTERED":GO,1,Y:3010&"VECTORS":"0,"UC:QQ$9&"TUPLES":"0,"NSHD:QQ$Q&"DATA":"0,0":QQ$_&HD4200m&M1$:BT$&V1NC:NCD(V):A$CT$(CD(V)):390&N7āI112:A$M$(M(I))"/19"(Y(I)):390:&"&hD$&rN1AN:LL%(N):L04300F'tAD,2,FF:RD,3,LP2RC$(RX),RC%(RX),VG(LX),VA(LX)8>iD$OP$GX$G1$",L16":D$OP$GD$G1$",L102"BR,GX$,0,#NC:AN(NC),AA%(NC),AD$(NC):NCįBR,GX$,1,A#AN:NC,A%AA%:NC D$OP$RF$G1$",L160":BR,RF$,0,#RN,A$RC$:RX,A%RC%:RX:XPXBWK(4):ES$(27):SP$" ":Q$"=":CL$"CLOSE":OP$"OPEN":G$"GENERAL LEDGER"GX$"GLINDEX.FILE":GD$"GLDATA.FILE":RF$"RECURRING.FILE"RX15:LX12:SB128:HD$"LIST OF RECURRING JOURNAL ENTRIES"RS,0,TD$:RS,1,CO$:RS,7,GV$:RS,8,G1$RD,1,PS:R"İ1700:AD$(I)DS$!NL1İ600<PU,B19,F4,GA,S22,DS$UJA0ĺ14):JA(JA)fOD,4,JA::tOB4150NL1İ60017)"******* Journal entry is Out-of-Balance"6hAC$"complete":500:570KB16384:KS16368GD$:VEāI1VE:OBOBVA(I):'OBOB0RNL2(VEOB)(VEOL2):600:NL2NL1[SP$vA$" No":PF%A$"Yes"PL,B2,S6,A$,S9,VR$,LVD$VE4100E1VE:1600:FD,GA,NC,AN,I:I0DS$"*** Acc't not defined":4080DS$AD$(I):DS$"s Credits":LPL,L" ====== ======== ",X32,Q$,B3,X11,Q$,B3,X11,Q$:RBR,RF$,JR,$VR$,$VD$,#VE,A#VG:LX,A#VA:LX,@PF%:VP0:@VPVP1:GAVG(VP):JAVA(VP):BR,GD$,AA%(I),$DS$:RN4200N1RN:JRRC%(N):1500OB0ė:FFĺ(FF):+LLNOL:SP$::1>PNİ650_PNPN1:LN7:T(OW(CO$))2PU,L"As of: ",YTD$:T15)CO$T7)"Page "PN(OW(HD$))2)HD$SP$:800:900: " Posted Ref. No. Description / Accounts Debit0 D:580N7000.PAQ$"another ":504X^bT(KB):TSBĹKS,0:TSB(ES$)550wlLNNLEPLNLNNL:v900:CP640x24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$570700:600GC:CPe [ESC] key":-CPPS:OLLP:EPOL6:PW,PSAOW80:PN0:720Gb900:CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:GO,1,1:&0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC$"aborted":500:59nsole or !Printer: ":KI,0,A$:ER:ESA$ES$:ESıg SQ,A$,"CONSOLE",N:NCP0:OL24:EP24:650:480 SQ,A$,"PRINTER",N:NįER,"INVALID RESPONSE":420310:12:OP,"Report generation in progress":15:OP,"Listing may be aborted by pressing th:D$"RUNRECURRING.PROG"GV$6 WD,G$" PROGRAMS":230J 6CV9:330:CS:^ JGO,12,CV:CL:o NCVCV2:330 h:OP,G$" SYSTEM":3:OP,"*** Print List of Recurring Journal Entries ***":5:OP,CO$:: 600:SP$: 2 330:OP,"Select !Co 7000' 5000:5100:80:AQ$""5 2360:310; d n310:YN,"Print "AQ$"list of recurring journal entries",N:ESN0:N0200 x334 400:ES100 4000 1::D$CL$ 250 ESįMM,G$:D$"RUNGLMENU.PROG"GV$ MM     X$"GLINDEX.FILE":GD$"GLDATA.FILE":JF$"JOURNAL.FILE":RF$"RECURRING.FILE"kHU100:TT10000:RX15:LX12RS,0,TD$:RS,1,CO$:RS,7,GV$:RS,8,G1$:RS,9,G2$PY(13),MN$(12)RC$(RX),RC%(RX),VG(LX),VA(LX)I112:MN$(I):%D$,$TR$,@VT%:JRJR4'` I1NC:J01:j DC(I,J)2450\t NAN(I):AN%NHU:DN%NHUAN%~ NN%NN%1:NN%JE%įBW,JF$,JR,%AN%,@DN%,#DC(I,J),@NN%:JRJR1 : 370:200D$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN"KGzDC(I,J)DC(I,J)AM(JRJR1:360:.4] AF0:JV%NN%0:JE%NN%:JR%4JV%JE% AFJR%:BW,GD$,0,#RG,#AF,#MR,#MY,#M1 380$ JE%2500. JR1:NN%0:DT,TD$,TY:TD$"Mid Month Closing":TR$"MIDCLOSE":VT%90 BW,JF$,JR,%JE%,#TY,$T(NC,1) TJV%JE%:TT1.05TT3U1:NN%0:JR1B JV%2300O4V1JV%l>BR,JF$,JR,%NE%,#TY:360HJRJR4:PMTY0RE1NE%:PM2180\BR,JF$,JR,%AN%,@DN%,#AMfNAN%HUDN%:FD,N,NC,AN,I:I0I1pJAM0:AMĭDC(I,J)NN%NN%10:JR%0*BW,GD$,0,#RG,#AF,#MR,#MY,#M13380<360JRN1400ZU2:N1RN(BR,RF$,RC%(N),$VR$,$VD$,#VE,A#VG:LX,A#VA:LX,@PF%*PF%02BW,RF$,RC%(N),$VR$,$VD$,#VE,A#VG:LX,A#VA:LX,@PF%<360:x370:200M/MDCNC:IEAY%(I)39<$BR,GD$,AA%(I),$DS$,#BB,#MC,#MD,A#PY:13L&YBBBMCMDf.PY(13)PY(M):PY(M)YBzLBBYB:MC0:MD0VEY1150`AN(I)RGBBBBREjIEBB0~BW,GD$,AA%(I),$DS$,#BB,#MC,#MD,A#PY:13360:MRM:MYY:AF0:JV%0:JE%,29,SV:"Status: 0.0% complete"2C0:MM2000QT(1NC2RNEY(NC2))TT_EY1000h R/Ev*NC10004U.5:RE0:I1NC:AY%(I)398506BR,GD$,AA%(I),$DS$,#BB,#MC,#MD>RERE(BBMCMD)R360:U1:NC1200I1e following General Ledger close option",N," is",N,"s are",1," in progress",A$:OP,A$::MMA$"Mid month close for "CM$:730A$"End of month for "CM$16:OP,A$:NĢ18:OP,"End of Fiscal Year"!SV182N:GO,20,14:BX,40,42N:GO,!" *** CANNOT PERFORM AN END-OF-YEAR CLOSE *** "::lOP,"No Retained Earnings account defined in the Chart-of-Accounts"v24:OP,"--- Press [SPACE BAR] to return to the General Ledger menu ---":WS,A$:1:200\NEYMM:SB,1,"Please wait, th2y BL$"Warning: Final audit trail listing (i.e., Journal Detail Report)":GO,21:"has not been printed this month.": CVCV3330:YN,"OK to continue with General Ledger close",N:N050XCV12:312:MM700Z(EY)RG7006bBL$;:OPOGRAMS":2306CV9$8330:CS:>JGO,1,CV:CL:GO,12:HhCCUfjGO,37,SV:OD,8,CT,6,5:rrTT1tCTTT:362|D$CL$JF$:D$"DELETE"JF$G2$~D$OP$JF$G2$",L9"BW,JF$,0,%JV%,%JE%,%JR%,%XR%:AFJR%600CV12:31CVCV3)GO,27,102RM:HG,45330:OP,"Confirm selection by typing !C!L!O!S!E: ":KI,0,A$:UC,A$:A$"CLOSE"50310:500GO,1,1::D$CL$250MM,"GENERAL LEDGER":D$"RUNGLMENU.PROG"GV$ WD,"GENERAL LEDGER PRit: ";:NI,0,ST%,RM:ER) zST%2200Y |ST%RM1RM2įER,"INVALID SELECTION":120~ 312:CVCV1:MMRM2:MMEY150 330:"Note: This is the last month of the fiscal year. An End-of-Year" GO,12:" close will also be perfomed."$ dJ n310:"Available options to close the General Ledger are:"::} pGO,20:"< 1 > - End-of-Month Close for "CM$: tGO,20:"< 2 > - Mid-Month Close (i.e., Consolidate Journal)" vCVCV8 x330:"Enter option (1-2) or [RETURN] only to qu 7000 5000:80> 1:OP,"GENERAL LEDGER SYSTEM"i 3:OP,"*** Close General Ledger ***"{ 5:OP,CO$: 5100 2 <MMR1:YMY:M12M1:YY1:Y99Y0 >Y$("0"(Y),2) FLMM11:LMLM12 PEYMLM:CM$MN$(M)" 19"Y     l Ledger Files":GO,20,7:BX,40,4sGO,8,15:" Type of Data Current Maximum % in Use"GO,8:"================== ============== ============== ============"GO,8:"Chart of Accounts":GO,8:"Journal Detail,0,A@Z%:10,A@Z%:10,A$Z$:10:>BW,F$,0,#Z,A$Z$:15,A%Z%:15:eXR%MJ:BW,F$,0,%Z%,%Z%,%Z%,%XR%:kxD$CL$:@22:OP,"--- Creation process complete, press [SPACE BAR] to continue ---":WS,A$J50!310:9:OP,"Status of Genera80:1500'XCMA:BW,F$,0,#Z,#XC,#Z:MMRTM1:MYTY:MR1MR12:MYMY1eM1M11:M112M11BW,F$,0,#Z,#Z,#MR,#MY,#M1,#BF,A#Z:8:BW,F$,0,#Z:BW,F$,0,A@Z%:99:BW,F$,0,A$H1$:12:BW,F$,1,A$H2$:12:BW,F$,2,A$H3$:12:BW,F$N$VD$" # "(V2):V$G2$:360:X2SX*MMA200300(NV(X1800)):BF1V(500i2Z0:Z%0:Z$""FF18:F$GF$(F)FL$:SGS(F):V$G1$:F8V$G2$PD$OP$F$",L"S;V$ZP$"Creating file: "F$:350dF1410,1420,1430,1440,1450,1460,1470,14st ---":WS,A$:A$ES$İ310:1030*~3100y12:OP,"Please wait, General Ledger Data file creation in progress"CV17:GO,21,CV2:BX,38,2NVP$IN$DD$:1270P$IN$VD$" # "(V1)V$G1$:360:X1SX:X2SX:NV1300$P$I2:330:OP,"Confirm your request by typing !C!R!E!A!T!E: ":KI,0,A$:A$ES$İ330:CVCV2:1080|XUC,A$:A$"CREATE"50`310:NV1200jCV12:330:OP,"Please load a blank diskette in "DV$!t::OP,"--- "PS$", press [ESC] to abort requeer last month of your fiscal year (1-12): ";:XY,H:M1" ("MN$(M1)")";|:GO,H:NI,2,ST%,N:ER:ST%3İ330:CVCV4:1050<ST%2ST%0:NM1>ST%N1N12įER,"INVALID MONTH NUMBER":1080BM1N:GO,H,CV:M1" ("MN$(M1)")";:CLL`VCVCV close : "MN$(TM)" 19"TY:CVCV2i$330:YN,"Is the current month (displayed above) correct",N:N050~&NCVCV2:1080.CV3:BL$;:OP,!" WARNING: Set correct month with CHANGE TODAY'S DATA option "0CV5:OP,PS$:WS,A$:50F8330:"Ent be created on ";:NVĺ"a blank diskette located in "DV$"."^NVĺDV$" of your hard disk.":OP,!" WARNING: ":" Any existing data or programs on the "DD$" will be destroyed !"::XY,X,CV M112:330:"Current month and first required G/L the data files that are used by the General Ledger";"System. These files are used to maintain your Chart of Accounts, Budget data,""Journal entries, and other information used by the General Ledger System.";GO,1,9:"These data files will5)SZ):SXSXN1(NCZ): X4bNVSXX2:630VlSXX136:NGS(8)(JR%1):550vMA((SZ(SX5BF2))(8GS(2)BFGS(3)))1MAAXMAAX :OP,CG$:3:OP,"*** I M P O R T A N T ***"5::"This option is used to create350:D$"INIT TEMP"V$:D$"DELETE TEMP"V$GrSX((46063)4)(46064):MaNVSXX2:530nSXX136 N8MAGS(1):550 NGS(2)(MA1):550BFNGS(3)(MA1):550MJ(SZ(SX2(SXCZ))GS(8))MJJXMJJX&N((N2520007 A$GD$" NOT FOUND ON "DV$:UC,A$:ER,A$:120= R GO,1,1::D$CL$\ 250~ MM,G$:D$"RUNGLMENU.PROG"GV$ WD,G$" PROGRAMS":230 6CV8:GO,12,CV:CS: JGO,1,CV:CL:GO,12: ^GO,22,CV:OX,38,SP$:GO,41(P$)2:P$:(h Adjust Data File Sizes":) v:XY,H,CV x330:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,ST%,OP:ER:ST%2200 ST%OP1OP2įER,"INVALID SELECTION":120 OP11000 EF1:EFĺD$UL$GF$(1)FL$G1$:EFĺD$UL$GF$(8)FL$G2$:EF0: 7000 5000| 280:OP,G$" SYSTEM":3:OP,"*** Create and Adjust General Ledger Data Files ***":5:OP,CO$: d nGO,1,7:CS:GO,12,10:"The following options are available:":: pGO,20:"< 1 > - "CG$: rGO,20:"< 2 > - View /               )::::XY,H,CVW330:"Enter "IS$" option (1-4): ";:NI,0,ST%,N:ER:ST%34040gSUġ:100ySD,56,1:200ST%N1N4įER,IR$:4030N4UBįER,"BUDGET OPTION NOT BEING USED":4030RTN:SMN3:CFN3:BFN4!RT1M10:M20SKİ620Z  6 600:34)HU$;:SMĺ13)HU$:L " "HU$" "HU$:R u SL(SK(H$))30:NLNLSL:600 SLĺSK)H$:H$"" PU,BSK,S32SMSK,H$:QU4450310:GO,8:IS$" options: ":I14:GO,20:"< "I" > - "RT$(I~ SMVT1T2:2240:DT2:2250' :- L N1N1T1:N2N2T2:S0:TY0| 2700:SK1:2600:SK0:H$"****** "H$:2800 T1N1:T2N2:2400:TQHU$H2$ 2700:TQİ600:SP$ HH1:( 2 H$RH$(H):(H$,1)"/"ı< H$(H$,2):(LNTL)K0:2600:H$TT$H$:2800:2400+fHH1:1E2230:SMİ2250KWSVViSMįOD,6,V:{PU,B1,D2,V:TYVV2234DĺVW):OD,8,10(10HU(V(D))C5),11VW,VW:` j VT1:DIM:2200t VT2:DIY:2200:P0:350:NC21002II1NC:AY%(II)TY2070OGAAN(II):370:OK2070{MMT(II):YYT(II):DCPII:1900:2070PPII:2070(AN(P)CC)(GACC)MT(P)MT(P)M:YT(P)YT(P)Y:ML1:2070 1900:PII:19004>PFİ2700:SBR,GD$,AA%(I),$DS$:GAAN(I):PF1950;TY41İ600:SP$XSK1:2600:600:H$:PF1^tSK2:H$DS$:2800VM:DIM:2200:T1T1MVY:DIY:2200:T2T2YSMVMY:2240:DY:2250P0:ML0:PF0:ML0T10:T20LH2:TY40:2000:N1T1:N2T25VTY41:2000:2500O`H5:TY50:2000:2500itH7:TY60:2000:2500H9:TY70:2000:2500H11:TY80:2000:TQ1:2500AC$"complete ":500:580lvIP:P1990xMMT(P):YYT(P):ZLMY1990&f> % Var":=4PL,L" ",LP1$,S15," Ended",LP2$,L" Ended"a6PL,B45(PE$)2,S24,PE$,LPE$:gLNLN1:34)H2$;:SMĺ" ===%=== "H2$" ===%===":" ==="Q$"== "H2$" ======":5200:TQ0:HU$H1$:VW102SM$CPįCS""T$HC$:300#DNT$DN$:300IHP$""ĺSP$:T$HP$:302:LNLN2tNN$""ĺSP$:T$NN$:302:SP$:LNLN3SP$:800:900:TLLN: *LNLN2:35):SM820,PL,S13,P1$,S13,P2$,L"Variance".34):"End: "T1$" End: "T2$" Fav/ - "RT$(I)::::XY,H,CV330:"Enter "BS$" option (1-3): ";:NI,0,ST%,N:ER:ST%34040SUġ:100SD,56,1:200ST%N1N3įER,IIQCW(LD1))H1$;:CFĺH1$H1$;/j :LD2ĺSP$G| SLĺIS)LH$:LH$""_~ IS):OS,CQIS,LH$ D1T1:D2T2:2830:LQ2980 CQIQ);H2$;:CFĺH2$H2$;  LSĺSP$   H$RH$(RH):(H$,1)"/"3050 H$(H$,2):(LNTL)SKİ620DS,D2,DDS,V:D2ĺ" ":K YHU(V(D2)):OD,8,10(10YC5),3,6::QT {^ NL1LDLQLS:CQ37COCW:IS3(CO1)` SK0:RHH:3000:LH$TT$H$b H2RHH2:SK0:3000:LH$LH$" & "H$d SL(LH$)(CQIS):NLNLSLf 600:LD2940h CQZLD1D227903 5300:GAAN(I):SD1D1:D2D2X T1T1D1:T2T2D2:H10PF2780l H3H7İ390 RHH:SK1:3000:" "H$":":PF1 2800 PI0:ML0:  NL1:600 PU,B6,S31COCW,DS$ OD,DS,D1:SMĺ: VD1D2:PU,DNC:AY%(II)TY2740/ DCPIII:2750:2740D PIPIII:2740 GAAN(II):(GACC)(AN(PI)CC)Y1(PI)Y1(PI)Y1(II):Y2(PI)Y2(PI)Y2(II):ML1:2740 2750:PIII :2750:G1G1T1:G2G2T2:  PI2790 IPI:D1Y1(I):D2Y2(I):L2:LD2:LQ1:25001AC$"complete ":500:5807` jj RHH:SK1:3000:H$;":":G10:G20:SHH:HH1:p  LS1:CO2:2900( 2 CO0:2700:PFLD1:LQ0:LS0:CO1:2900F HH1:  350:T10:T20:PF0:ML0:PI0:NC2790 II11G1:L2G2/HSH:T1L1:T2L2:LD1:LQ0:2500>H10:2400STY30:CO1:2700t(TY31:CO1:2700:C1G1:C2G22DS$RH$(11):D1A1L1C1:D2A2L2C2:2800<HSH:C1A1L1:C2A2L2:T1C1:T2C2:LD1:LQ0:CO2:LSO:2900xH6:H210:T1C1L1:T2C2LN2: 5200?SK3:IQ2SM:DS24SM:CW14SM:H20LCPįCSZLH2:2400jVTY10:2600z`TY11:2600jTY12:2600:A1G1:A2G2tHSH:T1A1:T2A2:LD1:LQ1:2500390:H6:2400TY20:2600TY21:2600 TY22:2600:Lage "PNT$RH$(1):3023HC$""T$HC$:300YHM$""ĺSP$:T$HM$:302:LNLN2NN$""ĺSP$:T$NN$:302:SP$:LNLN3SP$:800:TLLN: SMĺSP$:LNLN1:*41)T1$6)T2$" Inc/ %"437)H2$H2$" ====Var=== =Var=":LN00^lCPĢ24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$580iv700:zGC:CPė:FFĺ(FF):TBLNOL:SP$::PNİ650LN4:PNPN1:T(OW(CO$))2PU,L"As of: ",YTD$:T15)CO$T7)"P$:GO,1,1:&T(KB):TSBı9(KS,0:TSB(ES$)ıg0CPLNLN2:SP$:"***** Listing aborted":AC$"aborted ":RR0:SD,7,RR:500D590F:582N7000PQU200RAQ$"another ":50X550:LNNLEPLNLNNL:NL1:b620:6JGO,1,CV:CL:GO,8:" NCVCV23 PCVCV2:330O ^S(TY19TY50)TY70:w |330:OP,P$:KI,0,A$:ER:ESA$ES$} ~ 600:SP$: DVYB: VPY(D):  CPİ650:PW,QU1: 24:OP,"Report "AC$"-- press [SPACE BAR]":WS,A000:4900:1000 % 1::D$CL$/ 250c P$"GLQUEUE":RRP$"GLMENU":MM,G$" REPORTS"| D$"RUN"P$".PROG"GV$ WD,G$" PROGRAMS":230 ,LNLN1 .(OW(T$))2);T$: 6CV9:330:CS: @VCV2 B330:CVCV1:CVV322 D  7000 5000:5100/ AQ$"":QU50B 5400:RT200K 150r 2P$"Print ":SUP$"Setup Queued " 480:OP,G$" SYSTEM":3:OP,"*** "P$BS$" ***":5:OP,CO$: d n310:SUİ330:GO,12:YN,"Print "AQ$BS$,N:N0200 4"" " " " " """""""""