L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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`ICATE PROCEDURE, TO RETURN TO MENU";AA$:A$""1530P(A$)3Āa(A$)2790j9305);"1........................CHAFIL"5);"2........................JOUFIL"5);"3.....................PAYMASTER"5);"4.........10F3F4F10NN13:"BACKUP IS COMPLETE."EN;" RECORD";UN1ĺ"S";hF9K9ND30" WITH ";ND;" FIELDS EACH"F9K9ND15"COPIED FROM DRIVE ";D;" TO DRIVE ";E"NEW FILE NAME IS ";DF$-:"HIT TO DUPLCD$:Z1RU"SINGLE DRIVE USERS - ENTER DESTINATION DISK AND HIT ";JL$[ZOE$fdWE$;CrnQ1NDxP$(Z,Q)QCNĺCE$:1460ZZ1:CC1:Z51ĺCE$:12601380 COPY FINISHEDF9K9N(N1)2K3K4K READ DETAIL RECORDS4Z1: 50 RECORD COUNTERx"SINGLE DRIVE USERS - ENTER SOURCE DISK AND HIT ";JL$OD$RD$;B R1NDP$(Z,R)R(BN13602ZZ1:BB1:Z51ī1360<1280F WRITE DETAIL RECORDS P1$K9F9N2N1: PERSMASTER-CD$v"SINGLE DRIVE USERS - ENTER DESTINATION DISK AND HIT ";JL$OE$:WE$;H1H1NHH$(H)HCE$N01460K9F9ĭN11460 COPY DETAIL RECORDSBD1:CD1E: ";D$" "CHANGE (Y OR N)?";U$3 U$"N"1760E U$"Y"3010l "ENTER NEW UPDATE (MM/DD/YY)?";D$v 1760C:"3-DUE DATE",:"4-AMOUNT"f"5-DECRIPTION",:"6-QTY. INVOICED":"7-DATE RECEIVED",:"8-VOUCHER #""9-QTY RECEIVED",:"10-P.O.#":"11-QTY. ORDERED",:"12-DR ACC'T #""13-CR ACC'T #",:"14-STREET ADDRESS":"15-CITY STATE ZIP"  "UPDATG8&"CHANGE HEADER IN 'PAYMASTER' (Y OR N)?";U$A0LQ4T:(U$,1)"N"ı^D1710~lOP$:WP$;1:T$:DK$:D$:NvCC$"RUNMICROPAY,D1""FIELD # TO BE CHANGED""ENTER:""1-VENDOR NAME",:"2-INVOICE #"W END DATE (MM/DD/YY)?";DN$M"NBR. OF RECORDS: ";N:"CHANGE (Y OR N)?";U$^U$"N"1770pU$"Y"1760"NEW NBR. OF RECORDS?";NLQ4ıLL99OP$:WP$;1:T$:DK$:DN$:N:CC$ ROUTINE CHANGES 'PAYMASTER' HEADIN"NEW TITLE (MAX. 60 CHAR'S)";T$P"START DATE: ";DK$:"CHANGE (Y OR N)?";U$aU$"N"1748sU$"Y"1740"NEW START DATE (MM/DD/YY)?";DK$A33000"END DATE: ";DN$:"CHANGE (Y OR N)?";U$U$"N"1760U$"Y"1750"NE ROUTINE CHANGES HEADING IN 'PAYFIL'*N"ENTER Y - TO CHANGE HEADER"r" N - TO CHANGE RECORD"~"?";U$U$"Y"1710U$"N"ı1690"TITLE: ";T$:"CHANGE (Y OR N)?";U$U$"N"1740U$"Y"17301710!„N3:Q3:N4:N5:F$:G$L,OP$:WP$;I:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2m6N3:Q3:N4:N5:F$:G$:CC$t@IJ"RECORD DELETED"T^"DO YOU WANT TO DELETE ANOTHER RECORD (Y/N)? ";U$hU$"Y"1440mU$"N"ır1630|$ :N2:Q2:N3:Q3)N4:N5:F$:G$:CC$AV$;" INVOICE #";N1s"IS THIS THE INVOICE TO BE DELETED (Y/N)";U$U$"N"1630U$"Y"15401510NN1MN11610IM1N1"OP$:RP$;I1:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:: PQ3;:ZN4;:#dN5;:.nF$;:9xG$;:?_ ROUTINE DELETES A RECORDe"ENTER NBR. OF RECORD TO BE DELETED?";MM0MN1480"FILE HAS RECORDS 1 TO ";N:1630OP$:RP$;M1:V$:N1:D1$:B:D$:Q1:D2$ ::L91::(216,01"8307,O":FF12000:FF:1460)"VENDOR: ";V$T"IS THIS THE RIGHT VENDOR, Y OR N";U$j(U$,1)"Y"1480(U$,1)"N"1440L988: EOF ROUTINES::"** VENDOR NBR. NOT FOUND IN PAYMASTER **"GG13000:GG JN1I11X# RM$;J1:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$#& WM$;J:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$#0 J#: RM$;I1:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$;$D WM$;I:V$" ROUTINE PUTS PAYMENTS INTO 'JOUFIL'/" M" OJ$:RJ$;0:D3$:D4$:N8m" WJ$;N81:D1$:D$:110:B" WJ$;N82:D1$:D$:N5:B" WJ$;0:D3$:D4$:N82" " " ROUTINE PUTS PAYMENTS INTO 'PAYMASTER'" " NN1:II1:B8B#*" ! ,M$! :!" ,V$%!, ,F$.!6 ,G$?!@ K111::K]!J K(V$):K20V$(V$,20)v!T JK20:V$V$" ":J!^ K(D$):K25D$(D$,25)!h FMTN1:3490:N1$Z$!r D1$;" ";N1$;" $";B$;!| " ";V$;" ";D$! K117::K! ! )3000 d INSERTS PAYMENTS ' n 3080- x 3 P ROUTINE PRINTS CHECKSV \ f ::t 55);D1$~ :: FMTB:3540 B$Z$ C$(B$,2) M(B$) M(M) M$(M)! M$" *****"M$"*DOLLARS*AND*"C$"*CENTS**** JJ1N RM$;J:W$:M1:F1$:C:E$:P1:F2$:M2:P2:M3:P3:M4:M5:H$:I$d W$V$M1N12680n 2610x BBC II1 IN12610( 25302 B02680< ROUTINE PRINTS CHECKSF 2720P ROUTINE CREATES 'JOUFIL' RECORDS Z :X91İ9000#L IN1LL3:2400-V 24306` I:<j at TESTS ENDPAGE & ADJUSTS LINESg~ q LL3 LL94ĺ:LL1:2480 JL1L92::J :   ROUTINE LOOKS FOR NEG. VALUES AND ADDS  JI:IN12610Q1:3490:Q1$Z$(FMTN2:3490:N2$Z$@FMTQ2:3490:Q2$Z$X FMTN3:3490:N3$Z$p FMTQ3:3490:Q3$Z$ FMTN4:3490:N4$Z$$ FMTN5:3490:N5$Z$. Q1$;" ";D2$;" ";N2$;" ";Q2$;8 " ";N3$;" ";Q3$;" ";N4$;" ";N5$ B F$;G$):K25D$(D$,25)1K(F$):K30F$(F$,30)JJK30:F$F$" ":Jg PAD STRINGS FOR OUTPUTFMTN1:3490:N1$Z$FMTB:3540:B$Z$Z$(I1):K14(Z$):Z$" "Z$:K:II$Z$II$;" ";V$;N1$;" ";D1$;B$;" ";D$FMT CITY STATE ZIP"" ,*LL484PP1:>>SH PRINT RECORDSYR_\lfI2N1pOP$:RP$;I:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$:CC$zK(V$):K20V$(V$,20)JK20:V$V$" ":JK(D$,"LAST ACCUMULATION DATE ";D$:LL1+}"REC# VENDOR NAME INV.# D/P DATE AMOUNT DESCRIPTION" "QUANT.INV. REC.DATE REC.V.# QUANT.REC. PUR.ORD# QUANT.ORD. DR.ACCT# CR.ACCT.#""STREET ADDRESS ;U$4N"DO YOU WANT TO PRINT THIS REPORT (Y/N)";Y$IXY$"Y"ĺ"PR#4"ObUl[vr HEADING ROUTINEx::65);"PAGE ";P:1990,"'PAYFIL'";:,"'PAYMASTER'";:A1970,1980T$L4A12040% 1850 HEADING $19506 LISTING @2140Z ADJUST END OF PAGEd3430q"PR#0"|:190& ROUTINE TO PREPARE PRINTER0:"PUT PRINTING HEAD ON FIRST LINE OF PAGE"D"HIT 'RETURN' WHEN YOU ARE READY"^!h LISTING OF 'PAYMASTER''rE|OP$"OPENPAYMASTER,L200"`RP$"READPAYMASTER,R"|WP$"WRITEPAYMASTER,R"OP$:RP$;1:T$:D$:N:CC$N0ĺ::"*** NO RECORDS IN PAYMASTER ***":K12500:K:1810P1 PREPARE PRINTER,0,200 $ INVMASTER,4,26,1,0,250= INVFIL,3,6,1,0,100[ PERSMASTER,4,15,2,0,280v PAYROLL,4,15,2,0,100.................PAYROLL"3A$:A$""4500B(A$)3ĀS(A$)2790Yq CHAFIL,3,4,1,0,60 JOUFIL,3,4,1,0,55 PAYMASTER,4,15,2,1,200 PAYFIL,4,15,2,1,200 RECMASTER,4,12,1,0,20 0 RECFILE,4,12,1...............PAYFIL"A5);"5.....................RECMASTER"l5);"6.......................RECFILE"5);"7.....................INVMASTER"5);"8........................INVFIL"5);"9....................PERSMASTER"4);"10......!V 2430!` I:!j H PRINT RECORDSR\fI2N1pOP$:RP$;I:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$:CC$70);"PAGE ";P:" ""1990fTB1);"ACCOUNTS PAYABLE":TB2);"TRANSACTION FILE LISTING":TB1);"ACCOUNTS PAYABLE":TB);"MASTER FILE LISTING":A1970,1980Y$"Y"ĺ.5(80(T$)));T$:2010T$L7A12040)TXY$"C"Y$"N":TB10:19056NXY$"S"XY$"P"1850@STB30nX"ENTER PRINTER SLOT NUMBER (1 TO 7) ";SL]SL1SL71880b"PR#";SL:Y$"Y":XY$"P"ĺ" 80N"lq:v HEADING ROUTINEY$"N"1990" ":" " 1940 LISTING %2140? ADJUST END OF PAGEI3430V"PR#0"a:190g& ROUTINE TO PREPARE PRINTER0:"ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUTPUT, OR FOR CRT OUTPUT ";XY$D$"OPENPAYMASTER,L200,D1"5RP$"READPAYMASTER,R"QWP$"WRITEPAYMASTER,R"vOP$:RP$;1:T$:DK$:D$:N:CC$N0ĺ::"*** NO RECORDS IN PAYMASTER ***":K12500:K:1810P1D8$D$ PREPARE PRINTER1850 HEADING ĺ::"*** NO RECORDS IN PAYFIL! ***":K12500:K:1620@P1W PREPARE PRINTERa1850p HEADINGz1940" LISTING,21406 ADJUST END OF PAGE@3430J"PR#0"T:190^h LISTING OF 'PAYMASTER'r|OPK ($(.L1L9 ' ' I' (' Z$(FMT)9' K18(Z$)G' Z$" "Z$N' KT' n' FMT(FMT100.5)100|' Z$(FMT)' ZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":3590' ZZ$(Z$,3):(ZZ$,1)"."3590' Z$Z$".00"'K111(Z$)'Z$" "Z$(M2:P2:M3:P3:M4:M5:H$:I$%& K/& 33706& J@& JM2&* WM$;J:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$&4 WM$;1:S$:D5$:M1&> &H &R ADJUST ENDPAGE&\ &f X913450&p "ENTER A 1 TO CONTINUE";X9'z IM1L% RM$;J:W$:M1:F1$:C:E$:P1:F2$:M2:P2:M3:P3:M4:M5:H$:I$[% V$W$T1j% T13350z% V$W$3350% KM2J11% RM$;K1:W$:M1:F1$:C:E$:P1:F2$:M2:P2:M3:P3:M4:M5:H$:I$& WM$;K:W$:M1:F1$:C:E$:P1:F2$::N1:D1$:B8:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$Q$N RM$;1:T$:D$:Mg$X WM$;1:T$:D$:Nm$b s$l $v ROUTINE PUTS 'PAYFIL' RECORDS INTO 'PAYMASTER'$ $ RM$;1:S$:D5$:M$ DECISION VARIABLE$ T0$ M123360% J2Z9Z91rZ991700:|"ENTER A '1' TO CONTINUE ";Z9CZ90IS1320Y_z VIDEO OUTPUT ROUTINE" CASH REQUIREMENTS REPORT"" ------------------------"S$E1$;A1ĺ" ":2100  " C'T #:";N4'"LEDGER DR.ACC'T #:";N5I"ENTER A '1' TO CONTINUE";U$R900i.u TURN OFF SCREEN/u SET PRINTER TO 80 COLUMNS0u" 80N":Lf"INV.#:";N1;$h" P.O.#:";N39p"DUE DATE:";D1$Rr"RECEIVE DATE:";D2$nzB0ĺ"AMOUNT DUE:$";B;{B0ĺ"AMOUNT PAID:$";B;|" VOUCHER #:";N2"QTY.ORDERED:";Q3;" QTY.RECEIVED:";Q2"DESCRIPTION:";D$ "LEDGER DR.AC+B$.*+:V$;.4+" ";#.>+D$).H+?..u TURN OFF SCREENa./u SET PRINTER TO 80 COLUMNSo.0u" 80N":w.10RRDERED: ";Q3$/-,"LEDGER DR ACC'T NBR.: ";N4$Q-6"LEDGER CR ACC'T NBR.: ";N5$z-@IN1ĺ:" *** LAST RECORD ***":-J"ENTER A NUMBER TO CONTINUE?";TT-T2380-'M$::-'V$:F$:G$-$':-*D1$;-+" ";- +N1$;-+" $ ";. $,"INVOICE #: ";N1$.,"DUE DATE: ";D1$I,"AMOUNT PAYABLE: ";B$a,"DESCRIPTION: ";D$,"QUANTITY INVOICED: ";Q1$,"RECEIVING DATE: ";D2$,"VOUCHER NUMBER: ";N2$,"QUANTITY RECEIVED: ";Q2$,"P.O.NUMBER: ";N3$ -""QUANTITY OFMT)2+ ZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":3590U+ ZZ$(Z$,3):(ZZ$,1)"."3590e+ Z$Z$".00"w+K111(Z$)+Z$" "Z$+K+$+.+:" RECORD #: ";I1+"VENDOR NAME: ";V$+"STREET ADDRESS: ";F$,"CITY STATE ZIP: ";GN5:F$:G$)*4 WM$;1:S$:DK$:D5$:M1/*> 5*H K*R ADJUST ENDPAGEQ*\ a*f X913450*p "ENTER A 1 TO CONTINUE";X9*z IL1L9* * I* * Z$(FMT)* K18(Z$)* Z$" "Z$* K* * FMT(FMT100.5)100+ Z$( KM2J11Y) RM$;K1:W$:M1:F1$:C:E$:P1:F2$:M2:P2:M3:P3:M4:M5:H$:I$) WM$;K:W$:M1:F1$:C:E$:P1:F2$:M2:P2:M3:P3:M4:M5:H$:I$) K) 3370) J) JM2 ** WM$;J:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4: PUTS 'PAYFIL' RECORDS INTO 'PAYMASTER'-( I( RM$;1:S$:DK$:D5$:Mb( DECISION VARIABLEj( T0z( M123360( J2M1( RM$;J:W$:M1:F1$:C:E$:P1:F2$:M2:P2:M3:P3:M4:M5:H$:I$( V$W$T1( T13350( V$W$3350)JL': RM$;I1:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$e'? N4N5:N5110:D1$TD$'D WM$;I:V$:N1:D1$:B8:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$'N RM$;1:T$:D$:X1$:M'X WM$;1:T$:D$:X1$:N'b 'l '(v ROUTINE2& & <& ROUTINE PUTS PAYMENTS INTO 'PAYMASTER'B& W& NN1:II1:B8Bi& JN1I11& RM$;J1:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$&& WM$;J:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$'0 " ";V$;" ";D$#% Y$"N"29554% K117::K:% @% F% q% ROUTINE PUTS PAYMENTS INTO 'JOUFIL'w% % OJ$:RJ$;0:D3$:D4$:N8% NY53D1$TD$% WJ$;N81:D1$:D$:N5:B% WJ$;N82:D1$:D$:110:B& WJ$;0:D3$:D4$:N8$ Y$"N"İ10000"$ Y$"N"2955+$ ,M$3$ :<$" ,V$E$, ,F$N$6 ,G$_$; Y$"N"2890p$@ K111::K$J K(V$):K20V$(V$,20)$T JK20:V$V$" ":J$^ K(D$):K25D$(D$,25)$h FMTN1:3490:N1$Z$$r D1$;" ";N1$;" $";B$;%| n 3080 #x # 0# ROUTINE PRINTS CHECKS6# <# F# ::b# Y$"N"ĺ28);TD$:2750p# 55);TD$z# ::# FMTB:3540# B$Z$# C$(B$,2)# M(B$)# M(M)# M$(M)# M$" *****"M$"*DOLLARS*AND*"C$"*CENTS*****"C:E$:P1:F2$:M2:P2:M3:P3:M4:M5:H$:I$D" W$V$M1N12570N" 2610X" BBCb" II1r" IN12610|"( 2530"2 B02680"< ROUTINE PRINTS CHECKS"F 2720"P ROUTINE CREATES 'JOUFIL' RECORDS"Z 3000"d INSERTS PAYMENTS #A1ĺ"THIS DATE ***"9}A2ĺ"THIS RANGE OF DATES ***"F(}"PR#0"f2}"*** NO PAYABLES DUE ON ";<}A1ĺ"THIS DATE ***"F}A2ĺ"THIS RANGE OF DATES ***"P}KK11000:KK::160C TO ";E2$46501"RECORD #: ";I1K15)"DUE DATE: ";DD$c"VENDOR NAME: ";R${"DESCRIPTION: ";Q$"AMOUNT: ";B1$"INVOICE #: ";L$"P.O. #: ";P3$1090}Y$"N"32050} }"*** NO PAYABLES DUE ON ";}z#??Xó     ж"е(дгϠ ٠в̠Ҡ̠Р***********" P::E U" ENTER C THEN RETURN TO CONTINUE ";:A$U VA$"C"10d WA$"C"88j Xp Y Z"EXCLUSIVE DISTRIBUTION RIGHTS RETAINED" [ \"***************************************" ]"* ILLINOIS STATE BOARD OF EDUCATION *"P 7"* DISTRIBUTION RIGHTS IN ILLINOIS *" <"* COMPUMAX, 467 HAMILTON AVENUE, *" A"* PALO ALTO, CA 94301 *" F"* *" K"****************************OJECT*"6 %"* *"e ("*WILMA JEAN ALEXANDER,PROJECT DIRECTOR*" -"* *" 0"* *" 2"* MICROPAY PROGRAM *"! 5"*   D$""::K"***************************************"z"* *""* MICROCOMPUTER SKILLS: CURRICULUM *"!"* *" #"*DEVELOPMENT AND DISSEMINATION PR     DS IN PAYMASTER ****":HH11000:HH:L999:9|L21NNC}L1L2OM$:RM$;L11:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3Q3:N4:N5:F$:G$:CC$V$P$LL1:P$V$LL31430L2:"*** MASTER FILE HAS ONLY ";L;" VENDOR(S) ***OR N)?";U$%(U$,1)"Y"940+1]  ROUTINE LOOKS FOR VENDOR INFORMATIONcv VENDOR NAME(P$" "2 VENDOR NUMBER<L0FL90KL20:L10ZOM$:RM$;1:T$:D$:DD$:NN:CC$dNN01404,n:"**** NO RECOR ";Q36"LEDGER DR ACCOUNT NUMBER ";N4a"LEDGER CR ACCOUNT NUMBER ";N5gqNN1OP$:WP$;N1:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$:CC$OP$:WP$;1:T$:D8$:D9$:N:CC$ "MORE (Y ERS)";D$3`"QUANTITY INVOICED ";Q1_j"RECEIVING DATE (MM/DD/YY) ";D2$t"RECEIVING VOUCHER NUMBER ";N2~"QUANTITY RECEIVED ";Q2"PURCHASE ORDER NUMBER ";N3 "QUANTITY ORDERED .20 CHARACTERS) ";V$0"STREET ADDRESS ";F$V$"CITY STATE ZIP (NO COMMA) ";G$\.8"INVOICE NUMBER ";N1B"DUE DATE (MM/DD/YY) ";D1$L"AMOUNT ";BV"DESCRIPTION (MAX. 30 CHARACT940 !"VENDOR NBR. ";L1+L3L1K ROUTINE LOOKS FOR VENDORU1320dL901020qL999ıL988Ą" MORE (Y/N)?";Q$Q$"Y"940Q$"N"ı10121070:" * RECORD NO.: ";N1:"VENDOR NAME (MAX8$D1$:D9$D2$4940>(H:540.R?\"RUNP2,D1"Pf"RUNP3,D1"ap"RUNP4,D1"r"RUNP5,D1"x ROUTINE PUTS RECORDS INTO FILE"IS THIS A NEW VENDOR (Y OR N)?";U$216,0(U$,1)"Y"1040(U$,1)"N"DATE (MM/DD/YY)":D3$7OJ$:WJ$;0:D1$:D2$:0:CC$]OP$:WP$;1:T$:D1$:D2$:0:CC$jQ100000OM$:WM$;1:T$:D1$:D3$:0:CC$ :540 ADDITIONS TO ACCOUNTS PAYABLE FILE 'PAYFIL' *OP$:RP$;1:T$:D1$:D2$:N:CC$/D. INITIALIZATION OF 'PAYFIL' AND 'JOUFIL'4:{"ENTER TITLE OF ACCOUNTS PAYABLE FILE (MAX. 60 CHAR'S) "T$"START DATE OF 'JOUFIL' PERIOD (MM/DD/YY)?";D1$"END DATE OF 'JOUFIL' PERIOD (MM/DD/YY)":D2$"ENTER TODAY'S  &:- 0" 11 - INITIALIZE A/P FILES"5 ::\ D" 12 - ADD RECORDS IN PAYFIL"d N: X" 13 - RUN ANOTHER PROGRAM" b: l"WHICH NUMBER DO YOU WANT (11-13)?";A1 vA111A113620  A1A110 A1690,810,310 ,PAY,JOURNALIZE &"1 " ACCUMULATE A/P"7 L " 0 - QUIT"T :} "WHICH NUMBER DO YOU WANT (0-5)?";A A0A5470  A11580,540,860,870,880,900   ACCOUNTS PAYABLE INPUT PROGRAM  "DO YOU WANT TO:" @216,0 J? T" 1 - INPUT ACCOUNTS PAYABLE RECORDS"E ^u h" 2 - UPDATE ACCOUNTS PAYABLE RECORDS" r" 3 - REPORT CASH REQUIREMENTS" | " 4 - STATEMENT OF ACCOUNTS PAYABLE BY VENDOR"  " 5 - LIST00,D1"! RM$"READPAYMASTER,R"= WM$"WRITEPAYMASTER,R"Z OJ$"OPENJOUFIL,L55,D1"s WJ$"WRITEJOUFIL,R" CC$"CLOSE" MICROPAY  ""WELCOME TO COMPUMAX ACC'TS PAYABLE" $" SYSTEM" , 6"DO YOU WANT TO:"ALTO, CALIFORNIA 94301 (415) 321-2881Z F APPLE II VERSION RELEASE 5.0q K 09/01/79 P"NOMON C,I,O" Z216,0 d nOP$"OPENPAYFIL,L200,D1" xRP$"READPAYFIL,R" WP$"WRITEPAYFIL,R" OM$"OPENPAYMASTER,L283 COMPUMAX MICROPAY SYSTEM - ACCOUNTS PAYABLEq UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT COPY,RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT ( WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMILTON AVE.5 2 PALO      N2:Q2'N3:Q3:N4:N5:F$:G$:CC$-e"DO YOU WANT TO CHANGE ANOTHER RECORD (Y OR N)";U$uU$"Y"820U$"N"ı1220V$;:N1;:D1$;: B;:D$;:Q1;:(D2$;:2N2;:<Q2;:FN3;";Q3:9209t"NEW LEDGER DR ACC'T NBR ";N4:920i~"NEW LEDGER CR ACC'T NBR ";N5:920"NEW STREET ADDRESS ";F$:920"NEW CITY STATE ZIP (NO COMMA) ";G$:920OP$:WP$;M1:V$:N1:D1$:B:D$:Q1:D2$:ICED ";Q1:920IB"NEW RECEIVING DATE (MM/DD/YY) ";D2$:920yL"NEW RECEIVING VOUCHER NUMBER ";N2:920V"NEW QUANTITY RECEIVED ";Q2:920`"NEW PURCHASE ORDER NUMBER ";N3:920 j"NEW QUANTITY ORDERED EW VENDOR NAME (MAX. 20 CHAR'S)";V$:920X"NEW INVOICE NUMBER ";N1:920"NEW DUE DATE (MM/DD/YY) ";D1$:920$"NEW AMOUNT ";B:920."NEW DESCRIPTION (MAX. 30 CHAR'S)";D$:9208"NEW QUANTITY INVO BE CHANGED: ";aL1260,1270,1280,1290,1300,1310,1320,1330,1340,1350,1360,1370,1380,1390,1400v:"(Y OR N)";U$U$"N"920U$"Y"1010990L1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,1140,1150,1160,1170("NE INVOICE TO BE CHANGED (Y OR N)";U$5U$"N"1220EU$"Y"910N890X2000"ENTER: DATA FIELD NBR. (1-15) TO BE CHANGED (0 IF NONE)";LL01190L0L15970"RECORD HAS FIELD NBR'S 1 TO 15":920"IS THE DATA TO NBR. OF RECORD TO BE CHANGED (0 IF NO MORE)?";MA9M0ıS>M0MN860yH"FILE HAS RECORDS 1 TO ";N:1220R\OP$:RP$;M1:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3fN4:N5:F$:G$:CC$pV$;" INVOICE #";N1$z"IS THIS THASTER,L200,D1")RP$"READPAYMASTER,R"EWP$"WRITEPAYMASTER,R"kOP$:RP$;1:T$:DK$:D9$:N:CC$ DELETES RECORDS1440OP$:WP$;1:T$:DK$:D9$:N:CC$ :150  ROUTINE CHANGES DATA IN A RECORD* 64:"ENTERDRP$"READPAYMASTER,R"4NWP$"WRITEPAYMASTER,R"YXOP$:RP$;1:T$:DK$:D$:N:CC$rb CHANGE OF HEADING|l1830v CHANGE OF DATA820CC$:150 DELETION OF A RECORD IN 'PAYMASTER' OP$"OPENPAYM RP$"READPAYFIL,R"/ WP$"WRITEPAYFIL,R"U OP$:RP$;1:T$:DK$:DN$:N:CC$l  DELETES REOCRDSv 1440 OP$:WP$;1:T$:DK$:DN$:N:CC$ :150  & CHANGE OF A RECORD IN 'PAYMASTER' 0 :OP$"OPENPAYMASTER,L200,D1"DPAYFIL,R"# ^WP$"WRITEPAYFIL,R"I hOP$:RP$;1:T$:DK$:DN$:N:CC$b r CHANGE OF HEADINGl |1690{ LL99100  CHANGE OF DATA 820  CC$ 100   DELETION OF A RECORD IN 'PAYFIL' OP$"OPENPAYFIL,L200,D1"ER'" - " 25 - RUN ANOTHER PROGRAM"7 ::b "WHICH NUMBER DO YOU WANT (21-25)?";Au A21A25260{  AA20 "A330,450,570,710,1940 , 6 CHANGE OF A RECORD IN 'PAYFIL' @ JOP$"OPENPAYFIL,L200,D1" TRP$"REA5 % "DO YOU WANT TO:"::2 :216,0@ LQ0:LL0k " 21 - CHANGE A RECORD IN 'PAYFIL'"q " 22 - DELETE A RECORD IN 'PAYFIL'" " 23 - CHANGE A RECORD IN 'PAYMASTER'"  " 24 - DELETE A RECORD IN 'PAYMAST CALIFORNIA 94301 (415) 321-2881I < PRINTER IN SLOT #4o F APPLE II VERSION RELEASE 5.0 K 09/01/79 P"NOMON,C,I,O" Z216,0 d nCC$"CLOSE" x MICROPAY - P2 " 2. ACCOUNTS PAYABLE UPDATE PROGRAM" w. COMPUMAX MICROPAY SYSTEM - UPDATE - P2l UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT COPY, RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT( WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMILTON AVE.0 2 PALO ALTO,          ҍŠԍ΍ǠҍŠԍ΍ǠӠԍōҠȍ̠ӍӠԍōÍ΍ΠנҠȍ̠ӍŠӠÍŠנōŠύŠŠӠÍŠנōŠŠӠÍӠҠōנōŠРč     ΍ǠҍŠԍ΍ǠҍŠԍҍŠԍ΍ǠӠԍōҠȍ̠ӍӠԍōÍ΍ΠנҠȍ̠ӍŠӠÍŠנōŠύŠŠӠÍŠנōŠčĠԠΠҮŠӠÍӠҠōנōŠРç̌Ӡ     ŠŠ̠Ӎ̠ӍŠԍŠԍŠԍŠԍ F$",L"(L)",D"(D)*RD$R$OF$",R"M$OE$O$DF$",L"(L)",D"(E)a.WE$W$DF$",R"p8CD$C$OF$BCE$C$DF$L READ & WRITE HEADERVOD$`RD$;H1jH1NHtH$(H)~HN(H$(NH))K3K4K10F3F4F10NN "(A$)27ė:700&(A$)3Ād"DO YOU WISH TO WATCH THE COPY PROCEDURE (Y OR N)? ";MN$MN$"Y"ĺ"MON C,I,O"MN$"N"ĺ"NOMON C,I,O"MN$"Y"MN$"N"990O$"OPEN":R$"READ"W$"WRITE":C$"CLOSE"OD$O$OATION DRIVE NUMBER (1 OR 2) ";E0E1E29006Q:"SOURCE FILE: ";OF$p"SOURCE DRIVE NUMBER: ";D:"DUPLICATE FILE: ";DF$"DESTINATION DRIVE NUMBER: ";E"HIT TO ACCEPT, TO REDO";A$:A$""982"G FILE NUMBER (1 TO 10, 0 TO START AGAIN) ";FG>F0F10825SCF090`H:T1FvKF$,NH,ND,D1,H1,L}MTR\f:"ENTER SOURCE DRIVE NUMBER (1 OR 2) ";DpD1D2870zOF$DF$E2:D2E1OF$DF$Ą"ENTER DESTINT110F$,NH,ND,D1,H1,L:F$OF$B1:FT:T10:790S F$DF$B1:FT:T10ZTg B1850*:"TO WHICH FILE DO";,OF$DF$ES$" "OF$" AND "DF$.OF$DF$ES$"ES "OF$/ES$:"CORRESPOND:"4400059:"ENTER CORRESPONDIN BACKUP FILES@8);"FILE BACKUP AND RECOVERY"d8);"------------------------":"ENTER SOURCE FILE NAME ";OF$DF$"":"ENTER DUPLICATE FILE NAME ";DF$DF$""DF$OF$ SEARCH FOR FILE NAMEB0:F0:D GET FILE CATALOGNVX"FOR WHICH DRIVE DO YOU WANT A CATALOG (1 OR 2)";CgbC1C2600l:"CATALOG FOR DRIVE ";C;":"v"CATALOG,D";C:"DO YOU WANT ANOTHER CATALOG (Y OR N)? ";Y$Y$"Y"ė:600Y$"N"90640THE SAME AS THE NAME GIVEN"G"BY COMPUMAX TO THE FILE, YOU WILL BE"u"ASKED TO IDENTIFY THE FILE TO WHICH IT""CORRESPONDS. THE FILE NUMBERS AND""NAMES ARE GIVEN BELOW:":4000&:"HIT TO CONTINUE ";U$090:HE DESTINATION AND SOURCE DRIVE"&T"NUMBERS ARE THE SAME, THE NAMES OF THE"Z|"FILES MAY NOT BE THE SAME.""HIT TO CONTINUE, FOR MENU";4500"IF NEITHER OF THE FILE NAMES THAT YOU""ENTER IS TENDED"4 :"TO BE THE SAME AS THE ORIGINAL FILE": j "NAME, JUST HIT WHEN THE PROGRAM" "ASKS FOR THE DUPLICATE FILE NAME."  "IN THIS CASE, THE COMPUTER WILL ONLY ASK" "FOR THE SOURCE DRIVE NUMBER." : "IF T"3 - SOURCE DRIVE NUMBER (EG.: 1 )"+ EY J"4 - DESTINATION DRIVE NUMBER (EG.: 2 )"_ O T"HIT TO CONTINUE, FOR MENU"; V4500 ^ h14);"INSTRUCTIONS" r13);"--------------" | "IF THE DUPLICATE FILE NAME IS INXCEPT FOR 'POFILE' AND 'SOFILE')."O :"WHEN YOU RUN THE OPTION TO BACKUP A"} :"FILE, YOU WILL BE ASKED TO ENTER THE" :"FOLLOWING DATA:" " ,"1 - SOURCE FILE NAME (EG.: JOUFIL ) 1 6"2 - DUPLICATE FILE NAME (EG.: JOBACKUP )"% @:"WHICH NUMBER DO YOU WANT (1-4)? ";A8 A1A4170Q :A600,200,700,195W j INSTRUCTIONS 14);"INSTRUCTIONS" 13);"--------------" :"THIS PROGRAM COPIES ALL DATA FILES" :"PRODUCED BY THE COMPUMAX PROGRAMS"" :"(E P' Z:P$(50,30):"NOMON C,I,O":I d:"FILE BACKUP AND RECOVERY"i n"------------------------" x5:"YOU MAY NOW:" " 1 - GET A FILE CATALOG" " 2 - LEARN HOW TO USE THIS PROGRAM" " 3 - BACKUP FILES" " 4 - QUIT"' wA COMPUMAX ASSOCIATES BACKUP PROGRAM FOR THE APPLE IIi COMPUMAX ASSOCIATES 467 HAMILTON AVE.( PALO ALTO CA 943012 PHONE: (415) 321-2881<F JULY 1980      PAYFIL,R"%OP$:RP$;1:T$:N:CC$fN0ĺ::"*** NO RECORDS IN PAYFIL! ***":K12500:K:1620nP1 PREPARE PRINTER1850 HEADING1950" LISTING,21406 ADJUST END OF PAGE@3430J"PR#0"T:1909$:N8:CC$+nOM$:RM$;1:T$:D$:N:CC$8x"PR#0"k"ENTER: NEW 'PAYMASTER' DATE (MM/DD/YY) ";D$OM$:WM$;1:T$:D$:N:CC$:190 LISTING OF 'PAYFIL'OP$"OPENPAYFIL,L200"RP$"READPAYFIL,R" WP$"WRITEJ$;N81:D1$:D$:N5:B#N8N81C  RECORDS INTO 'PAYMASTER'M3210k DEL OF 'PAYFIL' RECORDr(I{2CC$<::F"I ";N;" 'PAYFIL' RECORDS JOURNALIZED":P"AND PUT ON PAYMASTER."ZOP$:WP$;1:T$:0 dOJ$:WJ$;0:D8$:D1390 + JOURNALIZE AND ACCUMULATE1HOP$:RP$;1:T$:NfOJ$:RJ$;0:D8$:D9$:N8oOM$|I2N1RP$;I:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$B01320WJ$;N81:D1$:D$:N4:BN8N81:WD$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$OBE$(D1$,2)(D1$,2)(D1$,4,2)\LD1(E$)rVA11D1E21150`A12(D1E1D1E2)1150j ROUTINE PRINTS CHECKS, CREATES 'JOUFIL' RECORDS, INSERTS PAYMENTS INTO 'PAYMASTER't2520~IHECK FORMS"::"HIT RETURN WHEN YOU ARE READY ";U$M INITIAL VENDOR NAMEXP$" "u INITIAL VENDOR NUMBERV3V:V0"DO YOU WANT TO PRINT THIS REPORT (Y/N)";Y$Y$"Y"ĺ"PR#4"$OM$.I2(N1)V3+8RM$;I:V$:N1:D1$:B:2)(D1$,4,2)D1(E$)/A11D1E2950KA12(D1E1D1E2)950kV$P$V1N1B0VV1:950VV1:P$V$:V1N1ICC$"PUT ";V;" CONTINUOUS CHECK FORMS":"INTO PRINTER. ALIGN PRINTER HEAD WITH"2:"FIRST LINE OF C"OM$:RM$;1:T$:D$:N:CC$E  VENDOR NAME VENDOR NUMBERT*P$" ":V0]4V10c>H COUNT OF BILLS TO BE PAYEDR\OM$fI2N1pRM$;I:V$:N1:D1$:B:D$:D1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$ zE$(D1$,2)(D1$,2$,4,2)E2(E$)#790)> BETWEEN DATESDi"STARTING DATE (MM/DD/YY) ";E1$oE$(E1$,2)(E1$,2)(E1$,4,2)E1(E$)"FINAL DATE (MM/DD/YY) ";E2$E$(E2$,2)(E2$,2)(E2$,4,2)E2(E$) NGLE DATE." :5 " 2 - A RANGE OF DATES."? ::b "WHICH NUMBER DO YOU WANT";A1h &{ 0A10A13580 ::190 DA12700 N X SINGLE DATE b l"DUE DATE YOU WANT TO PAY (MM/DD/YY) ";E2$vE$(E2$,2)(E2$,2)(EP$"WRITEPAYFIL,R"1 OM$"OPENPAYMASTER,L200"L RM$"READPAYMASTER,R"h WM$"WRITEPAYMASTER,R" OJ$"OPENJOUFIL,L55" RJ$"READJOUFIL,R" WJ$"WRITEJOUFIL,R" A2480,1200 "DO YOU WANT TO PAY FOR:" : " 1 - A SICUMULATE A/P." ; " 5 - GO TO ANOTHER PROGRAM."E "::N ,X90p 6"WHICH NUMBER DO YOU WANT";A @A1A5310 J TA5ĺ"RUNMICROPAY,D1" ^A2380 hA1470,1660 r |OP$"OPENPAYFIL,L200" RP$"READPAYFIL,R" WAY - P67 "LIST, PAY, JOURNALIZE & ACCUMULATE A/P":= G L950M h "DO YOU WANT TO:":: " 1 - LIST 'PAYFIL'." " 2 - LIST 'PAYMASTER'." " 3 - PAY ACCOUNTS PAYABLE."  " 4 - JOURNALIZE & ACO ALTO, CALIFORNIA 94301 (415) 321-2881P < PRINTER IN SLOT #4 F APPLE II VERSION - RELEASE 1.0 01/23/79 P"NOMON,C,I,O" Z216,0 d nRP$"READPAYFIL,R" xWP$"WRITEPAYFIL,R" CC$"CLOSE" MICROP 4 COMPUMAX MICROPAY SYSTEM - JOURNALIZING - P6s UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT  COPY, RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT( WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMILTON AVE.7 2 PAL            NTER: NEW 'PAYMASTER' DATE (MM/DD/YY) ";D$POM$:WM$;1:T$:DK$:D$:N:CC$[:190a| LISTING OF 'PAYFIL'OP$"OPENPAYFIL,L200,D1"RP$"READPAYFIL,R"WP$"WRITEPAYFIL,R"OP$:RP$;1:T$:K8$:K9$:N:CC$8N0 DEL OF 'PAYFIL' RECORD$(I-2CC$7<::eF" ";N;" 'PAYFIL' RECORDS JOURNALIZED":P"AND PUT ON PAYMASTER."ZOP$:WP$;1:T$:DK$:DN$:0dOJ$:WJ$;0:D8$:D9$:N8:CC$nOM$:RM$;1:T$:DK$:D$:N:CC$x"PR#0"+"EOJ$:RJ$;0:D8$:D9$:N8!OM$.I2N1vRP$;I:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$B01320WJ$;N81:D1$:D$:N4:BN8N81:WJ$;N81:D1$:D$:N5:BN8N81  RECORDS INTO 'PAYMASTER'3210(E$)VA11D1E211507`A12(D1E1D1E2)1150j ROUTINE PRINTS CHECKS, CREATES 'JOUFIL' RECORDS, INSERTS PAYMENTS INTO 'PAYMASTER't2520~I1390 JOURNALIZE AND ACCUMULATEOP$:RP$;1:T$:DK$:DK$:NECK(S)":$ INITIAL VENDOR NAME/P$" "L INITIAL VENDOR NUMBERYV3V:V0jL8810:1850py$OM$.I2(N1)V38RM$;I:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$BE$(D1$,2)(D1$,2)(D1$,4,2)LD1950V$P$V1N1950.V$P$V1N1950;B0950QVV1:P$V$:V1N1XIaCC$V0ė:10:"NO CHECKS TO BE PRINTED":V13000:::150"PUT ";V;" CONTINUOUS CHECK FORM(S) INTO""PRINTER IF YOU WANT TO PRINT THESE" "CH COUNT OF BILLS TO BE PAYED$R-\OM$:fI2N1pRM$;I:V$:N1:D1$:B:D$:D1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$zE$(D1$,2)(D1$,2)(D1$,4,2)D1(E$)V$P$V1N1B0VV1:950A11D1E2950A12(D1E1D1E2)E1(E$)/"FINAL DATE (MM/DD/YY) ";E2$SE$(E2$,2)(E2$,2)(E2$,4,2)`E2(E$)fl OM$:RM$;1:T$:DK$:D$:N:CC$"ENTER PAYMENT DATE (MM/DD/YY)?";TD$  VENDOR NAME VENDOR NUMBER*P$" ":V04V10>HNX SINGLE DATEbMl"DUE DATE YOU WANT TO PAY (MM/DD/YY) ";E2$qvE$(E2$,2)(E2$,2)(E2$,4,2)~E2(E$)790 BETWEEN DATES"STARTING DATE (MM/DD/YY) ";E1$E$(E1$,2)(E1$,2)(E1$,4,2) L,R" WJ$"WRITEJOUFIL,R"/ A2480,1200N "DO YOU WANT TO PAY FOR:"V :u " 1 - A SINGLE DATE."} : " 2 - A RANGE OF DATES." :: "WHICH NUMBER DO YOU WANT";A1 & 0A10A13580 ::190 DA12700,D1" ^A2380" hA1470,1660( rF |OP$"OPENPAYFIL,L200,D1"^ RP$"READPAYFIL,R"w WP$"WRITEPAYFIL,R" OM$"OPENPAYMASTER,L200,D1" RM$"READPAYMASTER,R" WM$"WRITEPAYMASTER,R" OJ$"OPENJOUFIL,L55,D1" RJ$"READJOUFI" 53 - PAY ACCOUNTS PAYABLE"' T " 54 - JOURNALIZE & ACCUMULATE A/P"Z  " 55 - RUN ANOTHER PROGRAM" ":: ,X90 6"WHICH NUMBER DO YOU WANT (51-55)?";A 8NYA ;AA50 @A1A5310 J TA5ĺ"RUNMICROPAYCC$"CLOSE"# MICROPAY - P6S " 5. LIST,PAY,JOURNALIZE & ACCUMULATE A/P"Y _ L966: PAGE SIZE FOR 8-1/2 X 11 SHEET "DO YOU WANT TO:":: " 51 - LIST 'PAYFIL'" " 52 - LIST 'PAYMASTER'" ! IA 94301 (415) 321-2881M F APPLE II VERSION RELEASE 5.0c G 009/01/79 K ALL DOS COMMANDS HAVE A CTRL-D AFTER THE FIRST QUOTATION MARK P"NOMON,C,I,O" Z216,0 d nRP$"READPAYFIL,R" xWP$"WRITEPAYFIL,R" x&$ COMPUMAX MICROPAY SYSTEM P5c UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT  COPY, RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT( WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMILTON AVE.' 2 PALO ALTO, CALIFORN            1330 . VIDEO OUTPUT ROUTINE4R" PAYABLES BY VENDOR"p" ------------------"}T$:5804"VENDOR NUMBER:";V5KT1>"VENDOR NAME:";V$H"STREET ADDR:";F$R"CITY STATE ZIP:";G$\"QTY.INVOICED:";Q1(FMT)3ZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":1590V"ZZ$(Z$,3):(ZZ$,1)"."1590f,Z$Z$".00"x6K110(Z$)@Z921710JKT^h"RUNMICROPAY,D1"rZ9Z91"ENTER A '1' TO CONTINUE ";Z9Z90Y$"N"ı-"Z," ";T$#dL26-nPP13x9[ ROUTINE CHECKS END OF PAGEamL2L23L2L941500JL21L92J1330Z$(FMT)K19(Z$)Z$" "Z$KFMT(FMT100.5)100:Z$NV. REC.DATE REC.V.#";F" QUANT.REC. P.O.NBR. QUANT.ORD";f" DR.ACCT.# CR.ACCT.#"lv1440|  HEAD(2::<65);"PAGE ";P:F," PAYABLES BY VENDOR"P," -----------------NT DESCRIPTION"8Z9Z91%BD81+L1V?` HEAD 2EjKtW~L2L21hY$"N"1170"VEN.# VENDOR NAME INV.# PAY DATE AMT. PAID DESCRIPTION"Z9Z91D80BB HEAD 2"QUANT.IHH11000:HH::160$X91970NY$"Y"Ą"ENTER A '1' TO CONTINUE";X9TaJL2L9gnJ{"PR#0":160 HEAD 11$L2L21)Y$"N"1080."VEN.# VENDOR NAME INV.# DUE DATE NET AMOUaY$"N"2100cKT1:f" ";Q1$;" ";D2$;" ";N2$;Zp" ";Q2$;" ";N3$;" ";Q3$;rz" ";N4$;" ";N5$x~1440IKT0Y$"Y"ĺ:"*** NO SUCH VENDOR IN PAYMASTER":"PR#0"KT0ĺ"*** NO SUCH VENDOR IN PAYMASTER ***":FMTB:1550:B$Z$(Y$"N"865F V;" ";V$;N1$;" ";D1$;XB$;" ";D$p FMTQ1:1500:Q1$Z$*FMTN2:1500:N2$Z$4FMTQ2:1500:Q2$Z$>FMTN3:1500:N3$Z$HFMTN4:1500:N4$Z$RFMTQ3:1500:Q3$Z$\FMTN5:1500:N5$Z$0vKT1:650'D81B07209D80B0580H HEAD 11WB0İ1050f HEAD 12uB0İ1140Y$"N"7201230K(V$):K19V$(V$,19)JK19:V$V$" ":JK(D$):K23D$(D$,23)FMTN1:1500:N1$Z$40" !"PR#";SL:XY$"P"ĺ" 80N"( &M 0OM$:RM$;1:T$:D$:D9$:N:CC$^ 5Y$"N"2000h :1340z DKT0:I2N1 NOM$:RM$;I:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$:CC$ XP$V$VV1:P$V$ bA2640lV$W$93P1  | "ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUTPUT, OR FOR CRT OUTPUT ";XY$ XY$"C"Y$"N":X91:560 XY$"S"XY$"P"520 Y$"Y":X90 "ENTER PRINTER SLOT NUMBER (1 TO 7) ";SL:SL1SL75SINGLE VENDOR ,+ 6"VENDOR NAME ?";W$1 @7 JN T FOR ALL VENDORST ^u hOM$"OPENPAYMASTER,L200,D1" rRM$"READPAYMASTER,R" |CC$"CLOSE" D80  LINE COUNTER L21  VENDOR NAME P$" "  VENDOR # V0 T:"::* " 41 - A SINGLE VENDOR"2 :Q " 42 - ALL VENDORS"Y : " 43 - RUN ANOTHER PROGRAM" : X90 "WHICH NUMBER DO YOU WANT (41-43)?";A AA40 A1A3240  A310,360,1640  " E.C 2 PALO ALTO, CALIFORNIA 94301 (415) 321-2881h F APPLE II VERSION RELEASE 5.0| K 09/01/79 P"NOMON,C,I,O" Z216,0 d n MICROPAY - P4 x" 4. PAYABLES BY VENDOR": L951  "DO YOU WAN0A COMPUMAX MICROPAY SYSTEM - PAYABLES BY VENDOR - P4 UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT COPY, RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT ( WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMILTON AV     K19(Z$)Z$" "Z$$K*DFMT(FMT100.5)100RZ$(FMT)ZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":1580ZZ$(Z$,3):(ZZ$,1)"."1580"Z$Z$".00",K19(Z$)6Z$" "Z$@KJT^"RUNMICROPAY,D1"h---------"'P" ";S$;" ";1ZE1$;?dA11400Tn" THROUGH ";E2$\x:"REC.DUE DATE VENDOR NAME";" INV.NBR. NET AMT. DESCRIPTION";" PO#"L210PP1Z$(FMT)250"CLOSE"4"ENTER A '1' TO CONTINUE ";Z9>1270JL2L23^KL21L9::Kk"PR#0"v:160|  HEAD(:::265);"PAGE ";P:<," CASH REQUIREMENTS REPORT" F," ---------------:K14(Z$):Z$" "Z$:K:B2$Z$7B2$" 0"32000HY$"Y"1180p10)"NUMBER OF PAYMENTS DUE: ";B2$"*** TOTAL CASH REQUIREMENT: ";B3$1200,,"NUMBER OF PAYMENTS DUE: ";B2$,,"TOTAL CASH REQUIREMENT: ";B3$X901480:L$Z$!FMTB1:1530:B1$Z$9$FMTP3:1480:P3$Z$J)Y$"N"2200q.P2;" ";DD$;" ";R$;L$;" ";B1$;8" ";Q$;P3$BB2B21LX91İ1640VL2L21`L2L931140j1320tI~:CC$FMTB3:1530:B3$Z$!Z$(B2) DD$D1$B1B1BJ%4B101140nB1.009ĺ"$";B1;" OVERPAYMENT FOR REC. #";P2:1110{B3B3B1R$P$K(R$):K20R$(R$,20)JK20:R$R$" ":JK(Q$):K20Q$(Q$,20)JK20:Q$Q$" ":J FMTL:12)*D2(E$)$4A1D1E21140:>D1E1D1E21140OHV$P$N1L1140^RP$V$:LN1g\B10tfJ2N1pOM$:RM$;J:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$:CC$zP$V$LN1940B0930P3N3:Q$D$:P2J1ASH REQUIREMENT FOR AN INVOICE'B20E TOTAL CASH REQUIREMENTNB30[I2N1OM$:RM$;I:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$:CC$ E$(D1$,2)(D1$,2)(D1$,4,2)D1(E$) E$(D2$,2)(D2$,2)(D2$,4,bOM$"OPENPAYMASTER,L200,D1":lRM$"READPAYMASTER,R"_vOM$:RM$;1:S$:D$:D9$:N:CC$q{Y$"N"ī2000{1330 VENDOR NAMEP$" " VENDOR NUMBERV0 INVOICE NUMBERL0 LINE COUNTER = L2 REMAINING CTER OUTPUT, OR FOR CRT OUTPUT ";XY$G XY$"C"Y$"N":X91:570b XY$"S"XY$"P"540r !Y$"Y":X90 ""ENTER PRINTER SLOT NUMBER (1 TO 7) ";SL $SL1SL7546 &"PR#";SL:XY$"P"ĺ" 80N" : D N CASH REQUIREMENTS XM/DD/YY) ";E1$:4 E$(E1$,2)(E1$,2)(E1$,4,2)A E1(E$)g "FINAL DATE (MM/DD/YY) ";E2$:: E$(E2$,2)(E2$,2)(E2$,4,2) E2(E$)    P1  ) "ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRIN(31-33)?";A AA30' A1A3260- A "A330,400,1630G ,Z 6 SINGLE DATE` @ J"ENTER: DUE DATE WANTED (MM/DD/YY) ";E1$ TE$(E1$,2)(E1$,2)(E1$,4,2) ^E2(E$) h470 r | BETWEEN DATES  "STARTING DATE (MRAM": L951 :/ "DO YOU WANT TO:": X(0)D ::m " 31 - REPORT FOR A SINGLE DATE"u : " 32 - REPORT FOR A RANGE OF DATES" : " 33 - RUN ANOTHER PROGRAM" Z90 :: "WHICH NUMBER DO YOU WANT ALO ALTO, CALIFORNIA 94301 (415) 321-2881R < PRINTER IN SLOT #4x F APPLE II VERSION RELEASE 5.0 K 09/01/79 P"NOMON C,I,O" Z216,0 d nCC$"CLOSE" x MICROPAY - P3 "WELCOME TO CASH REQUIREMENT PROG7 COMPUMAX MICROPAY SYSTEM - CASH REQUIREMENTS P3u UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT COPY, RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT( WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMILTON AVE.9 2 P     DS IN PAYMASTER ****":HH11000:HH:L999:9|L21NNC}L1L2OM$:RM$;L11:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3Q3:N4:N5:F$:G$:CC$V$P$LL1:P$V$LL31430L2:"*** MASTER FILE HAS ONLY ";L;" VENDOR(S) ***OR N)?";U$%(U$,1)"Y"940+1]  ROUTINE LOOKS FOR VENDOR INFORMATIONcv VENDOR NAME(P$" "2 VENDOR NUMBER<L0FL90KL20:L10ZOM$:RM$;1:T$:D$:DD$:NN:CC$dNN01404,n:"**** NO RECOR ";Q36"LEDGER DR ACCOUNT NUMBER ";N4a"LEDGER CR ACCOUNT NUMBER ";N5gqNN1OP$:WP$;N1:V$:N1:D1$:B:D$:Q1:D2$:N2:Q2:N3:Q3:N4:N5:F$:G$:CC$OP$:WP$;1:T$:D8$:D9$:N:CC$ "MORE (Y ERS)";D$3`"QUANTITY INVOICED ";Q1_j"RECEIVING DATE (MM/DD/YY) ";D2$t"RECEIVING VOUCHER NUMBER ";N2~"QUANTITY RECEIVED ";Q2"PURCHASE ORDER NUMBER ";N3 "QUANTITY ORDERED .20 CHARACTERS) ";V$0"STREET ADDRESS ";F$V$"CITY STATE ZIP (NO COMMA) ";G$\.8"INVOICE NUMBER ";N1B"DUE DATE (MM/DD/YY) ";D1$L"AMOUNT ";BV"DESCRIPTION (MAX. 30 CHARACT940 !"VENDOR NBR. ";L1+L3L1K ROUTINE LOOKS FOR VENDORU1320dL901020qL999ıL988Ą" MORE (Y/N)?";Q$Q$"Y"940Q$"N"ı10121070:" * RECORD NO.: ";N1:"VENDOR NAME (MAX8$D1$:D9$D2$4940>(H:540.R?\"RUNP2,D1"Pf"RUNP3,D1"ap"RUNP4,D1"r"RUNP5,D1"x ROUTINE PUTS RECORDS INTO FILE"IS THIS A NEW VENDOR (Y OR N)?";U$216,0(U$,1)"Y"1040(U$,1)"N"DATE (MM/DD/YY)":D3$7OJ$:WJ$;0:D1$:D2$:0:CC$]OP$:WP$;1:T$:D1$:D2$:0:CC$jQ100000OM$:WM$;1:T$:D1$:D3$:0:CC$ :540 ADDITIONS TO ACCOUNTS PAYABLE FILE 'PAYFIL' *OP$:RP$;1:T$:D1$:D2$:N:CC$/D. INITIALIZATION OF 'PAYFIL' AND 'JOUFIL'4:{"ENTER TITLE OF ACCOUNTS PAYABLE FILE (MAX. 60 CHAR'S) "T$"START DATE OF 'JOUFIL' PERIOD (MM/DD/YY)?";D1$"END DATE OF 'JOUFIL' PERIOD (MM/DD/YY)":D2$"ENTER TODAY'S  &:- 0" 11 - INITIALIZE A/P FILES"5 ::\ D" 12 - ADD RECORDS IN PAYFIL"d N: X" 13 - RUN ANOTHER PROGRAM" b: l"WHICH NUMBER DO YOU WANT (11-13)?";A1 vA111A113620  A1A110 A1690,810,310 ,PAY,JOURNALIZE &"1 " ACCUMULATE A/P"7 L " 0 - QUIT"T :} "WHICH NUMBER DO YOU WANT (0-5)?";A A0A5470  A11580,540,860,870,880,900   ACCOUNTS PAYABLE INPUT PROGRAM  "DO YOU WANT TO:" @216,0 J? T" 1 - INPUT ACCOUNTS PAYABLE RECORDS"E ^u h" 2 - UPDATE ACCOUNTS PAYABLE RECORDS" r" 3 - REPORT CASH REQUIREMENTS" | " 4 - STATEMENT OF ACCOUNTS PAYABLE BY VENDOR"  " 5 - LIST00,D1"! RM$"READPAYMASTER,R"= WM$"WRITEPAYMASTER,R"Z OJ$"OPENJOUFIL,L55,D1"s WJ$"WRITEJOUFIL,R" CC$"CLOSE" MICROPAY  ""WELCOME TO COMPUMAX ACC'TS PAYABLE" $" SYSTEM" , 6"DO YOU WANT TO:"ALTO, CALIFORNIA 94301 (415) 321-2881Z F APPLE II VERSION RELEASE 5.0q K 09/01/79 P"NOMON C,I,O" Z216,0 d nOP$"OPENPAYFIL,L200,D1" xRP$"READPAYFIL,R" WP$"WRITEPAYFIL,R" OM$"OPENPAYMASTER,L283 COMPUMAX MICROPAY SYSTEM - ACCOUNTS PAYABLEq UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT COPY,RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT ( WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMILTON AVE.5 2 PALO       *"5n"*";:9:"MACOMB, ILLINOIS 61455";:39:"*"do"***************************************"jpq" PRESS TO CONTINUE..";Z$rv::::::w" LOADING MICROPAY PROGRAM"xD$;"RUNMICROPAY"ION CLEARING HOUSE*"Ci"* *"oj"*";:12:"46 HORRABIN HALL";:39:"*"k"* *"l"*";:7:"WESTERN ILLINOIS UNIVERSITY";:39:"*"m"* 100 NORTH FIRST STREET";:39:"*"P d"* *" e"*";:6:"SPRINGFIELD, ILLINOIS 62777";:39:"*" f"* *" g"* *"h"*CURRICULUM PUBLICAT*"1 ^"* *"` _"* DEPARTMENT OF ADULT, VOCATIONAL, *" `"* *" a"*";:9:"AND TECHNICAL EDUCATION";:39:"*" b"* *"! c"*";:9:"