' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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-(+  Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` # d ֠z# u`F,6,CB:@ 8D E$"VENDOR HAS ZERO CREDIT BALANCE":UN MSE$V$"VENDOR ID":X 330:OP,"Enter data set number (1-"(NS)") or !Next: ":NI,0,ST%,DS:ER:ST%M33040Z ST%DS0DSNS3170\ DS0:LI,A$:SQ,A$,"NEXT",N:NįER,IR$:3150RS,382I,P1$(I):9OSĺD$CL$:EA,VK$,VA%dD$OP$VX$DV$",L32":D$OP$VD$DV$",L148" BR,VX$,0,#NV:VK$(NV),VA%(NV)NVįBR,VX$,1,A!VK$:NV,A%VA%:NVOS1:XEFER(222):ER6ER8EF0:XO:b1::D$CL$:PXK"ACCOUNTS PAYABLE"KQ$"=":SP$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ"VSB128RS,0,TD$:RS,1,CO$:RS,10,PP$:RS,11,P1$:RS,99,FC$RD,1,PS:RD,2,FF:RD,3,LP:RD,50,NSVN$(6),VD(8)RD,0,UF:MSUF(NS1)MSĆP1$(NS):I1NS:*PU,B11,L"Tel: (":AC%įOI,3,AC%:45345PU,B3ePU,L") ",S3,(TN$,3),L"-",S4,(TN$,4),B6:kqKB16384:KS16368D$(4):ES$(27)UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE"AP$Code,default terms code (1-9) or !None%.'1,8,12,5,4,Y-T-D Purchases,"",1,9,12,5,5,Y-T-D Payments,"",1,10,8,6,0,Last Pay Date,date of last payment%8'45,8,12,0,2,Current Balance," ",45,9,12,0,3,Open Credits," ",45,10,12,0,6,Amount to Pay," "Ddress",1,4,22,1,0,"Address, line 2","2nd line of address (optional)",1,5,20,1,0,City and State,"City, State abbreviation",1,6,10,1,0,ZIP Code,""&%$'45,2,0,2,0,Telephone No.,"",45,3,7,3,1,G/L Account #,default G/L account number or !None,45,5,1,4,0,Terms $,VA%(IW),A$NA$:5,%AC%,$TN$,%AP%,@TC%,A#VD:8:H#NA$(3)SP$NA$(3)""[#RW$"BW":5320#XER(222):EFĭER6ER8EF0:XO:#b1::D$CL$:PX#'1,0,8,1,0,Vendor ID," ",1,2,22,1,0,Vendor Name,""$'1,3,22,1,0,"Address, line 1","1st line of adV,US%,VA%t"CS1:MSįFS,DV$,NS,P1$,CS:GO,27,5:"Using Data Set number "CS" of "NS:SS,11,P1$(CS):SS,12,P2$(CS)"(XU0:"P"ZXU5230"dBW,VX$,0,#NV,#XV,#XE"fNVįBW,VX$,1,A!VK$:NV,A%VA%:NV"nKP:XU0:""RW$"BR".#@RW$,VD):RS,N1,P2$(I):NN2:!$!O!D$OP$VX$DV$",L32":D$OP$VD$DV$",L148"i!BR,VX$,0,#NV,#XV,#XE!XV(XV):XV1XV1!XE(XE):XENVXEXVXENV! CSįEA,VK$,VA%,US%! VK$(XV),VA%(XV),US%(XV) "NVįBR,VX$,1,A!VK$:NV,A%VA%:NV:UA,N1): 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)V8:P$""P$PN$(I) PP$(I)P$: NA$(5),VD(8),TC$(9) I19:RS,98I2,TC$(I):!MSĆP1$(NS),P2$(NS):N40:I1NS:RS,N,P1$(IOCK"5VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE"}AP$"ACCOUNTS PAYABLE":SP$" ":DL$"DELETE":IV$"INVALID VENDOR ID"H21:LX14:ELLX3:AX999999:HU100:TT10000RS,1,CO$:RS,10,PP$:RS,11,P1$:RS,99,FC$ RD,0,UF:RD,50,NS:MSUF(NSC%" ":GO,H16:TC$(TC%);:CL:EF "None";:CL:GO,H16,V1:CL:\N OD,0,VD(PX(LN)):}X VD(7)įFJ,VD(7),A$:OY,A$:Z OX,S,SP$: ALL LN0LX:350:3000::D$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN":UL$"UNLL"-",X4,FC$:" LNįOS,S,ID$:/ T3150T T3110,3120,3130,3140,3150,3160h& OS,S,NA$(LN):0 GO,H21:PU,B3:GO,H21:AC%įOI,3,AC%2 AF1įGO,H26:PU,S3,TN$,L"-",S4,(TN$,4)4 : XVD(PX(LN)):X3142< OF,4,X:!D TC%ĺT NI,4,ST%,N:2060)j ST%N0N920509t TC%N:3000? U GO,H2,V:DD3100c T23050z T6ĺ"MM/DD/YY": TįCL: OX,S,FC$:T4įCL:GO,H1,V1:CL  AF1AC%3100 AF2įPU,L"(",X3,FC$,L") "  GO,H26:PU,X3,FC$,8((A$,4,1)"-"))22808E$(PP$(LN),1):UC,E$:2052PTN$(A$,3)(A$,4)_AF0:3000DI,S,ST%,N:2060:ST%0N02350 N(T3)ĭN100NAX2350 VD(PX(LN))N:3000. T3E$"ACCOUNT NUMBER":20520 E$"AMOUNT ENTERED":2052`"Area code":340:GO,H21,V:NI,3,ST%,N:ER:2060CST%22240eST%N0E$"AREA CODE":2052oAC%NAF2:3000:2020PP$(LN)"Telephone number":340:GO,H26,V:KI,8,A$:ER:310:A$ES$AF1:2030L(A$):L2290L6ĭL7(L9),DR(9),DP(9),DD(9)2*RD,10,AG(0):RD,11,AG(1)*I19:RS,982I,A$:TC$(I)A$:DD(I)((A$,7)):(A$)12DR(I)(A$):DP(I)((A$,7))**VN$(5),VD(8),A2(7),B2%(4)**NPı*D$OP$GX$G1$",L16"*BR,GX$,0,#NC:AN(NC),AA%(NC)+NP:RD,48,UG:RD,50,NS:MSUF(NS1):MSĆP1$(NS),P2$(NS):N40:I1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:)HH(LX),HV(LX),HG(LX),HS(LX),HE(16),IT$(4))I1LX:HH(I),HV(I),HG(I),HS(I):)I14:IT$(I):*EG(XE),EX(XE),EA(XE),AG(1),AX(1),TC$(ICE ":V$"INVALID ":IR$V$"RESPONSE":OL$"OLD":PK$"--- Press [SPACE BAR] to continue"(XE8:LX8:L19:OM1E8:M22:M33:HU100:Z0(RS,0,CY$:DT,CY$,CY:RS,1,CO$:RS,8,G1$:RS,9,G2$:RS,10,PV$:RS,11,P1$:RS,12,P2$:RS,99,FC$j)RD,0,UF:RD,47,$(7)(7):ES$(27)='CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"y'GX$"GLINDEX.FILE":GD$"GLDATA.FILE":JF$"JOURNAL.FILE"'AF$"APDATA.FILE":VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE"'AP$"ACCOUNTS PAYABLE":PP$AP$" PROGRAMS"W(SP$" ":N$"INVOO,12,14:"The following A/P Entry options are available:":c&<I14:GO,28:"< "I" > - "IT$(I):&B330:"Enter option (1-4) or [RETURN] only to quit: ";&LNI,0,ST%,N:ER:ST%M2200&VT%N0N5TY%N:&`ER,IR$:4930&'D$(4):BL,A$:ER:SQ,A$,"ACCEPT",N:NARAR1:D%SQ,A$,"EDIT",N:NAR2:d%SQ,A$,"REJECT",N:NAR3:v%ER,IR$:4820|%$%.HFİ4600%8GO,24,7:BX,32,2MS:GO,28,9:PU,L"A/P file status:",D8,HUHURRMR.5,6,5,L"% full":MSįGO,30,10:4492;&:G8,1*$"(Using Data Set "CS" of "NS")":H$330:OP,"Enter "P$::d$:1:OP,AP$" SYSTEM"$3:OP,"*** Accounts Payable Entry ***"$ 5:OP,CO$::HF1:$AR1$SB,1,P$,AR,"!Accept, ",1,"!Edit or !Reject: ",P$&%330:OP,P$:KI,0NIĺ"O/C Balance :"Q#lIVįGO,1,6:"Discount Amt :";:GO,30:"Discount Date:"q#vGO,1,7:ACNPįOX,80,"_":#:GO,15:"Line Account Description Amount"#GO,15:"==== ======= ===================== ============":$GO,50:OP,!" "IT$(TY%)" ":GO,1:"Vendor ID:";:MSİ4490M"DGO,6,2:"Name:""XGO,1,4:"Invoice Number:";:GO,30:IVĺ"Invoice Date :";"ZNIĺ"Inv. Balance:";"\GO,56:"Reference:""bGO,1,5:"Trans. Amount :";:GO,30:IVĺ"Due Date :"#d"%"3590!N0NAM3590)!DANı=!DAN:TC0:4000q!TCEDĭ(DA)P$"discount date":DIDSD%:3310w!!IVįGO,56,6:CL:PPTC2:TCįPL,L"Terms: ",S17,TC$(TC)!!4120:CL:!GO,16,L1EL:!"GO,1,L11:CS:!08"::HFDAPP(AMDR(TC)HU):HE(7)1% F E$"EXCEEDS "E$"BALANCE":[ E$V$"AMOUNT": P$"due date or !#Terms Code":DIDDD%:3310 tPP(TCED)ı ~P$"discount amount or percentage":3050:ROST%0:NDA !ST%0N(AM(A$)HU):(A$,1)TC0:4000>H P$"invoice reference":A$RF$:3090:RORF$A$DR o P$"transaction amount":3050:RONAM ST%1N0NOM3590 IV3530 OCDMĭ(NOA)E$N$:3580 AC(OCDM)ĭNCBE$"OPEN CREDITS ":3580 AMN:IVı TC$:IV:" Terms: "P$" ";::YN," OK to use",I:I03040T TCN:3540:4000:3334b L33340r IDN:TCı DD%DD(TC):HE(6)1:SD%DP(TC):HE(8)1: NNID:N0N1803316 L63360 DD%Nı DD%N:3370 SD%Nı" SD%N * OC:10)$ L4:HE(L)1:400:LSL:< E$V$N$"NUMBER":W E$N$"'"A$"' "E$:r P$"invoice date":DID 3050:ROND:3330 P$A$:DT,P$,N:N3330 L6ĭ(A$,1)"#"N((A$,2)):N0N103320 E$V$"DATE":9 330:RS,982N,PDMCB31405 OACB:IN$"OPEN CR":RF$"":OC1:3270? 5400e IVXKE$"ALREADY ON FILE":3292 NI(XKB2%(4)2)E$"NOT FOUND OR CLOSED":3292 VLXK:IN$A$:IVı OC0:OAA2(2)A2(3)A2(4):RF$RX$ GO,44,4OC:OF,6,OA:ACįGO,44,58b 5500:DS0E$"DATA SET # "(DS)" NOT CREATED":El ::100 SB,1,"vendor invoice number",CD," or !O!P!E!N",NI," or !O!L!D",P$:A$IN$:3090:REı A$SP$3290 P$A$:UC,P$:OLP$OL$:(IVOL)(CDP$OP$)3290 P$OP$3220  #rSQ,A$,"MANUAL",N:NPD0:4240K|SQ,A$,"AUTOMATIC",N:NPD1:4240]ER,IR$:4200v320:SVCV:MS4350EN3:SVCV:MS4200330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":310:ES4200SQ,A$,"CURRENT",N:N:330:OP,"Select !All or !Specific vendors: ":310:ES4050rSQ,A$,"SPECIFIC",N:NAL0:PD0:AS0:DSCS:4150SQ,A$,"ALL",N:NįER,IR$:4100"AL16320:AL4400hEN2:330:OP,"!Manual or !Automatic invoice selection: ":310:ES4100DSD%DV0$ NTAFDT:NTCBNTCB* 0PCV8:MSįFS,P1$,NS,P1$,CS330:YN,"OK to select invoices for payment",N:N0RQ0:PD1:200320330:YN,"Do you want a Payment Selection Report",RQ:RQ0İ340:4020320<EN1502 GO,H,L:OD,8,X,2,10:- H60:26103 N OK(TAAFA)TX:OKıy VT(6)VT(6)AFDTAD:VT(6)0VT(6)0 TATAAFA:AFA:TDTDDTD:DTD:IS%(AF0)(DT0):HC%0 5350:UP1:  CB(OAMCMD):DACBDACB  DVDA:DVĭTYD$JN1:90506x#IN1:905046#D$CL$VX$:N9020>6#5500p6'12,1,9,8,17,4,14,8,45,4,13, - 8,67,4,9, - 126'17,5,14,10,45,5,13,-86$'17,6,14,-10,45,6,13,-86*Invoice,Credit Memo,Debit Memo,Apply Open CreditsD(#J52#GS1:DSCS:330:OP,!" Please wait, global search in progress ":e5<#DS(DS)1:DSNSDS1v5>#DSCSN0:5F#5600:DS090205P#D$OP$VX$P1$(DS)",L8":BR,VX$,0,#J:I15Z#IJN0:91005d#N((IJ)2):BR,VX$,3N,$P$:A$P$9100 6n#A$PG2$PV$:4hWD,DK$::0Y4GO,1,6:CS:12:OP,"Please load the following diskette:"4FF,PV$,A$:14:OP,!" "A$": "DK$SP$4SB,1,PK$,ES," or use [ESC] to abort",1," ---",A$418:OP,A$:WS,A$::ES(A$ES$)ES04GO,1,8:CS:523PP:6600"3A(A):CMAA73OCACN3:6600A35350U3VD(N)VD(N)A:}3XEFER(222):ER6ER8EF0:XO:3b1::D$CL$:PX3@3JUF2NPı3TDK$"GENERAL LEDGER DATA":ES1:8100:ES220 4^EF1:EFĺD$UL$GX$PV$:EF0:G1$PV$:2(N)AM2lB2%(4)VD(6)VD(6)A2(6)A2(7):A2(6)0:A2(7)0:B2%(4)0:22:BL$;:OP,!" "N$"MUST BE RE-SELECTED FOR PAYMENT ":PU12n(A2(2)A2(3)AD(4))B2%(4)42p3102tRRRR1:BW,AF$,0,#AV,#LR,#RR,#MR:22 AAM:ACN4:6600 3 OCN18"1LAVLRLR1:XLR:6230:1NXAV:BR,AF$,AV,#AVz1VNAMPP:ST%3PP:AN%0:NIRF$("****"TY$,12):OCIN$""1XBW,AF$,X,@TY%,%VP%,$IN$,$RF$,#ID,#AM,#N,#Z,#DA,#Z,#Z,@DD%,@SD%,@AN%,@ST%1`VP%X:IVOC62602jXKVL:300:N3(AM0):A2(N)AX(PP)0I0ET`0AMEA(I):XEX(I):NEG(I):AN%NHU:DN%NAN%HU:ST%I1:JE%JE%1:JR%JR%10BW,JF$,JR%,%AN%,@DN%,#AM,@ST%0BR,GD$,X,$A$,A#HE:160N2(AM0):HE(N)HE(N)AM0BW,GD$,X,$A$,A#HE:1601BW,JF$,0,%JV%,%JE%,%JR%,%XR%:0:DS0ıN/330:OP,!" Please waiting, switching data sets "::5200:4490T/~/EF1:1::EFĺD$UL$VX$P1$(DS):EF0:/DSDS:/p/zACNPı/ST%10TY%:BW,JF$,JR%1,%VE%,#CY,$ID$,$IN$,@ST%0JR%JR%4:JV%JV%1:EG(0)AG(PP):EX(0)Aait, searching for invoice").,XK5480>.6300:T2%15470L.@NX$A$ıZ.BOL5470.JB2%(4)3DXA2(1)B2%(1):DXDDDX:XXK.^XKX2%:5420.hXXKX:300:A$NX$.j.|.DSDSDS(CS1):DSNSDS1 /P1$P1$(DS):P2$P2$(DS):560P2$",L62"1-BR,AF$,0,#AV,#LR,#RR,#MR:MRMR1g-CS1:MSįFS,P1$,NS,P1$,CS:SS,11,P1$:SS,12,P2$m-s--RW$"BR"-@RW$,VD$,VA%(VI),A$VN$:5,%AC%,$TN$,%VP%,@TC%,A#VD:8:-RW$"BW":5320-."XKVP%:DOM:X0:XKİ330:OP,"Please w/L Posting Table, Check A/P Entry # "(I1)D, 15:ES0:8120:200J,Pr,ZCSįEA,VK$,VA%:D$CL$VD$:D$CL$AF$,dD$OP$VX$P1$",L32":D$OP$VD$P1$",L148",nBR,VX$,0,#NV:VK$(NV),VA%(NV),xNVįBR,VX$,1,A!VK$:NV,A%VA%:NV,D$CL$VX$ -D$OP$AF$NCįBR,GX$,1,A#AN:NC,A%AA%:NC)+D$CL$A+D$OP$GD$G1$",L102"W+BR,GD$,0,#RA,#AFm+ D$OP$JF$G2$",L9"+ BR,JF$,0,%JV%,%JE%,%JR%,%XR%:RD,9,N:N0įSD,9,JR%+I01:FD,AG(I),NC,AN,N:AG(I)0N0AX(I)AA%(N)::,,15:BL$;:OP,"Error in GVN$(6),VD(8),DD(7),IT(4),VT(4),ST(4),RT(4),SV(RX),SL%(RX)KMSUF(NS1)MSĆP1$(NS),P2$(NS):N40:I1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:OSĺD$CL$:EA,VK$,VA%D$OP$VX$P1$",L32":D$OP$VD$P1$",L148"  BR,VX$,0,#NV:VK$(NLE":AF$"APDATA.FILE"0AP$"ACCOUNTS PAYABLE"aSP$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ"lRX500RS,0,TD$:RS,1,CO$:RS,10,PP$:RS,11,P1$:RS,12,P2$:RS,99,FC$DT,TD$,TDRD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,5,RM:RD,50,NS9PU,B18,S17,P$:I14:OD,8,VT(I),1,11::5SP$:;vT$"========== ========== ========== ==========":4520|KB16384:KS16368D$(4):ES$(27)UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FI$"Vendor Total:":4500HrI14:AVT(I):ST(I)ST(I)A:RT(I)RT(I)A:N[AS36000I14:VT(I)RT(I)::P$"REPORT TOTAL:":4600bAC$"complete":500:570T$"---------- ---------- ---------- ----------"NL3:600:36)T$*,@DD%,@SD%,@HC%,@IS%;IDDD(1):FJ,ID,ID$:FJ,IDDD%,DD$"IT(1)DD(2)DD(3)DD(4):IT(2)DD(6)DD(7):IT(3)DD(6):IT(4)DD(7),PU,B9,S9,IN$,YID$,B1,YDD$6I14:NIT(I):(I2I3)Nĺ11):41548OD,8,N,1,11:VT(I)VT(I)N::ThP-(d#N((IJ)2):BR,VX$,3N,$P$:A$P$9100D(n#A$P$JN1:9050T(x#IN1:9050k(#D$CL$VX$:N9020(#380:DSSS:5100:00:DNOT CREATED"':'XEFER(222):ER6ER8EF0:XO:N'b1::D$CL$:PXT'(#}'2#P$"global search in progress ":382'<#GS1:SSSS1:SSNSSS1'>#SSDSN0:'F#NSS:5500:ES9020'P#D$OP$VX$P1$(N)",L8":BR,VX$,0,#J:I1(Z#IJN0:9100,#DT,#AF,@DD%,@SD%,@HC%,@IS%:1&RW$"BW":53207&D&"RW$"BR"~&,@RW$,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%XP%,@TC%,A#VT:8:&JUPRW$"BW":5420&T&|&ES0:1::MSı&EF1:EFĺD$UL$VX$P1$(N):EF0: 'ES1:GSE$"DATA SET #"(N)" :%D$CL$VX$:D$OP$AF$P2$",L62":BR,AF$,0,#AV,#LR,#RR,#MRJ%(OS1:MSıi%2ALįSS,11,P1$:SS,12,P2$%<GO,57,2:PDįGO,28,18%>"(Using Data Set "DS" of "NS")":%%LP%VP%:RW$"BR"&@RW$,AF$,LP%,@TY%,%VP%,$IN$,$RF$,#DD,#OA,#MC,#MD,#DA:MSĆP1$(NS),P2$(NS):N40:I1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:L$R$m$OSĺD$CL$:EA,VK$,VA%$MSP1$P1$(DS):P2$P2$(DS)$D$OP$VX$P1$",L32":D$OP$VD$P1$",L148"$ BR,VX$,0,#NV:VK$(NV),VA%(NV)$NVįBR,VX$,1,A!VK$:NV,A%VA%:NVRX700:LX12:CX20:TX1E8:SP$" ":IR$"INVALID RESPONSE":TL$"VENDOR CHECK TOTAL IS TOO LARGE"#RS,0,TY$:DT,TY$,TY:RS,1,CO$:RS,10,PV$:RS,11,P1$:RS,12,P2$:RS,99,FC$#RD,0,UF:RD,50,NS#VN$(5),VT(8),LP(LX),SV(RX),SL%(RX)F$MSUF(NS1)GO,1,6:CS:LN0:M"GO,14,1:35):GO,13,2:12):GO,40:12):4550::S"w"D$(4):BL$(7)(7):ES$(27)"CL$"CLOSE":OP$"OPEN":UL$"UNLOCK""VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE":AF$"APDATA.FILE""AP$"ACCOUNTS PAYABLE"`#PL,L"Today's Date: ",YTY$H!" Balance: Open Credits:"!GO,1,4:" Line Inv. No. Due Date Balance Disc Avail/Days Pay Amt Dis Taken Net Amt"!" ==== ======== ======== ========= =============== ========= ========= =========""1:200 bPD4500j lGO,1,8:CS:10:OP,"Please wait, Accounts Payable invoice selection in process" vGO,19,12:BX,40,42MS:GO,29,14:PL,L"Payment Date: ",YPD$ GO,22,16:"Vendor: Inv. No:": !:" Vendor ID:";:GO,57:before: ";:XY,H:"MM/DD/YY";5 GO,H:310:ES4330qDT,A$,PD:PD0įER,"INVALID DATE ENTERED":PD1:4360PD$A$:GO,H,CV:OY,A$:3200330:YN,"OK to start the invoice selection process",N:N0İ340:EN4100,4200,4330,4350 :NRQ0:PDAS0:NCS:43405SQ,A$,"ALL",N:NAS1:N1:4340_SQ,A$,"SPECIFIC",N:NįER,IR$:4310CVCV1:NK0:360:ES4332VSV:342:43005500:ESįER,E$:4330DSN:320:PD4400PD4400EN4:330:"Pay all invoices due on or IN$,YA$:SDĺ6):416026FJ,SD,A$:PU,B1,YA$O@PL,B10(P1),D8,AM,2,10UTh4700:VT(6)VD(3):P$"Vendor Total:":4500rI17:AVT(I):ST(I)ST(I)A:RT(I)RT(I)A:AS36000I17:VT(I)RT(I)::P$"REPORT TOTAL:":4600bAD%,@HC%,@IS%:IDDD(1):BDD(2):ADD(3)DD(4)WAMBA:DDIDDD%:SDIDSD%:DD(5)SD0jNDD:UD4130SDĭSDTDAMAMDD(5):NSD"AM04180$NNTD:P1:N0P1((N1)IP):P5P5,VT(P)VT(P)AM:4700:NL1:600:FJ,DD,A$:PU,B9,S9,:3020 5FL,0,7,ST:NV(V2V1)(V1NV)4300WVV1V2:550:FL,0,5,VT:VO0BR,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%VP%,@TC%,A#VD:81000:NEVD(3)4250NE4200E1NE:VP%SL%(E)+BR,AF$,VP%,@TY%,%VP%,$IN$,$RF$,A#DD:7,@DD%,@S,NV,VK$,V2:V20V2(V2)1, V2NVV2NVY H2$"(Vendor IDs: "V1$" thru "V2$")"h CPPNėz& PNNL0:6000 720:4000 AS3610 WD,AP$" DATA"::0I17:VT(I)ST(I)::P$"DATA SET TOTAL:":4600CSNS4400$CSCS1Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"$$'"Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty","Ninety"D"BW":5320##"RW$"BR"V#,@RW$,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%XP%,@TC%,A#VD:8:i#JRW$"BW":5420#XEFER(222):ER6ER8EF0:XO:#b1::D$;CL$:PX#'"One","Two","Three","Four","Five","Six","Seven","Eight","Nine","Ten"S$'"Eleven","BR,AF$,0,#AV,#LR,#RR,#MR("(MSİ52503"2OS1:9"PG"ZMS5100b"dD$OP$VD$P1$(1)",L148"u"n5250:D$CL$:"BR,VD$,0,#CK:FKCK:""RW$"BR":LP%VP%"@RW$,AF$,LP%,@TY%,%VP%,$IN$,$RF$,#ID,#OA,#MC,#MD,#DA,#DT,#AF,A@IS%:4: #RW$"NS1)O!MSĆP1$(NS),P2$(NS):N40:I1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:U![!v!OSĺD$CL$:EA,VK$,VA%!D$OP$VX$P1$",L32":D$OP$VD$P1$",L148"! BR,VX$,0,#NV:VK$(NV),VA%(NV)!NVįBR,VX$,1,A!VK$:NV,A%VA%:NV"D$OP$AF$P2$",L62":AP$"ACCOUNTS PAYABLE":AM$"APMENU.PROG":PG$AM$= XK99999v RS,0,TD$:RS,1,CO$:RS,10,PV$:RS,11,P1$:RS,12,P2$ RD,0,UF:RD,1,PS:RD,50,NS:RD,66,K1 UN$(19),TN$(9),VN$(5),VD(8),IS%(4) I119:UN$(I): I29:TN$(I):!MSUF((7)(7):ES$(27);CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"~VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE":AF$"APDATA.FILE"SP$" ":IR$"INVALID RESPONSE":IC$"INVALID CHECK NUMBER":AA$"************":Z0$"000000"0 HU$" Hundred":TH$" Thousand":INTERRUPT *****".GO,20,10:BX,40,4:ES0:?CVCV2:380wI$"JOHN DOE":VN$(1)"*** Alignment Test ***":CKXKRF$"Alignment":IN$"Test":ID$TD$:OA0:MC0:MD0:DT0:AF0SL0:I15:2000::VD1:2200:390:CVCV2:D$(4):BL$Н:350x330:"Enter new check number or [RETURN] only to accept current: ";:NI,0,ST%,N:ER:ST%3VV3:340:4200ST%N0NXKCKN:4300ST%2įER,IC$:4270CV8:334:12:OP,"Check generation in progress":14:OP,"***** DO NOT A$::A$ES$İ330:CS:VV2:340:4100hV3CV:334:YN,"Do you want to print an alignment test check",N:N0VV2:340:4100rNİ4500:4200350:CKFK:CKCKK1CKCK1330:GO,22:IV:" *** The current check number is -- "CK" *** ":ER,"DATA SET # "(N)" NOT CREATED":40607CSN@350V2CV:YN,"Do you want a Check Register printed",PG:PG0VV1:340:40206350:CV2:OP,"Please load checks in the printer"%8::OP,"--- Press [SPACE BAR] when ready ---":WS,CS1:40904SQ,A$,"SPECIFIC",N:NįER,IR$:4030@CVCV1330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:4030ST%N1NNSįER,"INVALID DATA SET NUMBER":4060EF1EFĺD$UL$VX$P1$(N):EF0:4080.V),VA%(NV).NVįBR,VX$,1,A!VK$:NV,A%VA%:NV_D$OP$AF$P2$",L62":BR,AF$,0,#AV,#LR,#RR,#MRj(OS1:XEFER(222):ER6ER8EF0:XO:b1::D$CL$:PXKPXNndcheck No.:"9GO,48,4:"-------- Handcheck --------"GO,1,5:" Line Inv. No. Due Date Balance Dis Avail Pay Amt Dis Taken Net Amt"" ==== ======== ======== ========= ========= ========= ========= ========="GO,1,7:CS:LN0:BP1$,NS,P1$,CS:DS1O330:YN,"OK to process Handchecks",N:N0PG1:200[0CVCV2:330:YN,"Do you want a Handcheck Register printed",PG:PG0İ340:4020:" Vendor ID:" " Balance: Open Credits:";:GO,56:"Ha ST%N0NKXCKN:3280\ ST%2įER,"INVALID CHECK NUMBER, MUST BE 1 to 99999":3240f CKXC~ XCCK1:XCKXXC1   CB(OAMCMD):DACBDACB DVDA:DVĭTYDDSD%DV0 NTAFDT:NTCBNTCB CV9:MSįFS,(DT0)):HC%IS%0" 5350:UP1:( 2 CKıB XCXCK1: 370:GO,20:IV:" *** The current check number is --- "XC" *** "::CVCX2 330:"Enter new check number or [RETURN] only to accept current: ";:NI,0,ST%,N:ER:ESST%3:ESı,2,10:( XAFHC%2 H468< GO,H,L:OD,8,X,2,10:E XDTHC%T H56:2620f X(AFDT)HC%u H66:2620{  OK(TAAFHC%A)TX:OKı VT(6)VT(6)AFDTAD:VT(6)0VT(6)0 TATAAFHC%A:AFA:TDTDDTHC%D:DTD:IS%2((AF0)!!PF8650c!NL2:600:SP$:"***** UNABLE TO CONTINUE REGISTER, G/L JOURNAL IS FULL !!!"p!N0:500!E$"NO MORE ROOM IN THE G/L JOURNAL":8500 0"ing diskette:"<FF,PV$,A$:14:OP,!" "A$": "DK$SP$D1818:OP,"--- Press [SPACE BAR] to continue ---":WS,A$:GO,1,8:CS:4!>!12:BL$;:OP,"*** UNABLE TO POST CHECKS OR PRINT REGISTER ***"H!14:OP,E$:17:8130:200`XP%X:RRRR1:BW,AF$,0,#AV,#LR,#RR,#MR0jXXEFER(222):ER6ER8EF0:XO:lb1::D$CL$:PXr@JUF2ıTDK$GL$:8100:EF1:EFĺD$UL$GX$PV$:EF0:G1$PV$:G2$PV$:^WD,GL$::0GO,1,8:CS:12:OP,"Please load the followBW,GD$,GX,$A$,A#DD:16ABW,JF$,0,%JV%,%JE%,%JR%,%XR%S8AVLRMRıoBAVLRLR1:XLR:6220DXAV:BR,AF$,AV,#AVLST%5:A$"**** Payment":AMPA(2):Z0:Z%0VBW,AF$,X,@ST%,%XP%,$TR$,$A$,#TD,#AM,#Z,#Z,#Z,#Z,#Z,@Z%,@Z%,@Z%,@Z%*,JF$,JR%1,%VE%,#TD,$VK$(V),$TR$,@VT%:JV%JV%1:JR%JR%4OI1VE%:AMPA(I)ST%I:XAX(I):GXAA%(X):JR%JR%1:JE%JE%1AN%AN(X)HU:DN%AN(X)AN%HUBW,JF$,JR%,%AN%,@DN%,#AM,@ST%BR,GD$,GX,$A$,A#DD:16N2(AM0):DD(N)DD(N)AM(#XEFER(222):ER6ER8EF0:XO:<#b1::D$CL$:PXRI1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:1"7"R"OSĺD$CL$:EA,VK$,VA%}"D$OP$VX$P1$",L32":D$OP$VD$P1$",L148"" BR,VX$,0,#NV:VK$(NV),VA%(NV)"NVįBR,VX$,1,A!VK$:NV,A%VA%:NV"D$OP$AF$P2$",L62":BR,AF$,0,#AV,#LR,#RR,#MR#(OS1:PP$:RS,11,P1$:RS,12,P2$:RS,99,FC$3!DT,TD$,TDe!RD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,50,NS!VN$(6),VD(8),DD(7),VT(7),ST(7),RT(7),DT$(5),SV(RX),SL%(RX),UD$(1)!UD$(0)"DUE":UD$(1)"DISCOUNT"!MSUF(NS1)+"MSĆP1$(NS),P2$(NS):N40:S16368 D$(4):ES$(27)F UL$"UNLOCK":CL$"CLOSE":OP$"OPEN" VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE":AF$"APDATA.FILE" AP$"ACCOUNTS PAYABLE" SP$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ" RX500$!RS,0,TD$:RS,1,CO$:RS,10,,S52,"Less Open Credits",D8,VT(6),1,11:PL,B70,L"---------":PL,B14,S54,"Net Balance Due",D8,NVT(6),1,11uSP$:T$"========= ========= ========= ========= =========":4510\VONL1:600:PL,S9,VK$(V),LVN$(1)fVO1: KB16384:KC$"complete":500:570RT$"--------- --------- --------- --------- ---------"yOCVT(6)0:NL43OC:600:30)T$PU,B12,S17,P$:I15:OD,8,VT(I),2,10::PU,B14,S25,"Cumulative:":NVT(1):I25:NNVT(I):OD,8,N,2,10::jOCįPL,B16, ":&.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$100XUC,A$:A$"CREreated on ";:UFĺ"a blank diskette located in "DV$".":1080U380:MSĺDV$:1080ASĺ"Data Set #"CS", using "DV$:1080$OP,"!A!L!L data sets, using the following ":DD$":"&A$"":I1NS:P1$P1$(I):P2$P2$(I):384:A$A$(V1)", "(V2)"les are used to maintain your vendor data, invoices, credit""and debit memos, and other information used by the Accounts Payable System.":XY,X,V:MS1050CVV:P$"Create":AF1:3000:ES100GO,1,V:CS<"These data files will be cUFSXX2:630+lSXX1:NL3(MR1):550KvMV((SZ(SX7))(10L2))1\MVVXMVVXbh310:OP,"*** I M P O R T A N T ***"::"This option is used to create the data files used by the Accounts Payable"<"System. These fi$,N)):(P$"Creating file: "F$:350?D$OP$F$",L"S;V$:EYUFSXX2:530sSXX1:N10MVL1:550 NL2(MV1):550MR(SZ(SX2(SXCZ))L3)MR0MR0MRRXMRRX&N((N255)SZ):SXSXN1(NCZ):XbCS:JGO,1,CV:CL:GO,12:,^VCV2ASY`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 "(V2):N63VA:V1((P1$,N)):V2((P2AF0:3000:ESİ330:1203 380:GO,1,18:CS:EF1S EFĺD$UL$VX$P1$:EF0:2000 A$AD$" NOT FOUND ON "DV$:UC,A$:ER,A$:120 GO,1,1::D$CL$ 250 MM,AP$:D$"RUNAPMENU.PROG"PP$ WD,AP$" PROGRAMS":2306CV8:GO,12,CV:ble Data Files":G rGO,20:"< 2 > - View / Adjust Data File Sizes": xCV18:330:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,ST%,OP:ER:ST%2200 ST%OP1OP2įER,"INVALID SELECTION":120 OP11000 MSCVCV2:P$"Use": CREATED":61107XEFER(222):ER6ER8EF0:XO:Kb1::D$CL$:PXP1::D$CL$:PX)$OP$VX$P1$(N)",L8":BR,VX$,0,#J:I16%Z#IJN0:9100c%d#N((IJ)2):BR,VX$,3N,$P$:A$P$9100z%n#A$P$JN1:9050%x#IN1:9050%#D$CL$VX$:N9020%#380:DSSS:5100:00:DX$P1$(N):EF0:A$ES1:GSE$"DATA SET #"(N)" NOT CREATED"G$o$XEFER(222):ER6ER8EF0:XO:$b1::D$CL$:PX$(# $2#P$"global search in progress ":382$<#GS1:SSSS1:SSNSSS1$>#SSDSN0:$F#NSS:5500:ES9020#%P#DLP%,@TY%,%VP%,$IN$,$RF$,#DD,#OA,#MC,#MD,#DA,#DT,#AF,@DD%,@SD%,@HC%,@IS%:HC%HC%0:f#RW$"BW":5320l#y#"RW$"BR"#,@RW$,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%XP%,@TC%,A#VT:8:#JUPRW$"BW":5420#T#|#ES0:1::MSı$EF1:EFĺD$UL$V#SK4"D$OP$AF$P2$",L62":BR,AF$,0,#AV,#LR,#RR,#MRD"(OS1:MSı^"2SS,11,P1$:SS,12,P2$"<GO,56,1:"(Using Data Set "DS" of "NS")":"P"ZMSĺD$OP$VD$P1$(1)",L148":BR,VD$,0,#XC,#SK:D$CL$"d5100""LP%VP%:RW$"BR"S#@RW$,AF$,40:I1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:5!;!V!OSĺD$CL$:EA,VK$,VA%v!MSP1$P1$(DS):P2$P2$(DS)!D$OP$VX$P1$",L32":D$OP$VD$P1$",L148"! BR,VX$,0,#NV:VK$(NV),VA%(NV)!NVįBR,VX$,1,A!VK$:NV,A%VA%:NV"MSįBR,VD$,0,#XC,R$"INVALID RESPONSE"A RX700:L16:LX11:CX20:KX99999:TX1E9 RS,0,A$:DT,A$,TY:RS,1,CO$:RS,10,PV$:RS,11,P1$:RS,12,P2$:RS,99,FC$ RD,0,UF:RD,50,NS:RD,66,K1 VN$(5),VT(8),LP(LX),SV(RX),SL%(RX)/!MSUF(NS1):MSĆP1$(NS),P2$(NS):NGO,14,1:35):GO,13,2:12):GO,40:12):GO,71:5):4550::HlD$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE":AF$"APDATA.FILE"AP$"ACCOUNTS PAYABLE" SP$" ":IPL,B10,S16,P$,D8,VT(1),2,10,D0,VT(2),B4,D0,VT(3),B4,D8,VT(4),1,11OCįPL,B12,S56,"Less Open Credits",D8,VT(5),1,11:PL,B70,L"---------":PL,B10,S58,"Net Balance Due",D8,VT(4)VT(5),1,11SP$:T$"========= ========= ========= 45005rI17:AVT(I):ST(I)ST(I)A:RT(I)RT(I)A:;HAS3600z0I17:VT(I)RT(I)::P$"REPORT TOTAL:":4600bAC$"complete":500:570T$"--------- --------- --------- ---------"OCVT(5)0:NL33OC:600:27)T$C140$FJ,SD,A$:PU,B1,YA$@,OD,8,AM,2,10:SDĺ32):4160Q6DMAMDMAMt8P3:NDNDPD:ND0BBDM:P2:PU,B16(P3),D0,DM,I4,(ND),B16(P2):VT(P)VT(P)DM@OD,8,B,1,11::VT(4)VT(4)BTh4700:VT(5)VD(3):P$"Vendor Total:":NE:VP%SL%(E)wBR,AF$,VP%,@TY%,%VP%,$IN$,$RF$,A#DD:7,@DD%,@SD%,@HC%,@IS%:IDDD(1):AMDD(2)DD(3)DD(4):AM04180BAM:DMDD(5):DDIDDD%:SDIDSD%:NDSD:DMNDDD:SD0"VT(1)VT(1)AM:4700:NL1:600:FJ,DD,A$:PU,B6,S9,IN$,YA$:SDĺ6):4)ST(I)::P$"DATA SET TOTAL:":46005CSNS4400G$CSCS1:3020MvFL,0,7,ST:NV(V2V1)(V1NV)4300VV1V2:550:FL,0,4,VT:VO0BR,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%VP%,@TC%,A#VD:81000:NEVD(3)4250NE4200E1RR,#MR"(OS1:9"XEFER(222):ER6ER8EF0:XO:M"b1::D$CL$:PXPXKNS),P2$(NS):N40:I1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:B!H!c!OSĺD$CL$:EA,VK$,VA%!D$OP$VX$P1$",L32":D$OP$VD$P1$",L148"! BR,VX$,0,#NV:VK$(NV),VA%(NV)!NVįBR,VX$,1,A!VK$:NV,A%VA%:NV"D$OP$AF$P2$",L62":BR,AF$,0,#AV,#LR,#LID RESPONSE":Z$"ZZZZZZZZ"& RX500u RS,0,TD$:DT,TD$,TD:RS,1,CO$:RS,10,PP$:RS,11,P1$:RS,12,P2$:RS,99,FC$ RD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,50,NS VN$(6),VD(8),DD(7),VT(7),ST(7),RT(7),SV(RX),SL%(RX) MSUF(NS1) - Create Accounts Paya               )VT(1)B:VT(2)VT(2)A:BBA>@DDD(5):DĭDBDB:D0D0gBU$"":DU$"*":IDSD%TDU$"":D0JIS%3įPL,D8,BD,1,11,LU$:VT(3)VT(3)BD:VT(4)VT(4)D:4180L2):IS%3ĺ"Prepaid";NIS%4ĺ"Pd by CR";PIS%5ĺ("ChkHck",13(DD(7)@HC%,@IS%6IDDD(1):BDD(2):ADD(3)DD(4):FJ,ID,A$jTY%1TY%6RF$TY$(TY%):IN$""IN$"OPEN CR""PU,B1,S9,IN$,YA$,B1,S13,RF$:TY%1įPL,B16,D0,B:4180,IS%3įFJ,IDDD%,A$:OY,A$:4150."Close";6PU,D8,B,1,11,B11,D8,A,1,11:VT(1XvPX.FILE":AF$"APDATA.FILE":GX$"GLINDEX.FILE"RD,0,NV:RD,48,UG:RD,50,NS:RD,72,PW:RS,1,CO$:RS,6,SV$:RS,8,G1$:RS,10,PP$:RS,11,P1$:RS,12,P2$:S1$P1$:NVNS1įRS,40,S1$P$(12),SC(12)XlER(222):EFĭER6ER8EF0:XO:vP+!D$OP$VX$P1$",L32":D$OP$VD$P1$",L148"N! BR,VX$,0,#NV:VK$(NV),VA%(NV)r!NVįBR,VX$,1,A!VK$:NV,A%VA%:NV!D$OP$AF$P2$",L62":BR,AF$,0,#AV,#LR,#RR,#MR!(OS1:!XEFER(222):ER6ER8EF0:XO:!b1::D$CL$:PX2,12,P2$:RS,99,FC$D RD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,50,NS} VN$(6),VD(8),DD(7),VT(7),ST(7),RT(7),SV(RX),SL%(RX) MSUF(NS1) MSĆP1$(NS),P2$(NS):N40:I1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:  !OSĺD$CL$:EA,VK$,VA%))UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"lVX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE":AF$"APDATA.FILE"AP$"ACCOUNTS PAYABLE"SP$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ"RX500 RS,0,TD$:DT,TD$,TD:RS,1,CO$:RS,10,PP$:RS,11,P1$:RSCįPL,B20,S48,"Less Open Credits",D8,VT(6),1,11PL,B70,L"---------":PL,B18,S50,"Net Balance Due",D8,VT(7)VT(3)VT(6),1,11SP$:SP$:T$"========= ========== ======= =========":4510KB16384:KS16368D$(4):ES$(27VT(1),2,10,D8,VT(2),2,11,D8,VT(3),4,8,B6,D8,VT(4),2,10tVT(5)0įPL,B18,S37,"Discounts Lost:",D8,VT(5),4,8,L"*"SU4560SP$:PL,B18,S50,"Current Invoice Balance",D8,VT(7),1,11:DSįPL,B20,S48,"Less Discounts Available",D8,VT(3),1,110O:AS3600G0I17:VT(I)RT(I)::P$"REPORT TOTAL:":4600dbAC$"complete":500:570T$"--------- ---------- ------- ---------"DSVT(3)0:OCVT(6)0:SUDSOC:NL4(VT(5)0)SU(4DSOC):600:35)T$6PL,B16,S18,P$,D8,4):4170gBIDIDSD%:FJ,ID,A$:UDIDTD:VT(3)VT(3)UDD:VT(5)VT(5)(UD)D:U$"*":UDU$SP$:BBDDPU,D8,D,4,8,LU$,YA$JOD,8,B,2,10::VT(4)VT(4)BThVT(6)VD(3):P$"Vendor Total:":4500rI17:AVT(I):ST(I)ST(I)A:RT(I)RT(I)A%VP%,$IN$,$RF$,A#DD:7,@DD%,@SD%,@HC%,@IS%dIDDD(1):BDD(2):ADD(3)DD(4):FJ,ID,A$:FJ,IDDD%,P$"PU,B1,S9,IN$,YA$,B1,S13,RF$,YP$,D8,B,2,10,D8,A,2,11,VT(1)VT(1)B:VT(2)VT(2)A:BBA:VT(7)VT(7)B6DDD(5):DĭDBDB:D0D0@Dĺ1$(NV),VA%(NV)1"NVįBR,VX$,1,A!VK$:NV,A%VA%:NVb"D$OP$AF$P2$",L62":BR,AF$,0,#AV,#LR,#RR,#MRm"(OS1:"XEFER(222):ER6ER8EF0:XO:"b1::D$CL$:PXK,NS DT,TD$,TDp RD,0,UF:RD,1,PS:RD,2,FF:RD,3,LP:RD,50,NS TY$(5),VN$(6),VD(8),DD(7),VT(5),ST(5),RT(5),SV(RX),SL%(RX) I15:TY$(I): MSUF(NS1)!!MSĆP1$(NS),P2$(NS):N40:I1NS:RKB16384:KS16368)D$(4):ES$(27)QUL$"UNLOCK":CL$"CLOSE":OP$"OPEN"VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE":AF$"APDATA.FILE"AP$"ACCOUNTS PAYABLE"SP$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ"RX500/ RS,0,TD$:RS,1,ess Discounts Available (*)",D8,VT(4),1,11bOCįPL,B20,S47,"Less Open Credits",D8,VT(5),1,1168)"----------":PL,B18,S49,"Net Balance Due",D8,VT(3)VT(5),1,11SP$:SP$:T$"========== ========== ==========":4510 ---------- ----------"_DSVT(4)0:OCVT(5)0:SUDSOC:NL4SU(4DSOC):600:35)T$PL,B16,S18,P$,D8,VT(1),1,11,B11,D8,VT(2),1,11,D8,VT(3),1,11:SU4550+SP$:PL,B18,S49,"Current Invoice Balance",D8,VT(3)VT(4),1,11:DSįPL,B20,S47,"L0),3)("0000"((DD(7))),5);$R*TShVT(5)VD(3):P$"Vendor Total:":4500rI15:AVT(I):ST(I)ST(I)A:RT(I)RT(I)A:AS36000I15:VT(I)RT(I)::P$"REPORT TOTAL:":4600bAC$"complete":500:570T$"---------- CDTCD(C)DIDT1:N(I3):VV2N:H822(I3N):GO,H,V:HG,20zGO,H,V:GK,A$:UC,A$:I(A$):HG,20:A$ES$2310I322300I8I1:2230I21I1:2230(I127)DF2250BL$;:22002350:2200 CNCāICNC1:CD(I)g the following keys ---"hGO,2,V32:OP,"[<--] - Highlight previous data type [SPACE BAR] - Accept !h!i!g!h!l!i!g!h!t!e!d type"jGO,2,V33:OP,"[-->] - Highlight next data type"pDFCNC:DFįGO,42:"[DELETE] - Delete column"; zCNVV3:330:CS:XNC1:XCXXCXy>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,10f330:OP,"--- Select column data by pressinNRE$T$"S":370:1002360:NES11008kN2:A$"Select data to appear in columns":334V19:V2V17:V3V23:C1CX:2400:GO,5,V22:BX,70,3:GO,8,V2 I1FX:OS,22,CF$(I):3(I3)Iĺ:GO,8:V3V31DT14C"A$X$DZUC,A$:GO,H,CV:OS,8,A$:A$(A$Z$,8):FS,A$,NV,KY$,I:Jx^1470:NR1430I1NV:SL(I)įOS,10,KY$(I):1450IV:" End ";:1460:1050(KB)155ĹKS,0::1432XY,H,V:V22ı24:380GO,1,V1:CS:start":1350:ES1100! I1(I)g(CVCV1:X$A$:Z$"ZZZZZZZZ":P$"end":1350:ESİ330:CVCV1:1300{*XI:I0XI12II1:1200F330:" Enter "P$"ing "T$" ID"5(P$))": ";:OX,8,FC$:XY,H:HH8:GO,H:KI,8,A$:ER:ESA$ES$:ESıPA$"11001250:II1:1210'DE12804SL(I)ıNRNXE$"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$" only: ";:NI,0,ST%,N:ER:ST%31007XST%21800V`ST%N1N5įER,IR$:1110ujSON:I1:XNV:DESO2SO4lDENRE$"NO "T$"S SELECTED":UC,E$:ER,E$:1110tSO5įGO,31,V1SO1:HG,32~SO1200,1200,1300,1300,1400IX"-(GO,24:"< 3 > - Select specific "T$"s"^*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]5:OP,CO$::5N1:A$"Select "T$"s":334tGO,26,9:BX,28,2:GO,29,11:"# selected "T$"s = ";:XY,SH~V115CVV1:330:CS:GO,3:"Available options:";$GO,24:"< 1 > - Select all "T$"s"&GO,24:"< 2 > - De-select all "T$"s:CS:22:BL$;:UC,E$:OP,"--- NO "E$" SELECTED, Press [SPACE BAR] to return to previous step ---":WS,A$:|OP,"--- Press [SPACE BAR] to continue ---":WS,A$:1::1:OP,AP$" SYSTEM":3:OP,"*** Convert Accounts Payable Data to DIF ***":OG"PV$#WD,AP$" PROGRAMS":230=JGO,1,CV:CL:GO,12:ZLCV6: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:nr330F1:EFĺD$UL$VX$P1$(N):EF0:P1$P1$(N):L1$"":180b ER,"DATA SET # "(N)" NOT CREATED":150n CVCV8x 5200 NR0:FL,0,NV,SL:NC0:FL,0,CX,CD 1000 1::D$CL$:LFĭDF$PV$İ8000:ES100 250MM,AP$:D$"RUNAPMENU.PRES$100& SQ,A$,"CURRENT",N:N180^ SQ,A$,"SPECIFIC",N:NįER,"INVALID RESPONSE":130j 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":1503 E 7000 5000# 80:390: 2OS0:L1$"":AQ$""@ d n332:CV9:330:YN,"Want to convert "AQ$"Accounts Payable data",N:1::N0200 xCVCV2:MS180 330:OP,"Use !Current (#"(CS)") or !Specific data set: ":KI,0,A$:ER:A$                  NV)4300%VV1V2:550:FL,0,5,VT[BR,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%VP%,@TC%,A#VD:8v1000:VD(3)NE4250NL1:600:PL,S10,VK$(V),LVN$(1)NE4200E1NE:NL1:VP%SL%(E) 600:BR,AF$,VP%,@TY%,%VP%,$IN$,$RF$,A#DD:7,@DD%,@SD%,ndor IDs: "V1$" thru "V2$")"/ CPPNėA& PNNL0:600P0 720:4000V c AS3620| WD,AP$" DATA"::0I15:VT(I)ST(I)::P$"DATA SET TOTAL:":4600$CSNS4400.CSCS1:3020FL,0,5,ST:NV(V2V1)(V1 EFĺD$UL$VX$P1$:EF0:3040( 35002 5100t DS$"":MSįFS,P1$,NS,P1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":V11:V2NV:3100 FS,V1$,NV,VK$,V1:V1(V1) FS,(V2$Z$,8),NV,VK$,V2:V20V2(V2)1 V2NVV2NV  H2$"(Ve:22001JSQ,A$,"SELECTIVE",N:NįER,IR$:2110YfP$"start":370:ESVV2:340:2100dhV1$A$pP$"end":370:ESCVCV2:2150rV2$A$:AF0350:400:ESVV2:340:2100  FL,0,5,RT MSP1$P1$(CS):P2$P2$(CS) EF1INVALID DATA SET NUMBER":2060'EF1JEFĺD$UL$VX$P1$(N):EF0:2080zER,"DATA SET # "(N)" NOT CREATED":2060 CSN*3504V2CV>330:OP,"Print !All or !Selective vendors: ":S0:360:ESVV1:340:2020HSQ,A$,"ALL",N:NAF10:ESVV0:340:0SQ,A$,"CURRENT",N:N2090VSQ,A$,"ALL",N:NAS1:CS1:2090SQ,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,"NENE1:SV(NE)NRRT:SL%(NE)LP%5NERX1020MLNE1įSR,SV,SL%,NESVY}V0CV:350:V1CV:AS0:MS2100MSıAS0:RS,11,P1$:FS,P1$,NS,P1$,CS330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:36. Date Reference Date Balance Amount Activity Balance":"========= ===== ============ ===== ========== ========== ========== ==========":NE0:TRR550:TT1:VP%1100LP%VP%:BR,AF$,VP%,@TY%,%VP%,$IN$,$RF$,#N$1PU,L"As of: ",YTD$:L15)CO$L8)"Page "PNI(OW(HU$))2)HU$sDS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900 11)"Inv."16)"Due Beg. Trans M-T-D Net"I*"Inv. NoLĭ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:LN7:L(OW(CO$))2AC$" -- press [SPACE BAR]":WS,A$:GO,1,1:A&L(KB):L128ı\(KS,0:L128(ES$)ı0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC$"aborted":500:590D:580N7000PAQ$"another ":CPį80R50Xb550lN490:15:OP,"Listing may be aborted by pressing the [ESC] key":bCPPS: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 "P$"ing vendor ID":": ";:XY,H:OX,8,FC$[ tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$a vg  330:OP,"Select !Console or !Printer: ":S0:360:ESı SQ,A$,"CONSOLE",N:NCP0:EP23::490:480 SQ,A$,"PRINTER",N:NįER,IR$:420C2504 MM,AP$" REPORTS":D$"RUNAPMENU.PROG"PP$Q WD,AP$" PROGRAMS":230e 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:330:OS,26," Enter "p 7000 5000K (OS0:AQ$"":HD$"Accounts Payable Detail Report" 280:OP,AP$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$: d n310:330:YN,"Print "AQ$HD$,N:N0200 x2000:ES100 3000 1::D$CL$          "OPEN"VD$S1$:SU0:BW,VD$,0,#XC,#SK,#SU:D$CL$>NPUGSU:DhD$(4):BL$(7)(7):ES$(27)yUL$"UNLOCK"S$"Accounts Payable ":AP$"ACCOUNTS PAYABLE ":PR$AP$"PROGRAMS":GL$"GENERAL LEDGER "+VX$"VENDORINDEX.FILE":VD$"VENDORDATAou have correctly entered the vendor information and account balances."GO,12,20:CS:YN,1,"OK to remain in "S$"SETUP mode",N:N0ġ:30N2280GO,12,22:CL:OP,"Please confirm by typing !O!K: ":KI,0,A$:UC,A$:A$"OK"2250.D$our initial vendor information, open invoices, and credit balances.":" Use the Vendor Maintenance and "S$"Entry options to enter your "S$"information. You should also use the reporting features"J"of the "S$"System to verify that y:800v1300:OP,!" I M P O R T A N T ":::" Just a friendly reminder: You are still in the "S$"SETUP mode."J"While you are in this mode, "S$"transactions will NOT be posted to the General Ledger. You should use this mode ONLY to enter yA R N I N G ":13:OP,"The most recent Checks have not been posted !">17:OP,"--- Press [SPACE BAR] to perform the posting now ---":XY,X,Y:19:OP,"(use [ESC] to return to the Main Menu)"HGO,X,Y:WS,A$:A$ES$300RP$"REGISTER.PROG":SC0:" ":VV2`GO,1,V3:OP,"--- Press [SPACE BAR] when ready or use [ESC] to abort ---"{WS,A$:(A$)27ġ:50:GO,1,8:CS:D$"OPEN"VD$S1$:BR,VD$,0,#XC,#SK,#SU:SK2100SUUG2200F41300:10:BL$BL$;:OP,!" W OPİ1300:GO,12:CS:"Available options are:"OPOP1:GO,20,9OP:PL,L"<",I2,OP,L" > - ",LO$:P$(OP)P$:SC(OP)SC:SC0:1300:GO,1,10:OP,"Please load the following diskette(s):":V12: DK$""įFF,DV$,A$:GO,24,V:OP,!" "A$": "DK$GL$"DATA":EF1/vEFĺD$UL$GX$G1$:EF0:700GGF$DK$:NVWF900^PF$""GF$""8001200:DK$GF$:DV$G1$:1220:DK$PF$:DV$P1$:12201250:WF1:520 MM:SD,6,SC:SD,7,0:SD,47,NP:DK$PR$*EF1:EFĺD$"RUN"P$PP$WD,DK$:302N):P$P$(N)".PROG":SC2800<NPUG:WF0:PF$"":GF$""TDK$AP$"DATA":1:xEF1:EFĺD$UL$VX$P1$:EF0:550PF$DK$:NVWF900&NV5800EF1:EFĺD$UL$AF$P2$:EF0:5802900DPF$""İ2000XbNV2SC0NP700lDK$MRM:SMNOP1DSMĭST%N1NOPįER,"INVALID SELECTION":210{RMįBT,PW,N,I:IįER,"SECURITY VIOLATION":210SM500RMRM:SD,5,RM:50,@350JMM,"MAIN"::D$"RUNMODMENU.PROG"PP$^WD,PR$:3001::SCSC(SELECT":1000IO$"Print Discount Analysis Report":P$"DISCANAL":1000SR$""YGO,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$,"REPORTS",SM:SMSrint "S$"Detail Report":P$"APDETAIL":1000bO$"Print "S$"Aging Report":P$"APAGING":1000O$"Print Open Invoice Report":P$"APOPENINV":1000O$"Print Cash Flow Report":P$"CASHFLOW":1000 O$"Print Payment Selection Report":P$"APPAY% O$"Close "S$:P$"APRESET":1000k O$"Create and Adjust "S$"Data Files":P$"APCREATE":SC2:1000 O$"Convert "S$"Data to DIF":P$"APDIF":1000 GO,18,10OP:"REPORTS - Transfer to "S$"Reports Menu" R$", !Reports,":200-O$"P Print List of Vendors":P$"VENDORLIST":1000X |O$S$"Entry":P$"APENTRY":SC1:1000 ~O$"Select Invoices for Payment":P$"APSELECT":1000 O$" Print Checks":P$"CHECKPRINT":SC1:1000 O$"Handcheck Processing":P$"HANDCHECKS":SC1:1000 7000 1:5000! 80. 2RD,5,RMQ 4MT$"SYSTEM":RMMT$"REPORTS" <:1:OP,"<<< The Business Accountant >>>" >3:OP,AP$MT$" MENU" @5:OP,CO$ d nOP0:SC0:RM150 xO$"Maintain Vendors":P$"VENDORS":1000- zO$"        D$P1$",L148"&OS1:L1$P1$:L&XEFER(222):ER4ER6ER8EF0:XO:`&b1::D$CL$:PXf&@&TDK$AP$" PROGRAMS":ES1&GO,1,CV:CS:CV2:OP,"Please load the following diskette:":A$"":UFįFF,PV$,A$:A$SP$A$":"['CV4:OP,!A$SP$1)"Yes"H%MSĆP1$(NS):I1NS:RS,382I,P1$(I)::FS,P1$,NS,P1$,CSN%T%Pb%ZOS5220u%\MSP1$L1$ı%^EA,KY$,DA%,SL:D$CL$%dD$OP$VX$P1$",L32"%fBR,VX$,0,#NV:KY$(NV),DA%(NV),SL(NV)%nNVįBR,VX$,1,A!KY$:NV,A%DA%:NV &xD$OP$V ":IR$"INVALID SELECTION"@$CX8:C2CX2:FX6:NX250:HU100z$RS,1,CO$:RS,10,PV$:RS,11,P1$:RS,27,DF$:RS,99,FC$$RD,0,UF:RD,50,NS:MSUFNS1$VN$(5),VT(8),CD(CX),CF$(FX),CT$(FX),YN$(1)$I1FX:CF$(I),CT$(I):%YN$(0)"No ":YN$(16368+#D$(4):BL$(7)(7):ES$(27)v#CL$"CLOSE":OP$"OPEN":UL$"UNLOCK":WR$"WRITE":AP$"ACCOUNTS PAYABLE"#Q$(34):QQ$Q$Q$:BT$"BOT":OZ$"1,0":M1$"-1,0"#VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE"$T$"vendor":SP$" ":SS$" 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 ReportX8 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:3010OG"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: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 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     z #    !̮Ǡ"֮ǠծǠ ծǠ̮Ǡ ƮǠ ԮǠ׮ǠҮǠӮǠԮǠ ŮǠ ǮǠϠӮǠԮǠٮǠ-ԮǠԮǠ!+!D$(4):BL$(7)(7):ES$(27)S!CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"!VX$"VENDORINDEX.FILE":L132:VD$"VENDORDATA.FILE":L2148:AF$"APDATA.FILE":L362!AP$"ACCOUNTS PAYABLE":AD$AP$" DATA DISKETTE":SP$" "!IN$"Initializing: ")N1:3100B SQ,A$,"SPECIFIC",N:NįER,"INVALID RESPONSE":3030N CVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:3030 ST%N1NNSįER,"INVALID DATA SET NUMBER":3060! CSN:P1$P1$(N):P2$P2$(N): . AS0:RS,11,P1$:FS,P1$,NS,P1$,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",N:NNCS:3100 SQ,A$,"ALL",N:NAFAS1:ORS":2330$. MVN:500:XVMV:XRMR:8 5250:2500:2300@  GO,30,V2:PU,I6,NV,L" Vendors ",I8,XV,L" Vendors ":NNV:XXV:2550: GO,30:PU,I6,NR,L" Records ",I8,XR,L" Records ":NNR:XXR:2550  XXNX PL,B6,D8,XTT,6,5,L"%":"Want to change maximum number of vendors",N:N0Ģ1::D$CL$:100c MRLR:600:MNXE:MN1MN1t MNMVMNMV 330:"Enter maximum number of vendors ("MN"-"MV"): ";:NI,0,ST%,N:ER ST%32300 $ ST%NMVNMNįER,"INVALID NUMBER OF VENDRXRXRMR:2090+"MRLR:600:MVXE2090P$XV((MVXE)2):MVXV:500:XRMR`*5250:2500s4CV22:UF2200>CV:OP,"--- No adjustments for Hard Disks, press [SPACE BAR] to continue ---":WS,A$:100C GO,6,V2:HG,22:330:YN,=== ============== ============== ============"TGO,6:"List of Vendors":vGO,6:"Invoices, Memos, Etc.| D$OP$VX$P1$",L"L1:370:X1SXD$OP$AF$P2$",L"L3:370:X2SX5200UFİ600:XVMVMVXV:500:MRXR2090 M9:OP,"Status of Accounts Payable Files"fMSĢ11:OP,"(Using Data Set "(CS)" of "(NS)")"GO,20,7:BX,40,22MS:V132MSGO,6,V:" Type of Data Current Maximum % in Use"5GO,6:"===================ered all"h"of your initial A/P information, you can then leave the SETUP mode and use the Accounts Payable System in the normal fashion.":rOP,"--- Creation process complete, press [SPACE BAR] to continue ---":WS,A$:100310+nter Accounts Payable transactions (invoices, credit memos, etc.) without having the data posted to" ^"the General Ledger System. This mode allows you to enter all your currently open (i.e., unpaid) invoices and credit balances. Once you have ent,#Z,#Z,#XR:D$CL$.ASĭCSNSCSCS1:1250A@USĢ22:1650J310:10:OP,!" I M P O R T A N T ":::"For your convenience, the Accounts Payable System has initially been placed in"eT"the SETUP mode. While in this mode you will be able to e # "(V2):V$P2$:360:X2SX1MV300:UFİ600O500:XVMV:XRMR:Z0:US0xV$P1$:F$VX$:SL1:390:BW,F$,0,#Z,#XV,#Z,#L2:D$CL$V$P1$:F$VD$:SL2:SUUG:390:BW,F$,0,#Z,#Z,#SU:D$CL$:SUĭMSCS1US1V$P2$:F$AF$:SL3:390:BW,F$,0,#Zle creation in progress"<CV16:GO,21,CV2:BX,38,22ASASVCV:P$"Creating Data Set "(CS)" of "(NS):352:P1$P1$(CS):P2$P2$(CS)UFP$IN$DD$:1280380:P$IN$VV$" # "(V1)V$P1$:360:X1SX:X2SX:UF1300 P$IN$VV$"ATE"100`310:UF1200VjCV12:330:OP,"Please load a blank diskette in "DV$t::OP,"--- Press [SPACE BAR] to continue or press [ESC] to abort request ---":WS,A$:A$ES$100~31012:OP,"Please wait, Accounts Payable Data fi,Y-T-D Payments,YTD PayPDK$SP$:SB,1,"--- Press [SPACE BAR] to continue",ES," or use [ESC] to abort",1," ---",A$'CV6:OP,A$:WS,A$::ESA$ES$:GO,1,CV:CS:('Vendor ID,ID,Vendor Name,Name,Current Balance,Balance,Open Credit Balance,Open Cr,Y-T-D Purchases,YTD PurchP2$(NS):N40:I1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:>#D#PQ#ZRW$"BR"q#d@RW$,VX$,0,#NV,#XV,#XE,#RL#f@RW$,AF$,0,#AV,#LR,#NR,#XR:#RW$"BW":5220#X#bEC(222):EFĭEC6EC8EF0:XO:#1::D$CL$:PXB"SZ256:CZ120:VX1200:RX4000:TT10000m"RS,0,TD$:RS,1,CO$:RS,10,PP$:RS,11,P1$:RS,12,P2$:RS,28,VV$"RD,0,UF:RD,48,UG:RD,50,NS"UFįFF,P1$,DV$:DD$"diskette":5070"SQ,VV$,"VOLUME",VA:DD$VV$"s""MSUF(NS1)8#MSĆP1$(NS),1) Load ";::" SYSTEM MANAGER ";::" Diskette"[ :" 2) Press any key when ready...";c A$v :(47081)16  COPYRIGHT 1984 MANZANITA SOFTWARE SYSTEMSD0 D$(4):BL$(7)4 :(27)(17):D$"PR#0":: dp n3:4::" ACCOUNTS PAYABLE PROGRAMS DISKETTE ":~ x:BL$BL$ "The Business Accountant System cannot be started up from this diskette" : "To start up the system:"0 :"  LN)),FC$:GO,H29@KI,S,A$:310:ER:ESA$ES$:ES2070NB(A$"")ED3000lHLNID$A$:UC,ID$:3000RT1NA$(LN)A$:3000\N0:A$""įDT,A$,N:NE$"DATE, USE MMDDYY OR MM/DD/YY FORMAT":2052fVD(7)N:3000AF122502PP$(LN)00E$(PN$(LN),1):UC,E$EER,"INVALID "E$:DDED:3000:2030m ER:310:ESST%3:ESġ:AF0:2070ST%2T2ġ:3000ST%1ĭT3T4įLI,A$:SQ,A$,"NONE",N:NN0:ST%0DDED:30004>ED(T1)įPU,LNA$(LN),XS(NA$(,0,ST%,LN:ER:ST%2650OST%LN1LNELįER,"INVALID LINE NUMBER":1210n320:ED1:2000:UP1:1200t350:AFT2:T3000EDDD0:3000LNİ330:T2İ340310:GO,H1:HG,16:GO,H2DD1:T2100,2200,2300,2400,2300,21 PREV, or DATASET":1110W`FS,ID$,NV,VK$,N:N0įER,"VENDOR ID ALREADY EXISTS":1110kjAVVA%(IW):370tFS,ID$,NV,VK$,IW:IW(IW):360:5200:LN0:350:DD1:3000:650330:"Enter line number to edit (1-"EL") or [RETURN] only: ";NI ":KI,0,A$:UC,A$:A$DL$İ320:650AUS%((VA%(IW)))0:370T5200:KP:100ZLV330:"Enter new vendor ID: ";:XY,H:OX,8,FC$:GO,H:KI,8,ID$:ER:ID$ES$ID$""650XID$SP$įER,IV$:1110ZUC,ID$:390:NįER,IV$", Can't use NEXT,XVįER,"NO ROOM, VENDOR FILE IS FULL":1408330:LN1TEDLNLL:2000:ES750hLNLN1:LN740q720LNLN1:LNLLLLLNLNLX740FD,0,XV,US%,AV:US%(AV)1:360650&GO,12,23:OP,"Confirm by typing !D!E!L!E!T!E:N1200%SQ,A$,"RENAME",N:N1100ASQ,A$,DL$,N:NKD1000aER,"INVALID RESPONSE":650gLL0:FL,0,8,VD:AC%0:TN$"":TC%0:AP%0330:BL$;:YN,"Vendor not on file, want to add this vendor",N:N0730LL100140*NVb5300:3500:PVIW:UP02KDVD(2)VD(3)AP%SB,1,"Enter !Edit, !Rename,",KD," !Delete,",1," or [RETURN] only: ",P$:330:OP,P$KI,0,A$:ER:A$ES$670EVī100650A$""680UPİ5350KP:100SQ,A$,"EDIT",N:NNSN15200:EF1uEFĺD$UL$VX$P1$(N):EF0:DV$P1$(N):330:OP,!" Please wait, switching data sets "::50D$OP$VX$P1$(CS)",L32":ER,"DATA SET # "(N)" NOT CREATED":140320:FS,ID$,NV,VK$,IW:EVIW0:EVIW(IW):700X'IWPVN:ID$VK$(IW):EV1:320:600-?320:MS190330:OP,"Enter data set number (1-"(NS)") or !Next: ":NI,0,ST%,N:ER:ST%3140ST%N0NNS490LI,A$:SQ,A$,"NEXT",N:NįER,"INVALID DATASET NUMBER":470NCS1:AV:VK$(IW)ID$:US%(AV)1/nPVIW:UP1:XU1:CrNNVIW:NVNV1jtN0įMV,N,VK$(IW):MV,N,VA%(IW)}vPVIW1:XU1:SQ,ID$,"NEXT",N:NN1:SQ,ID$,"PREV",N:NN1:ID$"DATASET"N2:N0:(N0KN)(N0KP)190O,H1,V:HG,16::@35,23:GO,1,20:CS:35,24:GO,20,20:TJGO,1,21:CL:GO,12:uT330:OP,"Enter "PP$(LN):^HPH(LN):VPV(LN):H1H4:H2H21:TPT(LN):SPS(LN):hNVNV1:NVXEXENVjNNVIW:N0įMV,N,VK$(IW):MV,N,VA%(IW)lVA%(IW)!E!T to switch data sets)"F SWSW:LN0:ED0:2000:ESID$SP$200[ 390:(N)1400h N2450 ID$SP$İ320:500 ER,IV$:140 320::5200:D$CL$ 250 MM,AP$:D$"RUNAPMENU.PROG"PP$ WD,AP$" PROGRAMS":2306G5,NV,L" (",D8,TTNVXV,6,5,L"% full)3 pDD0:3500B xPV0PV0S zPVNVPVNVh KNPVNV:KPPV1 SB,1,"Enter vendor 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 7000 5000:80+ CS0:DV$P1$O OP,"*** Maintain Vendors ***"h GO,19,2:BX,42,2MS (N0:LN0LX:350:GO,H,V:LNTNN1:PU,I2,N,L"-" *GO,H1:OS,15,PN$(LN):":": 25100:PV0 d$ nGO,22,4:PU,L"Number of Vendors =",I          A$"No Terms":TC%0TC%9įRS,982TC%,A$YL2:4500:PL,S23,A$,L"YTD Pay:",D0,VD(5)mL3:4500:A2ĺxSP$:hAS3600AC$"complete":500:570LA24510,4520,4530,4540PU,B9,S27,VN$(3):PU,B9,S26,VN$(4)SP$VN$(5),B1:L Acct : ":VD(1)įOF,4,VD(1):40546OS,8,"None"VPL,L" Balance:",D0,VD(2)PL,B9,S27,VN$(2),L"Amt to Pay:",D8,VD(6),3,10,L" Open Cr:",D0,VD(3)A$"":VD(7)įFJ,VD(7),A$L1:4500:PL,L"Last Paid : ",YA$,L" YTD Pur:",D0,VD(4)+  AS3600% WD,AP$" DATA"::0+<ASNS4300N$ASAS1:3000TrNV(V2V1)(V1NV)4200VV1V2BR,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%AP%,@TC%,A#VD:8:VN$(6)""A2VN$(3)"":NL5A2:600%PU,S9,VK$(V),S27,VN$(1),L"G/0DS$"(Data Set # "(N)")"= AFH2$"":V11:V2NV:3100\ FS,V1$,NV,VK$,V1:V1(V1) FS,(V2$Z$,8),NV,VK$,V2:V20V2(V2)1 V2NVV2NV H2$"(Vendor IDs: "V1$" thru "V2$")" CPPNė& PNNL0:6000 720:4000 art":370:ESVV2:340:2100(hV1$A$LpP$"end":370:ESCVCV2:2150\rV2$A$:AF0~350:400:ESVV2:340:2100  ASDV$P1$(AS) EF1 EFĺD$UL$VX$DV$:EF0:3040 3500 5100 DS$"":MSįFS,DV$,NS,P1$,N:N802ER,"DATA SET # "(N)" NOT CREATED":2060G CSN:DV$P1$(CS)P*350Z4V2CV>330:OP,"Print !All or !Selective vendors: ":S0:360:ESVV1:340:2020HSQ,A$,"ALL",N:NAF1:2200JSQ,A$,"SELECTIVE",N:NįER,IR$:2110fP$"st:NAS1:20908SQ,A$,"SPECIFIC",N:NįER,IR$:2030DCVCV1 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$VX$P1$(N):EF0:20X43,Q$::V0CV:350:V1CV:AS0:DV$P1$:MS2100EMSıgRS,11,P1$:FS,P1$,NS,P1$,CSAS0:330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:SQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",Nof: ",YTD$:L15)CO$L8)"Page "PN;(OW(HU$))2)HU$eDS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900 " Vendor Name/Address/Telephone"15)"Vendor Information":PL,X8,Q$,B1,X26,Q$,B1,NLNNL:rv900:LNLN1:CPĢ24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$570NLİ700:600GC:CPė:FFĺ(FF):LLNOL:SP$::650PNPN1:LN6:L(OW(CO$))2#PU,L"As [SPACE BAR]":WS,A$:GO,1,1:$&W0CPLNLN2:SP$:"***** LISTING ABORTED....."n2AC$"aborted":500x:590D:580N7000PAQ$"another ":CPį80R50XbL(KB):L128620dKS,0:L128(ES$)550 lNLĭLNNLEPL"Listing may be aborted by pressing the [ESC] key":TCPPS:OLLP:EPOL6:PW,PSzHU$(HD$,1):UC,HU$:OW80:PN0:310:12:OP,"Report generation in progress"::LNLN1:900:CPİ650:PW,1:24:OP,"Listing "AC$" -- pressr ID":": ";:XY,H:OX,8,FC$M tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$S vY  330:OP,"Select !Console or !Printer: ":S0:360:ESı SQ,A$,"CONSOLE",N:NCP0:EP23::490:480 SQ,A$,"PRINTER",N:NįER,IR$:4205490:15:OP,250& MM,AP$:D$"RUNAPMENU.PROG"PP$C WD,AP$" PROGRAMS":230W 6CV9:330:CS:q JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 j rCVCV1:330:OS,26," Enter "P$"ing vendo 7000 5000:80? (OS0:AQ$"":HD$"Vendor Listing" 21:OP,AP$" SYSTEM":3:OP,"*** Print List of Vendors ***":5:OP,CO$ d n310 x330:YN,"Print "AQ$HD$,N:N0200 2000:ES100 3000 1::D$CL$       ON FILE":MS3120i* 470:OS,S,A$:330:BL$;:N0:YN,N,Q$", Want to do global search",N:N03100{, 9000:N31100 E$Q$:: GS0:5300:ID$""İ490< ACVD(3)3140> ID$A$:CBVD(3):TCTC%:GO,12,2:OS,22,VN$(1):4000:ACįGO,44,5:O ( 470:PU,LA$,XS(A$),FC$:3050 P$"vendor ID or [RETURN] only":SB,MS,"(enter !D!A!T!A!S!E!T to switch data sets)",Q$:A$ID$:3090:ROESHE(L): GS0:UC,A$:A$"DATASET"3150& FS,A$,NV,VK$,VI:VI03130( Q$"VENDOR '"A$"' NOT:3040 ESHE(L)1B 400:EDIVĭLLXROāLL1LX:400:O LSL1:` 400::3010 4500:23:OP,Q$:GO,HG2,V:HG,G1:GO,H:S10įDI,S,ST%,N:LI,A$:ESST%M3:3080 KI,S,A$:ESA$ES$ ROA$""ES:REROHE(L):480:ER:ESġ:470:OX,12,"-"CGO,H18,V1:PL,L"Unapplied Amount: ",D0,BA:`` EDİ470:OF,4,EG(EL):u 470:EDĺS): OD,0,EA(EL):  450:SLL:Q$"":E$"":OK3030 HE(L)İ400 L3100,3200,3300,3400,3500,3600,3700,3800:E$""įER,E$2:DBAEDEA(EL)ED:Dİ470:OD,0,D[>470:DI,S,ST%,N:ER:ST%M3ETETES:2200:2000u@D(ST%M2)ND:ST%0HST%0NįER,V$"AMOUNT":2500:2100fEA(EL)N:ED1:DG0:2500:ELETETELBAAM:ETāI1ET:BABAEA(I):H54:VL1XE12040)4100:ELEL1:VV1:4120:2100t FD,N,NC,AN,I:ST%0I0įER,"UNDEFINED OR "V$"ACCOUNT":2400:2020EG(EL)N:EX(EL)AA%(I):ED1:2400 BR,GD$,AA%(I),$A$:GO,30,V:OS,22,A$$4ED(ELET)ES:P$"Amount to be applied":4500:H54:S1L)0SP$ELnP$"Distribution Account number or [RETURN] only":4500:H21:S7:DDGED:Dİ470:OF,4,D470:DI,S,ST%,N:ER:ESST%M3:ST%M22050EDİ2400:2100DST%0:ND:2050EDİ4100AR1:ES2060EDEL1XE):SB,1,"Enter line number to edit",ETXE," or add",P$q330:P$" (1-"EL"): ";:NI,0,ST%,N:ER:ST%M2ıST%N0NELįER,V$"LINE NUMBER":1020ELN:ELETġ:530ED1:2000:1010AR0:EDELET:VL1EL:4120:EDįCL:EA(EMS I1ET:EA(I)EA(I)S:N NPĭJR%4VE%XR%P$"G/L JOURNAL":950q*AVLRMRP$"A/P FILE":950PU0:6000:AMEA(0):6200:6400:KP:PUĢ24:OP,PK$" ---":WS,A$100ER,"CAN'T POST, "P$" IS FULL":700:ELET(ETBA)700OlBL$;:P$"WARNING: Amount not fully applied. ":AR0:4810:AR3150bv1000:ET150k600P$IT$(TY%)" complete: ":4800:NP170AR750,630,150330:OP,!" Please wait, posting A/P entry "S2(CMAC)1:VE%ET1:EA(0)A,V:HG,G1:WFL,0,LX,HE:ID$"":IN$"":RF$"":IDCY:DD%0:SD%0:AM0:DA0:PP0:OC0L2LX:400::L1:GO,12,2:CL:GO,56,6:CL:HE(3)1:ACNP750ET0:BAAM:DGVD(1)ELET1:2000:ARBA(ETXE)530ET150Xb(D$:OS,S,IN$:+FJ,ID,A$:OY,A$:;OS,S,RF$:JOF,7,AM:eFJ,IDDD%,A$:OY,A$:tOF,7,DA:(DA)įFJ,IDSD%,A$:OY,A$:OS,S,"n/a":SHS(L):HHH(L):VHV(L):GHG(L):OKIV(S0):S(S)GO,H,V: GO,HG2"7 .@RW$,AF$,XK,@T2%,%X2%,$NX$,$RX$,A#A2:7,A@B2%:4:I 6RW$"BW":302q J35,23:GO,1,21:CS:35,24:GO,12:w  450:HE(L)430 OKįGO,H1:S2): H45ĺ"MM/DD/YY": OX,S,FC$: L431,432,433,434,435,436,437,438OS,S,IED50 ESLLX130% NP700Y 4130:P$IT$(TY%)" header information: ":4800m AR500,180,100 L2:ED1:130 330:1::D$CL$:G1$PV$DK$PP$:ES0:8100 250 MM,AP$:D$"RUNAPMENU.PROG"PV$ WD,PP$:230 ,RW$"BR+ 7000 5000:800 4600:8000:5100? CS0:5200} 24900:IVTY%1:NIIV:CMTY%2:DMTY%3:ACTY%4:CDCMDM <TY$(IT$(TY%),1):UC,TY$:ACTY$"APPLY O/C" P4400 d n4130:ED0:490 3000:ES140 LL2:LED130                XDVXBįER,"INVALID DISCOUNT AMOUNT":2230:DX:2700MGO,2,L:HG,48 3000:OKįGO,70,L:OD,8,AD,2,10:2500:2020 370:ER,TL$:XAF:2600:XDT:2700:2100 GO,35,LN7:PL,S15,"Vendor total:",D8,TA,2,10,D8,TD,2,10,D8,TATD,2,10:( Hlable",N:370:N02100&AX:2600ABCBA:DFDT:DFDFBT(DFDV)DFDVqDVBXDF:2700:2280330:OP,"Enter discount amount"XDF:2700:GO,61,L:DI,9,ST%,X:ER:ST%3XDT:2700:2100ST%2ST%0:XDF,ST%0X0:2020RST%2ST%0:XDFT\ST%0X0XCBįER,"INVALID PAYMENT AMOUNT":2110ifX(CBDV)2180p2600:CV:BL$;:OP,"*** PAYMENT GREATER THAN CURRENT BALANCE LESS DISCOUNT ***"zGO,12,CV2:YN,"Want to forgo taking maximum discount avaiT",I:Iİ5450::200FST%N1NLNįER,"INVALID LINE NUMBER":2020kVP%LP(N):5300:3500:LN5:3704330:OP,"Enter amount to pay":DFAF:DFDFCBDV>XDF:2600:GO,2,L:HG,48:GO,51:DI,9,ST%,X:ERHST%3XAF:2600:GO,2,L:HG,48N0İ2000PDİ4600&5450:KP.:7SELH370:CVCX1GO,51,LN6:"--------- --------- ---------":2500330:OP,"Enter line number (1-"(LN)"), !Quit, or [RETURN] only: "NI,0,ST%,N:LI,A$:ST%2İ4550:SQ,A$,"QUI0PU,D8,AF,2,10,D8,DT,2,10,D8,NT,2,10B8LP(LN)LP%:LNLXİ2000LB1030dLGO,50,16:OS,8,IN$VDU(DDDD%)PD:DUAFDT1030`OK1150jDDUDV:ADU(CBDV):3000:OK1030tER,TL$": "VK$(V)~A0:D0:3000:OK0:1030 PDL0VP%SL%(IP):5300:3500*PD1100:$LN01070&GO,14,1:PL,S13,ID$,S22,VN$(1):GO,13:OD,0,VT(2):GO,40:OD,0,VT(3)::LN0.LNLN1:FJ,DDDD%,A$:GO,3,5LN:PU,I2,LN,B2,S9,IN$,YA$,D8,CB,2,10,B16(DV):DVįPU,D8,DV,2,10,I6,DDSD%TY&RRT:SL%(NE)LP%+0TATAAF:TDTDDT:530CXNE1įSR,SV,SL%,NEYbPDįGO,1,12:CL_le{NE0:V2V2V1ıVV1V2:ID$VK$(V):5400PDįGO,30,16:OS,8,ID$:GO,50:8)TA0:TD0:500:UP0:LN1:OK1:IP0IPIP1:IPNE120N1 5500:ESİ380:DSN:50;ES0:ER,E$:DSSS:110A_TRR:NE0:VP%XP%:VP%ıPDĢ12:OP,"Please wait, gathering data for "ID$TT1:VP%6005300:TY%1530IS%2(OAMCMD)530&NERXNENE1:SV(NE)(DDDD%)N0NNSNK0:VnLI,A$:SQ,A$,"NEXT",N:NNKįER,"INVALID DATA SET NUMBER":360irGO,1,CX:CS:|P$"switching data sets "~330:OP,!" Please wait, "P$::MSįER,"INVALID VENDOR ID":110NK1:360:ES100NKNDS1:NNS2V330:CVVCVCV1:342$X^4550:12:OP,"--- Selection process complete, press [SPACE BAR] to continue ---":WS,A$::h330:" Enter data set number (1-"NS")";:NKįOP," or !Next "j": ";:NI,0,ST%,N:ER:ESST%3:ESılST%DS1:50(1::D$CL$:PDİ350XPG$"APPAYSELECT":RQPG$"APMENU":MM,AP$b2501::D$"RUN"PG$".PROG"PV$WD,AP$" PROGRAMS":2306S08KI,S,A$:ER:ESA$ES$:ESİ340:@CVCV2JGO,1,CV:CL:GO,12:TVCV"VENDOR '"A$"' NOT ON FILE":MS140g 330:BL$;:YN,0,E$", OK to do global search",N:N0110x 9000:N120 ER,E$:110 1000:AL170 NEİ4600:ER,"NO OPEN INVOICES ON FILE FOR '"ID$"'":110 100 AS200DSNSDS2:OP,"(enter !D!A!T!A!S!E!T to switch data sets)" p330:PU,L"Enter vendor ID or [RETURN] only to quit: ",X8,FC$:XY,H:GO,H8:S8:310:GO,1,22:CL:ESA$SP$200 rUC,A$:A$"DATASET"450 xFS,A$,NV,VK$,N:N0GS0:V1N:V2N:370:150& zE$Ѓ 7000 5000:804 1:OP,AP$" SYSTEM"f 3:OP,"*** Select Invoices for Payment ***"x 5:OP,CO$: 4000 2 <NDS:5500:ESİ5100:100 FAS180 PWD,AP$" DATA"::0 dALV11:V2NV:1503 nGS0:SSDS:CVCX:MSĢ2          )FL,0,4,ST:NV(V2V1)(V1NV)4300FVV1V2:550:FL,0,4,VT|BR,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%VP%,@TC%,A#VD:81000:NE4250NL1:600:PL,S9,VK$(V),LVN$(1)E1NE:NL1:600:VP%SL%(E)BR,AF$,VP%,@TY%,%VP%,$IN$,$RF$,A#DD:7)1 V2NVV2NVA H2$"(Vendor IDs: "V1$" thru "V2$")"P CPPNėb& PNNL0:600q0 720:4000w  AS3620 WD,AP$" DATA"::0I14:VT(I)ST(I)::P$"DATA SET TOTAL:":4600$CSNS4400.CSCS1:30201$P1$(CS):P2$P2$(CS) EF1? EFĺD$UL$VX$P1$:EF0:3040I 3500S 5100 DS$"":MSįFS,P1$,NS,P1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":V11:V2NV:3100 FS,V1$,NV,VK$,V1:V1(V1) FS,(V2$Z$,8),NV,VK$,V2:V20V2(V2:2020'HSQ,A$,"ALL",N:NAF1:2200RJSQ,A$,"SELECTIVE",N:NįER,IR$:2110zfP$"start":370:ESVV2:340:2100hV1$A$pP$"end":370:ESCVCV2:2150rV2$A$:AF0350:400:ESVV2:340:2100  FL,0,4,RT MSPV1:2030?ST%N1NNSįER,"INVALID DATA SET NUMBER":2060HEF1kEFĺD$UL$VX$P1$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":2060 CSN*3504V2CV>330:OP,"Print !All or !Selective vendors: ":S0:360:ESVV1:340fic, or !All data sets: ":S0:360:ESVV0:340:QSQ,A$,"CURRENT",N:N2090wSQ,A$,"ALL",N:NAS1:CS1:2090SQ,A$,"SPECIFIC",N:NįER,IR$:2030CVCV1  330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCD%,@HC%,@IS%ETY%1IS%1NENE1:SV(NE)(NDD%)RRT:SL%(NE)LP%VNERX1020nLNE1įSR,SV,SL%,NEtVzV0CV:350:V1CV:AS0:MS2100MSıAS0:RS,11,P1$:FS,P1$,NS,P1$,CS2330:OP,"Use !Current (#"(CS)"), !SpeciDate Due Date Balance Amt to Pay Disc Taken Net Cash":"======== ======== ======== ======== ========== ========== ========== ==========":NE0:TRR550:TT1:VP%1100 LP%VP%:BR,AF$,VP%,@TY%,%VP%,$IN$,$RF$,#N,A#DD:6,@DD%,@S: 6503PNPN1:LN6:L(OW(CO$))2dPU,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; " Vendor Inv. No. Inv another ":CP100R80:50#X,b550JlNLĭ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$:1:900:CPİ650:PW,0:\24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:GO,1,1:q&L(KB):L128ı(KS,0:L128(ES$)ı0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC$"aborted":500:590D:580N7000PAQ$":480-SQ,A$,"PRINTER",N:NįER,IR$:420t490:15: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"::LNLNȭESİ330 j[ rCVCV1:330:OS,26," Enter "P$"ing vendor ID":": ";:XY,H:OX,8,FC$ tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$ v  330:OP,"Select !Console or !Printer: ":S0:360:ESıSQ,A$,"CONSOLE",N:NCP0:EP23::4903000  1::D$CL$' 250e SB,1,AP$,RM," REPORTS",P$:MM,P$:D$"RUNAPMENU.PROG"PP$ WD,AP$" PROGRAMS":230 6CV9:330:CS: JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330 hKI,S,A$:ER:ESA$ES$: 7000 5000:80I (OS0:AQ$"":HD$"Payment Selection Report"c 21:OP,AP$" SYSTEM" 43:OP,"*** Print "HD$" ***" 65:OP,CO$ <AQ$""RMİ310:130 d n310 x330:YN,"Print "AQ$HD$,N:N0200 2000:ES100      "334:V1CV:AS0:MS41002MSES1:TRS,11,P1$:FS,P1$,NS,P1$,CS330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":KI,0,A$:ESA$ES$:ER:ESVV0:340:SQ,A$,"CURRENT",N:N4090 SQ,A$,"ALL",N:NAS1: Dollars"! AM$(AA$AM$,80):/ 1'S/10'SN& LL2:X((X$,L,2)):Xı0 T(X10):UXT10:X20AM$SP$UN$(X)AM$:: UAM$SP$UN$(U)AM$D TAM$SP$TN$(T)AM$N  100'S LL1:X((X$,L,1)):XAM$SP$UN$(X)HU$AM$  DDDD" 2270 H OD,16,CA,A$:L(A$):A$(A$,L1):X$A$:360} AN$(AA$A$,11):AC$" & "(A$,2)"/100":AM$"" LL3:3100:3200 X((X$,L3,3)):XAM$TH$AM$ 3100:3200:AM$""AM$" Zero"  AM$AM$AC$:(AM$)72AM$AM$",LVN$(4),B1,LVN$(5)'VN$(3)""ĺSP$9I16:SP$:VVDCKCK1:CKXKCK1aVD0:PL,BT,L"V V OOOO IIIII DDDD"PL,BT,L" V V O O I D D" PL,BT,L" V V O O I D D" PL,BT,L" V OOOO IIIIILSL2(ISL19:SP$::74)CK$:SP$;CACT:VDCA0Z3000:L80(AM$):L0L0iL2LL2L)AM$:SP$:SP$:SP$PL,B50,YTD$,B9,LAN$:SP$T10:VD2300PL,BT,LVN$(1):PL,BT,LVN$(2)VN$(3)""įPL,BT,LVN$(3)PL,BT========== ==========="04IAOAMCMD:APDTAFj>PL,S13,RF$,S9,IN$,YID$,B1,D2,IA,D2,AP,D2,(DT),D2,AFyHCTCTAF:CHECKVD1ĺ68)"----------":PL,B58,L"Net Check",D2,CT:SLSL2VD0ĺSP$:23)"<< Continued on next Check Stub >>":S3VD1:2200:SL0)SLSL1:SL12100mPL,L"Vendor ID: ",S10,I$,L"Vendor Name: ",S39,VN$(1),LCK$:SP$" Reference Inv. No. Inv Date Inv Amt Amt Paid Disc Taken Net Amt" "============ ======== ======== =========== =========== =:CVCV4MT330:YN,"Do you want to reprint any of the checks",N:N01700x^MK1:XLK:P$"start":DM:370:ES1620`R1NhMN:P$"end":DX:370:ESCVCV1:1630rR2N:4300:1000100STUBSLCK$(Z0$(CK),5):CT0SL1#ASREĭCSNSCSCS1:1050)FPW,1:310:R1NC1600ZMSDS1:1550|D$CL$:D$OP$VD$P1$(1)",L148"BT,DS,9,PG:BT,DS,10,0:BW,VD$,0,#CK,#DS:KP:MSĺD$CL$@NC1700J350:OP,"***** Check Generation is complete *****"00lCKR2VNV:RE1:1300,~VP%1200l5300:TY%1IS%(4)ISįFJ,ID,ID$:2000:IS%(4)2:5350:CF1v1150CF1300VD(8)CK:VD0:2200:5450:R11300LKVD(8):NCNC1:MSįBT,DS,CS,1MSN1:BW,VD$,0,#CK,#NKPx380:MS1100#ASCS1DP1$P1$(CS):P2$P2$(CS):EF1j$EFĺD$UL$VX$P1$:EF0:5100:1100t.1400LRE0:IS1(R10):NV1400VV1NV:5400:I$VK$(V)`VP%XP%:SL0:CF0:(VP%)(VD(6))1300bR11150jCKVD(8):CKR113:360TrCVCV1:330:" Enter "P$"ing Check Number ("M"-"X")"5(P$))": ";:XY,HtGO,H,CV:D;:CL:GO,H:NI,0,ST%,N:ER:ESST%3:ESİ330:CVCV1:vST%2ND:xST%NMNXįER,IC$:372z|PW,PS:SVCV:PW,0:CVSV:334: D$"RUN"PG$PV$0 WD,AP$" PROGRAMS":230J 61:OP,AP$" SYSTEM"m 83:OP,"*** Print Checks ***" :5:OP,CO$:: JGO,1,CV:CL:GO,12: N330:CS: T330:CVVCVCV1:340 V ^CVCV2:334 h(A$,1)SP$ıjA$(A$,2)BL$BL$;:OP,"***** Ready to print the Check Register *****"s CV2:OP,"Reload regular paper in the printer": :OP,"--- Press [SPACE BAR] when ready ---":WS,A$::334 PG$"REGISTER.PROG" 1::D$CL$ 250 PG$AM$įMM,AP$ 7000 5000:80# 3102 OS0:5200f 2CV9:330:YN,"OK to print checks",N:N0200 <350:V0CV:4000:ES50 FNC0:DS0:R10:K1CK:1000 d nCV8:350:350:NCĺBL$;:OP,"*** NO CHECKS PRINTED ***"::150 xPG180<           D)" DATE":UC,HU$2 MSP1$P1$(CS):P2$P2$(CS)W EF1:EFĺD$UL$VX$P1$:EF0:3040a 3500k 5100 DS$"":MSįFS,P1$,NS,P1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":V11:V2NV:3100 FS,V1$,NV,VK$,V1:V1(V1) FS,(V2$Z$,8)P$"start":370:ESVV4:340:22001V1$A$UP$"end":370:ESCVCV2:2250eV2$A$:AF0350:400:ESVV4:340:2200` DDTD:I14:DDDDIP:FJ,DD,DT$(I)::FJ,DD1,DT$(5)   FL,0,7,RT:HU$AP$SP$HD$", BASED ON "UD$(UD1:SQ,A$,UD$(0),N:NUD08SQ,A$,UD$(1),N:NUD1PUD0įER,IR$:2160Y350cV4CV330:OP,"Print !All or !Selective vendors: ":S0:360:ESVV3:340:2160SQ,A$,"ALL",N:NAF1:2300SQ,A$,"SELECTIVE",N:NįER,IR$:2210&;:NI,0,ST%,N:ER:ESST%3:ESVV1:340:2020oHST%N1N99įER,"INVALID NUMBER OF DAYS SPECIFIED":2100}RIPN:350fV3CVp330:OP,"Base cash flow on either !D!Ue or !D!Iscount date: ":S0:360:ESVV2:340:2110z(A$)2A$""U:ER:ST%3İ330:CVCV1:2030UST%N1NNSįER,"INVALID DATA SET NUMBER":2060^EF1EFĺD$UL$VX$P1$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":2060 CSN*3504V2CV0>330:"Enter interval period in days (1-99): "t (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:gSQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:CS1:2090SQ,A$,"SPECIFIC",N:NįER,IR$:2030CVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N1IS%21050,DDDD%:UDĭDD(5)0DDSD%[NENE1:SV(NE)(DD(1)DD)RRT:SL%(NE)LP%lNERX1020LNE1įSR,SV,SL%,NEVV0CV:350:V1CV:AS0:MS2100MSıAS0:RS,11,P1$:FS,P1$,NS,P1$,CSH330:OP,"Use !CurrenNo. Date Date";:L15:PU,B2,YDT$(L):::"======== ======== ===== ===== ========= ========= ========= ========= =========":NE0:TRR550:TT1:VP%1100 LP%VP%:BR,AF$,VP%,@TY%,%VP%,$IN$,$RF$,A#DD:7,@DD%,@SD%,@HC%,@IS%:TY%As of: ",YTD$:L15)CO$L8)"Page "PN>(OW(HU$))2)HU$hDS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900 19)"Due Disc Ending Ending Ending Ending After"-"" Vendor Inv. PLNLNNL:uv900: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:LN7:L(OW(CO$))2&PU,L"ess [SPACE BAR]":WS,A$:GO,1,1:6&L(KB):L128ıQ(KS,0:L128(ES$)ı0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC$"aborted":500:590D:580N7000PAQ$"another ":CPį80R50Xb550 lNLĭLNNLE"Listing may be aborted by pressing the [ESC] key":TCPPS:OLLP:EPOL6:PW,PS}HU$AP$SP$HD$:UC,HU$:OW80:PN0:310:12:OP,"Report generation in progress"::LNLN1:900:CPİ650:PW,1:!24:OP,"Listing "AC$" -- prr ID":": ";:XY,H:OX,8,FC$M tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$S vY  330:OP,"Select !Console or !Printer: ":S0:360:ESı SQ,A$,"CONSOLE",N:NCP0:EP23::490:480 SQ,A$,"PRINTER",N:NįER,IR$:4205490:15:OP,,AP$" REPORTS":D$"RUNAPMENU.PROG"PP$C WD,AP$" PROGRAMS":230W 6CV9:330:CS:q JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 j rCVCV1:330:OS,26," Enter "P$"ing vendo= 7000 5000= (OS0:AQ$"":HD$"Cash Flow Report" 280:OP,AP$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$: d n310:330:YN,"Print "AQ$HD$,N:N0200 x2000:ES100 3000 1::D$CL$ 250& MM         :,@RW$,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%XP%,@TC%,A#VD:8:MJRW$"BW":5420bNPİ8000:5100pMS5200D$OP$VD$P1$(1)",L148":BR,VD$,0,#XC,#SK:D$CL$VD$:pzTR$RX$CK$:NP6200JR%7XR%8600VE%2(PA(3)0):VT%149BWNVzD$CL$VX$+MSįBR,VD$,0,#XC,#SK\D$OP$AF$P2$",L62":BR,AF$,0,#AV,#LR,#RR,#MRgOS1:mLP%VP%:RW$"BR"@RW$,AF$,LP%,@TY%,%VP%,$IN$,$RF$,#DD,#OA,#MC,#MD,#DA,#DT,#AF,@DD%,@SD%,@HC%,@IS%:RW$"BW":5320"RW$"BR"AN,X:A0X0AX(I)X:NN1:b<E$"Error in G/L Posting Table, Check A/p entry # "(N9):8500hPZOSįEA,VK$,VA%:D$CL$VD$:D$CL$AF$dD$OP$VX$P1$",L32":D$OP$VD$P1$",L148"nBR,VX$,0,#NV:VK$(NV),VA%(NV)xNVįBR,VX$,1,A!VK$:NV,A%VA%:D$OP$GX$G1$",L16"4 BR,GX$,0,#NC:AN(NC),AA%(NC)WNCįBR,GX$,1,A#AN:NC,A%AA%:NCbD$CL$zD$OP$GD$G1$",L102"D$OP$JF$G2$",L9" BR,JF$,0,%JV%,%JE%,%JR%,%XR%:RD,9,N:N0įSD,9,JR%(N10:I2:5170:I1:5170:I32RD,N,A:FD,A,NC,RD,2,FF:RD,3,LP:RD,47,NP:RD,50,NS\DD(16),AX(3),PA(3),VN$(5),VD(8),RA(4),VA(4),IA(4)CS0:MSUF(NS1):MSĆP1$(NS),P2$(NS):N40:I1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:EF1:EFĺD$UL$GX$G1$:EF0:5130WD,GL$::0 LE":GD$"GLDATA.FILE":JF$"JOURNAL.FILE"GL$"GENERAL LEDGER DATA":AP$"ACCOUNTS PAYABLE":PP$AP$" PROGRAMS":SP$" ":Z0$"000000"HU100RS,0,TD$:DT,TD$,TD:RS,1,CO$:RS,8,G1$:RS,9,G2$:RS,10,PV$:RS,11,P1$:RS,12,P2$%RD,0,UF:RD,1,PS:,N1:500@7JMSĺD$CL$:D$OP$VD$P1$(1)",L148"WTSK0:BW,VD$,0,#XC,#SK:200]D$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE":AF$"APDATA.FILE"(GX$"GLINDEX.FIP1500%VD(5)VD(5)VA(4):VD(7)TDGVD(2)VD(2)AP:VD(6)VD(6)APc6000:VD(8)0:5450:KPiMSCSCS1:CSNS1050PF1600NL3:600:30):I14:PU,B1,X11,"="::"PU,B16,S15,"REPORT TOTAL":I14:OD,0,RA(I):::SP$ OAMCMD)2AMIS%5:AFVC:HCAFVC><5350:VO1:1200LxVO1500ZPF1450NL2:600:30):I14:PU,B1,X11,"-"::PU,B16,S15,"Check Total: ":I14:OD,0,VA(I):::600:SP$PA(1)VA(4):PA(2)VA(2):PA(3)VA(3):APVA(2):AIA(1)OAMCMD:IA(2)AFDT:IA(3)DT:IA(4)AF:PF1300fVOİ600:PL,LCK$,B1,S9,VK$(V),LVN$(1)~600:PU,B22,S9,IN$I14:OD,0,IA(I)::I14:XIA(I):VA(I)VA(I)X:RA(I)RA(I)X:MCMCAFDT:DADADT:AF0:DT0:IS%0:HC%0 (AM1510&$P1$P1$(CS):P2$P2$(CS):EF1L&EFĺD$UL$VX$P1$:EF0:5200:1100V.1510dLNV1510VV1NV:5400:VP%XP%:NC0:VCVD(8)`VP%VC1500jFL,0,4,VA:VO0:CK$(Z0$(VC),5)VP%14005300:TY%1IS%21200,AF(AF):SP$:800:900f "Ck No Vendor Name / Inv No Inv Amt Amt Paid Disc Taken Net Amt":"===== ======== =============== =========== =========== =========== ===========":NL1:FL,0,4,RA:MS1100CS1BT,SK,CS,N:N20:  900:650:PW,N:& XD bLNNLEPLNLNNL:NL1:W l900:700:610] n FFĺ(FF): TLNOL:SP$::  650 PNPN1:LN7:L(OW(CO$))2 PU,L"As of: ",YTD$:L15)CO$L8)"Page "PN (OW(HD$))2)HD$,A$:( xHD$"CHECK REGISTER":RX$"CK"H HCHD$"HAND"HD$:RX$"HC"U PFİ400_ 1000i QUIT 1::D$CL$:NPĭG1$PV$DK$PP$:8100 250 MM,AP$:D$"RUNAPMENU.PROG"PV$ WD,PP$:230  OW80:OLLP:EPLP6:PW,PS:PN0:7 7000 5000:804 1:OP,AP$" SYSTEM"i 3:OP,"*** Post Checks and Print Register ***"{ 5:OP,CO$: 5600 d nBT,SK,9,PF:BT,SK,10,HC pSB,1,"Please wait, posting Checks",PF," and printing Check Register",A$:12:OP      ,"INVALID DISCOUNT AMOUNT":2230.DX:2710AGO,4,L:HG,42g 3000:OKXAD:2800:2500:2020 370:ER,"VENDOR HANDCHECK TOTAL IS TOO LARGE":2600:2700:2100 GO,21,LNL12:PL,S25,"Vendor handcheck total:",D8,TA,2,10,D8,TD,2,10,D8,TATD:370:N02100AX:2610=BCBA:DFDTHC%:DFDFBNDFDVDFDVjDVBX0:2710:2280330:OP,"Enter discount amount"XDF:2710:GO,57,L:DI,9,ST%,X:ER:ST%3İ2700:2100ST%2ST%0:XDF ST%0X0XDVXBįERRST%2ST%0:XDFL\ST%0X0XCBįER,"INVALID PAYMENT AMOUNT":2110afX(CBDV)2180p2610:CV:BL$;:OP,"*** PAYMENT GREATER THAN CURRENT BALANCE LESS DISCOUNT ***"zGO,12,CV2:YN,"Want to forgo taking maximum discount available",NQF1::1300>ST%N1NLNįER,"INVALID LINE NUMBER":2020dVP%LP(N):5300:3500:LNL1:3704330:OP,"Enter amount to pay":DFAFHC%:DFDFCBDV>XDF:2610:GO,4,L:HG,42:GO,47:DI,9,ST%,X:ERHST%3İ2600:GO,4,L:HG,42:2020,#SKxVT(8)CK:5450:KP:&SEL7370:CVCX1qGO,47,LNL11:"--------- --------- ---------":2500330:OP,"Enter line number (1-"(LN)"), !Quit, or [RETURN] only: "NI,0,ST%,N:LI,A$:ST%2İ4550: SQ,A$,"QUIT",I:Iİ4600:$:GO,5,L:PU,I2,LN,B2,S9,IN$,YA$,D8,CB,2,10,D8,DV,2,10Mj2600:2700:2800itLP(LN)LP%:LNLXİ2000s~1100LN0İ2000:4600(TATD)CK0:XCSX:NE1:1400FMSSK1PMSįBT,SK,DS,1ZBT,SK,9,PG:BT,SK,10,1:MSįBW,VD$,0,#XCTA0:TD0:LN0:OK1:IP0:500:NEıpGO,14,1:PL,S13,ID$,S22,VN$(1):GO,13:OD,0,VT(2):GO,40:OD,0,VT(3):$SXXC:3200:ESı.GO,71,2:("0000"(CK),5):370LIPIP1:IPNE1200VVP%SL%(IP):5300:35007`LNLN1:LL1LN:FJ,DDDD%,Ase wait, gathering data for "ID$5TT1:VP%600J5300:TY%1530eIS%2(OAMCMD)530&NERXNENE1:SV(NE)(DDDD%)RRT:SL%(NE)LP%0TATAAFHC%:TDTDDTHC%:530XSR,SV,SL%,NE:GO,1,12:CL:5400:CKVT(8)$ES0:switching data sets "<~330:OP,!" Please wait, "P$::bMSįER,"INVALID VENDOR ID":110xNK1:360:ES100NKNDS1:NNSN15500:ESİ380:DSN:50ES0:ER,E$:DSSS:110TRR:NE0:VP%XP%:VP%ı!12:OP,"Pleainue ---":WS,A$::Wh330:" Enter data set number (1-"NS")";:NKįOP," or !Next "j": ";:NI,0,ST%,N:ER:ESST%3:ESılST%N0NNSNK0:nLI,A$:SQ,A$,"NEXT",N:NNKįER,"INVALID DATA SET NUMBER":360rGO,1,CX:CS:|P$"$:ESİ340:*JGO,1,CV:CL:GO,12:5TVCV2QV330:CVVCVCV1:342WX^4550:12:PG0įBT,SK,10,N:NĺBL$;:OP,"*** NO HANDCHECKS WRITTEN ***":15:PG1`OP,"--- Handcheck Selection process complete, press [SPACE BAR] to cont'"QF100Y1::D$CL$:MSĺD$OP$VD$P1$(1)",L148":BW,VD$,0,#XC,#SK:D$CL$iPG0İ350PG$"REGISTER":PG0PG$"APMENU":MM,AP$2501::D$"RUN"PG$".PROG"PV$WD,AP$" PROGRAMS":2306S0 8KI,S,A$:ER:ESA$ESE":MS140L 330:BL$;:YN,0,E$", OK to do global search",N:N0110] 9000:N120m ER,E$:110 ID$A$:1000:ESİ4600:110 NEİ4600:ER,"NO OPEN INVOICES ON FILE FOR '"ID$"'"NE0İ4600:ER,"NO HANDCHECK WRITTEN FOR '"ID$"!A!T!A!S!E!T to switch data sets)" p330:PU,L"Enter vendor ID or [RETURN] only to quit: ",X8,FC$:XY,H:GO,H8:S8:310:GO,1,22:CL:ESA$SP$200 rUC,A$:A$"DATASET"450 xFS,A$,NV,VK$,V:V0GS0:370:150 zE$"VENDOR '"A$"' NOT ON FIL 7000 5000f 80:OP,AP$" SYSTEM":3:OP,"*** Handcheck Processing ***":5:OP,CO$:u 4000:QF0 2MSP1$P1$(DS):P2$P2$(DS) <NDS:5500:ESİ5200:100 PWD,AP$" DATA"::0 d" nGS0:SSDS:CVCX:MSĢ22:OP,"(enter !D        IFIC",N:NįER,IR$:6030%CVCV1330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:6030ST%N1NNSįER,"INVALID DATA SET NUMBER":6110EF1:EFĺD$UL$VX$P1$(N):EF0:DSN:ER,"DATA SET #"(N)" NOT:AVN:A%(N)1:5820p$zMSıASVCV:FS,P1$,NS,P1$,CS330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":KI,0,A$:ER:A$ES$ġ:50SQ,A$,"CURRENT",N:NAS0:DSCS:SQ,A$,"ALL",N:NAS1:DS1:SQ,A$,"SPECįBW,AF$,N,#L5640DTNSXX2:UFSXX1:N10MVR1:5750:NR2(MV1):5750tXXR(SZ(SX2(SXCZ))R3)lXR0XR0nXRRXXRRXpvN((N255)SZ):SXSXN1(NCZ):LRıFD,0,LR,A%,N:N0ıBW,AF$,N,#AVHC%,@IS%:RW$"BW":5320#0"RW$"BR"j,@RW$,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%XP%,@TC%,A#VT:8:}JRW$"BW":5420TLR0:RR0:MR0MR(MR)MRRXİ5700:MRXRA%(MR)LAV:400:AVLLı NL:BR,AF$,L,#L:400:LR,VX$,1,A!VK$:NV,A%VA%:NVUD$OP$AF$P2$",L62":BR,AF$,0,#AV,#LR,#RR,#MR:390:X2SX(OS1:MSįGO,29,18:"(Using Data Set "DS" of "NS")"25600LP%VP%:RW$"BR" @RW$,AF$,PP%,@TY%,%VP%,$IN$,$RF$,#DD,#OA,#MC,#MD,#DA,#DT,#AF,@DD%,@SD%,@2)"End-of-Year Close"nMSUF(NS1):MSĆP1$(NS),P2$(NS):N40:I1NS:RS,N,P1$(I):RS,N1,P2$(I):NN2:tzOSĺD$CL$:EA,VK$,VA%,A%D$OP$VX$P1$",L32":D$OP$VD$P1$",L148":390:X1SX BR,VX$,0,#NV,#MV:VK$(NV),VA%(NV)NVįBTA.FILE"#AP$"ACCOUNTS PAYABLE"FSP$" ":IR$"INVALID RESPONSE"sR132:R2148:R362:SZ256:CZ120:RX5000RS,0,A$:RS,1,CO$:RS,10,PV$:RS,11,P1$:RS,12,P2$RD,0,UF:RD,50,NSVN$(5),VT(8),RM$(2)RM$(1)"End-of-Month Close":RM$(.VT(2)VB:VT(6)VF:VT(8)0:VT(3)0VT(3)0:(5450:^F5800:BW,AF$,0,#AV,#LR,#RR,#MRjxAS800s200yD$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"VX$"VENDORINDEX.FILE":VD$"VENDORDATA.FILE":AF$"APDA%:5300:LVP%:400:VP%L:NP%VP%:TY%1OAOAMDMC:MD0:MC0SIS%2TY%11200RRRR1:VBVBOA:VFVF(DTAF)(IS%1):UP%PP%:5350:1150BW,AF$,PP%,#AVAVPP%:UP%XP%NP%:VP%NP%:1150PP%UP%:5300:VP%NP%:5350:1150:EFĺD$UL$VX$P1$:EF0:5100:1000@ASįWD,AP$" DATA"::0Q DSNS1500b*DSDS1:600hvNV1400LV1NVV5400:GO,42,16:OS,8,VK$(V):`LXP%:400:XP%L:VP%XP%:UP%0:VB0:VF0:EYVT(4)0:VT(5)0~VP%1300=PP%VP,!" WARNING: Error found in A/P data files, rebuilding files during close "[FE1:L0:a310:14:OP,"Please wait, "RM$(RM)" in progress"V116:GO,34,V1:"Vendor:"GO,16,12:BX,48,42MS:XMSP1$P1$(DS):P2$P2$(DS)"bEF1 250,MM,AP$:D$"RUNAPMENU.PROG"PV$IWD,AP$" PROGRAMS":230R6CV9a8330:CS:{JGO,1,CV:CL:GO,12:SX((46063)4)(46064):L0LMRL(L)450LĭA%(L)450LLRLRLA%(L)1:LFEĢ22:BL$;:OP"INVALID SELECTION":120@ GO,27,102RM:HG,20:312:EYRM2R 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 1::D$CL$)" is just like an "RM$(1)" except it also resets the Year-to-Date purchases and payments for all vendors." v:XY,H,CV xSVCV:330:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,ST%,RM:ER:ST%2200 zST%RM1RM2įER,L 7000 5000h 80:OP,AP$" SYSTEM":3:OP,"*** Close Accounts Payable ***":5:OP,CO$:q 2FE0w d n310:"Available options to close Accounts Payable are:":: pI12:GO,20:"< "I" > - "RM$(I):::y rGO,6:"Note: An "RM$(2      ered all"h"of your initial A/P information, you can then leave the SETUP mode and use the Accounts Payable System in the normal fashion.":rOP,"--- Creation process complete, press [SPACE BAR] to continue ---":WS,A$:100310+nter Accounts Payable transactions (invoices, credit memos, etc.) without having the data posted to" ^"the General Ledger System. This mode allows you to enter all your currently open (i.e., unpaid) invoices and credit balances. Once you have ent,#Z,#Z,#XR:D$CL$.ASĭCSNSCSCS1:1250A@USĢ22:1650J310:10:OP,!" I M P O R T A N T ":::"For your convenience, the Accounts Payable System has initially been placed in"eT"the SETUP mode. While in this mode you will be able to e # "(V2):V$P2$:360:X2SX1MV300:UFİ600O500:XVMV:XRMR:Z0:US0xV$P1$:F$VX$:SL1:390:BW,F$,0,#Z,#XV,#Z,#L2:D$CL$V$P1$:F$VD$:SL2:SUUG:390:BW,F$,0,#Z,#Z,#SU:D$CL$:SUĭMSCS1US1V$P2$:F$AF$:SL3:390:BW,F$,0,#Zle creation in progress"<CV16:GO,21,CV2:BX,38,22ASASVCV:P$"Creating Data Set "(CS)" of "(NS):352:P1$P1$(CS):P2$P2$(CS)UFP$IN$DD$:1280380:P$IN$VV$" # "(V1)V$P1$:360:X1SX:X2SX:UF1300 P$IN$VV$"ATE"100`310:UF1200VjCV12:330:OP,"Please load a blank diskette in "DV$t::OP,"--- Press [SPACE BAR] to continue or press [ESC] to abort request ---":WS,A$:A$ES$100~31012:OP,"Please wait, Accounts Payable Data fi, ":&.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$100XUC,A$:A$"CREreated on ";:UFĺ"a blank diskette located in "DV$".":1080U380:MSĺDV$:1080ASĺ"Data Set #"CS", using "DV$:1080$OP,"!A!L!L data sets, using the following ":DD$":"&A$"":I1NS:P1$P1$(I):P2$P2$(I):384:A$A$(V1)", "(V2)"les are used to maintain your vendor data, invoices, credit""and debit memos, and other information used by the Accounts Payable System.":XY,X,V:MS1050CVV:P$"Create":AF1:3000:ES100GO,1,V:CS<"These data files will be cUFSXX2:630+lSXX1:NL3(MR1):550KvMV((SZ(SX7))(10L2))1\MVVXMVVXbh310:OP,"*** I M P O R T A N T ***"::"This option is used to create the data files used by the Accounts Payable"<"System. These fi$,N)):(P$"Creating file: "F$:350?D$OP$F$",L"S;V$:EYUFSXX2:530sSXX1:N10MVL1:550 NL2(MV1):550MR(SZ(SX2(SXCZ))L3)MR0MR0MRRXMRRX&N((N255)SZ):SXSXN1(NCZ):XbCS:JGO,1,CV:CL:GO,12:,^VCV2ASY`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 "(V2):N63VA:V1((P1$,N)):V2((P2AF0:3000:ESİ330:1203 380:GO,1,18:CS:EF1S EFĺD$UL$VX$P1$:EF0:2000 A$AD$" NOT FOUND ON "DV$:UC,A$:ER,A$:120 GO,1,1::D$CL$ 250 MM,AP$:D$"RUNAPMENU.PROG"PP$ WD,AP$" PROGRAMS":2306CV8:GO,12,CV:ble Data Files":G rGO,20:"< 2 > - View / Adjust Data File Sizes": xCV18:330:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,ST%,OP:ER:ST%2200 ST%OP1OP2įER,"INVALID SELECTION":120 OP11000 MSCVCV2:P$"Use": 7000 5000:804 1:OP,AP$" SYSTEM"x 3:OP,"*** Create and Adjust Accounts Payable Data Files ***" 5:OP,CO$: d nGO,1,7:CS:GO,12,10:"The following options are available:":: pGO,20:"< 1 > - Create Accounts Paya              ,NV,VK$,V2:V20V2(V2)1, V2NVV2NVY H2$"(Vendor IDs: "V1$" thru "V2$")"h CPPNėz& PNNL0:6000 720:4000  AS3610 WD,AP$" DATA"::0I17:VT(I)ST(I)::P$"DATA SET TOTAL:":4600CSNS4400 $C"SUMMARY "HU$. MSP1$P1$(CS):P2$P2$(CS)7 EF1W EFĺD$UL$VX$P1$:EF0:3040a 3500k 5100 DS$"":MSįFS,P1$,NS,P1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":V11:V2NV:3100 FS,V1$,NV,VK$,V1:V1(V1) FS,(V2$Z$,8)L",N:NAF1:2300=SQ,A$,"SELECTIVE",N:NįER,IR$:2210eP$"start":370:ESVV3:340:2200pV1$A$P$"end":370:ESCVCV2:2250V2$A$:AF0350:400:ESVV3:340:2200`   FL,0,7,RT:HU$(HD$,1):UC,HU$:DFHU$Summary Aging Report: ":S0:360:ESVV1:340:2020XHDF1:SQ,A$,"DETAIL",N:NDF1wJSQ,A$,"SUMMARY",N:NDF0RDF0įER,IR$:2110f350V3CV330:OP,"Print !All or !Selective vendors: ":S0:360:ESVV2:340:2110SQ,A$,"AL ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030eST%N1NNSįER,"INVALID DATA SET NUMBER":2060nEF1EFĺD$UL$VX$P1$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":2060 CSN*3504V2CV4>330:OP,"Print !Detailed or !OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:wSQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:CS1:2090SQ,A$,"SPECIFIC",N:NįER,IR$:2030CVCV1/ 330:" Enter data set number (1-"NS"):@TY%,%VP%,$IN$,$RF$,#N,A#DD:6,@DD%,@SD%,@HC%,@IS%kTY%1ĭIS%3NENE1:SV(NE)(NDD%)RRT:SL%(NE)LP%|NERX1020LNE1įSR,SV,SL%,NEVV0CV:350:V1CV:AS0:MS2100MSıAS0:RS,11,P1$:FS,P1$,NS,P1$,CSX330: 1 to 30 31 to 60 61 to 90 Over 90 Balance":XDFĺ"========= ========";:910s"==================";" ========= ========= ========= ========= ========= =========":NE0:TRR550:TT1:VP%11001LP%VP%:BR,AF$,VP%,0PU,L"As of: ",YTD$:L15)CO$L8)"Page "PNH(OW(HU$))2)HU$rDS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900 DFĺ" Inv. No. Due Date ";:810""Vendor ID / Name ";4*" Current ĭ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:LN6:L(OW(CO$))2C$" -- press [SPACE BAR]":WS,A$:GO,1,1:@&L(KB):L128ı[(KS,0:L128(ES$)ı0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC$"aborted":500:590D:580N7000PAQ$"another ":CPį80R50Xb550lNL490:15:OP,"Listing may be aborted by pressing the [ESC] key":aCPPS: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 "AP$"ing vendor ID":": ";:XY,H:OX,8,FC$Z tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$` vf  330:OP,"Select !Console or !Printer: ":S0:360:ESı SQ,A$,"CONSOLE",N:NCP0:EP23::490:480 SQ,A$,"PRINTER",N:NįER,IR$:420B2503 MM,AP$" REPORTS":D$"RUNAPMENU.PROG"PP$P WD,AP$" PROGRAMS":230d 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:330:OS,26," Enter "N 7000 5000J (OS0:AQ$"":HD$"Accounts Payable Aging Report" 280:OP,AP$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$: d n310:330:YN,"Print "AQ$HD$,N:N0200 x2000:ES100 3000 1::D$CL$             1:V2NV:3100- FS,V1$,NV,VK$,V1:V1(V1)\ FS,(V2$Z$,8),NV,VK$,V2:V20V2(V2)1m V2NVV2NV H2$"(Vendor IDs: "V1$" thru "V2$")" CPPNė& PNNL0:6000 720:4000 AS3610 WD,AP$" DATA"::0$I17:VT(I,7,RT:HU$HD$", BASED ON "(PD$,2)"/"(PD$,3,2)"/"(PD$,2)" PAYMENT":UC,HU$s MSP1$P1$(CS):P2$P2$(CS) EF1:EFĺD$UL$VX$P1$:EF0:3040 3500 5100 DS$"":MSįFS,P1$,NS,P1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":V1VV2:340:21100SQ,A$,"ALL",N:NAF1:2300[SQ,A$,"SELECTIVE",N:NįER,IR$:2210P$"start":370:ESVV3:340:2200V1$A$P$"end":370:ESCVCV2:2250V2$A$:AF0350:400:ESVV3:340:2200`   S FL,0ted payment date: ";:XY,H:"MM/DD/YY";:GO,H:S0:360:ESVV1:340:2020^HA$SP$A$TD$RDT,A$,N:NOįER,"INVALID DATE":2100\PDN:PD$A$:GO,H,CV:OY,PD$:350fV3CV330:OP,"Print !All or !Selective vendors: ":S0:360:ES(1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030nST%N1NNSįER,"INVALID DATA SET NUMBER":2060wEF1EFĺD$UL$VX$P1$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":2060 CSN*3504V2CVJ>330:"Enter anticipaa330: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$,"SPECIFIC",N:NįER,IR$:2030CVCV18 330:" Enter data set number DD:7,@DD%,@SD%,@HC%,@IS%:TY%1IS%21050EDDDD%:DD(5)0DDSD%tNENE1:SV(NE)(DD(1)DD)RRT:SL%(NE)LP%NERX1020LNE1įSR,SV,SL%,NEVV0CV:350:V1CV:AS0:MS2100MSıAS0:RS,11,P1$:FS,P1$,NS,P1$,CS/ Inv # Date Date Balance to Take Left Lost Lost Balance":"============== ===== ===== ========= ========= ==== ========= ==== =========":NE0:TRR550:TT1:VP%1100*LP%VP%:BR,AF$,VP%,@TY%,%VP%,$IN$,$RF$,A#PU,L"As of: ",YTD$:L15)CO$L8)"Page "PNC(OW(HU$))2)HU$mDS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900 16)"Due Disc Current Discount Days Discount Days Net"J""Vendor NLEPLNLNNL:zv900: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:LN7:L(OW(CO$))2+-- press [SPACE BAR]":WS,A$:GO,1,1:;&L(KB):L128ıV(KS,0:L128(ES$)ı0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC$"aborted":500:590D:580N7000PAQ$"another ":CPį80R50Xb550lNLĭLNȢ15: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$" ng vendor ID":": ";:XY,H:OX,8,FC$U tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$[ va  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:. MM,AP$" REPORTS":D$"RUNAPMENU.PROG"PP$K WD,AP$" PROGRAMS":230_ 6CV9:330:CS:y JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 j$ rCVCV1:330:OS,26," Enter "P$"i 7000 5000E (OS0:AQ$"":HD$"Discount Analysis Report" 280:OP,AP$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$: d n310:330:YN,"Print "AQ$HD$,N:N0200 x2000:ES100 3000 1::D$CL$ 250!! ! ! ! ! !!!!!!!!!       ,FL,0,7,ST:NV(V2V1)(V1NV)4300IVV1V2:550:FL,0,7,VTBR,VD$,VA%(V),A$VN$:5,%AC%,$TN$,%VP%,@TC%,A#VD:81000:NEVD(3)4250NL1:600:PL,S10,VK$(V),LVN$(1):NE4200E1NE:NL1:600:VP%SL%(E))BR,AF$,VP%,@TY%,0V2(V2)1 V2NVV2NVJ H2$"(Vendor IDs: "V1$" thru "V2$")"Y CPPNėk& PNNL0:600z0 720:4000  AS3610 WD,AP$" DATA"::0I17:VT(I)ST(I)::P$"DATA SET TOTAL:":4600CSNS4400$CSCS1:3020,RT# MSP1$P1$(CS):P2$P2$(CS)H EF1:EFĺD$UL$VX$P1$:EF0:3040R 3500\ 5100 DS$"":MSįFS,P1$,NS,P1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":V11:V2NV:3100 FS,V1$,NV,VK$,V1:V1(V1)  FS,(V2$Z$,8),NV,VK$,V2:V2ѭESVV1:340:20204HSQ,A$,"ALL",N:NAF1:2200_JSQ,A$,"SELECTIVE",N:NįER,IR$:2110fP$"start":370:ESVV2:340:2100hV1$A$pP$"end":370:ESCVCV2:2150rV2$A$:AF0350:400:ESVV2:340:2100  FL,0,7ST%3İ330:CVCV1:2030PST%N1NNSįER,"INVALID DATA SET NUMBER":2060xEF1:EFĺD$UL$VX$P1$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":2060 CSN*3504V2CV>330:OP,"Print !All or !Selective vendors: ":S0:360:(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:bSQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:CS1:2090SQ,A$,"SPECIFIC",N:NįER,IR$:2030CVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:$RF$,#N,A#DD:6,@DD%,@SD%,@HC%,@IS%VTY%1ĭIS%3NENE1:SV(NE)NRRT:SL%(NE)LP%gNERX1020LNE1įSR,SV,SL%,NEVV0CV:350:V1CV:AS0:MS2100MSıAS0:RS,11,P1$:FS,P1$,NS,P1$,CSC330:OP,"Use !Current (#"Inv. No. Date Reference Date Balance Activity Amt / Date Balance":"========= ===== ============ ===== ========= ========== ============= =========":NE0:TRR550:TT1:VP%1100"LP%VP%:BR,AF$,VP%,@TY%,%VP%,$IN$,O$))27PU,L"As of: ",YTD$:L15)CO$L8)"Page "PNO(OW(HU$))2)HU$yDS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SP$:800:900 11)"Inv."16)"Due Beg. M-T-D Discount Net"Q*"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:LN7:L(OW(Cing "AC$" -- press [SPACE BAR]":WS,A$:GO,1,1:G&L(KB):L128ıb(KS,0:L128(ES$)ı0CPLNLN2:SP$:"***** LISTING ABORTED....."2AC$"aborted":500:590D:580N7000PAQ$"another ":CPį80R50Xb55020I490:15:OP,"Listing may be aborted by pressing the [ESC] key":hCPPS:OLLP:EPOL6:PW,PSHU$(HD$,1):UC,HU$:OW80:PN0:310:12:OP,"Report generation in progress"::LNLN1:900:CPİ650:PW,1:224:OP,"Listnter "P$"ing vendor ID":": ";:XY,H:OX,8,FC$a tGO,H:S8:360:ESįUC,A$:GO,H,CV:OS,S,A$g vm  330:OP,"Select !Console or !Printer: ":S0:360:ESı SQ,A$,"CONSOLE",N:NCP0:EP23::490:480SQ,A$,"PRINTER",N:NįER,IR$:4L$ 250: MM,AP$" REPORTS":D$"RUNAPMENU.PROG"PP$W WD,AP$" PROGRAMS":230k 6CV9:330:CS: JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 j0 rCVCV1:330:OS,26," E 7000 5000Q (OS0:AQ$"":HD$"Accounts Payable Open Invoice Report" 280:OP,AP$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$: d n310:330:YN,"Print "AQ$HD$,N:N0200 x2000:ES100 3000  1::D$C"" " " " " """""""""