' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `hh`>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 phϠ@跻~!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 ~(`#  d ֠hz# hu`zIPN:DF1:DDTD:I14:DDDDIP:FJ,DD,DT$(I)::FJ,DD,DT$(5)O350:2300GO,18,CV1:BX,44,3:GO,24,CV3:PL,L"1 = ",S16,AG$(1),L"3 = ",LAG$(3):GO,24:PL,L"2 = ",S16,AG$(2),L"4 = ",LAG$(4)7330:"Enter delinquency criteria from table below2060 EF10EFĺD$UL$CX$R1$(N):EF0:2080`ER,"DATA SET # "(N)" NOT CREATED":2060i CSNr*350|4V2CV>CF2150@DQ2200H330:OP,"Print !Detailed or !Summary Aging Report: ":S0:360:ES2152JDF1:SQ,A$,"DETAIL",N:LNE1įSR,V,L%,NEVBV0CV:AS0:MSDQİ350:V1CVPMS2100cDQİ310:V1CVnMSıAS0:RS,14,R1$:FS,R1$,NS,R1$,CS330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:SQ, Pd Date Pd Amount Telephone":J4DFĺ"Invoice # Due Date ";:824f6"Customer ID / Name ";8" Current 1 to 30 31 to 60 61 to 90 Over 90 Balance":CFĺ"======== ===== ===== =====";:9242DQĺ"======== =========== ==========$:LNLN13H2$""ĺ(OW(H2$))2);H2$:LNLN1FSP$:800:900 CFĺ16)"Inv Due Ending Ending Ending Ending After":"Customer Inv # Date Date";:L15:PU,B2,YDT$(L):::%*DQĺ"Customer Net A/R Aging Aged A/RSP$:"***** LISTING ABORTED....."92AC$"aborted":500C:590ND:580YN7000uPAQ$"another ":CPį80}R50Xb550lNLĭLNNLEPLNLNNL:v900:LNLN1:CPĢ24:OP,"Press [SPACE BAR] to contunue -- press [ESC] to stop"330:OP,"Select !Console or !Printer: ":S0:360:ESıgSQ,A$,"CONSOLE",N:NCP0:EP23::490:480SQ,A$,"PRINTER",N:NįER,IR$:420490:15:OP,"Listing may be aborted by pressing the [ESC] key":CPPS:OLLP:EPOL6:PW,PSHU$(AQ$HD$,N:N0200& x2000:ES1000 30006 F 1::D$CL$P 250~ MM,AR$" REPORTS":D$"RUNARMENU.PROG"RP$ WD,AR$" PROGRAMS":230 6CV9:330:CS: JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330! h:WS,A$:A$ES$570%NLİ700:600+<GC:CPė:MFFĺ(FF):cLLNOL:SP$::ir650PNPN1:LN6CF:L(OW(CO$))2PU,L"As of: ",YTD$:L15)CO$L8)"Page "PN(OW(HU$))2)HU$ DS$""ĺ(OW(DS$))2);DSHD$,1):UC,HU$:OW80:PN0:Q310:12:OP,"Report generation in progress"::WzLNLN1:900:CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:GO,1,1:&L(KB):L128ı(KS,0:L128(ES$)ı"0CPLNLN2:KI,S,A$:ER:ESA$ES$:ESİ330' jv rCVCV1:330:OS,28," Enter "P$"ing customer ID":": ";:XY,H:OX,8,FC$ tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$ v BR,AF$,P,@TY%,%CP%,$PO$,A#I:6,@DD%:DDI(2)DD%:AI(3)I(5)I(6): 6 7000 5000:80J (OS0:AQ$"":DQHD$"Delinquent Report":50u *HD$"Aging Report":CFHD$"Cash Flow" ,HD$"Accounts Receivable "HD$ 21:OP,AR$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$: d310 n330:YN,"Print "NDF1%LSQ,A$,"SUMMARY",N:NDF0=RDF0įER,IR$:2110R\IP30:350:2300f330:"Enter interval period in days (1-99): ";:NI,0,ST%,N:ER:ESST%3:ES2160hVV1:340:2020pST%N1N99įER,"INVALID NUMBER OF DAYS SPECIFIED":2150@A$,"CURRENT",N:N2090<SQ,A$,"ALL",N:NAS1:CS1:2090fSQ,A$,"SPECIFIC",N:NįER,IR$:2030rCVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER": =========== ======== ========== ==============":VDFĺ"========= ========";:924eOX,18,"="I1TX:PU,B1,X9,"=":::NE0:TRR550:TT1:CP%1100PCP%:390:TY%1A0NENE1:V(NE)DDRRT:L%(NE)PNERX1020          e disk in slot # "(BV$,3,1):GO,1,1:WS,A$:A$ES$380k(27)(17):D$"PR#0"::49152256((BV$,3))ST%OS1OSOXįER,"INVALID SELECTION":330BT,PW,OS,N:NįER,"SECURITY VIOLATION":330OS6įBT,SA,OS,N:NA$(S$(OS),1):UC,A$:"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    + D$OP$CX$R1$",L32":D$OP$CD$R1$",L160"L BR,CX$,0,#NC:K$(NC),A%(NC)n NCįBR,CX$,1,A!K$:NC,A%A%:NC D$OP$AF$R2$",L50":BR,AF$,0,#AV,#LR,#RR,#MR,#CC (OS1: XEFER(222):ER6ER8EF0:XO: b1::D$CL$:PXKR,,Pay,O/CR,TDDRD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,6,N:ISN2:RD,51,NSN$(5),R%(2),F%(8),D(8),I(8),T(6),ST(6),RT(6),V(RX),L%(RX)MSUF(NS1):MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(I):NN2: OSĺD$CL$:EA,K$,A%QQ$"=":4510600:28)1II$"OpenCr"FI0I$"FinChg"dI0I$"#"(Z0$(I),5)PL,B1,S6,I$,D8,D,1,11:$T(1)T(1)B:T(2)T(2)D:T(3)T(3)M:T(4)T(4)CB:KB16384:KS16368D$(4):ES$(27)UL$"UNLOCK":CL(I):ST(I)ST(I)A:RT(I)RT(I)A:'4AS3600e0I16:T(I)RT(I)::P$"REPORT TOTAL:":4600bAC$"complete":500:570QQ$"-"OCT(5)0:FCT(6)0:SUOCFC:NL3SU(2OCFC):600:Q$QQ$:SKIS:35):390:PU,B16,S19,P$ K14:KS$,YID$,B1,S11,PO$,YDD$,B15SD%:SD%įOY,SD$VPU,D8,B,1,11,D8,D,1,11,D8,M,1,11uPL,D8,CB,1,11:4900:4180"Y$"":TY%1Y$"Inv"$600:PU,B1,S4,Y$,S6,I$,YID$,B1,S11,PO$:TY%14140&PU,B17(DB:B0:PL,B1,D8,D,1,11,D8,M,1,11,D8,C$"CLOSE":OP$"OPEN"mCX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE":AF$"ARDATA.FILE":AR$"ACCOUNTS RECEIVABLE"SP$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ":Z0$"0000"RX500RS,0,TD$:RS,1,CO$:RS,13,RP$:RS,14,R1$:RS,15,R2$:RS,99,FC$:DT,TD$Kĺ11):4524!OD,8,T(K),1,113::SU4550iOCįPL,B20,S48,"Less Open Credits",D8,T(5),1,11FCįPL,B20,S48,"Plus Finance Charges",D8,T(6),1,1169)"----------":PL,B16,S52,"Net Balance Due",D8,T(4)T(5)T(6),1,11SP$:SK0:B,1,11:4900:41801,II(4):MDB:4810:4170G.PL,B7,D0,B:4800T6M4170@BR,AF$,M,#M,#N,A#I:8:J1N:II(2J1):DI(2J):4800::4150JDD%İ600:PL,B17,L"*** Incomplete Distribution"ThP$"Customer Total:":4500!rI16:ATE1NE:PL%(E):BR,AF$,P,@TY%,%CP%,$PO$,A#I:6,@DD%,@SD%:(TY%0TY%6)(TY%1IS)4180IDI(2):BI(3):MI(6):DI(5):CBBMD:FJ,ID,ID$:FJ,IDDD%,DD$:FJ,IDSD%,SD$I$"":TY%6I$(Z0$(I(1)),5)IS4130CB41800600:PU,B1,S6,IS:YN,"OK to quit",N:N0300H rSS,0,"":SD,4,1:1::D$CL$:216,0 |:8:OP,"You have sucessfully exited The Business Accountant":11:OP,"You may now turn off your computer"8~13:OP,"-- or --":15:OP,"Press [SPACE BAR] to reboot from th[ 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,12,DR,,Pay,O/C5C1C2:550:FL,0,6,TSCCP%CC:FL,0,8,D:K$(C)"CASH":N$(1)"Cash Sales":4040BR,CD$,A%(C),A$N$:5,%AC%,$A$,%CP%,A%R%:2,A@F%:8,A#D:81000:OCD(2):FCD(3)D(4):OCFCNE4250NL1:600:PL,S9,K$(C),LN$(1):T(5)OC:T(6)FC:NE4200Wr IDs: "C1$" thru "C2$")", CPPNė>& PNNL0:600M0 720:4000Z AS3610s WD,AP$" DATA"::0I15:T(I)ST(I)::P$"DATA SET TOTAL:":4600CSNS4400$CSCS1:3020FL,0,6,ST:NC(C2C1)(C1NC)4300C:22001JSQ,A$,"SELECTIVE",N:NįER,IR$:2110YfP$"start":370:ESVV2:340:2100dhC1$A$pP$"end":370:ESCVCV2:2150rC2$A$:AF0350:400:ESVV2:340:2100  FL,0,6,RT MSR1$R1$(CS):R2$R2$(CS) EF1:ESVV0:340:.SQ,A$,"CURRENT",N:N2090TSQ,A$,"ALL",N:NAS1:CS1:2090~SQ,A$,"SPECIFIC",N:NįER,IR$:2030CVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INnce Invoice Amount Balance Activity Balance":zSK0:Q$"=":ISĺ"====== ===== ========== ===== =====";:390"========== ===== ========== =======";:390NE0:TRR550:TT1:CP%1100PCP%:BR,AF$,P,@TY%,%CP%,$PO$,#I,0:900 ISĺ25)"Due Disc Beg Discounts M-T-D Current":" Inv # Date Reference Date Date Balance Taken Activity Balance":9*12)"Txn"14)"Trans. Trans. Month Beg M-T-D Current":" Txn/Ref # Date Refereborted":500 :590! D:580, N7000H PAQ$"another ":CPį80P R50s X550:NLĭLNNLEPLNLNNL: b900:LNLN1:CPĢ24:OP,"Press [SPACE BAR] to contunue -- press [ESC] to stop":WS,U$:U$ES$570 lNLİ700:600 GC:CPė:360:ESı: SQ,A$,"CONSOLE",N:NCP0:EP23::490:480b SQ,A$,"PRINTER",N:NįER,IR$:420 490:15:OP,"Listing may be aborted by pressing the [ESC] key": CPPS:OLLP:EPOL6:PW,PS HU$(HD$,1):UC,HU$:OW80:PN0:$ 310:12:OP,:ES100 3000 ( 1::D$CL$2 250` MM,AR$" REPORTS":D$"RUNARMENU.PROG"RP$} WD,AR$" PROGRAMS":230 6CV9:330:CS: JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİFFĺ(FF):&LLNOL:SP$::,5650VPNPN1:LN7:L(OW(CO$))2PU,L"As of: ",YTD$:L15)CO$L8)"Page "PN(OW(HU$))2)HU$DS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:80"Report generation in progress"::* M LNLN1:900:CPİ650:PW,1: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:GO,1,1: &L(KB):L128ı (KS,0:L128(ES$)ı 0CPLNLN2:SP$:"***** LISTING ABORTED....." 2AC$"a330 jX rCVCV1:330:OS,28," Enter "P$"ing customer ID":": ";:XY,H:OX,8,FC$ tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$ v K14:KSKĺ11):394 PU,B1,X10,Q$ ::  330:OP,"Select !Console or !Printer: ":S0: 7000 5000X(OS0:AQ$"":HD$"Detail Report":ISHD$"Open Invoice Report"{*HD$"Accounts Receivable "HD$280:OP,AR$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$d310n330:YN,"Print "AQ$HD$,N:N0200 x2000EFĺD$UL$CX$R1$:EF0:3040$ 3500. 5100p DS$"":MSįFS,R1$,NS,R1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":C1IS:C2NC:3100 FS,C1$,NC,K$,C1:C1(C1) FS,(C2$Z$,8),NC,K$,C2:C20C2(C2)1 C2NCC2NC H2$"(CustomeVALID DATA SET NUMBER":2060%EF1HEFĺD$UL$CX$R1$(N):EF0:2080xER,"DATA SET # "(N)" NOT CREATED":2060 CSN*3504V2CV>330:OP,"Print !All or !Selective customers: ":S0:360:ESVV1:340:2020HSQ,A$,"ALL",N:NAF1#N$NENE1:V(NE)NRRT:L%(NE)P5NERX1020KLNE1įSR,V,L%,NEQVW{V0CV:350:V1CV:AS0:MS2100MSıAS0:RS,14,R1$:FS,R1$,NS,R1$,CS330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:        s,System Utilities,System Setup and Configuration,Change Today's Date,System Status Reports'Customer ID,ID,Customer Name,Name,Current Balance,Balance,Credit Balance,Open Cr,Finance Charges,Fin Chrg,Credit Limit,Cr Limit,Y-T-D Sales,YTD Sales('Tax Rate,Tax %,Discount Rate,Disc %,Terms Code,Terms,R$" PROGRAMS":ES1='A$SP$:UFįFF,DF$,A$:A$SP$A$": "'GO,1,CV:CS:CV2:OP,"Please load the following diskette:":CV4:OP,!A$DK$SP$'SB,1,PS$,ES," or use [ESC] to abort",1," ---",A$:CV6:OP,A$:GK,A$::ESA$ES$:GO,1,CV:CS:(RD,0,UF:RD,51,NS:MSUFNS1]%CN$(5),CT(8),CR%(2),CF%(8),CD(CX),CF$(FX),CT$(FX),YN$(1)z%I1FX:CF$(I),CT$(I):%YN$(0)"No ":YN$(1)"Yes"%MSĆR1$(NS):I1NS:RS,542I,R1$(I)::FS,R1$,NS,R1$,CS%%P%ZOS5220&\MSR1$F data file creation is complete":20:380A#:AQ$"more ":100G#_#KB16384:KS16368#D$(4):BL$(7)(7):ES$(27)#CL$"CLOSE":OP$"OPEN":UL$"UNLOCK":WR$"WRITE":AR$"ACCOUNTS RECEIVABLE"$Q$(34):QQ$Q$Q$:BT$"BOT":OZ$"1,0":M1$A!V1NC:A$CT$(CD(V)):(A$)9A$(SS$,5(((A$)1)2))A$T!OZ$:Q$A$Q$:\!hD$u!rN1NU:SL(N)4290!tD$:GO,H,14:OS,8,KY$(N):!vBR,CD$,DA%(N),A$CN$:5,%AC%,$A$,%VP%,A%CR%:2,A@CF%:8,A#CT:8!xCT(3)CT(3)CT(4):CT(1)CT(1)CT(3)"L1$ı&^EA,KY$,DA%,SL:D$CL$6&dD$OP$CX$R1$",L32"`&fBR,CX$,0,#NU:KY$(NU),DA%(NU),SL(NU)&nNUįBR,CX$,1,A!KY$:NU,A%DA%:NU&xD$OP$CD$R1$",L160"&OS1:L1$R1$:&XEFER(222):ER4ER6ER8EF0:XO:&b1::D$CL$:PX&@'TDK$A"-1,0"4$CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE"$T$"customer":SP$" ":SS$" ":IR$"INVALID SELECTION":PS$"--- Press [SPACE BAR] to continue"$CX8:C2CX2:FX10:NX250:HU100$RS,1,CO$:RS,13,PV$:RS,14,R1$:RS,27,DF$:RS,99,FC$%|D$WR$F$:M1$:BT$2"T1NC:ICD(T):I24250O"A$KY$(N):I2A$CN$(1)f"OZ$:Q$A$Q$:4280"I8VCT(I2(I5))HU:4270"VCF%(7):I10VCR%(I7)HU""0,"V:"V""""D$WR$F$"M1$:"EOD""D$CL$F$*#018:OP,"DI0,10:BX,40,42 GO,30,14:"Customer: ";:XY,H:` ZFĺD$"INIT TEMP"DF$:D$"DELETE TEMP"DF$y D$OP$F$DF$:D$WR$F$ "TABLE":"0,1":QQ$ "VECTORS":"0,"NC:QQ$ "TUPLES":"0,"NSHD:QQ$ "DATA":"0,0":QQ$ HD4200!M1$:BT$Payment,CK,,Apply CR,AC,""Dply CR,AC,""DINDEX.FILE"RD,0,NV:RD,48,UG:RD,51,NS:RD,73,PW:RS,1,CO$:RS,6,SV$:RS,8,G1$:RS,13,RP$:RS,14,R1$:RS,15,R2$:S1$R1$:NVNS1įRS,56,S1$P$(12),SC(12)XlER(222):EFĭER6ER8EF0:XO:vPXDR,#SU:D$CL$NPUGSU:"FD$(4):BL$(7)(7):ES$(27)WUL$"UNLOCK"S$"Accounts Receivable ":AR$"ACCOUNTS RECEIVABLE ":RR$AR$"PROGRAMS":GL$"GENERAL LEDGER " CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE":AF$"ARDATA.FILE":GX$"GLered the customer information and account balances."~fGO,12,20:CS:YN,1,"OK to remain in "S$"SETUP mode",N:N0ġ:30hN2180pGO,12,22:CL:OP,"Please confirm by typing !O!K: ":KI,0,A$:UC,A$:A$"OK"2150 zSU0:BW,CD$,0,#IU,#SF,#CPROTECTED":3060j 350:BL$;:YN,"DIF data file already exists, OK to replace",N:N0VV3:340:3060 350:YN,"OK to create the DIF data file",N:N0VV3:340:3060& N100 332:12:OP,"Please wait, creating DIF data file":GO,23054t ZFİ350:OP,"Diskette will be initialized, confirm by typing !I!N!I!T: ":KI,0,A$:UC,A$:A$"INIT"3054 VV2:340:3040 350:CS V3CV:330:PU,L"Enter DIF file name: ",X20,FC$:XY,H:HH20:GO,H:KI,20,A$:ER:A$ES$3052  A$O,H,V:  2 NCE$"COLUMN DATA":370:1000G 360:NES2100M } N3:A$"Define final parameters":334:CV11 V1CV:330:YN,"Create the DIF data file with column titles",HD:HD02000 350  V2CV:ES1:DK$"DIF DATA DISKETTE":81:N(I4):VV2N:H418(I4N):GO,H,V:HG,16gGO,H,V:GK,A$:UC,A$:I(A$):HG,16:A$ES$2310vI322300I8I1:2230I21I1:2230(I127)DF2250BL$;:22002350:2200CNCāICNC1:CD(I)CD(I1):CD(N keys ---"zhGO,3,V32:OP,"[<--] - Highlight previous data type [SPACE BAR] - Accept !h!i!g!h!l!i!g!h!t!e!d type":jGO,3:OP,"[-->] - Highlight next data type"pDFCNC:DFįGO,43:"[DELETE] - Delete column";zCNCDTCD(C)1IDT,N:NNCS:31008 SQ,A$,"ALL",N:NAFAS1:N1:3100q SQ,A$,"SPECIFIC",N:NįER,"INVALID RESPONSE":3030} CVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:3030! ST%N1NNSįER,"INVALID DATA SE"INVALID NUMBER OF CUSTOMERS":2330=. MCN:500:XCMC:XRMRS8 5250:2500:2300Y  GO,28,V2:PU,I6,NC,L" Customers ",I8,XC,L" Customers ":NNC:XXC:2550: GO,28:PU,I6,NR,L" Records ",I8,XR,L" Records ":NNR:XXR:2550  XXMCXC:500:MRXR20900 MRXRXRMR:2090K"MRLR:600:MCXE2090p$XC((MCXE)2):MCXC:500:XRMR*5250:25004CV22:UF2200>CV:OP,"--- No adjustments for Hard Disks, press [SPACE BAR] to continue ---":WS,A$:100T NUMBER":30600! CSN:R1$R1$(N):R2$R2$(N):=!310::!GO,1:" This option is used to define the standard sales tax rate. This is the rateof sales tax normally charged on goods sold to your customers. If needed, you"v""may assign a difNX" PL,B7,D8,XTT,6,5,L"%":6 OP3N1:3100] AS0:RS,14,R1$:FS,R1$,NS,R1$,CS SB,1,P$,1," !Current (#"(CS)")",AF,", !All,",1," or !Specific data set",AF,"s",P$ 330:OP,P$": ":KI,0,A$:ER:ESA$ES$:ESı SQ,A$,"CURRENT"X GO,3,V2:HG,22:330:YN,"Want to change maximum number of customers",N:N0100x MRLR:600:MNXE:MN1MN1 MNMCMNMC 330:"Enter maximum number of customers ("MN"-"MC"): ";:NI,0,ST%,N:ER ST%32300#$ ST%NMCNMNįER,""3070/ ER,"INVALID DIF FILE NAME":3060R UC,A$:I(A$):I65I903064t N2(A$):(A$,N,1)","I0 :I3064 F$A$:GO,H,CV:OS,20,F$::ZF3100 EF1:EFĺD$UL$F$DF$:EF0:3090 ER63100 ER,"DISKETTE ERROR OR WRITE 100:ES100 LF1:GO,5,CV6:OP,"! !N!o!t!e!: Initializing the DIF data diskette will destroy any programs or data currently saved on the diskette." 330:YN,"Initialize the DIF data diskette",ZF:ZF0İ330:CS:VV1:340:3020 ZFC)0:CCNC:DTCD(C):2400:4NCNC1:DT1:2100VCD(C)DT:I1:2350:CNCNCCf 2400:2100p 2100. DTDTI:DT1DTFX8 DTFXDT1B ` 2450:"Column #"C": ";:CNCįOS,22,CF$(CD(C))j  VV1CC2(CC2):H1136(CC2):GS,A$:100310=9:OP,"Status of "R$" Files"xMSĢ11:OP,"(Using Data Set "(CS)" of "(NS)")"GO,20,7:BX,40,22MS:V132MSGO,3,V:" Type of Data Current Maximum % in Use"SGO balances. Once you have"h"entered all of your initial A/R information, you can then leave the SETUP mode and use the Accounts Receivable System in the normal fashion.": rOP,"--- Creation process complete, press [SPACE BAR] to continue ---":WW,F$,0,#Z,#Z,#Z,#XR,#Z:D$CL$:ASĭCSNSCSCS1:1250M@USĢ22:1650J310:10:OP,!" I M P O R T A N T ":::"For your convenience, the Accounts Receivable System has initially been placed"sT"in the SETUP mode. While in the SETUP mode yata file creation in progress"BCV16:GO,21,CV2:BX,38,22ASASVCV:P$"Creating Data Set "(CS)" of "(NS):352:R1$R1$(CS):R2$R2$(CS)UFP$IN$DD$:1280380:P$IN$VV$" # "(V1)V$R1$:360:X1SX:X2SX:UF1300" P$IN$(V1)", "(V2)", ":7.A$(A$,(A$)2)::OP,A$:8:OP,!" WARNING: ":" Any existing data or programs on the "DD$" will be destroyed !"B::XY,X,CVLV330:OP,"Confirm your request by typing !C!R!E!A!T!E: ":KI,0,A$:A$ES$100Xa files will be created on ";:UFĺ"a blank diskette located in "DV$".":1080f380:MSĺDV$:1080ASĺ"Data Set #"CS", using "DV$:1080$OP,"!A!L!L data sets, using the following ":DD$":"&A$"":I1NS:R1$R1$(I):R2$R2$(I):384:A$A$(N255)SZ):SXSXN1(NCZ):%X9bUFSXX2:630TlSXX1:NL3(MR1):550tvMC((SZ(SX7))(10L2))1MCCXMCCX310:OP,"*** I M P O R T A N T ***"::"This option is used to create the data files used by the AR$" PROGRAMS":230-6CV8:GO,12,CV:CS:GJGO,1,CV:CL:GO,12:U^VCV2AS`GO,22,V:OX,38,SP$:GO,41(P$)2:P$:h350:D$"INIT TEMP"V$:D$"DELETE TEMP"V$rSX((46063)4)(46064):|UFı~384:DV$DD$" "(V1)" and "(V2GO,20:"< 2 > - View / Adjust Data File Sizes":f tGO,20:"< 3 > - Define Standard Sales Tax Rate" xCV20:330:"Enter option (1-3) or [RETURN] only to quit: ";:NI,0,ST%,OP:ER:ST%2200 ST%OP1OP3įER,"INVALID SELECTION":120 OP1"R$Y"System. These files are used to maintain your customer data, invoices, credit""and debit memos, and other information used by the "R$" System.":XY,X,V:MS1050CVV:P$"Create":AF1:3000:ES100GO,1,V:CSM"These dat):0N63VA:V1((R1$,N)):V2((R2$,N)):QP$"Creating file: "F$:350hD$OP$F$",L"S;V$:nUFSXX2:530SXX1:N10MCL1:550 NL2(MC1):550MR(SZ(SX2(SXCZ))L3)MR0MR0MRRXMRRX&N(10007 MSCVCV2:P$"Use":AF0:3000:ESİ330:120M 380:GO,1,18:CS| EF1:EFĺD$UL$CX$R1$:EF0:OP12000,4000 A$AD$" NOT FOUND ON "DV$:UC,A$:ER,A$:120 GO,1,1::D$CL$ 250 MM,AR$:D$"RUNARMENU.PROG"RP$WD, 7000 5000:804 1:OP,AR$" SYSTEM"n 3:OP,"*** Create and Adjust "R$" Data Files ***" 5:OP,CO$: d nGO,1,7:CS:GO,12,10:"The following options are available:":: pGO,20:"< 1 > - Create "R$" Data Files":1 rou will be able to enter Accounts Recievable transactions (invoices, payments, credit memos, etc.) without having"^"the data posted to the General Ledger System. This mode allows you to enter allyour currently open (i.e., unpaid) invoices and creditVV$" # "(V2):V$R2$:360:X2SX7MC300:UFİ600U500:XCMC:XRMR:Z0:US0xV$R1$:F$CX$:SL1:390:BW,F$,0,#Z,#XC,#Z,#L2:D$CL$V$R1$:F$CD$:SL2:390:SUUG:BW,F$,0,#Z,#Z,#Z,#SU:D$CL$:SUĭMSCS1US1V$R2$:F$AF$:SL3:390:BUC,A$:A$"CREATE"100,`310:UF1200gjCV12:330:OP,"Please load a blank diskette in "DV$t::OP,"--- Press [SPACE BAR] to continue, press [ESC] to abort request ---":WS,A$:A$ES$100~31012:OP,"Please wait, "R$" D            NC1:XCXXCXj>330:"Enter column number (1-"X") or [RETURN] only: ";:NI,0,ST%,C:ER:ST%31000{@ST%22500HST%C1CXįER,"INVALID COLUMN NUMBER":2110\2450:HG,10 f330:OP,"--- Select column data by pressing the following,A$:GO,H,CV:OS,8,A$:A$(A$Z$,8):FS,A$,NU,KY$,I:;xO1470:NR1430vI1NU:SL(I)įOS,10,KY$(I):1450|IV:" End ";:1460:1050(KB)155ĹKS,0::1432XY,H,V:V22ı24:380GO,1,V1:CS:NRE$T$II1:1210DE1280%SL(I)ırNRNXE$"TOO MANY "T$"S SELECTED, MAX="(NX):UC,E$:ER,E$::1100SL(I)1:NRNR1GO,SH,11:OI,3,NR:SL(I)ıSL(I)0:NRNR1:NR0NR01270X$"":Z$"":P$"start":1350:E< 3 > - Select specific "T$"s"O*GO,24:"< 4 > - De-select specific "T$"s"|,GO,24:"< 5 > - Display selected "T$"s".SO0LSOįGO,31,SOV11:HG,32N1270:CVV16:330:35,23:CS:V330:"Enter option (1-5) or [RETURN] only: ";:NI,&N1:A$"Select "T$"s":334eGO,25,9:BX,30,2:GO,28,11:"# selected "T$"s = ";:XY,SHoV115CVV1:330:CS:GO,3:"Available options:";$GO,24:"< 1 > - Select all "T$"s"&GO,24:"< 2 > - De-select all "T$"s"(GO,24:".PROG"PV$&WD,AR$" PROGRAMS":230@JGO,1,CV:CL:GO,12:]LCV6:330:CS:CV8:CV:N332:OP,!" Step # "(N)" --- "A$" ":TCVVİ330:CVCV1:340V^CVCV2:330h330:YN,"OK to proceed to the next step",N:ESN0:qrA$ES$100) SQ,A$,"CURRENT",N:N180a SQ,A$,"SPECIFIC",N:NįER,"INVALID RESPONSE":130m CVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:130 ST%N1NNSįER,"INVALID DATA SET NUMBER":1506              330:CS:22:BL$;:UC,E$:OP,"--- NO "E$" SELECTED, Press [SPACE BAR] to return to previous step ---":WS,A$:|OP,PS$" ---":WS,A$:1::1:OP,AR$" SYSTEM"3:OP,"*** Convert Accounts Receivable Data to DIF ***"5:OP,CO$::EF1:EFĺD$UL$CX$R1$(N):EF0:R1$R1$(N):L1$"":180e ER,"DATA SET # "(N)" NOT CREATED":150q CVCV8{ 5200 NR0:FL,0,NU,SL:NC0:FL,0,CX,CD 1000 1::D$CL$:LFĭDF$PV$İ8000:ES100 250 MM,AR$:D$"RUNARMENU 7000 5000# 80:390: 2OS0:L1$"":AQ$""@ d n332:CV9:330:YN,"Want to convert "AQ$"Accounts Receivable data",N:1::N0200 xCVCV2:MS180 330:OP,"Use !Current (#"(CS)") or !Specific data set: ":KI,0,A$:ER::ER:ST%3İ330:CVCV1:6030UST%N1NNSįER,"INVALID DATA SET NUMBER":6110~EF1:EFĺD$UL$CX$R1$(N):EF0:DSN:ER,"DATA SET #"(N)" NOT CREATED":6110XEFER(222):ER6ER8EF0:XO:b1::D$CL$:PX2D:"S":370:100#360:NES1100)\N2:A$"Select data to appear in columns":334V19:V2V17:V3V23:C1CX:2400:GO,2,V22:BX,76,4:GO,4,V2 I1FX:OS,18,CF$(I):4(I4)Iĺ:GO,4:V3V31DT14CVV3:330:CS:XS1100 I1(I)X(CVCV1:X$A$:Z$"ZZZZZZZZ":P$"end":1350:ESİ330:CVCV1:1300l*XI:I0XI1{2II1:1200F330:" Enter "P$"ing "T$" ID"5(P$))": ";:OX,8,FC$:XY,H:HH8:GO,H:KI,8,A$:ER:ESA$ES$:ESıPA$""A$X$5ZUC0,ST%,N:ER:ST%3100(XST%21800G`ST%N1N5įER,IR$:1110fjSON:I1:XNU:DESO2SO4lDENRE$"NO "T$"S SELECTED":UC,E$:ER,E$:1110tSO5įGO,31,V1SO1:HG,32~SO1200,1200,1300,1300,1400IX1100 1250:(CS)"), !Specific, or !All data sets: ":KI,0,A$:ER:A$ES$ġ:50kSQ,A$,"CURRENT",N:NAS0:DSCS:SQ,A$,"ALL",N:NAS1:DS1:SQ,A$,"SPECIFIC",N:NįER,IR$:6030CVCV1330:" Enter data set number (1-"NS"): ";:NI,0,ST%,NSX2(SXCZ))R3)!lXR0XR02nXRRXXRRX8p`vN((N255)SZ):SXSXN1(NCZ):fqLRıFD,0,LR,A%,N:N0ıBW,AF$,N,#AV:AVN:A%(N)1:5820pzMSıSVCV:FS,R1$,NS,R1$,CSD330:OP,"Use !Current (#"MSįGO,29,16:"(Using Data Set "DS" of "NS")"725600=RLP%CP%:RW$"BR"@RW$,AF$,PP%,@TY%,%CP%,$PO$,#IU,#ID,#OA,#DA,#PD,#MA,@DD%,@SD%,@PD%,@PM%:RW$"BW":5320"RW$"BR",@RW$,CD$,CA%(C),A$CN$:5,%AC%,$TN$,%XP%,%TR%,%DR%,A@00:C5.5@RS,0,A$:RS,1,CO$:RS,13,PV$:RS,14,R1$:RS,15,R2$WRD,0,UF:RD,51,NSwCN$(5),CT(8),CF%(8),RM$(2)RM$(1)"End-of-Month Close":RM$(2)"End-of-Year Close" MSUF(NS1):MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(1150+PP%UP%:5300:CP%NP%:5350:11501XCT(1)CB:CT(3)CT(3)CT(4):CT(4)0d(5450:F5800:CC0:BW,AF$,0,#AV,#LR,#RR,#MR,#CCxAS800200PP%CCLPP%:400:PP%L:PP%ı5300:BW,AF$,PP%,#AV:AVPP%:PP%CP%:25300:LCP%:400:CP%L:NP%CP%:TY%11200OOAOAMA:MA0:(OAPD)C51250RRRR1:CBCB(OAPD):UP%PP%:PM%1:5350:1150LMA400:LįBR,AF$,L,#LK:BW,AF$,L,#AV:AVL:LLK:1220BW,AF$,PP%,#AVAVPP%:UP%XP%NP%:CP%NP%:$bEF1:EFĺD$UL$CX$R1$:EF0:900BASįWD,AR$" DATA"::0S DSNS1500d*DSDS1:600pOS950A$R1$:MSA$R1$(1)D$OP$CD$A$:BR,CD$,0,#IN,#SF:D$CL$:SF950CV20:330:BL$"WARNING: Customer statements were not printed thiD$CL$2503MM,AR$:D$"RUNARMENU.PROG"PV$PWD,AR$" PROGRAMS":230Y6CV9h8330:CS:JGO,1,CV:CL:GO,12:SX((46063)4)(46064):L0LMRL(L)450LĭA%(L)450LLRLRLA%(L)1:SFEĢ22:B"Note: An "RM$(2)" is just like an "RM$(1)" except it also resets the Year-to-Date sales for all customers." v:XY,H,CV xSVCV:330:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,ST%,RM:ER:ST%2200 zST%RM1RM2įEs month.":CVCV2J330:YN,"OK to continue with "RM$(RM),N:N0100]GO,1,20:CS:g5100m2000:NC1400LC1NCV5400:GO,42,14:OS,8,CK$(C):`LXP%:400:XP%L:CP%XP%:UP%0:CB0:EYCT(6)0~CP%1300*PP%CP%:L$;:OP,!" WARNING: Error found in A/R data files, rebuilding files during close "bFE1:L0:h310:12:OP,"Please wait, "RM$(RM)" in progress"V114:GO,32,V1:"Customer:"GO,16,10:BX,48,42MS:XMSR1$R1$(DS):R2$R2$(DS)R,"INVALID SELECTION":120B GO,27,102RM:HG,20:312:EYRM2T 6000:CVCV2 330:OP,"Confirm selection by typing !C!L!O!S!E: ":KI,0,A$:UC,A$:A$ES$170 CVSV:330:CS:MS50 140 A$"CLOSE"50 500 GO,1,1:: 7000 5000:804 1:OP,AR$" SYSTEM"d 3:OP,"*** Close Accounts Receivable ***"v 5:OP,CO$: 2FE0 d n310:"Available options to close Accounts Receivable are:":: pI12:GO,20:"< "I" > - "RM$(I):::{ rGO,6:CF%:8,A#CT:8:!JRW$"BW":5420'WLR0:RR0:MR0MR(MR)MRRXİ5700:MRXRcA%(MR)vLAV:400:AVLLıNL:BR,AF$,L,#L:400:LįBW,AF$,N,#L5640DNSXX2:UFSXX1:N10MCR1:5750:NR2(MC1):5750XXR(SZ(I):NN2:4OSĺD$CL$:EA,CK$,CA%,A%jD$OP$CX$R1$",L32":D$OP$CD$R1$",L160":390:X1SX BR,CX$,0,#NC,#MC:CK$(NC),CA%(NC)NCįBR,CX$,1,A!CK$:NC,A%CA%:NCD$OP$AF$R2$",L50":BR,AF$,0,#AV,#LR,#RR,#MR,#CC:390:X2SX-(OS1:020 -D$(4):BL$(7)(7):ES$(27)UCL$"CLOSE":OP$"OPEN":UL$"UNLOCK"CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE":AF$"ARDATA.FILE"AR$"ACCOUNTS RECEIVABLE"SP$" ":IR$"INVALID RESPONSE"R132:R2160:R350:SZ256:CZ120:RX50           INDEX.FILE"RD,0,NV:RD,48,UG:RD,51,NS:RD,73,PW:RS,1,CO$:RS,6,SV$:RS,8,G1$:RS,13,RP$:RS,14,R1$:RS,15,R2$:S1$R1$:NVNS1įRS,56,S1$P$(12),SC(12)XlER(222):EFĭER6ER8EF0:XO:vPXDR,#SU:D$CL$NPUGSU:"FD$(4):BL$(7)(7):ES$(27)WUL$"UNLOCK"S$"Accounts Receivable ":AR$"ACCOUNTS RECEIVABLE ":RR$AR$"PROGRAMS":GL$"GENERAL LEDGER " CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE":AF$"ARDATA.FILE":GX$"GLered the customer information and account balances."~fGO,12,20:CS:YN,1,"OK to remain in "S$"SETUP mode",N:N0ġ:30hN2180pGO,12,22:CL:OP,"Please confirm by typing !O!K: ":KI,0,A$:UC,A$:A$"OK"2150 zSU0:BW,CD$,0,#IU,#SF,#C:EF0:G1$PV$:G2$PV$:GL1:,2hWD,A$::0k2GO,1,8:CS:12:OP,"Please load the following diskette:"214:FF,PV$,DV$:OP,!" "DV$": "A$SP$2SB,1,"--- Press [SPACE BAR] to continue",ES," or use [ESC] to abort",1," ---",P$318:OP,PP%,@PM%:0pNPıG0zVE%2:TY%26:A$"Finance Charges":P$"FIN CHRG"0BW,JF$,JR%1,%VE%,#TD,$A$,$P$,@TY%:JR%JR%4:JV%JV%10AGF:I120JE%JE%1:JR%JR%1:S%I:A%P(I)HU:D%P(I)A%HU:BW,JF$,JR%,%A%,@D%,#A,@S%.1BR,GD$,X(I),$A$,A#D:16GES ***":14:OP,E$:ES0:8120:200_.<E$"No room available in General Ledger Journal":5170e.P.Z5250:D$OP$CX$R1$",L32":D$OP$CD$R1$",L160".dBR,CX$,0,#NC:K$(NC),A%(NC):NCįBR,CX$,1,A!K$:NC,A%A%:NC.fD$CL$CX$#/nD$OP$AF$R2$",L50":BR,A1):MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(I):NN2:N,T,,D$OP$GX$G1$",L16":BR,GX$,0,#N:A(N),A%(N):NįBR,GX$,1,A#A:N,A%A%:N,D$CL$:D$OP$GD$G1$",L102"- D$OP$JF$G2$",L9":BR,JF$,0,%JV%,%JE%,%JR%,%JX%:RD,9,I:I0į:N2(A0):D(N)D(N)A:BW,GD$,X(I),$A$,A#D:1691AA:a1BW,JF$,0,%JV%,%JE%,%JR%,%JX%:KP:1XEFER(222):ER6ER8EF0:XO:1b1::D$CL$:PX1@1JUF2GLı1TA$"GENERAL LEDGER DATA":ES1:8100:ESġ:1002^EF1:EFĺD$UL$GX$PV$F$,0,#AV,#LR,#RR,#MR,#CC:MR1MR1./xOS1:T/OSįEA,K$,A%:D$CL$CD$:D$CL$AF$_/OS0:k/R$"BR"/@R$,CD$,A%(C),A$N$:5,%AC%,$TN$,%CP%,%TR%,%DR%,A@F%:8,A#D:8:/R$"BW":5320 0BR,AF$,P,@TY%,%XR%,$Y$,#IN,#ID,#OA,#DA,#PD,#MA,@DD%,@SD%,@PSD,9,JR%- JR%6JX%5180D-Z1:I9:5150:I15:5150:EA,A,A%:-RD,I12,A:FD,A,N,A,X:A0X0P(Z)A(X):X(Z)A%(X):ZZ1:-(E$"ERROR IN POSTING TABLE, check A/R entry # "(I)$.212:BL$;:OP,"*** UNABLE TO CALCULATE AND POST FINANCE CHAR),SM$(2),T(5),RT(5)'+I25:Y$(I):+I15:RS,282I,C$(I)::PHāI15:A$(I)C$(I)::A$(4)A$(4)SP$A$(5):A$(3)SP$A$(3)A$(4):A$(4)""+SM$(1)"Calculate Finance Charges and Print Report":SM$(2)"Print Customer Statements"H,MSUF(NSinvoices, and credit balances.":H" Use the Customer Maintenance, Invoicing, and Cash Posting options to enter your "S$"information. You should also use the many reporting"4R"features of the "S$"System to verify that you have correctly ent ":::" Just a friendly reminder: You are still in the "S$"SETUP"!>"mode. While you are in this mode, "S$"transactions will NOT be posted to the General Ledger. You should use this mode ONLY to enter your initial customer information, open C,A%A%:NC:(D$OP$AF$R2$",L50":BR,AF$,0,#AV,#LR,#RR,#MRE((OS1:m(XEFER(222):ER6ER8EF0:XO:(b1::D$CL$:PX('" 1-30 days","31-60 days","61-90 days","Over 90"e4,R1$:RS,15,R2$:RS,99,FC$:DT,TD$,TD*RD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,47,NP:RD,51,NS:RD,60,FR:RD,61,MC:RD,62,GP:RD,64,PH*OD,16,FRHU,A$:FR$(A$,7,5)+A$(5),C$(5),Y$(5),N$(5),U$(5),R%(2),F%(8),D(16),G(5),V(RX1),L%(RX1),P(2),X(2":GD$"GLDATA.FILE":JF$"JOURNAL.FILE"X)AR$"ACCOUNTS RECEIVABLE":PP$AR$" PROGRAMS")SP$" ":S7$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ":F1$"Fin Chg")HU100:RX500:LX16:LQ22&*RS,0,TD$:RS,1,CO$:RS,8,G1$:RS,9,G2$:RS,13,PV$:RS,1I14:PL,B7,LU$(I)::I15:SP$::LN0:N'$N1$"":N2$"":SNN1$SN$:4920c'.NF%(6):Nİ4940'8GX1F%(2)NGX(GX4)8:4940'BNL(N1$"")(N2$""):'LRS,1164N,A$:N1$""N1$A$:'NN2$A$:'VXD(2):G5 (`XG(G)G(G)X:G1G(G(3)T(3)M:T(4)T(4)CB:9%LNNāILN1N:SP$::LNN?%[%\LNLXNLQ:4600:LN0j%fLNİ4800%pLNLN1:IDĺ5):4730%rFJ,ID,A$:OY,A$%zPU,B3,S8,I$,S23,Y$:(A)ĺ10):4740%|OD,8,A,2,10&BTY%1įOD,8,B,2,10:BįPU,B2,S8,I5),3,9,D8,ST,2,10,B9,D8,ST,1,111#I14:SP$:7#U#I14:RT(I)RT(I)T(I):b#AS3600o#0CF4450#:PW,1:MSR1$R1$(1)#DAFĭASMSĺD$CL$CD$:D$OP$CD$R1$",L160":BR,CD$,0,#IN,#N:N1:BW,CD$,0,#IN,#N#N4480$bI15:T(I)RT(I)::PGPXNLQ:4600:4800D"N13(NL1):4600:N1$""ĺN1$:LNLN1^"N2$""ĺN2$:LNLN1m"N16:4600"" Current 1-30 31-60 61-90 91+""NG(1)1E7#PL,D8,G(1),4N,8N,B1N,D8,G(2),2,10,D8,G(3),1,11,D8,G(4),2,10,D8,G(4950:4900:PX((NENL(D(4)0)1)LX)1:PG0:LN0S E1NE:PL%(E):A0:ID0 PI$" Credit":Y$"Unapplied Credit Bal.":BD(2):4200 P04150 "P1I$F1$:Y$"Prior Finance Charges":BD(3):4200!,I$"Bal/Fwd":Y$"Balance Forward":ACFF%(1)PB0:40305PFF%(4)ĭC1C2AF4300vID$K$(C):CBD(1)D(2)D(3)D(4):FDPFF%(5):1000:PF4100NF0:KF0:OC0:PB(PBD(2)):FBD(3):NVD(4):PB0PB0PBKF(PBFRHU.5):NFKF:NFMCNF(MC)&GFGF(NFNV):D(4)NF:F$,NS,R1$,N:N0DS$"(Data Set # "(N)")"L AFH2$"":C11:C2NC:3100j FS,C1$,NC,K$,C1:C1(C1) FS,(C2$Z$,8),NC,K$,C2:C20C2(C2)1 C2NCC2NC H2$"(Customer IDs: "C1$" thru "C2$")" PNCFNL0:600& CFİ7200 BF:BBB:4200*!65400:I$(S7$(IN),7)T!@TY%1Y$SP$Y$:AOA:BAMAPD:4200~!JY$Y$(TY%):AOA:B0:TY%2TY%5AA!h4700:!rD(4)4230!|I$F1$:Y$"Current,"FR$"% / Month":AD(4):BA:D(3)0BBD(3)!~ID0:4720!NL4260"BNF0OCFBNF:D(3)NF:D(2)D(2)OCHPBKFNFOC(NVNF)4300NL2:600:PU,S10,ID$,D0,CB,D0,PB,D0,FB,D8,KF,2,11,D8,NF,2,11:OCįOD,8,OC,1,11T(1)T(1)PB:T(2)T(2)KF:T(3)T(3)NF:T(4)T(4)OC:SP$5350:4300NE43006 4000 AS3610* WD,AP$" DATA"::0IP$"DATA SET TOTAL:":4500ZCSNS4400l$CSCS1:3020FL,0,5,T:NC(C2C1)(C1NC)4350CC1C2:5300:FL,0,5,G:G(1)D(3)D(4):ST0:(KB)1284020KS,0:(KB)27PFAF0:CC2:4300L,L"**/** ******** ",S29,"Alignment Test",L"0.00 0.00 ******* 0.00":q I118:SP$::PW,0:2500w( }  FL,0,5,RT:GF0 MSR1$R1$(CS):R2$R2$(CS) EF1:EFĺD$UL$CX$R1$:EF0:3040 3500 5200, DS$"":MSįFS,R1)0X(G(G)):G(G)0:GG1:4960=(jGX0:G15:G(G)0GXGE(l:K(c(KB16384:KS16368(D$(4):ES$(27):BL$(7)(7)(UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"&)CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE":AF$"ARDATA.FILE":GX$"GLINDEX.FILE$,D8,B,2,10:STSTB&:^&PGPG1:I14:7):I1įOS,39,A$(I):"Page "PG" of "PX:4810i&A$(I)o&&I14:SP$:U$(I)N$(I):&U$(4)U$(4)SP$N$(5):U$(3)SP$U$(3)U$(4):U$(4)""&PL,B7,YTD$,B2,S45,ID$,YTD$,B1,LID$*'SP$:SP$:P$"REPORT TOTAL:":4500+$l500:GFİ6000@$5250:D$CL$:50L$QQ$"="V$PFı$NL3:600:Q$QQ$:22):PL,X11,Q$,B13,X10,Q$,B1,X10,Q$,B2,X10,Q$$PL,B5,S17,P$,D0,T(1),B11,D0,T(2),D8,T(3),2,11,D8,T(4),1,11:SP$:%T(1)T(1)B:T(2)T(2)D:Tin the printer":CV2:OP,"--- Press [SPACE BAR] when ready ---":WS,A$:A$ES$2340bj 330:CS 330:YN,"Do you want to print an alignment test",N:N02340 N2600 ID$"ALIGN":I15:N$(I)C$(I)::PG0:PX1:PW,PS:4800R X0:I14:Per (1-9): ";:NI,0,S%,N:ER:S%32340h2 S%N1N9įER,"INVALID NOTE NUMBER, MUST BE 1 to 9":23528 RS,1164N,A$:GO,14,CV:PL,L"Note: ",S58,A$:SN$A$B GO,14,CV:PL,L"Note: ",S58,A$:SN$A$:SN1U` 350:CV:OP,"Please load Statement Forms N,"OK to calculate finance charges and print report",N:N0VV2:340:2100[NES1:j400:2600tV3CV 330:OP,"Use !Customer, !Standard, or !Other note: ":KI,0,A$:ER:A$ES$VV2:340:2100 SQ,A$,"CUSTOMER",N:NSN0:2400 ): ";:NI,0,S%,N:ER:S%3İ330:CVCV1:2030dS%N1NNSįER,"INVALID DATA SET NUMBER":2060mEF1EFĺD$UL$CX$R1$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":2060 CSN*3504V2CV/>330:OP,"Include !All or !SeleDDGPPBPBBF$PFĭFDPM%ĭNERXNENE1:V(NE)IDRRT:L%(NE)PP.1020ZLCFıVBFFDNENE1:V(NE)1:L%(NE)2`NE1įSR,V,L%,NEjV0CV:350:V1CV:AS0:MS2100MSıAS0:RS,14,R1$:FS,R1$,NS,R1$,CSZ33NE1:V(1)0:L%(1)0:D(3)0NENE1:V(NE)1:L%(NE)1OTT1:XR%1100kPXR%:5400:TY%51020TY%1PM%0:1060B(OAPDMA):PM%BFBFOA:BBBBBB1060DDTDIDDD%:G1:DD0G2((DD1)30):G5G5G(G)G(G)B1:LN7:L(OW(CO$))2GPU,L"As of: ",YTD$:L15)CO$L8)"Page "PN_(OW(HU$))2)HU$DS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900i 13)"Prior Past Due ------- Finance Charges -WD,PP$:230#6CV8:330:CS:=JGO,1,CV:CL:GO,12:YT330:CVVCVCV1:340_Vp^CVCV2:330hKI,S,A$:ER:ESA$ES$:ESİ330jrCVCV1:330:OS,28," Enter "P$"ing customer ID":": ";:XY,H:OX,8,FC$tGO,H:S8:360:- "SM$(I): n:XY,H,CVr x330:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,S%,SM:ER:S%2200 S%SM1SM2įER,"INVALID SELECTION":120 310:OP,!SP$SM$(SM)SP$:CFSM1:PFCF:2000:ES100 310::CFNPİ8000:5100< ------- Applied to":"Customer Balance Balance Bal/Fwd Calculated Posted Open Credt":"======== =========== =========== ========== ========== ========== ==========":XR%CP%:NE0:BF0:BB0:PB0:TRR:CF1020D(2)ESįUC,A$:GO,H,CV:OS,S,A$!v9CPPS:OLLP:EPOL6_HU$(HD$,1):UC,HU$:OW80:PN0:~LNLN1:900:650:PW,1:XNLĭLNNLEPLNLNNL:b900:LNLN1:NLİ700:600GC:FFĺ(FF):LLNOL:SP$::650PNPNCFP$"Calculating Finance Charges, Do Not Interrupt":170o P$"Printing Statements, Press [ESC] to Abort" 14:OP,P$:GO,15,12:BX,50,2: PW,PS:3000 1::D$CL$:GLA$PP$:ES0:8100 250 MM,AR$:D$"RUNARMENU.PROG"PV$|( 7000 5000:80S (OS0:HD$"Finance Charge Calculation Summary Report" 21:OP,AR$" SYSTEM":3:OP,"*** Print Statements / Calculate Finance Charges ***":5:OP,CO$ d310:GO,12,10:"Available options are:":I12::GO,20:"< "I" > SQ,A$,"STANDARD",N:N2350A SQ,A$,"OTHER",N:NįER,IR$:2310 CVCV1:330:PU,L" Note: ",LSN$,X58(SN$),FC$:GO,20:KI,58,A$:A$ES$2340 A$""A$SN$ 2370$ 330:CS:VV3:340:2300. CVCV1(0 330:" Enter standard note numbctive customers: ":S0:360:ESVV1:340:2020PHSQ,A$,"ALL",N:NAF1:2200{JSQ,A$,"SELECTIVE",N:NįER,IR$:2110fP$"start":370:ESVV2:340:2100hC1$A$pP$"end":370:ESCVCV2:2150rC2$A$:AF0350:PF2300L330:Y0:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:ySQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:CS1:2090SQ,A$,"SPECIFIC",N:NįER,IR$:2030CVCV1/ 330:" Enter data set number (1-"NS"                         ": "DK$" ":VV2GO,1,V3:OP,"--- Press [SPACE BAR] when ready or use [ESC] to abort ---":WS,A$:(A$)27ġ:50:GO,1,8:CS:D$"OPEN"CD$S1$:BR,CD$,0,#IU,#SF,#CR,#SU:SD,46,CR:UGSUıF41300:OP,!" I M P O R T A N T01OPįGO,12,8:CS:"Available options are:"OPOP1:GO,20,9OP:PL,L"<",I3RM,OP,L" > - ",LO$:P$(OP)P$:SC(OP)SC:SC0:GO,1,8:CS:GO,1,10:OP,"Please load the following diskette(s):":V12:DK$""įFF,DV$,A$:GO,24,V:OP,!" "A$2bDK$GL$"DATA":EF1:EFĺD$UL$GX$G1$:EF0:700JlGF$DK$:NVWF900aPF$""GF$""8001200:DK$GF$:DV$G1$:1220:DK$PF$:DV$R1$:12201250:WF1:520 MM:SD,6,SC:SD,7,0:SD,47,NP:DK$PR$*EF1:EFĺD$"RUN"P$RP$WD,DK$:31::SCSC(N):P$P$(N)".PROG":SC2800INPUG:WF0:PF$"":GF$""aDK$AR$"DATA":1:EF1:EFĺD$UL$CX$R1$:EF0:550PF$DK$:NVWF900&NV5800EF1:EFĺD$UL$AF$R2$:EF0:5802900DPF$""İ2000XNV2SC0NP700ORTS",SM:SMSMRM:SMNOP1QSMĭST%N1NOPįER,"INVALID SELECTION":210RMįBT,PW,N,I:IįER,"SECURITY VIOLATION":210SM500RMRM:SD,5,RM:50,@350JMM,"MAIN"::D$"RUNMODMENU.PROG"RP$^WD,RR$:300+0:XO:b1::D$CL$:PXKPXKEF1:EFĺD$UL$CX$R1$(N):EF0:TES1:GSE$"DATA SET #"(N)" NOT CREATED"ZXEFER(222):ER6ER8EF0:XO:b1::D$CL$:PX(#2#SSDS:P$"global search in progress ":382<#GS1:SSSS1:SSNSSS1>#SSDSN0:F#NL"Number of Customers on file =",I5,NCj2MSįSS,14,R1$:SS,15,R2$:GO,54,3:"Using Data Set "DS" of "NSp<vBR,AF$,IV,@TY%,%PX%,$PO$,#IU,#ID,#IB,#DA,#PD,#MA,@DD%,@SD%,@SS%,@PM%:"IVAP%:NV0:NT0:320:IVĢ14:OP,"Please wait, co"INVREGISTER":1000LO$"Print Cash Receipts Register":P$"CASHREC":1000VR$""`R$""fGO,12,12OP:CL:OP,"Enter option number (1-"(OP)")"R$" or [RETURN] only: "NI,0,ST%,N:ER:ST%2ĴRM1280,300LI,A$:SQ,A$,"REPSS:5500:ES9020;P#D$OP$CX$R1$(N)",L8":BR,CX$,0,#J:I1NZ#IJN0:9100|d#N((IJ)2):BR,CX$,3N,$A$:A$ID$9100n#ID$A$JN1:9050x#IN1:9050#D$CL$CX$:N9020#380:DSSS:5100:'Credit,Debit,,Payment,Apply O/C llecting customer invoices":+,IV5430`.5300:TY%1ĭNVIXNVNV1:IU(NV)IU:IA%(NV)IV0TY%1ĭNTIXNTNT1:IT(NT)ID:IT%(NT)IV2IVPX%:54206NV1įSR,IU,IA%,NV8NT1įSR,IT,IT%,NT@GO,1,14:CL:|ES0:1::MSı"):NN2:0OSĺD$CL$:EA,CK$,CA%PMSR1$R1$(DS):R2$R2$(DS){D$OP$CX$R1$",L32":D$OP$CD$R1$",L160" BR,CX$,0,#NC:CK$(NC),CA%(NC)NCįBR,CX$,1,A!CK$:NC,A%CA%:NCD$CL$CX$:D$OP$AF$R2$",L50":OS1&(GO,2419MS,3:PU,NR,#XR,#CC:&RW$"BW":5220?&D$OP$CD$R1$",L"L2:RW$"BR"a&@RW$,CD$,0,#IU,#SF,#CR,#SU:t&RW$"BW":5320z&X&bEC(222):EFĭEC6EC8EF0:XO:&1::D$CL$:PXBFRD,51,NS3%UFįFF,R1$,DV$:DD$"Diskette":5070W%SQ,VV$,"VOLUME",VA:DD$VV$"s"i%MSUF(NS1)%MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(I):NN2:%%PRW$"BR"%d@RW$,CX$,0,#NC,#XC,#XE,#RL &f@RW$,AF$,0,#AV,#LR,#$:WS,P$::ES(P$ES$)ES003GO,1,8:CS:{3'**** Credit Memo ****,**** Debit Memo ****,,"**** Payment, Thank You"Kk You"KYou":RS,14,R1$:RS,15,R2$:RS,99,FC$8RD,0,UF:RD,51,NSTY$(6),CN$(5),CD(8),CF%(8),YN$(1),IU(IX),IA%(IX),IT(IX),IT%(IX),IA(8):YN$(0)"No":YN$(1)"Yes"I26:TY$(I): MSUF(NS1):MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(IB12 L11(IL19:GO,1,I:CL::.RD$(4):BL$(7)(7):ES$(27)zCL$"CLOSE":OP$"OPEN":UL$"UNLOCK"CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE":AF$"ARDATA.FILE":AR$"ACCOUNTS RECEIVABLE"Z0$"0000":SP$" ":IX500!RS,13,RP$PL,S13,TY$(TY%),S7,RF$,YA$,BS,D0,A:LL1:TF1=nNN1:1300oxTFP$"Transaction summary complete, ":1500P$"No transactions on file, ":15003904020:1100@4000:100320:GO,H,V:OS,5,A$:GO,H,V2:PO$;:GO,68:OD,0,IB:1250= ==========="'VNIU:TF0:N1:L14jVN0CD(4)įGO,15,L:PL,S43,"Finance Chg",D0,CD(4):LL1:TF1yNNT1400IVIT%(N):5300:LKMA:DAVNAPD:1350 TY%6VNAIB:1350(LK13902BR,AF$,LK,#LK,#NE,A#IA:8<J0:I1NE:IA(PO$"Fin Chg":IBCD(3)CD(4):IU1:2000ZA$"OPEN"PO$"Open CR":IBCD(2):IU0:2000yS%X0X99999İ314:1130FD,X,NV,IU,N:N0įER,"INVOICE NOT ON FILE":1130320:PVN:IVIA%(N):5300GO,H,V:(Z0$(IU),5);:FJ,ID,A$:GO,37:0<.5400:NVP$"NO INVOICES ON FILE, ":BL$;:390:1600BLQVPV0PV0bXPVNVPVNVw`KNPVNV:KPPV1jP$"invoice number":Q1$" !F!I!N, !O!P!E!N,":Q2$"":P1$"":H12:V8:S5:300:ESA$""1600tNNPVN:1200)~UC,A$:A$"FIN"SST%3:ESı)lST%N0NNSNK0:knLI,A$:SQ,A$,"NEXT",N:NįER,"INVALID DATA SET NUMBER":360vpNK1:|P$"switching data sets "~320:22:OP,!" Please wait, "P$::22:OP,"--- "P$"press [SPACE BAR] to continue ---":WS,Aext",KP,", !Prev",KNKP,",",1,Q1$,1," or [RETURN] only ",1,Q2$,A$:320:330:OP,A$:P1$""Ģ23:OP,P1$.GO,H,V:OX,S,FC$:GO,H:NI,S,S%,X:LI,A$:UC,A$:ER:UC,A$:ESA$ES$:ESA$""ı0SQ,A$,"NEXT",N:NN1:3102SQ,A$,"PREV",N:NN1:3NC:KPPC1m P$"customer ID":Q1$"":Q2$"to quit":SB,MS,"(enter !D!A!T!A!S!E!T to switch data sets)",P1$ H14:V6:S8:300:ESA$""200 NNPCN:ID$CK$(N):1000 A$"DATASET"450 ID$A$:FS,A$,NC,CK$,N:N01000 E$"CUSTOMER '"$::MSİ314:110.320:360:ES100GNKNDS1:NNSN1d5500:ESİ380:DSN:50ES0:ER,E$:DSSS:110PCN:320BR,CD$,CA%(N),A$CN$:5,%AC%,$TN$,%AP%,%TR%,%DR%,A@CF%:8,A#CD:8$GO,14,6:OS,8,ID$:GO,40:CN$(1):PV10 4N0:%6(N0KN)(N0KP)ı38314:300X:E$"INVALID "P$:UC,E$:ER,E$:@CV22:35,23:GO,1,CV:CS:35,24:GO,12,CV:JGO,1,CV:CL:GO,12:h330:" Enter data set number (1-"NS")";:OP," or !Next "j": ";:NI,0,ST%,N:ER:EA$"' NOT ON FILE":MS190\ 320:BL$;:YN,0,E$", OK to do global search",N:N0100m 9000:N150} ER,E$:110 320::D$CL$ 250 MM,AR$:D$"RUNARMENU.PROG"RP$ WD,AR$" PROGRAMS":230j,SB,1,"Enter ",1,P$,KN,", !N 7000 5000:80L 1:OP,"*** Invoice Transaction History ***"} GO,1,4:OX,80,"_":4000:GO,1,20:OX,80,"_" (MSįFS,R1$,NS,R1$,DS 2NDS:5500:ESįWD,AR$" DATA"::0 <5100:PC0 d nPC0PC0 pPCNCPCNC xKNPC:GO,1,6:PL,L"Customer ID: ",B20,L"Name:",B24:GO,1,8:PL,L"Invoice #:",B14,L"Inv Date :",B15,L"Beginning Bal :",B12PL,B24,L"Due Date :",B15,L"M-T-D Activity :",B12PL,L" P.O. #:",B14,L"Disc Taken:",B15,L"Invoice Balance:",2I1)VNJ1:AIA(2I)&>:J1320FL19Ģ22:OP,"--- More transactions, press [SPACE BAR] or [ESC] to stop ---":WS,A$:L14:4050:A$ES$1510PTY%6TY%0ZFJ,ID,A$:S213(TY%3(TY%6VN)):RF$(Z0$(IU),5):IURF$""-\GO,15,L:OY,A$:GO,68:OD,0,IBIFJ,IDDD%,A$:GO,37,V1:OY,A$:GO,68:OD,0,MAGO,H,V2:PO$;:GO,36:OD,8,PD,3,9:GO,68:OD,0,IBMAPDGO,15,12:"Transaction Ref # Date CR Amount DR Amount":GO,15:"=========== ===== ======== ==========        (I):NN2:2OSĺD$CL$:EA,A%,L%,V\D$OP$CX$R1$",L8":D$OP$CD$R1$",L160"} BR,CX$,0,#NC:K$(NC),A%(NC)NCįBR,CX$,4,A!K$:NC,A%A%:NCD$OP$AF$R2$",L50":BR,AF$,0,#AV,#LR,#RR,#MR,#CC(OS1:XEFER(222):ER6ER8EF$(Z0$(IV),5)3 PU,B1,S6,I$,D8,A,1,11:II1:9QKB16384:KS16368gD$(4):ES$(27)UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE":AF$"ARDATA.FILE":AR$"ACCOUNTS RECEIVABLE"-IM40000:SP$" ":IRI$"Pay":4120!I$"Inv":LK07FJ,TD,TD$:TTTAv"NL1:600:PU,S4,I$,S7,(Z0$(RN),5),S10,C$,YTD$,B2,D0,TA,EL0:TY%5I1:46006LKĺ:4180@BR,AF$,LK,#LK,#ND,A#I:8JJ1ND:IVI(2J1):AI(2J):4600::4150TELNL1:600:0 720:4000 AS36102 WD,AP$" DATA"::0QP$"DATA SET TOTAL:":4500bCSNS4400t$CSCS1:3020zEA,K$:RXRR:N(((0)2000)7):RXNRXNV(RX),L%(RX):NI0:T0:NC(C2C1)(C1NC)4060CC1C2:550:CCP%CC:404,R1$,NS,R1$,N:N0DS$"(Data Set # "(N)")"O AFH2$"":C10:C2NC:3100m FS,C1$,NC,K$,C1:C1(C1) FS,(C2$Z$,8),NC,K$,C2:C20C2(C2)1 C2NCC2NC H2$"(Customer IDs: "C1$" thru "C2$")" CPPNĢ1& PNNL0:600 :EF0:2080;ER,"DATA SET # "(N)" NOT CREATED":2060D CSNM*350W4V2CV>330:OP,"Include !All or !Selective customers: ":S0:360:ESVV1:340:2020HSQ,A$,"ALL",N:NAF1:2200JSQ,A$,"SELECTIVE",N:NįER,IR$:2110fP$"sC:L%(NI)P1020>V0CV:350:V1CV:AS0:MS2100IMSıpAS0:RS,14,R1$:FS,R1$,NS,R1$,CS330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:SQ,A$,"CURRENT",N:N2090SQ,A$,"AL15)CO$L8)"Page "PN,(OW(HU$))2)HU$VDS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900 44)"----- D I S T R I B U T I O N -----":"Txn Ref # Customer Date Amount Inv # Amounttart":370:ESVV2:340:2100)hC1$A$MpP$"end":370:ESCVCV2:2150]rC2$A$:AF0350:400:ESVV2:340:2100  RT0 MSR1$R1$(CS):R2$R2$(CS) EF1:EFĺD$UL$CX$R1$:EF0:3040 3500 5100/ DS$"":MSįFSL",N:NAS1:CS1:2090ASQ,A$,"SPECIFIC",N:NįER,IR$:2030MCVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":2060EF1 EFĺD$UL$CX$R1$(N) Inv # Amount":n"=== ===== ======== ======== =========== ====== ========== ====== ==========":t550:CP%ıPCP%:BR,AF$,P,@TY%,%CP%,$A$,#I,#N,A#I:4,@DD%,@SD%,@PP%,@PM% TY%5(TY%1PP%1PM%)ĭNIRXNINI1:V(NI)NIMib900:LNLN1:CPĢ24:OP,"Press [SPACE BAR] to contunue -- press [ESC] to stop":WS,U$:U$ES$570{lNLİ700:600GC:CPė:FFĺ(FF):LLNOL:SP$::650PNPN1:LN7:L(OW(CO$))2PU,L"As of: ",YTD$:L$"INVALID RESPONSE":Z$"ZZZZZZZZ":Z0$"0000"qRS,0,TD$:RS,1,CO$:RS,13,RP$:RS,14,R1$:RS,15,R2$:RS,99,FC$RD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,51,NSN$(5),I(8) MSUF(NS1):MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$SP$ ^hRTRTT#AS3600E0TRT:P$"REPORT TOTAL:":4500bbAC$"complete":500:570NL3:600:PL,B31,X11,"=":PL,B11,S20,P$,D0,T:SP$:I2ĺ:NL1:600:44):I1:EL1IVI$"OpenCr":4620IV0I$"FinChg":4620I$SP0(BR,CD$,A%(C),A$N$:5,%AC%,$A$,%CP%>1000:CA%(C)NIM:CPįCS[NI4300qNI1įSR,V,L%,NIE1NI:CV(E):CCIM(CIM.5):CC$"CASH":4110BR,CX$,C3,$C$BR,AF$,L%(E),@TY%,%CP%,$A$,#RN,#TD,#TA,#IV,#A,#LKTY%5:BR,CX$,0,#J:I1$:Z#IJN0:9100Q:d#N((IJ)2):BR,CX$,3N,$P$:A$P$9100h:n#A$P$JN1:9050x:x#IN1:9050:#D$CL$CX$:N9020:#5540:'3,19,8,1,4,19,12,1,4,55,8,2,5,19,5,3,5,55,10,3;*Credit,CR,C R E D I T,Debit,DR," D E B I T ",hz#0    ǮǠ ˮǠ ҮǠîǠˆ  ƮǠծǠ  îǠ2ٮǠ ӮǠ* ԮǠŮǠ Š̮ǠϠծǠӮǠԮǠѮǠŮǠ;:1050:700'&P$"PAYMENU":1060:700F0P$"LABELSMENU":1010:700a:P$"UTMENU":1010:700DP$"CONFIGURE":1010:700NRS,0,DF$:GO,12,Y0:CS:3000:ES330PGO,1,Y02:OP,"--- Press [SPACE BAR] to continue ---":WS,A$:GO,1,Y0:CS:330X),L%(RX)'I14:AG$(I):v'MSUF(NS1):MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(I):NN2:|'''OSĺD$CL$:EA,K$,A%'D$OP$CX$R1$",L32":D$OP$CD$R1$",L160"' BR,CX$,0,#NC:K$(NC),A%(NC) (NCįBR,CX$,1,A!K$:NSP$:0%$18B3):K1TX:PU,B1,X9,T$::T$:6%N%KB16384:KS16368d%D$(4):ES$(27)%UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"%CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE":AF$"ARDATA.FILE":AR$"ACCOUNTS RECEIVABLE"&SP$" ":IR$"INVALID R4,P$,D8,A,1,11r#CFįPU,B5,SS2,"Cumulative:":NT(1)SUT(7)T(8):X0:PU,B10SU:I1SU5:NNT(I):4560::}#SP$:#OD,8,N,2X,10X(N0):XN0:#T$"=":4510#NOC:I511:NT(I)T(I)N:N0:T(I)0NT(I):T(I)0#$A0:N0:NT(I):4560:::SU4550P"OCįPL,B5,SS2,"Less Open Credits",D8,T(7),2,10"FCįPL,B5,SS2,"Plus Finance Charges",D8,T(8),2,10"CFİ4900:4550"AT(6)T(7)T(8):P$"Net Balance Due":A0P$"Net Open Credits"#69)"----------":PL,B3,S6DQDF4180F 6NL1:600:FJ,DD,DD$:PU,BB1,SS1,I$:CFįOY,DD$:4160h 8FJ,I(2),A$:PU,YA$,B1,YDD$ @PU,B110(B1),D8,A,3,10:CFįPU,B10(5B),D10,A,3,10 B T hDQİ4800:4250!rI18:AT(I):ST(I)ST(I)A:RT(I)RT(I)A::P$"Custome2I18:T(I)ST(I)::P$"DATA SET TOTAL:":4600CCSNS4400U$CSCS1:3020[FL,0,8,ST:NC(C2C1)(C1NC)4300CC1C2:550:FL,0,6,T:CO0:YF0BR,CD$,A%(C),A$N$:5,%AC%,$TN$,%CP%,A%R%:2,A@F%:8,A#D:8:OCD(2):FCD(3)D(4)ARY "HU$& DQHU$HU$", "AG$(AG)b UC,HU$:B127CF:S182CF:S26342CF:B38CF:TX6CF MSR1$R1$(CS):R2$R2$(CS) EF1:EFĺD$UL$CX$R1$:EF0:3040 3500 5100 DS$"":MSįFS,R1$,NS,R1$,N:N0DS$"(Data Set # "(N)")"r Total:":4500!"!AS3600S!0I18:T(I)RT(I)::P$"REPORT TOTAL:":4600p!bAC$"complete":500:570!SB,DF,"-",T$!DQı!OCT(7)0:FCT(8)0:SUOCFC:NL2(T$"")CFSU(2OCFC):600:T$""İ4900"PU,B3,S15B3,P$:X0:I1TX1000:NEOCFC4250ODQNL1:600:PL,S10,K$(C),LN$(1):T(7)OC:T(8)FC]NE4200E1NE:PL%(E):B1:DDTD:390:(A)4180I$("0000"(I(1)),5):NTDDD:CFNNN0B1CF((N1)IP):B5B5 "T(B)T(B)A:T(6)T(6)A:YF1: AFH2$"":C11:C2NC:3100; FS,C1$,NC,K$,C1:C1(C1)i FS,(C2$Z$,8),NC,K$,C2:C20C2(C2)1z C2NCC2NC H2$"(Customer IDs: "C1$" thru "C2$")" CPPNė& PNNL0:6000 720:4000 AS3610 WD,AR$" DATA"::0"ALL",N:NAF1:2400@ SQ,A$,"SELECTIVE",N:NįER,IR$:2310h. P$"start":370:ESVV3:340:2300s0 C1$A$8 P$"end":370:ESCVCV2:2350: C2$A$:AF0` 350:400:ESVV3:340:2300   FL,0,8,RT:HU$(HD$,1):DFHU$"SUMM:ER,A$" NOT AVAILABLE":330nCF(OS8OS9)įER,"SYSTEM NOT CONFIGURED YET --- USE OPTION # 8":330OS510,520,530,540,550,560,570,580,590,600P$"GLMENU":1020:700P$"APMENU":1030:700P$"ARMENU":1040:700 P$"INVMENU"ESPONSE":Z$"ZZZZZZZZ"!&RX500e&RS,0,TD$:RS,1,CO$:RS,13,RP$:RS,14,R1$:RS,15,R2$:RS,99,FC$t&DT,TD$,TD&RD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,6,N:CFN2:DQN3:RD,51,NS 'N$(5),R%(2),F%(8),D(8),I(6),DT$(5),AG$(4),T(8),ST(8),RT(8),V(R:IAG4:BT(I1):BAAB:NI*$:Nı|$NL2:600:PU,S9,K$(C),D0,T(6),S11,AG$(N),D0,A:D(8)įFJ,D(8),A$:OY,A$:4830$8)$D(7)įOD,0,D(7):4840$12)$"(";:AC%įOI,3,AC%:4850$PU,B3%PL,L") ",S3,(TN$,3),L"-",S4,(TN$,4): (1-4): ";:NI,0,ST%,N:ER:ESST%3:ESCVCV5:2152VST%N1N4įER,IR$:2210DF1:IP30:AGN:GO,2320(N2),CV3(N2N4):HG,18:CVCV7V3CV 330:OP,"Print !All or !Selective customers: ":S0:360:ESVV2:340:2110 SQ,A$,"%" MSR1$R1$(CS)= EF1:EFĺD$UL$CX$R1$:EF0:3040G 3500Q 5100 DS$"":MSįFS,R1$,NS,R1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":C11:C2NC:3100 FS,C1$,NC,K$,C1:C1(C1) FS,(C2$Z$,8),NC,K$,C2:C20C2(C2)1@VV1:340:2020*HST%2MP0:2150uRST%0MP0MP100įER,"INVALID PERCENTAGE, MUST BE 0 to 99.99":2110~f350V3CV330:OP,"Print !All or !Selective customers: ":S0:360:ESVV2:340:2110SQ,A$,"ALL",N:NAF1:2300%SQ,A$,"CURRENT",N:N2090BSQ,A$,"ALL",N:NAS1:CS1:2090lSQ,A$,"SPECIFIC",N:NįER,IR$:2030xCVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030 ST%N1NNSįER,"INVALID DATA SET NUMDate Pd Amount Telephone Comments":*"Customer Net A/R Credit Limit Credit Avail % Used Pd Date Pd Amount":WSĺ"======== =========== ======== ========== ============== ======================":?"======== ========:LN6:L(OW(CO$))2FPU,L"As of: ",YTD$:L15)CO$L8)"Page "PN^(OW(HU$))2)HU$DS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900:WSĺSP$:LNLN12 WSĺ"Customer Net A/R Pd 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:GO,1,1:V&L(KB):L128ıq(KS,0:L128(ES$)ı0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC$"aborted":500:590D:580N7000PAQ$"another ":CPį80R500:OS,28," Enter "P$"ing customer ID":": ";:XY,H:OX,8,FC$p tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$v v|  330:OP,"Select !Console or !Printer: ":S0:360:ESı SQ,A$,"CONSOLE",N:NCP0:EP23::490:480SQ,A$,"PRINTER",N 7000 5000:80a (OS0:AQ$"":HD$"Credit Limit Report":WSHD$"Customer Worksheet" 21:OP,AR$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$: d310 n330:YN,"Print "AQ$HD$,N:N0200 x2000:ES100 3000 Xb550,lNLĭLNNLEPLNLNNL:v900:LNLN1:CPĢ24:OP,"Press [SPACE BAR] to contunue -- press [ESC] to stop":WS,A$:A$ES$570NLİ700:600GC:CPė:FFĺ(FF):LLNOL:SP$::650PNPN1:NįER,IR$:420X490:15:OP,"Listing may be aborted by pressing the [ESC] key":wCPPS:OLLP:EPOL6:PW,PSHU$(HD$,1):UC,HU$:OW80:PN0:310:12:OP,"Report generation in progress"::LNLN1:900:CPİ650:PW,1:A 1::D$CL$ 250G MM,AR$" REPORTS":D$"RUNARMENU.PROG"RP$d WD,AR$" PROGRAMS":230x 6CV9:330:CS: JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 j? rCVCV1:33      SQ,A$,"SELECTIVE",N:NįER,IR$:2210MP$"start":370:ESVV3:340:2200XC1$A$|P$"end":370:ESCVCV2:2250C2$A$:AF0350:400:ESVV3:340:2200`   HU$(HD$,1):UC,HU$:MPHU$HU$", CUSTOMERS AT OR ABOVE "(MP)BER":2060EF16EFĺD$UL$CX$R1$(N):EF0:2080fER,"DATA SET # "(N)" NOT CREATED":2060o CSNx*3504V2CV:WS2200>WSİ330:OP,"Enter minimum % of credit used or [RETURN] only for all: ":NI,0,ST%,MP:ER:ESST%3:ES2120=== ============ ============ ======== ======== ==========":EiV0CV:350:V1CV:AS0:MS2100tMSıAS0:RS,14,R1$:FS,R1$,NS,R1$,CS330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:R,"INVALID SALES TAX RATE, must be 0 to 99.99":4030T#GO,X,CV:OF,2,N:CRN:5350d#D$CL$:100j##D$(4):BL$(7)(7):ES$(27)#CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"$CX$"CUSTINDEX.FILE":L132:CD$"CUSTDATA.FILE":L2160:AF$"ARDATA.FILLOSE"9RD,0,NV:RD,4,CF:RD,49,SA:RD,69,MM:RS,5,BV$ES$(12)KQXybER(222):EFĭER6ER8EF0:XO:lPX'General Ledger System,Accounts Payable System,Accounts Receivable System,Inventory Control SystemZ'Payroll,Labels PluCOUNTS PAYABLE PROGRAMS":RS,10,PV$:SC2:cDK$"ACCOUNTS RECEIVABLE PROGRAMS":RS,13,PV$:SC3:DK$"INVENTORY CONTROL PROGRAMS":RS,16,PV$:SC4:$DK$"PAYROLL PROGRAMS":RS,20,PV$:SC5: DATE- GO,26:"Enter today's date: ";:XY,X,Y:OXP$"STATUS":1010MPV$""įER,"SYSTEM MODULE NOT AVAILABLE":330`NVSCMM800GO,1,8:CS:GO,1,12:OP,"Please load the following diskette:"GO,1,15:FF,PV$,A$:OP,!" "A$": "DK$" "&GO,1,20:OP,"--- Press [SPACE BAR]CL$:EA,K$,A%8D$OP$CX$R1$",L32":D$OP$CD$R1$",L160"Y BR,CX$,0,#NC:K$(NC),A%(NC){NCįBR,CX$,1,A!K$:NC,A%A%:NC(OS1:XEFER(222):ER6ER8EF0:XO:b1::D$CL$:PX#PXKU,B1,YA$:46209)* PMįOD,0,PM:612):<TKB16384:KS16368jD$(4):ES$(27)UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE":AR$"ACCOUNTS RECEIVABLE"HU100:SP$" ":IR$"INVALID RESPONA%(C),A$N$:5,%AC%,$TN$,%CP%,A%R%:2,A@F%:8,A#D:8YARD(1)D(2)D(3)D(4):AR0WS4200LMD(5):AVLMAR:PMD(7):PDD(8):AV0AV0PU0:LMPUHUARLM:PU0PU0WS4150MPĭPUMP42004500:PU,B3,D0,LM,B1,D0,AV:LMįOF,5,HUPU:" 1) Load ";::" SYSTEM MANAGER ";::" Diskette"^ :" 2) Press any key when ready...";f A$y :(47081)16  COPYRIGHT 1984 MANZANITA SOFTWARE SYSTEMSDSE":Z$"ZZZZZZZZ"JRS,0,TD$:RS,1,CO$:RS,13,RP$:RS,14,R1$:RS,99,FC$RD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,6,N:WSN2:RD,51,NSN$(5),R%(2),F%(8),D(8)MSUF(NS1):MSĆR1$(NS):N56:I1NS:RS,N,R1$(I):NN2: OSĺD$4130 9)"4600:4160I64500:4600:" (";:AC%įOI,3,AC%:4154T8PU,B3:PU,L") ",S3,(TN$,3),L"-",S4,(TN$,4),B1,X22,"_"@:SP$hAS36000AC$"complete":500:570NL2:600:PU,S9WS,K$(C),D0,AR:PDįFJ,PD,A$:P C2NCC2NC? H2$"(Customer IDs: "C1$" thru "C2$")"N CPPNė`& PNNL0:600o0 720:4000| AS3600 WD,AR$" DATA"::0CSNS4400CSCS1:3020NC(C2C1)(C1NC)4300CC1C2:550:CO0/BR,CD$, D$(4):BL$(7)4 :(27)(17):D$"PR#0":: ds n3:2::" ACCOUNTS RECEIVABLE PROGRAMS DISKETTE ": x:BL$BL$ "The Business Accountant System cannot be started up from this diskette" : "To start up the system:"3 :ferent sales tax rate to specific customers or change the amountof sales tax calculated for any invoice.":::XY,H,CV"D$CL$:5300"330:"Enter the standard sales tax rate: ";:XY,X:OF,2,CR:GO,X:DI,0,ST%,N:ST%141004#ST%0N0N9999įEY,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 SS,0,A$:GO,1,Y:CL:GO,32:PL,L"Date set: ",YA$:D$(4):BL$(7)(7):ES$(27)UL$"UNLOCK":OP$"OPEN":CL$"C when ready or use [ESC] to abort ---"?WS,A$:(A$)27300E d*MM:SD,5,0:SD,69,OS:EF14EFĺD$"RUN"P$".PROG"PV$WD,DK$:50DK$"SYSTEM MANAGER":RS,6,PV$:SC0:DK$"GENERAL LEDGER PROGRAMS":RS,7,PV$:SC1:*DK$"AC a 7000 5000:80U (OS0:AQ$"":HD$"Accounts Receivable Invoice Register" 21:OP,AR$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$ d310 n330:YN,"Print "AQ$HD$,N:N0200 x2000:ES100 3000  1::D$CLinvoices, and credit balances.":H" Use the Customer Maintenance, Invoicing, and Cash Posting options to enter your "S$"information. You should also use the many reporting"4R"features of the "S$"System to verify that you have correctly ent": "DK$" ":VV2GO,1,V3:OP,"--- Press [SPACE BAR] when ready or use [ESC] to abort ---":WS,A$:(A$)27ġ:50:GO,1,8:CS:D$"OPEN"CD$S1$:BR,CD$,0,#IU,#SF,#CR,#SU:SD,46,CR:UGSUıF41300:OP,!" I M P O R T A N T2bDK$GL$"DATA":EF1:EFĺD$UL$GX$G1$:EF0:700JlGF$DK$:NVWF900aPF$""GF$""8001200:DK$GF$:DV$G1$:1220:DK$PF$:DV$R1$:12201250:WF1:520 MM:SD,6,SC:SD,7,0:SD,47,NP:DK$PR$*EF1:EFĺD$"RUN"P$RP$WD,DK$:31::SCSC(N):P$P$(N)".PROG":SC2800INPUG:WF0:PF$"":GF$""aDK$AR$"DATA":1:EF1:EFĺD$UL$CX$R1$:EF0:550PF$DK$:NVWF900&NV5800EF1:EFĺD$UL$AF$R2$:EF0:5802900DPF$""İ2000XNV2SC0NP700"INVREGISTER":1000LO$"Print Cash Receipts Register":P$"CASHREC":1000VR$""`R$""fGO,12,12OP:CL:OP,"Enter option number (1-"(OP)")"R$" or [RETURN] only: "NI,0,ST%,N:ER:ST%2ĴRM1280,300LI,A$:SQ,A$,"REPS - Transfer to "S$"Reports Menu"=R$", !Reports,":200yO$"Print "S$"Detail Report":SC1:P$"ARDETAIL":1000O$"Print "S$"Aging Report":SC1:P$"ARAGING":1000O$"Print Open Invoice Report":SC2:P$"ARDETAIL":1000'O$"Print CaList of Customers":P$"CUSTLIST":1000^ |O$" Customer Credit Inquiry":P$"CREDITINQ":1000 ~O$"Invoicing":P$"INVOICE":SC1:1000 O$"Cash Posting and Miscellaneous Entry":P$"ARMISC":SC1:1000 O$" Invoice Transaction History":P$"INVHORTS",SM:SMSMRM:SMNOP1QSMĭST%N1NOPįER,"INVALID SELECTION":210RMįBT,PW,N,I:IįER,"SECURITY VIOLATION":210SM500RMRM:SD,5,RM:50,@350JMM,"MAIN"::D$"RUNMODMENU.PROG"RP$^WD,RR$:300+sh Flow Report":SC2:P$"ARAGING":1000aO$"Print Credit Limit Report":SC1:P$"ARWORK":1000O$"Print Customer Worksheet":SC2:P$"ARWORK":1000O$"Print Delinquent Accounts Report":SC3:P$"ARAGING":1000O$"Print Invoice Register":P$ISTORY":1000F O$"Print Customer Statements":P$"STATEMENTS":1000l O$"Close "S$:P$"ARRESET":1000 O$"Create and Adjust "S$"Data Files":P$"ARCREATE":SC2:1000 O$"Convert "S$"Data to DIF":P$"ARDIF":1000#GO,19,10OP:"REPORT 7000 1:5000! 80. 2RD,5,RMQ 4MT$"SYSTEM":RMMT$"REPORTS" <:OP,"<<< The Business Accountant >>>":3:OP,AR$MT$" MENU":5:OP,CO$ d nOP0:SC0:RM150 xO$"Maintain Customers":P$"CUSTOMERS":1000& zO$" Print        ":::" Just a friendly reminder: You are still in the "S$"SETUP"!>"mode. While you are in this mode, "S$"transactions will NOT be posted to the General Ledger. You should use this mode ONLY to enter your initial customer information, open 01OPįGO,12,8:CS:"Available options are:"OPOP1:GO,20,9OP:PL,L"<",I3RM,OP,L" > - ",LO$:P$(OP)P$:SC(OP)SC:SC0:GO,1,8:CS:GO,1,10:OP,"Please load the following diskette(s):":V12:DK$""įFF,DV$,A$:GO,24,V:OP,!" "A$     4įLI,A$:SQ,A$,"NONE",N:NN0:ST%0+;DDED:3000A4r>EDĭT1įPU,LNA$(X),XS(NA$(X)),FC$:GO,H2@KI,S,A$:310:ER:ESA$ES$:ES2070B(A$"")ED3000HLNID$A$:UC,ID$:3000RT1NA$(X)A$:30004\N0:A$""įDT,A$,0:650 O330:"Enter line number to edit (1-"EL") or [RETURN] only: ";rNI,0,ST%,LN:ER:ST%2650ST%LN1LNELįER,"INVALID LINE NUMBER":1210320:ED1:2000:UP1:1200350:AFT2:LNEL3000EDDDT2T8:300$FD,0,XC,US%,AV:US%(AV)1:360-6503GO,12,23:OP,"Confirm by typing !D!E!L!E!T!E: ":KI,0,A$:UC,A$:A$DL$İ320:650US%((CA%(IW)))0:3705200:KP:100L V330:"Enter new customer ID: ";:XY,H:OX,8,FC$:GO,H:KI,EVī100650#A$""6801UPİ5350>KP:100ZSQ,A$,"EDIT",N:N1200xSQ,A$,"RENAME",N:N1100SQ,A$,DL$,N:NKD1000ER,"INVALID RESPONSE":650LL0:FL,0,8,CD:CR%(1)CR:CR%(2)0:AC%0:TN$"":AP%0E330:B"(N)" NOT CREATED":140P320:FS,ID$,NC,CK$,IW:EVIW0:EVIW(IW):700kX5300:3500:PCIW:UP0KDCD(2)CD(3)AP%SB,1,"Enter !Edit, !Rename,",KD," !Delete,",1," or [RETURN] only: ",P$:330:OP,P$KI,0,A$:ER:A$ES$670 N:NN1:$ID$"DATASET"N2:BID$"CASH"ID$SP$N3:LN0:i(N0KN)(N0KP)190IWPCN:ID$CK$(IW):EV1:320:600320:MS190330:OP,"Enter data set number (1-"(NS)") or !Next: ":NI,0,ST%,N:ER:ST%3140O,H1,V:HG,16::@35,23:GO,1,21:CS:35,24:GO,20,21:TJGO,1,22:CL:GO,12:zT330:T5įOP,PP$(LN)" (Y/N)":VQ$"":T4Q$" (1-9) or !None"XOP,"Enter "PP$(LN)Q$:^HPH(LN):VPV(LN):H1H4:H2H21:TPT(LN):SPS(LN):XPX(LN):ustomers =",I5,NC,L" (",D8,TTNCXC,6,5,L"% full)@ pDD0:3500O xPC0PC0` zPCNCPCNCu KNPCNC:KPPC1 SB,1,"Enter customer ID",KN,", !Next",KP,", !Prev",KNKP,",",1," or [RETURN] only to quit",P$:320:330:OP,P$) MSĢ23:OP,"(eST%N0NNS490VLI,A$:SQ,A$,"NEXT",N:NįER,"INVALID DATASET NUMBER":460kNCS1:NNSN15200:EF1:EFĺD$UL$CX$R1$(N):EF0:DV$R1$(N):330:OP,!" Please wait, switching data sets "::50D$OP$CX$R1$(CS)",L32":ER,"DATA SET # hNCNC1:NCXEXENCEjNNCIW:N0įMV,N,CK$(IW):MV,N,CA%(IW)jlCA%(IW)AV:CK$(IW)ID$:US%(AV)1nPCIW:UP1:XU1:rNNCIW:NCNC1tN0įMV,N,CK$(IW):MV,N,CA%(IW)vPCIW1:XU1:SQ,ID$,"NEXT",N:NN1: SQ,ID$,"PREV",nter !D!A!T!A!S!E!T to switch data sets)"L LN0:ED0:2000:ESID$""200a 390:(N)1400n N2450 Nİ320:500 ER,IC$:140 320::5200:D$CL$ 250 MM,AR$:D$"RUNARMENU.PROG"RP$ WD,AR$" PROGRAMS":2306G 7000 5000:80+ CS0:DV$R1$Q OP,"*** Maintain Customers ***"h GO,1,4:OX,80,"_" (N0:LN0LX:350:GO,H,V:LNLNELNN1:PU,I2,N,L"-" *GO,H1:OS,15,PN$(LN):":": 25100:PC0 d1 nGO,2217MS,3:PU,L"Number of C0LNİ330:T2İ3408310:GO,H1:HG,16:GO,H2lDD1:T2100,2200,2300,2400,2500,2400,2700,2100E$(PN$(LN),1):UC,E$ER,"INVALID "E$:DDED:3000:2020 ER:310:ESST%3:ESġ:AF0:2070ST%2T2ġ:3000%ST%1ĭT8,ID$:ER:ID$ES$ID$SP$650mXUC,ID$:390:NįER,IC$", can't use NEXT, PREV, CASH, or DATASET":1110`FS,ID$,NC,CK$,N:N0įER,"CUSTOMER ID ALREADY EXISTS":1110jAVCA%(IW):370tFS,ID$,NC,CK$,IW:IW(IW):360:5200:LN0:350:DD1:300L$;:YN,"Customer not on file, want to add this customer",N:N0730QLL100Z140NCXCįER,"NO ROOM, CUSTOMER FILE IS FULL":140330:LN1EDLNLL:2000:ES750LNLN1:LN740720LNLN1:LNLLLLLNLNLX740          $ 2509 MM,AR$" REPORTS":D$"RUNARMENU.PROG"RP$V WD,AR$" PROGRAMS":230j 6CV9:330:CS: JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 j1 rCVCV1:330:OS,28," Enales Taxable,Is customer normally charged sales tax'8'1,12,3,5,4,Print Statements,OK to print statements,1,13,3,5,5,Balance Forward,Use balance forward statementsf(B'1,14,1,6,8,Sales Account,default sales account (1-8),45,9,12,7,5,Credit Limit,custome"1st line of address",1,4,22,1,3,"Address, line 2","2nd line of address (optional)"'&'1,5,20,1,4,City and State,"City, State abbreviation",1,6,10,1,5,ZIP Code,"",45,2,0,2,0,"Telephone No.","",45,3,5,3,1,Sales Tax Rate,sales tax percentage,45,4,5,3,2,DisUA,NC,US%,CA%y#CS1:MSįFS,DV$,NS,R1$,CS:GO,49,3:"Using Data Set number "CS" of "NS:SS,14,R1$(CS):SS,15,R2$(CS)#(XU0:#P#ZXU5230#dBW,CX$,0,#NC,#XC,#XE#fNCįBW,CX$,1,A!CK$:NC,A%CA%:NC#nKP:XU0:##RW$"BR">$@R2,TC$(I):U"MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(I):NN2:["a""D$OP$CX$DV$",L32":D$OP$CD$DV$",L160""BR,CX$,0,#NC,#XC,#XE" CSįEA,CK$,CA%,US%" CK$(XC),CA%(XC),US%(XC)#NCįBR,CX$,1,A!CK$:NC,A%CA%:NC:SE":OP$"OPEN":UL$"UNLOCK"H CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE" AR$"ACCOUNTS RECEIVABLE":SP$" ":DL$"DELETE":IC$"INVALID CUSTOMER ID":H21:LX22:ELLX2:HU100:TT10000 RS,1,CO$:RS,13,RP$:RS,14,R1$:RS,99,FC$!RD,0,UF:RD,46,CR:3150,3160,3170,3180&& OS,S,NA$(X):S0 GO,H21:PU,B3:GO,H21:AC%įOI,3,AC%2 AF1įGO,H26:PU,S3,TN$,L"-",S4,(TN$,4)4 : PU,D8,CR%(X),7,5,L"%":D NCF%(X):NĺN" ":LN10įGO,H16:TC$(N);:CLF Nĺ"None";:CL:LN10įGO,H16BE 0 to 99.99":2052' CR%(X)N:3000Z` NI,S,ST%,N:2060:ST%N(T6)N9(T6)2050mj CF%(X)N:3000 YN,CF%(X),"",N:310:ESN0:ESCF%(X)N 3000 DI,S,ST%,N:2060:ST%0N0E$"AMOUNT":2052 CD(X)N:3000  GO,H2,VRD,51,NS:MSUF(NS1)N!PH(LX),PV(LX),PS(LX),PT(LX),PX(LX),PN$(LX),PP$(LX)!I0LX:PH(I),V,PS(I),PT(I),PX(I),PN$(I),P$:PV(I)V6:P$""P$PN$(I)!PP$(I)P$:!NA$(5),CR%(2),CF%(8),CD(8),TC$(9):CF%(3)1:CF%(4)1:CF%(8)1 "I19:RS,98I,V1:CLH #N CF%(X)ĺ"Yes":0P "No ":>X CF%(X):Ub X1įOD,0,CD(X):sd OD,0,CD(1)CD(3)CD(4):l CD(X)įFJ,CD(X),A$:OY,A$:n OX,S,SP$: ALL LN0LX:350:3000::D$(4):BL$(7)(7):ES$(27) CL$"CLO:DD3100 T23050. T8ĺ"MM/DD/YY":? LNELįCL:p PU,XS,FC$,B1:T4įCL:LN10įGO,H1,V1:CLv  AF1AC%3100 AF2įPU,L"(",X3,FC$,L") " GO,H26:PU,X3,FC$,L"-",X4,FC$: LNįOS,S,ID$: T3110,3120,3130,3140,mber":340:GO,H26,V:KI,8,A$:ER:310:A$ES$AF1:2030PL(A$):L2290yL6ĭL7(L8((A$,4,1)"-"))2280E$(PP$(LN),1):UC,E$:2052TN$(A$,3)(A$,4)AF0:3000DI,S,ST%,N:2060:ST%0N0N9999E$"PERCENTAGE, MUST r credit limit,45,10,12,7,6,Y-T-D Sales,"",45,11,12,7,7,Last Paid Amt.,amount of last customer payment(L'45,12,8,8,8,Last Paid Date,date of last customer payment,45,13,12,7,1,Current Balance,"",45,14,12,7,2,Open Credits,"",count Rate,customer discount percentage&$'45,5,1,4,6,Note Number,default customer note,45,6,1,4,7,Terms Code,default terms code3'.'1,9,3,5,1,Finance Charges,OK to apply finance charges,1,10,3,5,2,Dunning Notes,OK to print dunning messages,1,11,3,5,3,SW$,CD$,CA%(IW),A$NA$:5,%AC%,$TN$,%AP%,A%CR%:2,A@CF%:8,A#CD:8:X$NA$(3)SP$NA$(3)""k$RW$"BW":5320$XER(222):EFĭER6ER8EF0:XO:$b1::D$CL$:PXS%'1,0,8,1,0,Customer ID," ",1,2,22,1,1,Customer Name,"",1,3,22,1,2,"Address, line 1",N:NE$"DATE, USE MMDDYY OR MM/DD/YY FORMAT":2052FfCD(X)N:3000UAF12250PP$(LN)"Area code":340:GO,H21,V:NI,3,ST%,N:ER:2060ST%22240ST%N0E$"AREA CODE":2052AC%NAF2:3000:2020;PP$(LN)"Telephone nu500:PL,L"Dunning: ",LCY$(2),L" Note: ",S7,N$,L"Cr Limit :",D8,CD(5),2,104500:PL,L"Bal/Fwd: ",LCY$(5),L" Acct:",I2,CF%(8),B6,L"YTD Sales:",D8,CD(6),2,104500:PL,L"Stments: ",LCY$(4),B15,L"Last Paid:",D8,CD(7),2,10P$"":CD(8)įFJ,CD(8),ASAS1:30004NC(C2C1)(C1NC)4200ACC1C2BR,CD$,CA%(C),A$CN$:5,%AC%,$TN$,%AP%,%TR%,%DR%,A@CF%:8,A#CD:8A2CN$(3)"":(CN$(4)CN$(5))22CN$(4)CN$(4)SP$CN$(5):CN$(5)""I15:CY$(I)YN$(CF%(I)0):NL7:600$"end":370:ESCVCV2:2150.rC2$A$:AF0P350:400:ESVV2:340:2100V\ p ASDV$R1$(AS) EF1:EFĺD$UL$CX$DV$:EF0:3040 3500 5100 DS$"":MSįFS,DV$,NS,R1$,N:N0DS$"(Data Set # "(N)")"  AFH2$"":C11:ER,IR$:2030CVCV1t 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":2060EF1:EFĺD$UL$CX$R1$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":20R1$:MS2100MSı;RS,14,R1$:FS,R1$,NS,R1$,CSAS0:330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:SQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:2090 SQ,A$,"SPECIFIC",N:NįCPĢ24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$570iNLİ700:600zGC:CPė:FFĺ(FF):LLNOL:SP$::650PNPN1:LN7:L(OW(CO$))2PU,L"As of: ",YTD$:L15)CO$L8)"Page ","Listing may be aborted by pressing the [ESC] key":UCPPS:OLLP:EPOL6:PW,PS{HU$(HD$,1):UC,HU$:OW80:PN0:310:12:OP,"Report generation in progress"::900:CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE50% MM,AR$:D$"RUNARMENU.PROG"RP$B WD,AR$" PROGRAMS":230V 6CV9:330:CS:p JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 j rCVCV1:330:OS,28," Enter "P$"ing customPN(OW(HU$))2)HU$DDS$""ĺ(OW(DS$))2);DS$:LNLN1nH2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900 C$" Name/Address/Telephone"18)C$" Information":PL,X8,Q$,B1,X22,Q$,B1,X47,Q$:V0CV:350:V1CV:AS0:DV$ BAR]":WS,A$:GO,1,1:J&CPLNLN2:SP$:"***** LISTING ABORTED....."a0AC$"aborted":500k:590vD:580N7000PAQ$"another ":CPį80R50XL(KB):L128620bKS,0:L128(ES$)550lNLĭLNNLEPLNLNNL:Wv900:er ID":": ";:XY,H:OX,8,FC$N tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$T vZ  330:OP,"Select !Console or !Printer: ":S0:360:ESı SQ,A$,"CONSOLE",N:NCP0:EP23::490:480 SQ,A$,"PRINTER",N:NįER,IR$:4206490:15:OP= 7000 5000:80< (OS0:AQ$"":HD$C$" Listing"V 21:OP,AR$" SYSTEM" 43:OP,"*** Print List of "C$"s ***" 65:OP,CO$ d310 x330:YN,"Print "AQ$HD$,N:N0200 2000:ES100 3000 1::D$CL$ 2rPL,S9,CK$(C),S23,CN$(1),L"Sls/Tax: ",LCY$(3),L" Tax :",D8,TR%,7,5,L"% Balance :",D8,CD(1)CD(3)CD(4),2,10PL,B9,S23,CN$(2),L"Fin/Chg: ",LCY$(1),L" Disc:",D8,DR%,7,5,L"% Op Credit:",D8,CD(2),2,10N$"None":CF%(6)N$(CF%(6))JL1:4C2NC:3100* FS,C1$,NC,CK$,C1:C1(C1)Y FS,(C2$Z$,8),NC,CK$,C2:C20C2(C2)1j C2NCC2NC H2$"("C$" IDs: "C1$" thru "C2$")" CPPNė& PNNL0:6000 720:4000 AS3600 WD,AR$" DATA"::0ASNS430060 CSN:DV$R1$(CS) *350*4V2CV{>330:OP,"Print !All or !Selective customers: ":S0:360:ESVV1:340:2020HSQ,A$,"ALL",N:NAF1:2200JSQ,A$,"SELECTIVE",N:NįER,IR$:2110fP$"start":370:ESVV2:340:2100hC1$A$pP       (N)")") AFH2$"":C10:C2NC:3100G FS,C1$,NC,K$,C1:C1(C1)u FS,(C2$Z$,8),NC,K$,C2:C20C2(C2)1 C2NCC2NC H2$"(Customer IDs: "C1$" thru "C2$")" CPPNĢ1& PNNL0:6000 720:4000 AS3610  WD,AP$ CREATED":2060 CSN!*350+4V2CV~>330:OP,"Include !All or !Selective customers: ":S0:360:ESVV1:340:2020HSQ,A$,"ALL",N:NAF1:2200JSQ,A$,"SELECTIVE",N:NįER,IR$:2110fP$"start":370:ESVV2:340:2100hC1$A$!CV:AS0:MS2100MSıDAS0:RS,14,R1$:FS,R1$,NS,R1$,CS330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:SQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:CS1:2090SQ,A$,"SPECIFICf: ",YTD$:L15)CO$L8)"Page "PN:(OW(HU$))2)HU$dDS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900 "Inv # Customer Inv Date PO Number Due Date Inv Amount Disc Avail Balance":Q"=EPLNLNNL:wb900:LNLN1:CPĢ24:OP,"Press [SPACE BAR] to contunue -- press [ESC] to stop":WS,U$:U$ES$570lNLİ700:600GC:CPė:FFĺ(FF):LLNOL:SP$::650PNPN1:LN6:L(OW(CO$))2"PU,L"As o420J490:15:OP,"Listing may be aborted by pressing the [ESC] key":iCPPS:OLLP:EPOL6:PW,PSHU$(HD$,1):UC,HU$:OW80:PN0:310:12:OP,"Report generation in progress"::LNLN1:900:CPİ650:PW,1:-24:OP,"Listing "C OS1:4XEFER(222):ER6ER8EF0:XO:<bPXKD$"CUSTDATA.FILE":AR$"ACCOUNTS RECEIVABLE":C$"Customer"rQ$"=":SP$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ"}SB128RS,0,TD$:RS,1,CO$:RS,13,RP$:RS,14,R1$:RS,99,FC$RD,1,PS:RD,2,FF:RD,3,LP:RD,51,NS CN$(5),CF%(8),CD(8),YN$(1),AC$" -- press [SPACE BAR]":WS,A$:GO,1,1:B&L(KB):L128ı](KS,0:L128(ES$)ı0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC$"aborted":500:590D:580N7000PAQ$"another ":CPį80R50X550:NLĭLNNLter "P$"ing customer ID":": ";:XY,H:OX,8,FC$b tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$h vn  330:OP,"Select !Console or !Printer: ":S0:360:ESı SQ,A$,"CONSOLE",N:NCP0:EP23::490:480SQ,A$,"PRINTER",N:NįER,IR$:CY$(5):YN$(0)"No ":YN$(1)"Yes";RD,0,UF:MSUF(NS1)hMSĆR1$(NS):I1NS:RS,542I,R1$(I):ntOSĺD$CL$:EA,CK$,CA%D$OP$CX$DV$",L32":D$OP$CD$DV$",L160" BR,CX$,0,#NC:CK$(NC),CA%(NC)NCįBR,CX$,1,A!CK$:NC,A%CA%:N"įPU,B21,S10,CN$(5),B1:#LL1NPU,B11,L"Tel: (":AC%įOI,3,AC%:4544YPU,B3PU,L") ",S3,(TN$,3),L"-",S4,(TN$,4),B2:KB16384:KS16368D$(4):ES$(27)UL$"UNLOCK":CL$"CLOSE":OP$"OPEN":CX$"CUSTINDEX.FILE":CpP$"end":370:ESCVCV2:21501rC2$A$:AF0S350:400:ESVV2:340:2100Y_ n FL,0,3,RT MSR1$R1$(CS):R2$R2$(CS) EF1:EFĺD$UL$CX$R1$:EF0:3040 3500 5100  DS$"":MSįFS,R1$,NS,R1$,N:N0DS$"(Data Set # "",N:NįER,IR$:2030!CVCV1} 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":2060EF1EFĺD$UL$CX$R1$(N):EF0:2080ER,"DATA SET # "(N)" NOT==== ======== ======== ========== ======== =========== =========== ===========":Wh550:CP%ıPCP%:BR,AF$,P,@TY%,%CP%,$PO$,#I,A#I:5,@DD%,@SD%,@PP%,@PM%TY%1ĭPM%ĭNIRXNINI1:V(NI)IIMC:L%(NI)P1020V0CV:350:V1P$5T$"No Terms":NCF%(7):N0N10įRS,982N,T$]4500:PL,S27,T$,L"Date Paid: ",YP$hSP$:uhAS3600AC$"complete":500:570LL1:LA214510,4520,4530,4540:32):PU,B9,S23,CN$(3):PU,B9,S23,CN$(4):CN$(5)"|ES0:1::MSıAEF1:EFĺD$UL$CX$R1$(N):EF0:sES1:GSE$"DATA SET #"(N)" NOT CREATED"yXEFER(222):ER6ER8EF0:XO:b1::D$CL$:PX(#2#SSDS:P$"global search in progress ":382<#GS1:SSSS1:SS99,FC$RD,0,UF:RD,51,NSVCN$(5),CD(8),CF%(8),YN$(1):YN$(0)"No":YN$(1)"Yes"MSUF(NS1):MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(I):NN2:OSĺD$CL$:EA,CK$,CA%MSR1$R1$(DS):R2$R2$(DS) D$OP$Telephone : ( )",B26,L"Terms:":CL::sPU,L"Unpaid Invoices:",B14,L"Credit Limit:",B13,L"Y-T-D Sales :",B11PU,L" + Finance Chrg:",B14,L"Credit Avail:",B13,L"Last Pd Amt :",B11PU,L" - Open Credits:",B14,L"% Credt Used:",B13,L"Last Pd Dat,44:OD,8,CD(5),2,10:GO,70:OD,8,CD(6),2,10pGO,17,16:OD,0,FC:GO,44:OD,8,CA,2,10:GO,70:OD,8,CD(7),2,10GO,17,17:OD,0,CD(2):GO,44:PU,D8,P,4,8,L"%":CD(8)įFJ,CD(8),A$:GO,71:OY,A$GO,17,19:OD,0,AR%22:OP,"--- Press [SPACE BAR]0);:GO,74:YN$(CF%(5)0)<GO,56,10:PL,D8,DR%,7,5,L"%"kA$"None":NCF%(7):N0N10įRS,982N,A$}GO,54,13:A$FCCD(3)CD(4):ARCD(1)CD(2)FC:CACD(5)AR:CA0CA0P0:CD(5)P10000ARCD(5):P0P0,GO,17,15:OD,0,CD(1):GO0KN)(N0KP)1900NPCN:ID$CK$(N):1000=MS190S320:360:ES100lNKNDS1:NNSN15500:ESİ380:DSN:50ES0:ER,E$:DSSS:110PCN:320BR,CD$,CA%(N),A$CN$:5,%AC%,$TN$,%AP%,%TR%,%DR%,A@CF%:8,A#CD:8L2E$"INVALID CUSTOMER ID".ER,E$:1104F320::D$CL$P250sMM,AR$:D$"RUNARMENU.PROG"RP$WD,AR$" PROGRAMS":230@CV22:35,23:GO,1,CV:CS:35,24:GO,12,CV:JGO,1,CV:CL:GO,12:h330:" Enter data set number (SB,1,"Enter customer ID",KN,", !Next",KP,", !Prev",KNKP,",",1," or [RETURN] only to quit",P$:320:330:OP,P$ MSĢ23:OP,"(enter !D!A!T!A!S!E!T to switch data sets)" GO,14,6:OX,8,FC$:GO,14:KI,8,ID$:ER:UC,ID$:ID$SP$ID$ES$200 GO,14,6:OS,8,ID$RVCN$(4)CN$(4)SP$CN$(5):CN$(3)""CN$(3)CN$(4):CN$(4)""r`I14:GO,14,7I:CN$(I):jAC%įGO,15,13:OI,3,AC%tGO,20,13:(TN$,3)"-"(TN$,4)~GO,56,8:YN$(CF%(1)0);:GO,74:YN$(CF%(2)0)GO,56:YN$(CF%(4)1-"NS")";:OP," or !Next "Fj": ";:NI,0,ST%,N:ER:ESST%3:ESıalST%N0NNSNK0:nLI,A$:SQ,A$,"NEXT",N:NįER,"INVALID DATA SET NUMBER":360pNK1:|P$"switching data sets "~320:22:OP,!" Please wait, "P$::(NSQ,ID$,"NEXT",N:NN1:400? SQ,ID$,"PREV",N:NN1:400V ID$"DATASET"450u FS,ID$,NC,CK$,N:N01000 E$"CUSTOMER '"ID$"' NOT ON FILE":MS192 320:BL$;:YN,0,E$", OK to do global search",N:N0100 9000:N15019 7000 5000:80H 1:OP,"*** Customer Credit Inquiry ***"p GO,1,4:OX,80,"_":4000:OX,80,"_" (MSįFS,R1$,NS,R1$,DS 2NDS:5500:ESįWD,AR$" DATA"::0 <5100:PC0 d nPC0PC0 pPCNCPCNC xKNPCNC:KPPC1s CX$R1$",L32":D$OP$CD$R1$",L160"C BR,CX$,0,#NC:CK$(NC),CA%(NC)gNCįBR,CX$,1,A!CK$:NC,A%CA%:NCzD$CL$CX$:OS1(GO,2419MS,3:PU,L"Number of Customers on file =",I5,NC2MSįSS,14,R1$:SS,15,R2$:GO,54,3:"Using Data Set "DS" of "NS>>":3:OP,AR$MT$" MENU":5:OP,CO$ d nOP0:SC0:RM150 xO$"Maintain Customers":P$"CUSTOMERS":1000& zO$" Print UF(NS1):MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(I):NN2:V\wOSĺD$CL$:EA,A%,L%,VD$OP$CX$R1$",L8":D$OP$CD$R1$",L160" BR,CX$,0,#NC:K$(NC),A%(NC)NCįBR,CX$,4,A!K$:NC,A%A%:NCD$OP$AF$R2$",L50":BR,0:570CNL3:600:43):K13:PU,B1,X11,"=":::PU,B24,S19,P$mK13:PU,B1,D8,T(K),1,11:::SP$:sKB16384:KS16368D$(4):ES$(27)UL$"UNLOCK":CL$"CLOSE":OP$"OPEN""CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE":AF$"ARDA$A$,%CP%1000:CA%(C)NI-:CPįCS;NI4300QNI1įSR,V,L%,NIE1NI:CV(E):CCIM(CIM.5):CI$"CASH":4110BR,CX$,3C,$I$BR,AF$,L%(E),@TY%,%CP%,$PO$,A#I:6,@DD%FJ,I(2),ID$:FJ,I(2)DD%,DD$:AI(3):DI(4):BAIAF$,0,#AV,#LR,#RR,#MR,#CC$(OS1:LXEFER(222):ER6ER8EF0:XO:`b1::D$CL$:PX1PX$TA.FILE":AR$"ACCOUNTS RECEIVABLE"gIM10000:SP$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ":Z0$"0000"RS,0,TD$:RS,1,CO$:RS,13,RP$:RS,14,R1$:RS,15,R2$:RS,99,FC$RD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,51,NSN$(5),I(6),T(3),RT(3)PMS(5)I(6)c"NL1:600:PL,S6,(Z0$(I(1)),5),S9,I$,YID$,B1,S10,PO$,B1,YDD$,B1,D0,A,D0,D,D8,B,1,11,T(1)T(1)A:T(2)T(2)D:T(3)T(3)B:hI13:RT(I)RT(I)T(I):AS36000I13:T(I)RT(I)::P$"REPORT TOTAL:":4500bAC$"complete":50" DATA"::0+P$"DATA SET TOTAL:":4500<CSNS4400N$CSCS1:3020TEA,K$:RXRR:N(((0)2000)7):RXNRXNV(RX),L%(RX):NI0:FL,0,3,T:NC(C2C1)(C1NC)4060CC1C2:550:CCP%CC:4040BR,CD$,A%(C),A$N$:5,%AC%,   E":L350`$AR$"ACCOUNTS RECEIVABLE":R$"Accounts Receivable":AD$AR$" DATA DISKETTE":SP$" "y$IN$"Initializing: "$SZ256:CZ120:CX1000:RX3500:TT10000$RS,0,TD$:RS,1,CO$:RS,13,RP$:RS,14,R1$:RS,15,R2$:RS,28,VV$ %RD,0,UF:RD,48,UG:ed,Sales Tax Applied,Freight Charges,Invoice TotaltNSSS1>#SSDSN0:0F#NSS:5500:ES9020ZP#D$OP$CX$R1$(N)",L8":BR,CX$,0,#J:I1mZ#IJN0:9100d#N((IJ)2):BR,CX$,3N,$A$:A$ID$9100n#ID$A$JN1:9050x#IN1:9050#D$CL$CX$:N9020#380:DSSS:5100:"A$I$(L):A$""L1ES13:T5S%M2NTC:S%0Q<ER:306:350:S%M2ESġsDT4ĭS%0ĭS%N1N9S%1yNlP1::OP,!SP$V$SP$::OX,80,"_"Cv4:" Customer ID :";:GO,49:PL,L"Invoice #:",B8,L"Date:"::"1- Customer Name:";:GO,90:IE$ER$:/I$(L)A$:ET7I$(L5)A$5M1800:A$""A$CY$bDT,A$,N:N1250z E$"INVALID DATE":xNI$(L)Y$(1):1800A$Y$(N):1250N2:CIİ1800:S%E$I$"TERMS CODE":TCN:RS,982N,I$(L): @1800:S%įLI,A5500:1100=`Q$"CUSTOMER '"A$"' NOT ON FILE":MS1142j350:BL$;:N0:YN,N,Q$", Want to do global search",N:N01100t9000:N1102vE$Q$:~1190CIN:5300:I15:I$(I1)C$(I):I$(I6)C$(I):;SAF%(8):L15:NF%(3)1:1r special note:":GO,14:PU,LS$,X60(S$),U$:GO,14:KI,60,A$:ESA$ES$:ESı`>A$""S$A$lHN$S$:rSEE:300:Q1040ES0:E$"":P$P$(L):Q$"":T1100,1200,1300,1400,1500,1600,1200,1200E$""įER,E$:310:1000ES310 X3000#bP$"post":700:60001vPFİ3500JIUIU1:IUXIIU1YMSİ5620a50350:22:OP,!" Please wait, "P$"ing invoice ": ES0:I$(19)Y$(4)PFN$"":*N(I$(19)):NįRS,1164N,N$:N4N$S$:350:GO,12,21:"EnteI,0,S%,N:ER:ESS%M2:ESı:S%N1NLįER,ER$:420mN8P1CIįER,"CASH TERMS ARE PREPAID":420sy;TFI$(15)Y$(1):P2:ET0::"Ln Order Shipd Description Price Disc. Ext Price Tax # == ====== ====== ====T5ĺTC:GO,56:I$(L);:CL:/DOS,S,I$(L):=J300:320_TQ(T7CIE)(T8LL11):^35,23:GO,1,21:CS::GO,12,21(P2):h350:OP,"Enter "P$:rLI,A$:(A$,1)"%"N(A$):N0NHUN(NZHUC1):S%0t|(S5$(X),6);L1100 LL2120# E1705 4800:N100B N0500X L10:420:ES160 L1N9:L2L1:N3L15N3:L2L14 E1:110 1::MSCSĺD$CL$:D$OP$CD$R1$(1):5620 D$CL$:G1$PV$A$PP$:ES0:8700:8100 250 MM,AR$:D$"======================== ========= ======= ========= === ="WLET1:E0:2000:N530c ET550 1900:E1:1950:4950:E0:150CX(CX):ETEX520&4800:N500(N06000LET(ETEX):420:ES550:LN:LET520DE1:2000:560:~X(X)įOD,8,X,3,9:BOD,8,X,4,8:(10(X(X))C1);:[394:394:I10İ394eI0:SQ,A$,Y$(I),N:NA$Y$(I)::II1:ILXZ(I,1):D(XZ(I,4)):X(XZ(I,3)C1)D:350:"Enter line number to edit (1-"L"): ";:NRUNARMENU.PROG"PV$# WD,PP$:230C ,VV(L):HH(L):SS(L):TT(L)Q .GO,H,V:f 0GO,HG(L)1,V:~ 2304:G(L)įHG,G(L) 4 6302:EI$(L)""LLL320 8302:T3ĺ"MM/DD/YY": :OX,S,U$:T5įGO,56,V1:CL < @T3įOY,I$(L):B39 7000 5000:8500+ 21900:IY0 dFL,"",HX,I$:I$(14)Y$(2):I$(15)Y$(1):I$(19)Y$(4):TC0:SA1:E0:LL0:1950:L11:L2HX:IYİ4900 nLL1:ES0 xTT(L):340:1000:ES140 LL1(L18CI):L50 LL1E150 L11EL1 $:I4:1220#JA$Y$(4):NA$(N)-T1250J360:Q$""Ģ23:OP,Q$c 304:G(L)įHG,G(L)302:T5T6įNI,S,S%,N:ESS%3:1850T4įYN,N,"",N:ESNM3:1850&T3įPU,LI$(L),XS(I$(L)),U$(302:KI,S,A$:S%0:ESA$ES$:A$"410:330:L19:NF%(6):1610:330:L17:NF%(7):Nİ1510:330HL1:330\I$(L)C$:LL0:NPĭJR%18JX%E$"G/L JOURNAL":1196AVLRMRıE$"A/R TRANSACTION"E$"NO ROOM, "E$" FILE IS FULL"::1800:L141250I23E1:310:ESE:LL1:LLLLLL%$tLSB,MS,"(enter !D!A!T!A!S!E!T to switch data sets)",Q$:1800:UC,A$:C$A$NFS,A$,NC,K$,N:N01150PA$"CASH"İ1190:CI0:RP%CC:TR%CR:DR%0:1170RA$"DATASET"1120VMSE$I$"CUSTOMER ID": X                  ,4):Q0ĺ9):3640)0382-)8410:OD,0,X5)B:d)tN2:I05:NN(M(I)0)::4200:SP$:SP$)~I05:XM(I):XįPL,B38,S30,M$(I),D0,X):N$""N2:4200:SP$:13)N$)4100:PW,0:AFıG*350:22:OP,"--- Printing complete, press [SPAZC1):7'H T5:3300:M(T)Z:GO,48,15:OX,10,"=":V16_'R GO,24,V:PL,S23,M$(T),D0,(M(T)):'\ TFT3:3300:GO,24,18:PL,S23,"Taxable Sub-Total",D0,Z'^ ' ' I5105:I$(I)I$(I)SP$I$(I1):I$(I1)SP$I$(I1)I$(I):I$(I)""' :AF0PERCENTAGE":3110%D L2NNF%N M(5)SN1E8įER,TL$:M(L)S:3110g%X M(L)N:TL:3410:3400:3420%b LL12ES:L3TF3170%l LL53110%n 3050% SB,PF," and print",P$:350:YN,"OK to post"P$" this invoice",N:N03050& 800:ES3le : "I$(15);:GO,30:"Terms: "I$(17)e# 5:" F.O.B : "I$(14);:GO,30:"Ship : "I$(18):OX,80,"_"# FL,0,5,M:M(0)EP:GDR%:T2:3350:M(T)M(T):TFT3:GTR%:3350# T04:V10T:3410::3400:3420# 350:4800:N03200# N031000$ 350 E$"":T4E$", VALID RANGE IS: "(MGHU)" to "(ZGHU):2970x" NZE$", DISCOUNT CANNOT EXCEED UNIT PRICE"" ER,I$"ENTRY"E$:2800:2900" " P3::" Customer: "I$(1);:GO,30:"Name : "I$(2);:GO,64:"Invoice #: "IU$%# 3:" TaxabMV(I):ZT(I):QZ(L,0):P$P$(I):M0M1HU? Z0ZZ(L,T1)E g XZ(L,T):302:XTįPU,BS: TĭX0įOS,13,Y$(5X): T12820,380,,382,2830,2840,2850  380:SP$:  OD,8,X,5,7:  Y$(X): " X:!T ESE:2800:360:302:Tа2800::2050%t GO,65,V:QM2382/~ CL:H 350:ESE:LETETL\ 2600:CI2530 EPD(1)D(2)D(5)CX0:2530 CXįER,"CUSTOMER CREDIT LIMIT EXCEEDED":CX1 RC1:E2550 350:YN,"Accept this entry",N:ESN0:ES2060 N00,2300,2350,2350,2400/ TT12ES:T02080=T62500[Q0ĭT1(QM2T2)2060e2050| ET0:2410:2500*GO,1,V:CL:ETL1:N0:42900:Xġ:2080>QX:NX:X0NX1:NZ(L,3)0:Z(L,4)0HN0Z(L,1)XZ(L,1)Z(L,1)N5įYN,Z(L,T),"",N:S%N:2920Q!^ D3,S,S%,N:NNG:S%2S%1:T3NN10:S%0p!h ER:ESS%M3:ESİ2800::!j S%M2NZ(L,T):S%0:Tı!r T4İ370!| S%0NMNZ2960! Z(L,T)N:E1:2800! TįLI,A$:A$(A$,1):I6:390:IN5I:2950F"ETET1:2600:2000 N1:H( KET:RCEP0:TX0:DX0:FL,0,14,U:K1V2 ET2640< IKET:410:DXDXD:EPEPX:JZ(I,6):U(J)U(J)XD:Z(I,5)TXTXXF P GO,65,LX:OX,9,"="::GO,55:PU,L"Total = ",D0,EP:+ ITHX1:HH(I):SS(I):GG(I): R2410a302:PU,LZ$(L),XS(Z$(L)),U$:360:302:KI,S,A$:ESA$ES$:ESĭA$""Z$(L)A$302:OS,S,Z$(L):QM2įCL2900:XZ(L,4)Z(L,4)0 2410. (T4Z1)(T5TF)N0:2950:2410` 2900 j 400:EPXOX1E8įER,TL$:O,48:"10- Note :":OX,80,"_":BL1HX:300:310::5700HV2L:H1:SEE:T0:OX0:ES0:RCEET2:Eİ400:OXX302:OI,2,L:EįCL:I04:Z(L,I)0::Z(L,5)TF:Z(L,6)SA:Z$(L)"":L1EP0:CX0:GO,1,LX:CS2700:T12100,2400,22( P$"print":700.( 1::PW,PS:P$"":4000{( AFāI15:4300:" ***** ***** *****"13)"***** Alignment Test"::3800(I1ET:4300:QZ(I,0):Q0ĺ31):3620(XQ:380:XZ(I,1):380:XQX:380:13)($OS,28,Z$(I):QM23650).XZ(I,3)Z(I200,& I14:U(I9)M(I)::U(11)U(11)DX_& AM0:N%0:I113:X(U(I)):XAMAMX:N%N%1& U(I)X::U(95(TC2))AM:N%N%(AM0):& T3Z0:I0T1:ZZM(I)::& ZM(0)M(1):ZZ((1M(2)Z)(TXTFM(1))C1)& ' 3300:M(T)(GTT:YN,"OK to reject entire invoice",N:N03050:$ :50B$ L1r$& V10L:TL:3300:SM(L):3410:P$M$(L):360$( GO,24,V:HG,21:GO,48:DI,9,S%,N:GO,24,V:HG,21:ER:ESS%M3:ES3170$0 S%M23170%: 370:S%0N0(L2NZ)įER,I$"AMOUNT OR 49:"3- Order Date:":" Address :";:GO,49:"4- Cust PO # :"}GO,49:"5- F.O.B. :":GO,49:"6- Taxable :"::"2- Ship To Name :";:GO,49:"7- Sales Rep.:":" Address :";:GO,49:"8- Terms Code:"$18:"9- Ship Inst. :";:GX(I),$A$,A#Y:16979BW,JF$,0,%JV%,%JE%,%JR%,%JX%S98AVLRLR1:LLR:6220k9BLAV:BR,AF$,AV,#AV9LA$I$(17):A%0:D0:D%((A$,7)):(A$)12D(A$):A%((A$,7))9VS%1:Z0:Z%0:N%TC2:XAM:MU(14):D(XDHUC1)*:`BW,AF$,L,@S%,%RP%,$F1:1::EFĺD$UL$CX$R1$(DS):EF0:N0:27N1:>7A$"BR"S7@A$,CD$,0,#IU:e7A$"BW":56107DGO,1,1:PU,L"(File status: ",I4,HURRMRC1,L"% full)7NMSįGO,58,1:"(Using Data Set "CS" of "NS")"7X7p7zN%NP6200U8S%21:A$I$(185CS1:MSįFS,R1$,NS,R1$,CS:SS,14,R1$:SS,15,R2$>5J5R$"BR"5@R$,CD$,A%(CI),A$C$:5,%AC%,$TN$,%RP%,%TR%,%DR%,A@F%:8,A#D:8:5R$"BW":53205|5350:OP,"Enter data set number (1-"(NS)") or !Next: ":NI,0,S%,DS:ER:S%M3ı6":BR,GD$,0,#RA,#AF^3 D$OP$JF$G2$",L9":BR,JF$,0,%JV%,%JE%,%JR%,%JX%:RD,9,I:I0įSD,9,JR%3I114:RD,I12,A:FD,A,N,A,X:A0X0P(I)A(X):X(I)A%(X)::EA,A,A%:315:BL$;:OP,"ERROR IN POSTING TABLE, check A/R entry # "(I) 4 15:ES0:A$(4)A$(4)SP$A$(5):A$(3)SP$A$(3)A$(4):A$(4)""c2I1N:V(I),H(I),S(I),T(I),G(I),P$(I):x2I010:Y$(I):2I05:M$(I):222D$OP$GX$G1$",L16":BR,GX$,0,#N:A(N),A%(N):NįBR,GX$,1,A#A:N,A%A%:N3D$CL$:D$OP$GD$G1$",L102"INVOICE TOTAL IS TOO LARGE"Z0C1.5:M22:M33:HX19:EX16:LX19:HU100:XI1E5:TT1E40RS,0,CY$:RS,1,CO$:RS,8,G1$:RS,9,G2$:RS,13,PV$:RS,14,R1$:RS,15,R2$:RS,99,U$:RD,1,PS:RD,2,FF:RD,46,CR:RD,47,NP:RD,63,PH:DT,CY$,CYW1RD,0,UF:RD,51invoice date or [RETURN] only for ",YCY$,L": ":KI,8,A$:ER:A$ES$4900[.NA$""A$CY$.PDT,A$,IY:IY0įER,I$"DATE":4940.VFJ,IY,A$:GO,73,4:OY,A$.`GO,60,4:IU$:./D$(4):BL$(7)(7):ES$(27):OP$"OPEN":CL$"CLOSE":UL$"UNL,rLLN:$,NSS:4200:SS2ĺSP$*,,350:OP,"Do you want to !Accept, !Edit, or !Reject: ":KI,0,A$:ER:I8:390:INI9:,ER,ER$:4800,$IUįRD,67,IU,&IU1IUXIIU1,.350:OP,!" Current invoice number is -- "(IU)SP$t-8,NS:MSUF(NS1):MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(I):NN2:1NHX7:V(N),H(N),S(N),T(N),G(N),P$(N),I$(HX),Z$(EX),Z(EX,6),A$(5),C$(5),D(8),F%(8),P(14),X(14),U(14),Y$(10),M$(5),M(5),Y(16)1PHāI15:RS,282I,A$(I):62OCK"{/GX$"GLINDEX.FILE":GD$"GLDATA.FILE":JF$"JOURNAL.FILE":AF$"ARDATA.FILE":CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE"/AR$"ACCOUNTS RECEIVABLE":PP$AR$" PROGRAMS":SP$" ":S5$" "0V$"*** Invoicing ***":I$"INVALID ":ER$I$"RESPONSE":TL$GO,12,23:CL:OP,"Enter [RETURN] only to accept, a new invoice number, or !Quit: ":NI,0,S%,N:ER:S%M2NIU:4930-:S%N0NXI4930-<LI,A$:SQ,A$,"QUIT",N:NS%M3200->ER,ER$:4920-BIUN:IU$("0000"(IU),5):4960I.L350:PU,L"Enter SP$:PL,S20," P.O. Number",YCY$:4060`+FJ,IY,A$:PL,B1,YA$,B1,S22,I$(18),S19,I$(14),LI$(17)+SP$:PL,B2,S18,I$(13),YI$(12),B3,LI$(16)+SP$:L25:SS1ĺSP$:LL1++FFĺ(FF):+LL66:SP$::+hLN60İ4100:P$" (Cont)":4000 1)"/"I$(13):P$"INV"IU$:BW,JF$,JR%1,%N%,#CY,$A$,$P$,@S%:JR%JR%4:JV%JV%1:S%0q8I114:XU(I):X60608JE%JE%1:JR%JR%1:S%S%1:A%P(I)HU:D%P(I)A%HU:BW,JF$,JR%,%A%,@D%,#X,@S%9BR,GD$,X(I),$A$,A#Y:16:N2(X0):Y(N)Y(N)X:BW,GD$,S%DS0DSNS5520D6LI,A$:SQ,A$,"NEXT",N:NįER,ER$:5510P6DSCS1`6DSNSDS165550:NįER,"DATA SET # "(DS)" NOT CREATED":55006CSDS:R1$R1$(CS):R2$R2$(CS):350:OP,!" Please wait, switching data sets "::5200:5700(7E8110:2004P?4ZCSįEA,K$,A%:D$CL$CX$:D$CL$CD$:D$CL$AF$j4dD$OP$CX$R1$",L32":D$OP$CD$R1$",L160"4nBR,CX$,0,#NC:K$(NC),A%(NC):NCįBR,CX$,1,A!K$:NC,A%A%:NC4xD$CL$CX$:MSİ56005D$OP$AF$R2$",L50":BR,AF$,0,#AV,#LR,#RR,#MR,#CC:MR1MRCE BAR] to continue or [ESC] to reprint ---":WS,A$:350::A$ES$3520M*s*I14:7):I2I4ĺA$(I):4020*OS,59,A$(I):I1ĺIU$P$:4020*I$(1)*:I17:SP$:*I25:PL,B7,S43,I$(I),LI$(I5)::I15:SP$:&+AFįPL,B1,YCY$:s [SPACE BAR]":WS,A$:GO,1,1:4&L(KB):L128ıO(KS,0:L128(ES$)ı0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC$"aborted":500:590D:580N7000PAQ$"another ":CPį80R50X550:NLĭLNNLEPLNLNNL:customer ID":": ";:XY,H:OX,8,FC$T tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$Z v`  330:OP,"Select !Console or !Printer: ":S0:360:ESı SQ,A$,"CONSOLE",N:NCP0:EP23::490:480 SQ,A$,"PRINTER",N:NįER,IR$:420<490: 7000 5000:80G (OS0:AQ$"":HD$"Cash Receipts Register" 21:OP,AR$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$ d310 n330:YN,"Print "AQ$HD$,N:N0200 x2000:ES100 3000 1::D$CL$ 250+ price,0,57,7,-1,1,unit discount amount or percentage,0,75,3,1,1,taxable (Y/N),1,79,1,8,100,sales account (1-8)C*No,Yes,Origin,Destination,None,Special,$Misc Charge,!Comment,EDIT,REJECT,ACCEPT2D.Shipment Sub-Total,Miscellaneous Charges,Discount Allow),18,19,18,2,14,shipping instructions,18,64,7,6,11,"note number (1-9), !None, or !Special"B'-1,4,6,99999,100,"order quantity (!$=Misc Charge, !!=Comment) or [RETURN] only",0,11,6,-1,100,shipped quantity,,18,28,,,descriptionnC'0,47,9,99999999,1,unit @'4,19,8,1,14,Customer ID or !C!A!S!H,6,19,22,7,14,Customer name,7,19,22,7,14,address line #1,8,19,22,7,0,address line #2,9,19,20,7,0,city & state,10,19,10,7,0,ZIP code8A'12,19,22,8,14,'ship to' name,13,19,22,8,14,address line #1,14,19,22,8,0,address2,16:CS:YN,"Do you want to print an alignment test",N:N08560>!NIU$"*****":I$(1)"CUST ID":I$(2)CO$:I$(7)CO$:AF1:3520:8570>!>!80:1:OP,AR$" SYSTEM":3:OP,V$:5:OP,CO$::>(#?2#DSCS:350:OP,!" Please wait, global searco abort",1," ---",P$:18:OP,P$:WS,P$::ES(P$ES$)ES0P<GO,1,8:CS:k<4!8700:NPİ8000:5100<>!CS0:MSĺD$OP$CD$R1$(1):5600:D$CL$CD$#DSCSN0:L?F#5550:N9020w?P#D$OP$CX$R1$(DS)",L8":BR,CX$,0,#J:I1?Z#IJN0:9100?d#N((IJ)2):BR,CX$,3N,$P$:A$P$9100?n#A$P$JN1:9050?x#IN1:9050?#D$CL$CX$:N9020?#5540o print invoices",PF:PF08530-=^!PF8600=f!15:OP,"Please load invoices in the printer":17:OP,"--- Press [SPACE BAR] when ready ---":WS,A$:A$ES$8540=p!GO,12,14:CS:YN,"Use single spacing on invoices",SS:SS08540=r!SS2SSB>z!GO,1 DATA":ES1:8100:ES220J;^EF1:EFĺD$UL$GX$PV$:EF0:G1$PV$:G2$PV$:Z;hWD,A$::0;GO,1,8:CS:12:OP,"Please load the following diskette:":FF,PV$,E$:14:OP,!" "E$": "A$SP$><SB,1,"--- Press any key to continue",ES," or use [ESC] t15:OP,"Listing may be aborted by pressing the [ESC] key":[CPPS:OLLP:EPOL6:PW,PSHU$(HD$,1):UC,HU$:OW80:PN0:310:12:OP,"Report generation in progress"::LNLN1:900:CPİ650:PW,1:24:OP,"Listing "AC$" -- presMM,AR$" REPORTS":D$"RUNARMENU.PROG"RP$H WD,AR$" PROGRAMS":230\ 6CV9:330:CS:v JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 j# rCVCV1:330:OS,28," Enter "P$"ing        I$(13),#IU,#IY,#X,#D,#Z,#M,@D%,@A%,@N%,@Z%F:jRRRR1:CICCL:6600r:RP%L:D(1)D(1)U(9):D(6)D(6)EP:5350:BW,AF$,0,#AV,#LR,#RR,#MR,#CC:KP::XEFER(222):ER6ER8EF0:XO::b1::D$CL$:PX:@:JUF2ı;TA$"GENERAL LEDGER OA1TSN0OC2750C E$", GREATER THAN AMOUNT DUE":2720 S1UNN0E$", GREATER THAN TRANSACTION AMOUNT":2720 ODND(2)E$", EXCEEDS CREDIT BALANCE":2720  302:CL:S1įOD,0,N: OD,8,N,1,11:  L1EL6:A1:XTSA1P IU0MAMAX:PDPDA2:D(1)D(1)XA2:DTDTA2:450:OIU(XK)0d OCD(2)D(2)X ACD(2)D(2)X:AMD(2):3925 FCD(3)D(3)X$ ACİ2500` FD,IU,DN,DU,X:X0DA(X)DA(X)A1:2450j XX:XDXDNX:DU(X)IU:DA(X)A1:PYIU02300/H69:S2:NOA1:NDDNDDDAU(OA1)2250pXN:P$"discount amount":2700:ES2100E$"":NXDE$"EXCEEDS AVAILABLE DISCOUNT"LDNįSB,1,E$,E$""," and ",1,"PAST DISCOUNT DATE",E$E$""2250Q2760:350:BLC1:20807ER,"INVOICE NOT ON FILE OR CLOSED":2020OXDDAPD:XDOXDOLDXD(IDSD%TD):DDXDLD(AU0)PY:DD0DD0 302:OCOD(2):PL,L"Open Credits",B11,D0,O:IU0:2100"FCOCF:PL,L"Finance Charges",B8,D0,O:IU1:2100b*Fke available discounts",N:350:N02020QAU2N1:FCCF0:N0:FC12060,2080hA$"FIN"DB2050CFįER,"CUSTOMER HAS NO FINANCE CHARGES":2020FC1:2080S%0N1NXUįER,"INVALID INVOICE NUMBER":2020 5450:XK2070 AUOES$750350:4500* 5700:330:1000]ELXLĹ34,L11:35,L1XL1:SU,3::EL5OC0:FC0:DD0:VL1EL1:H1:CFD(3)D(4):CF0CF0302:CL:AUN0:20602SB,1,"invoice number",AC,", !O!P!E!N",ND,", !F!I!N",PY,", !A!U!T!O",1,",350:BL$;:OP,"WARNING: TRANSACTION AMOUNT NOT FULLY APPLIED":GO,12,23:YN,"OK to adjust transaction amount",N:N0520AMAMUN:3925:UN0:2500350:22:OP,!" Please wait, posting transaction "!XTSAM:U(2)DT:U(3CD)X:U(1)XDTWD,PP$:230: ,VV(L):HH(L):SS(L):TT(L):G173(H40)H .GO,H,V:Y 0306:HG,G:k 2GO,HG1,V:~ JGO,1,L1:CS: ^35,23:GO,1,21:CS::GO,12,21: h350:OP,"Enter "P$: PL,B50,X27,"*": PL,B50,L"*",B25,L"*": RW$"BR" or !O!L!D",P$:360:S5:P$"":PYF%(5)P$"AUTO"u302:OS,5,P$:GO,H:NI,S,S%,N:ER:LI,A$:UC,A$:A$""A$P$A$ES$A$""AR1:A$"OLD"N0:2060A$"OPEN"ACOC1:2080A$"AUTO"PY2040(350:YN,"AUTO MODE: OK to ta:VE%0:I14:VE%VE%(U(I)0):LTY%22TYCD:6000:PYD(7)AM:D(8)TDk5350:KP:ER:CDPF800350:YN,"OK to print this "TY$(TY)" Memo",N:N800350:GO,12,21:"Enter special note, if any:":GO,14:OX,60,U$:GO,14:KI,60,N$:N$K @RW$,AF$,IV,@TY%,%PX%,$PO$,#IU,#ID,#IB,#DA,#PD,#MA,@DD%,@SD%,@PP%,@PM%_ O(IBMAPD):q RW$"BW":410w  FL,0,4,U:AU0:ET0:EL1:DN0:UNAM:SAAM:VCCIİ5400 2000:ETİ330:150 ARUN520 XACAMSAUN:UN0 bUN7000 7000" 5000:8500:4900+ 2VC0G dDT0:E0:LL0:3800:L1Z n3000:CI200g xL6110y 4800:N100 N1500 E1:L2:110 1::D$CL$:G1$PV$A$PP$:ES0:8700:8100 250 MM,AR$:D$"RUNARMENU.PROG"PV$  ETET1:ELEL1:AR0:, (UN)C1UN0r GO,59,L1XL:OX,10,"-"::GO,41:PL,L"Unapplied Amount:",D0,UN: NX:2760:E$"":360:GO,H1,V:DI,10,S%,N:ER:ESS%M3:ESı S%M2NX:S%0 S%0N0NAX2730 ER,I$"AMOUNT"E$:2700$;:OP,"WARNING: "E$:GO,12,23:YN,"OK to accept discount amount",I:I02200`A2N:2760A1A2įER,"NO AMOUNT APPLIED TO THIS ENTRY":2000350:OP,"OK to accept and ! !P!O!S!T! ":YN," this entry",N:N0AU0:N12100,2000  UNUNJ,ID,A$:FJ,IDDD%,P$:PU,L(Z0$(IU),5),B1,YA$,B1,YP$,D0,O,D8,DA,2,10,L(" *",LD1,1),D8,PD,2,104A10:A20:ODOCDB:H58:S1:OCDBNUN:2120>NODD:NUNNUNHODND(2)ND(2)JAUP$"amount to apply":XN:2700:ES2000RA1N:2760          !! !! !! !!!!!!! !! !"" "" "" """"""" "" " 14,R1$:RS,15,R2$:RS,99,U$:RD,1,PS:RD,2,FF:RD,47,NP:RD,63,PH:DT,CY$,CY)RD,0,UF:RD,51,NS:MSUF(NS1):MSĆR1$(NS),R2$(NS):N56:I1NS:RS,N,R1$(I):RS,N1,R2$(I):NN2:*V(5),H(5),S(5),T(5),TY$(4),TR$(4),TH$(4),C$(5),D(8),F%(8),P(4),X(4)======== ========== ========== ==========":3'{'D$(4):BL$(7)(7):ES$(27):OP$"OPEN":CL$"CLOSE":UL$"UNLOCK"'GX$"GLINDEX.FILE":GD$"GLDATA.FILE":JF$"JOURNAL.FILE":AF$"ARDATA.FILE":CX$"CUSTINDEX.FILE":CD$"CUSTDATA.FILE"_(AR$"ACCO!Edit, or !Reject: ":KI,0,A$:ER<%SQ,A$,"ACCEPT",N:NıZ%SQ,A$,"EDIT",N:NN1:y%SQ,A$,"REJECT",N:NN0:%ER,ER$:4800%$:OP,"*** A/R Entry ***":5700&.GO,1,3:"Customer ID :";:GO,40:"Customer Name:":"Transaction Type:"#AFāI15:31)"***** Alignment Test"::LL5:4700k#I1DN:NDU(I):N0A$"Finance Charges":4630#NA$"Open Credits":4630# A$"Invoice #"(Z0$(N),5)#N2:4200:PL,B31,S37,A$,D8,DA(I),1,11:$*N2:4200:PL,B70,X9,"-":PL,B46,SD,A$:PL,B1,YA$:SP$:PL,B64,LTY$(TY),L" #",LRF$E"SP$:SP$:L25:V"FFĺ(FF):k"LL66:SP$::"hLN60İ4100:P$" (Cont)":4000"rLLN:""AF0:I$(4)I$(4)SP$I$(5):I$(3)SP$I$(3)I$(4):I$(4)"""1::PW,PS:P$"":40007LID AMOUNT": AMN:- L15:3900::D <300:ELLL3920[ FT2ĺ"MM/DD/YY":| HPU,XS,U$,B1:L1įGO,55:CL J PL3921,3922,3923,3924,3925 QOS,S,ID$:GO,55:OS,22,C$(1): ROS,S,TY$(TY): SFJ,TD,A$:OY,A$: TRF$:!UAVAILABLE":O 6600:TYN:CDTY3:DBTY2:NDDB:PYTY3:ACTY4:TS2ND1: SB,1,"transaction date",LL3," or [RETURN] only for today",P$:3050:DT,A$,N:NE$"INVALID DATA, USE MM/DD/YY or MMDDYY FORMAT": TDN:H ACRF$"Credit":AMD(2N] only to quit":3050:UC,A$<( FS,A$,NC,K$,CI:CI03150Y* CI0:A$"DATASET"3130x0 MSE$I$"CUSTOMER ID":2 5500:3900:3110: Q$"CUSTOMER '"A$"' NOT ON FILE":MS3144D 350:BL$;:N0:YN,N,Q$", Want to do global search",N:NGO,54,5:OD,0,AM:&!E1:L5:3900L!I14:7):I2I4ĺA$(I):4020s!OS,59,A$(I):I1ĺTY$(TY)P$:4020|!ID$!!390:392:PL,B50,L"* ",LTH$(TY),L" M E M O *":392:390!SP$:SP$:I14:PL,B7,LI$(I)::I15:SP$:0"FJ,T):.R P$"reference":PYP$"customer check"P\ P$P$" number":DRFHU:3050f NNHU:(N)NN1NXUE$I$"NUMBER, MUST BE FROM 1 to 99999":p RFN:RF$(Z0$(RF),5)SP$: ACı P$"transaction amount":DAM:3050:N0NAXE$"INVA03110F 9000:N3112%H E$Q$:MN ID$A$:5300:I15:I$(I)C$(I):: P$"!Payment, !Credit, !Debit, or !Apply CR":3050:A$""A$TY$(TY) N0:I14:SQ,A$,TY$(I),X:XNI :NE$ER$:  N4D(2)E$"CUSTOMER HAS NO OPEN CREDITS 0:ESA$ES$:ESL1A$"":ES00 A$""L2ġJ S%0NM2:S%M2ND] 304:ER:ESġc z LLLL0:3800:L1 CI0:ID$"":TY0:TDCY:RF0:AM0:LL0& 3900:SB,MS,"(enter !D!A!T!A!S!E!T to switch data sets)",Q$:P$"Customer ID or [RETURUNTS RECEIVABLE":PP$AR$" PROGRAMS":SP$" ":HD$"*** Cash Posting and Miscellaneous Entry ***"(I$"INVALID ":ER$I$"RESPONSE":Z0$"0000"(C1.5:M22:M33:HU100:XU1E5:AX1E8:L110:XL8L)RS,0,CY$:RS,1,CO$:RS,8,G1$:RS,9,G2$:RS,13,PV$:RS,;:GO,40:"Trans. Date :"O&8"Check/Ref Number:";:GO,40:"Trans. Amount:":&BPL,B35,L"----- Discounts -----",B13,L"Discount"-'L"Inv # Inv Date Due Date Balance Available PTD Taken Amount To Take ===== ======== ======== ========== ==22,TY$(TY)" Total",D8,AM,1,11A$4N$""N2:4200:SP$:13)N$W$\4100:PW,0:AFı$f350:22:OP,"--- Printing complete, press [SPACE BAR] to continue or [ESC] to reprint ---":WS,A$:350::A$ES$4550$p!%350:OP,"Do you want to !Accept, U 300:E$"":Q$"":SEE:ES0:L3100,3200,3300,3400,3500:E$""įER,E$:3900:3000m ESLL(L1):3000 CIE1:3900:LLLLLL ESE:LL1: 360:Q$""Ģ23:OP,Q$ 306:HG,G:GO,H:T3įDI,S,S%,N:ESS%M3:3070 KI,S,A$:S%$(2)CO$:I$(7)CO$:AF1:3520:8570)9!c9!80:1:OP,AR$" SYSTEM":3:OP,HD$:5:OP,CO$::i9(#92#DSCS:350:OP,!" Please wait, global search in progress ":9<#DSDS1:DSNSDS19>#DSCSN0:9F#5550:N9020:P#D$OP$CX$R1$(DS)",L8",1,8:CS:74!07>!8700:CS0:NPİ8000:5100:7H!5200p7R!GO,12,10:CS:YN,"OK to do posting",N:N02007\!GO,12,12:CS:YN,"Do you want to print credit and debit memos",PF:PF085307^!PF8600H8f!15:OP,"Please load Invoices in the prinMR)E$"": 5E$"A/R DETAIL"P5E$"NO ROOM IN "E$" FILE TO POST ENTRY":x5XEFER(222):ER6ER8EF0:XO:5b1::D$CL$:PX5@5JUF2ı5TA$"GENERAL LEDGER DATA":ES1:8100:ES2206^EF1:EFĺD$UL$GX$PV$:EF0:G1$PV$:G2$PV$:TY%20:A%0W3VBW,AF$,XT,@TY%,%RP%,$A$,#RF,#TD,#AM,#DU(1),#DA(1),#DL,@S%,@A%,@A%,@A%3`RP%XT:BW,AF$,0,#AV,#LR,#RR,#MR,#CC:3jAVXAV:BR,AF$,AV,#AV:62603lLRMRX0:3nLRLR1:XLR3tRRRR1:3N23I0:NDNı4X2I1:ID(X)JE%1:JR%JR%1:S%S%1:A%P(I)HU:D%P(I)A%HU:BW,JF$,JR%,%A%,@D%,#X,@S%2BR,GD$,X(I),$A$,A#ID:16:N2(X0):ID(N)ID(N)X:BW,GD$,X(I),$A$,A#ID:162:BW,JF$,0,%JV%,%JE%,%JR%,%JX%282B6250:XTX:DL0:S%0:6300 3LA$("**"TY$(TY),12):TY%,N:NįER,ER$:5510 0DSCS100DSNSDS1j05550:NįER,"DATA SET # "(DS)" NOT CREATED":55000CSDS:R1$R1$(CS):R2$R2$(CS):350:OP,!" Please wait, switching data sets "::5200:57000EF1:1::EFĺD$UL$CX$R1$(DS):EF0:N0:1N1$"BW":5320._."IVRP%:N0:350:IVĢ14:OP,"Please wait, collecting customer invoices"m.,IV5430..400:TY%1ĭOĭNIXNN1:ID(N)IDDD%:IL%(N)N:IU(N)IU:IA%(N)IV.0IVPX%:5420.6N1įSR,ID,IL%,N.8OIN:VCCI:330 /JNįFD,N,OD,A,N,A,X:A0X0P(Z)A(X):X(Z)A%(X):ZZ1:,(15:BL$;:OP,"ERROR IN POSTING TABLE, check A/P entry # "(I):15:ES0:8110:200,P,ZCSįEA,K$,A%:D$CL$CD$:D$CL$AF$,dD$OP$CX$R1$",L32":D$OP$CD$R1$",L160"-nBR,CX$,0,#NC:K$(NC),A%(NC):=1DGO,1,1:PU,L"(File status: ",I4,HURRMRC1,L"% full)o1NMSįGO,58,1:"(Using Data Set "CS" of "NS")"u1X{1p1zA$TR$(TY)RF$:ACNP62001BW,JF$,JR%1,%VE%,#CY,$ID$,$A$,@TY%:JR%JR%4:JV%JV%11S%0:I14:XU(I):X6060K2JE%I,IU,XK:5480/TN1&/^NOIXK0:I/`XKIL%(N):IU(XK)NN1:5470[/hXK0XK0:o/jIVIA%(XK):400u/|/350:OP,"Enter data set number (1-"(NS)") or !Next: ":NI,0,S%,DS:ER:S%M3ı/S%DS0DSNS55200LI,A$:SQ,A$,"NEXT":NCįBR,CX$,1,A!K$:NC,A%A%:NC,-xD$CL$CX$l-D$OP$AF$R2$",L50":BR,AF$,0,#AV,#LR,#RR,#MR,#CC:MR1MR1-CS1:MSįFS,R1$,NS,R1$,CS:SS,14,R1$:SS,15,R2$--RW$"BR"-@RW$,CD$,A%(CI),A$C$:5,%AC%,$TN$,%RP%,%TR%,%DR%,A@F%:8,A#D:8: .RWD$OP$GX$G1$",L16":BR,GX$,0,#N:A(N),A%(N):NįBR,GX$,1,A#A:N,A%A%:Ne+D$CL$:D$OP$GD$G1$",L102"+ D$OP$JF$G2$",L9":BR,JF$,0,%JV%,%JE%,%JR%,%JX%:RD,9,I:I0įSD,9,JR%+Z1:I9:5150:I11:5150:I14:5150:I16:5150:EA,A,A%:/,RD,I12,A:Fter":17:OP,"--- Press [SPACE BAR] when ready ---":WS,A$:A$ES$85408p!GO,12,14:CS:YN,"Do you want to print an alignment test",N:N085408z!NRF$"*****":ID$"CUST ID":I$(2)CO$:TDCY:TY1:AF1:4550:8560#9!NIU$"*****":I$(1)"CUST ID":I6hWD,A$::0x6GO,1,7:CS:12:OP,"Please load the following diskette:":14:FF,PV$,E$:OP,!" "E$": "A$" "6SB,1,"--- Press [SPACE BAR] to continue",ES," or use [ESC] to abort",1," ---",P$:18:OP,P$:WS,P$::ES(P$ES$)ES0 7GODU(N):ID(X1)DA(N):II1:NN134I4NDN6320c46250:XįBW,AF$,X,#DL,#I,A#ID:8:DLX:63104ER,"A/R DETAIL FILE IS FULL -- UNABLE TO POST COMPLETE DISTRIBUTION RECORD":S%1:I11000::4NPĭJR%8JX%E$"G/L JOURNAL":6630 5AV(LR,U(4),I$(5),A$(5)P*DX100:IX200:DU(DX),DA(DX),ID(IX),IL%(IX),IU(IX),IA%(IX)r*I15:V(I),H(I),S(I),T(I):*I14:TY$(I),TR$(I),TH$(I):*PHāI15:RS,282I,A$(I):*A$(4)A$(4)SP$A$(5):A$(3)""A$(3)A$(4):A$(4)""**F+