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`)"N"2020)"HOW MANY NEW RECORDS ";NJWF$;0:T$:D5$:D6$:N:CD$TXX99Z"CHANGE OF HEADING IN 'RECMASTER' (Y/N) ";Y$(Y$,1)"N"ı"CURRENT TITLE: ";T$:"CHANGE (Y/N) ";Y$Y$"N"2060 "NEW TITLE ";T$+ "DATES ";T$:"CHANGE (Y/N) ";Y$.(Y$,1)"N"1960C"NEW TITLE ";T$z"CURRENT DATES: ";D5$;"-";D6$:"CHANGE (Y/N) ";Y$(Y$,1)"N"1990"NEW DATES (MM/DD/YY,MM/DD/YY) ";D5$,D6$"CURRENT NUMBER OF RECORDS ";N:"CHANGE Y/N ";Y$ (Y$,1WF$;0:T$,D5$,D6$,N:CD$8N:"RECORD ";M;" DELETED"\S"NBR.OF RECORD(S) IN FILE= ";NX"DO YOU WANT TO DELETE ANOTHER RECORD ";Y$b(Y$,1)"Y"1690lv"CHANGE OF HEADING IN 'RECFIL' (Y/N) ";Y$(Y$,1)"N"ı"CURRENT TITLE: : DELETE LAST RECORD NO PUSH-UP&T PUSH UP FILE BELOW RECORD TO BE DELETEDZeJMNRF$;J1:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:CD$WF$;J:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:CD$0J:NN1DRD TO BE DELETED ";M(M0MN1720N"FILE HAS RECORDS 1 TO ";N:1880RF$;M:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:NK:NT:CD$C$;" INVOICE # ";I$"IS THIS THE RECORD TO BE DELETED (Y/N) ";Y$(Y$,1)"N"1880 MN1850CORD (Y/N) ";Y$((Y$,1)"Y"ė:1250.4?C$;:JS$;:UZ$;:`"I$;:l,D1$;:v6B;:@D$;:JQ1;:TD2$;:^N1$;:hN4;:rN5;:| SUBROUTINE DELETES A RECORD:"ENTER # OF RECO SHIPPING DATE (MM/DD/YY) ";D2$:1320K"NEW WAYBILL NUMBER ";N1$:1320q"NEW LEDGER DR ACC'T #";N4:1320"NEW LEDGER CR ACC'T #";N5:1320WF$;M:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:CD$"DO YOU WANT TO CHANGE ANOTHER RE00"CITY STATE ZIP (MAX.30 CHAR.) ";Z$:1320T"NEW INVOICE NUMBER ";I$:1320"NEW INVOICE DATE (MM/DD/YY) ";D1$:1320"NEW AMOUNT ";B:1320"NEW DESCRIPTION (MAX. 30 CHAR'S) ";D$:1320"NEW QUANTITY INVOICED ";Q1:1320%"NEW564,1570,1580,1590,1600,1610,1620,1630,1640,1650Dd:"(Y/N) ";Y$Zn(Y$,1)"N"1320xL1410,1412,1414,1420,1430,1440,1450,1460,1470,1480,1490,1500"NEW CUSTOMER NAME (MAX.20 CHAR'S) ";C$:1320"CUSTOMER ADDRESS (MAX.30 CHAR.) ";S$:13212000:FF:1750g"CUSTOMER: ";C$:"IS THIS THE RIGHT CUSTOMER, Y OR N";U$:216,0:(U$,1)"Y"1760~(U$,1)"N"1730L988RM$;0:T$:DA$:DB$:NN:CM$:NN01690h:"**** NO RECORDS IN RECMASTER ****":HH11000:HH:L999:L21NN:L1L2:RM$:RRM$;L1:C$:S$:Z$:CM$:C$P$LL1:P$C$LL31730L2"** RECMASTER HAS ONLY ";L;" CUSTOMER(S) **"FF:N5:CRF$1YOF$:WF$;0:T$:D5$:D6$:N:CRF$I^"MORE (Y OR N)";Y$_h(Y$,1)"Y"1490erktv SCAN CUSTOMER MASTER FOR CUSTOMER L3x RETURNING L9(0-FOUND/88-WRONG CUST/99-NOT ON FILE)z|L0:L90:L20:L10:P$" "&RM$:RRAMOUNT ";B!"DESCRIPTION ";D$>"QUANTITY INVOICED ";Q1c""SHIPPING DATE (MM/DD/YY) ";D2$y,"WAYBILL # ";N1$6"LEDGER DR ACCT #";N4@"LEDGER CR ACCT #";N5JNN1OOF$ TOF$:WF$;N:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:N4OR NAME ADDR ZIP:=TNTN1:"**** RECORD NBR.:";TNe"CUSTOMER NAME (MAX.20 CHAR'S)";C$"CUSTOMER ADDRESS (MAX.30 CHAR.) ";S$"CITY STATE ZIP (MAX.30 CHAR.) ";Z$"INVOICE NUMBER ";I$"INVOICE DATE (MM/DD/YY) ";D1$ "";L1:L3L1:1660:L901496TNN1::"**** RECORD NBR. :";TN::"CUSTOMER NAME: ";C$:"ADDRESS: ";S$:"CITY STATE ZIP:";Z$:1520L999ı: ABANDON ADDING CUSTOMERL988Ą" MORE (Y/N)?";Q$:Q$"Y"1490Q$"N"1498 PROMPT Fx"RUNR2,D1"("RUNR3,D1"9"RUNR4,D1"J"RUNR5,D1"["RUNR6,D1"l"RUNR7,D1"r RECORD INPUT LOOP"IS THIS A NEW CUSTOMER (Y OR N)?";U$:216,0:(U$,1)"Y"1506(U$,1)"N"1490"CUSTOMER NBR. JNāXL179:"-";:XL:" ")#1540bR.: ";D$;$"TD32(D$):TD0TD0@"TD);"DR.ACC'T #: ";N4[""QTY. INVOICED: ";Q1;w"26:"WAYBILL #: ";N1$;"29(N1$));"CR.ACC'T #: ";N5""INVOICE DATE: ";D1$;"26:"SHIPPING DATE: ";D2$"JNĺ27);"**** LAST RECORD ****"#JNĺ:" **** LAST RECORD ****"I! :"ENTER A 1 TO CONTINUE?";Z9S!1540q!o PRINTER LISTING OUTPUT!p"RECORD NBR.: ";J;!r1440!u7((J)));C$;34(C$));"AMOUNT: ";B$!z20);S$!20);Z$!"INV. NBR.: ";I$; "5);"DESC "INVOICE NBR.: ";I$< "INVOICE DATE (MM/DD/YY): ";D1$N "AMOUNT: ";Bf "DESCRIPTION: ";D$ "QUANTITY INVOICED: ";Q1 "SHIPPING DATE (MM/DD/YY): ";D2$ "WAYBILL #: ";N1$ "LEDGER DR.ACC'T #: ";N4 "LEDGER CR.ACC'T #: ";N5$!:NN1:1960: J1 HOLDS RECORD #&@ STOP SCREEN DISPLAYIZ90OY1160_e LISTING TO VIDEO SCREENJ1ė:" *** RECORD #: ";J"CUSTOMER NAME: ";C$"ADDRESS: ";S$"CITY STATE ZIP:";Z$R)\RM$;0:S$:D7$:D8$:M:DZ$1fT0=pJ11MzRM$;J1:Z1$:S$:Z$:I2$:I3$:B2:U$:U1:U2$:U3$:U4:U5:DZ$C$Z1$I$I2$TJ1: T HOLDS INV.REC.#J1T0ĺ:"*** A/R INVOICE NOT FOUND FOR ";C$;" # ";I$:2080 J1T1#WM$;0:T$:D7$:D8$:M:DZ$)/\  PUT NEW INVOICE AT BOTTOM OF 'RECMSTR'bl MM1*WM$;M:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:DZ$4WM$;0:T$:D7$:D8$:M:DZ$>C ACCUMULATE RECEIPT PAYMENT(B<0)HJ$:S0$:Z0$:I0$:D0$:B0:F$:Q0:D9$:N0$:N7:N9:DZ$WM$;K:J$:S0$:Z0$:I0$:D0$:B0:F$:Q0:D9$:N0$:N7:N9:DZ$KJ1J11: J1 WILL BE REC# FOR NEW INVOICEWM$;J1:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:DZ$MMM$;0:T$:D7$:D8$:M:DZ$"0T00:M120809DOM$ENJ11MXRM$;J1:C1$:S1$:Z1$:I2$:I3$:B2:U$:U1:U2$:U3$:U4:U5:DZ$bC$C1$TJ1lC$C1$I$I2$ıvJ1T0ī2080J1TKM1J111:RM$;K1:0ı&1740: JOURNAL ENTRY BYPASSEWJ$;N81:D1$:D$:N4:BeWJ$;N82:D1$:D$:N5:B:WJ$;0:D3$:D4$:N82:DZ$NN1:J1J11:B8BJN1J11J FIND THIS CUSTOMER IN 'RECMASTER'&R5);I$;24);B$;40);N4$;" ";5" ";N5$;31);N1$CJN1570M1580V"J:j,LL8:LL97ı6J1L1L9:" ":J1:1150@JT JOURNALIZE^hJ1J:J1N1690rJ1J11|Z$C$I2I1690BBB21650B,3):(BZ$,1)"."ī1490EBZ$(B$,2):(BZ$,1)"."B$B$"0":1490UB$B$".00"Q110(B$):B$" "B$:Q:N4$(N4):Q14(N4$):N4$" "N4$:Q6005N5$(N5):Q14(N5$):N5$" "N5$:QN1$(N1):Q14(N1$):N1$" "N1$:Q(C$,20)&dK(D$):K30D$(D$,30)2nA$(J)PxQ13(A$):A$" "A$:Q{Q1$(Q1):Q13(Q1$):Q1$" "Q1$:Q6000A$;6);C$;26);D1$;40);D$;24);Q1$;" ";D2$Q110(I$):I$" "I$:QB$(B):B$"$"B$BZ$(B$#"'""11-DR ACC'T # 12-CR ACC'T #"-"3"B" XX99850!R"RUNMICROREC,D1"!\D! LIST OF 12 FIELDS IN A RECORDo!"1-CUSTOMER NAME 2-CUSTOMER ADDRESS"!"3-CITY STATE ZIP 4-INVOICE NBR."!"5-INVOICE DATE 6-AMOUNT"!"7-DESCRIPTION 8-QTY.INVOICED"""9-SHIPPING DATE 10-WAYBILL ARE ";D7$;"-";D8$:"CHANGE DATES (Y/N) ";Y$A (Y$,1)"N"2090o "NEW DATES (MM/DD/YY,MM/DD/YY) ";D7$,D8$ *"NUMBER OF RECORDS ";N:"CHANGE (Y/N) ";Y$:(Y$,1)"N"2110 4"NEW NUMBER OF RECORDS ";N >WF$;0:T$:D7$:D8$:N:CD$ CXY88!H 690006N3 N GET RECMASTER HEADER9NZ NOM$:RM$;0:T$:D1$:D2$:Ne*NCM$:kQQ GET RECMASTER RECORD JQROM$:RM$;JRC1$:S$:Z$:I$:D1$:BRCM$&RR"0":12110&/W2121004:/(A$,W2,1)"."12110DD/A$A$".00"cN/(A$)N8A$" "A$:12110iX/v2V20ı2:"HIT RETURN TO CONTINUE";U$280002V9:6VP8ı6P1P116L9VP4:" ":L9637);"PAGE ";P16" ":" "QOE$"UNDER 30 DAYS":B +GO60QOE$"BETWEEN 31-60 DAYS":k+GO90QOE$"BETWEEN 61-90 DAYS": +E$"OVER 90 DAYS":.FMT(100FMT.005)100.A$(FMT).FMT0A$(A$,(A$)1)/W(A$)/W112100 /(A$,W1,1)"."A$A$10070,10060,10050B'GOGO30+L'GOGO318V'GOGO30E`'GOGO31Rj'GOGO31_t'GOGO30l~'GOGO31y'GOGO30'GOGO31'GOGO28'GOGO31'GOGOD'*B0E$"PAYMENT RECEIVED":*GOQOE$"FUTURE DUE DATE":+GO30ICE DATE DESCRIPTION DEBIT CREDIT BALANCE"^#KL179:"-";:KLf#""o#V18u#'M5((DE$,2))'D((DE$,4,2))$'Y5((DE$,2)).'GO365(Y51)8'M510160,10150,10140,10130,10120,10110,10100,10090,10080,**********"/<#11);N1$;11);"***";22);"***"`F#11);N2$;16);"*** S T A T E M E N T ***"P#11);N3$;16);"***";22);"***"Z#53);"***********************"d#" "n#52);"STATEMENT DATE: ";D$x#C1$#S$#Z$#" "G#" INVO,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......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:CD1z#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*" -"* *" /"* *" 2"* MICRORECEIVABLE PROGRAM *"! 5"*   D$""::K"***************************************"z"* *""* MICROCOMPUTER SKILLS: CURRICULUM *"!"* *" #"*DEVELOPMENT AND DISSEMINATION PR     320:B$Z$#:::7);D$;56);B$3 ::::II<CL$P"PR#0"::370j(FMT(FMT100.5)100x2Z$(FMT)<ZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":1370FZZ$(Z$,3):(ZZ$,1)"."ī1370PZ$Z$".00"ZK19(Z$)dZ$" "Z$nKĺ" 80N"II1NcOF$:RF$;II:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:CRF$qB01290::61);I$::7);C$:7);S$:7);Z$::D$;" ";D1$;" $ ";B129020);D2$ FMTB:1T HEAD WITH FIRST"t<~"LINE ON TOP OF INVOICE FORM.""ENTER

FOR PARALLEL PRINTER OUTPUT OR FOR SERIAL PRINTER OUTPUT ";XY$XY$"P"XY$"S"1155"ENTER PRINTER SLOT NUMBER (1-7)?";SL:SL1SL71160"PR#";SL:XY$"P"D6$:N:CRF$1490":6508$ PRINT INVOICES>.e8OF$:RF$;0:T$:D8$:D9$:N:CRF$LN1ĺ"NO RECORDS IN 'RECFIL' "::"ENTER A '1' TO CONTINUE ";A:1300V:"PUT ";N;" CONTINUOUS INVOICE FORMS INTO"`j"PRINTER. ALIGN PRIN(MAX. 60 CHARS.)? ";T$R"ENTER START DATE OF PERIOD (MM/DD/YY)? ";D1$:"ENTER END DATE OF PERIOD (MM/DD/YY)? ";D2$"ENTER TODAY'S DATE (MM/DD/YY)? ";D3$ ADD RECORDS ROUTINE OF$:RF$;0:T$:D5$:WRM$;0:T$:D1$:D3$:0:CL$H"*** 'RECMASTER' HAS BEEN CREATED ***"`K912000:K9:810n960:970OJ$:WJ$;0:D1$:D2$:0:CL$"*** 'JOUFIL' HAS BEEN CREATED ***"K912000:K9:810"ENTER TITLE OF ACCOUNTS RECEIVABLE FILE "1::"WHICH NUMBER DO YOU WANT (111-114)? ";ZJ<ZZ110:Z1Z4826P=g>Z840,880,920,650zH950:960:970ROF$:WF$;0:T$:D1$:D2$:0:CL$\"*** 'RECFILE' HAS BEEN CREATED ***"fK912000:K9:810p950:960:980zRM$:#*:"11. FILE INITIALIZATION"B,"-----------------------"H.^0"YOU MAY NOW:":2" 111 - INITIALIZE A/R TRANSACTION FILE"4" 112 - INITIALIZE A/R MASTER FILE"6" 113 - INITIALIZE JOURNAL FILE"8" 114 - RUN ANOTHER ROUTINE 13-PRINT INVOICES"':R" 14-RUN ANOTHER PROGRAM"X`:"WHICH NUMBER DO YOU WANT";AAA10A1A4ĺ"INVALID NUMBER. TRY AGAIN.":740A810,1010,1080,350  FILE INITIALIZATION " X) b"WHICH NUMBER DO YOU WANT";AY lA0A7ĺ"INVALID NUMBER. TRY AGAIN.":610_ v A11790,650,1410,1420,1430,1440,1450,1460 "DO YOU WANT: 11-INITIALIZE A/R FILES" : " 12-ADD RECORDS IN'RECFIL'" :"" 3 - A REPORT OF AGED TRIAL BALANCES"- R " 4 - RECEIVABLES BY CUSTOMER"X y " 5 - RECEIVABLES BY DATE"  &" 6 - LIST, JOURNALIZE, AND ACCUMULATE A/R" D F" 7 - CUSTOMER STATMENTS" H N" 0 - QUITD$"CLOSE" T[ ^"WELCOME TO 'MICROREC', THE COMPUMAX ACCOUNTS RECEIVABLE SYSTEM"a hx r"DO YOU WANT TO:"~ | " 1 - INPUT ACCOUNTS RECEIVABLE RECORDS"  " 2 - INPUT CUSTOMER PAYMENTS AND A/R UPDATES" ' "CLOSERECFILE"1 RM$"OPENRECMASTER,L200,D1"M RRM$"READRECMASTER,R"j WRM$"WRITERECMASTER,R" CM$"CLOSERECMASTER" OJ$"OPENJOUFIL,L55,D1" RJ$"READJOUFIL,R" WJ$"WRITEJOUFIL,R" CJ$"CLOSEJOUFIL" CL$"CLOSE" CTON AVE,I 2 PALO ALTO, CALIFORNIA 94301 (415) 321-2881l < APPLE II VERSION RELEASE 5.0 = 10/01/79 F"NOMON,C,I,O" P216,0: dRF$"READRECFILE,R" nWF$"WRITERECFILE,R" xOF$"OPENRECFILE,L200,D1" CRF$G COMPUMAX MICROREC SYSTEM - INPUT ACCOUNTS RECIEVABLE - MICROREC UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT COPY, RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT ( WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMIL          STOMER (Y/N) ";Y$((Y$,1)"N"15206#::5000X("ENTER FIELD TO BE CHANGED:"z*" (1 - 12; 0 IF NO MORE)?";L2L01510<L0L12.011360F"RECORD HAS FIELDS 1 TO 12 ONLY":1320P"IS THE DATA TO BE CHANGED ";0ZL1560,1562,1 RECORD FIELDSP"ENTER THE NUMBER OF THE RECORD YOU WANT TO CHANGE ";McM0MN1280"FILE HAS RECORDS 1 TO ";N:1520RF$;M:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:CD$ C$;" INVOICE #";I$"IS THIS THE CORRECT CUCORD j+tOF$"OPENRECMASTER,L200,D2"F~RF$"READRECMASTER,R"bWF$"WRITERECMASTER,R"|CF$"CLOSERECMASTER"OF$:RF$;0:T$:D7$:D8$:N:CD$1690WF$;0:T$:D7$:D8$:N:CF$"PR#0"::210 SUBROUTINE CHANGES'OF$"OPENRECMASTER,L200,D2"BRF$"READRECMASTER,R"^WF$"WRITERECMASTER,R"xCF$"CLOSERECMASTER"XY0$OF$:RF$;0:T$:D7$:D8$:N:CD$.20403XY88109081250BCL$L:20V` DELETE A RECMASTER REp DELETE A RECFIL RECORD"zAOF$"OPENRECFILE,L200,D2"ZRF$"READRECFILE,R"tWF$"WRITERECFILE,R"}OF$RF$;0:T$:D5$:D6$:N:CD$1690WF$;0:T$:D5$:D6$:N:CF$:210 CHANGE A RECMASTER RECORD670 ) CHANGE A RECFIL RECORD/NOF$"OPENRECFILE,L200,D2"hWF$"WRITERECFILE,R"RF$"READRECFILE,R"XX0 OF$RF$;0:T$:D5$:D6$:N CD$*41910>CXX99850H1250RCL$\210f (Y/N) ";lQ$.v(Q$,1)"N"ė:CL$:210C(Q$,1)"Y"460L610:"NO SUCH A/R RECORD IN MASTER FILE":"CHECK FOR INCORRECT INV.# OR MISPELLING":"DO YOU WANT TO TRY AGAIN (Y/N) ";U$U$"Y"460U$"N"ė:CL$:210T # ";N4:"LEDGER CR ACC'T # ";N5*0BBo:WF$;N1:C$:S$:Z$:I1$:D1$:B:D$:Q1:D2$:N1$:N4:N5:CD$yDNN1NWF$;0:T$:D5$:D6$:N:CD$X:"CUSTOMER PAYMENT ENTERED AS"]"RECORD # ";N;" IN 'RECFIL'": b"MORE CUSTOMER PAYMENTS:B:D$:Q1:D2$:N1$:N4:N5:CD$@OE$X$I1$I2$NN0:530^C$X$I1$I2$NN99:Im NN99660:"INVOICE DATE WAS :";D1$:"DATE OF PAYMENT (MM/DD/YY) ";D1$:"AMOUNT INVOICED WAS: $ ";B:"AMOUNT RECEIVED $ ";B!&"LEDGER DR ACC'"DATE (MM/DD/YY) ";D9$G "CUSTOMER NAME ";C$:"INVOICE NUMBER ";I1$R OE$C$r (OE$)23OE$OE$" ":465 OF$:RF$;0:T$:D5$:D6$:N:CD$ OM$:RM$;0:U$:D7$:D8$:M:CD$ I1M NN0 IM660"RM$;I:X$:S$:Z$:I2$:D1$J2 T"25 - DELETE A RECORD IN A/R MASTER FILE"8 ^Y h"26 - RUN ANOTHER PROGRAM."_ r |"WHICH NUMBER DO YOU WANT (21-26) ";A A21A26ė:200  A20450,750,900,1020,1140,2130   RECEIPT OF A CUSTOMER PAYMENT  "21 - ENTER A RECEIPT OF A CUSTOMER": " PAYMENT."@ o "22 - CHANGE A RECORD IN A/R TRANSACTION" " FILE."  ""23 - DELETE A RECORD IN A/R TRANSACTION" ," FILE." 6 @"24 - CHANGE A RECORD IN A/R MASTER FILE" $"OPENRECFILE,L200,D2"9 OM$"OPENRECMASTER,L200,D2"T RM$"READRECMASTER,R"l CF$"CLOSERECFILE" CM$"CLOSERECMASTER" CL$"CLOSE" A/R UPDATE PROGRAM "2. ACCOUNTS RECEIVABLE UPDATE PROGRAM" :"DO YOU WANT TO" % PALO ALTO, CALIFORNIA 94301 (415) 321-2881^ < APPLE II VERSION RELEASE 5.0w = 10/01/77 F"NOMON,C,I,O" P216,0: Z"MAXFILES3" dCD$""::: CONTROL 'D' nRF$"READRECFILE,R" xWF$"WRITERECFILE,R" OFC: COMPUMAX MICROREC - INPUT ACCOUNTS RECEIVABLE - R2x 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      "*" 1-RUN AGED BALANCE TRIAL AGAIN"J" 2-RUN ANOTHER PROGRAM"a"ENTER (1-2)?";LNuLN1LN25003"PR#0"LN1ė:230LN2ĺ"RUNMICROREC,D1"OGOGO31GOGO31"GOGO30/GOGO31<$GOGO30I.GOGO31V8GOGO28cBGOGO31vLZZ$(D6$,4,2)VD5(ZZ$)`GOGOD5jtZ9Z91~Z921200"ENTER A 1 TO CONTINUE";Z9Z90"YOU MAY NOW:p" "zL28:PP1:$L2L263L2L96ıGJ2L2L9::J2P780VqZZ$(D6$,2):Y5(ZZ$)GO365(Y51)M5(D6$)M51100,1090,1080,1070,1060,1050,1040,1030,1020,1010,1000,990GOGO30GOGO31GOGO30--------------"'*I0820,830,840,850X4"INVOICES OUTSTANDING UNDER 30 DAYS"::860>"INVOICES OUTSTANDING BETWEEN 31-60 DAYS"::860H"INVOICES OUTSTANDING BETWEEN 61-90 DAYS"::860R"INVOICES OUTSTANDING OVER 91 DAYS":\f,T$1İ1140" ""J:FMTS:150F:"**** CASH PROJECTION = ";Z$TX90760t"ENTER A 1 TO CONTINUE";X9z" ": " ":70);"PAGE ";P:" ""AGED TRIAL BALANCE OF A/R"" ON ";Q7$ "-------------------------NVOICED: ";Z$\B0BB:FMTB:160:"*** PAYMENT DATE: ";Q8$:"*** AMOUNT RECEIVED: ";Z$t"DESCRIPTION: ";D$"QUANTITY: ";Q1"SHIPPING DATE: ";D2$"WAYBILL #: ";N1$"LEDGER DR.ACC'T #: ";N4"LEDGER CR.ACC'T #: ";N5X931))L91:580:&(I03(Q0GO91Q0GO61))L91:580Z0(I04Q0GO91)L91:580h:L90:720rDSSBNB0D1$Q8$XB0D1$Q8$b:"INVOICE #: ";I$g"CUSTOMER NAME: ";C$lFMTB:150 vB0ĺ"INVOICE DATE: ";D1$:"AMOUNT I! OM$:RM$;0:T$:D5$:D6$:N* 7805 J1N@ RM$;J} C$:TK$:TN$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:CD$ CD$ B0Q8$D1$:D1$Q9$:510 Q9$D1$ D6$D1$ 950 (I01Q0GO31)L91:580(I02(Q0GO61Q0GOTER SLOT NUMBER (1 TO 7) ";SL:SL1SL7278S "PR#";SL:Y$"Y":XY$"P"ĺ" 80N"_ ,I014j 6D$Q7$v @D6$Q7$ J950 TQ0GO ^390 hI0 r |"PR#0":CM$::5000  S0: CASH PROJECTION L21: LINE NUMBER P$" ":V0L BALANCE OF A/R": P1= "ENTER DATE (MM/DD/YY) ";Q7$K X90:Z90 "ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUTPUT, OR FOR CRT OUTPUT ";XY$ XY$"C"X91:Y$"Y":300 XY$"S"XY$"P"270, "ENTER PRIN""::: CONTROL 'D' 2301 FORMAT AMOUNTO F(FMT100.5)100:FMTFg Z$(FMT):Z$"$"Z$ ZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":210 ZZ$(Z$,3):(ZZ$,1)"."210 Z$Z$".00" C0111(Z$):Z$" "Z$:C0  "3. AGED TRIAE.C 2 PALO ALTO, CALIFORNIA (514) 321-2881g < APPLE II VERSION RELEASE 5.0} = 10/01/79 F"NOMON,C,I,O" P216,0 Z dOM$"OPENRECMASTER,L200,D1" nRM$"READRECMASTER,R" xCM$"CLOSERECMASTER" CD$ A COMPUMAX MICROREC SYSTEM - AGED TRIAL BALANCE OF A/R - R3 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     "L28:PP1:L2L26-L2L96ıDJ2L2L9:" ":J2Jc:"RUNMICROREC,D1"oZ9Z91~Z921060"ENTER A 1 TO CONTINUE";Z9Z90$.:15)"RECEIVABLES BY CUSTOMER"T$:560OEE12500:EE:85054:"*** CASH PROJECTION= ";Z$C>X90850cH"ENTER A 1 TO CONTINUE";X9iR\" ":" ":"PR#0":230f" ":70);"PAGE ";P:" "p,,"RECEIVABLES BY CUSTOMER"z,,"-----------------------"" ",,T$" TION: ";D$"QUANTITY: ";Q1:"SHIPPING DATE: ";D2$Q"WAYBILL #: ";N1$o"LEDGER DR.ACC'T #: ";N4yXY88 X90İ1000" " 940*J:FMTS:150/XY99ĺ:"NO SUCH CUSTOMER IN MASTER FILE.":"CHECK YOUR SPELLING AND DATA":0C$Q$8100:"CUSTOMER #: ";V;G" INV.NBR: ";I$]"CUST.NAME: ";C$lFMTB:150B0ĺ"INVOICE DATE: ";D1$:"AMOUNT INVOICED: ";Z$B0BB:FMTB:150:"*** PAYMENT DATE: ";Q8$:"*** AMOUNT RECEIVED: ";Z$ "DESCRIP:CD$!Y$"N"2000&870*0J1N5:RM$;JrDC$:TT$:TG$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:CD${NCD$XB0Q8$D1$:D1$Q9$bA41C$Q$640lJ$(J):C014(J$):J$" "J$:C0vSSBP$C$VV1:P$C$A4267, OR FOR CRT OUTPUT ";XY$8 XY$"C"Y$"N":510S XY$"S"XY$"P"450 "ENTER PRINTER SLOT NUMBER (1-7) ";SL:SL1SL7470 "PR#";SL:XY$"P"ĺ" 80N" Y$"N"A41X91 Y$"N"A42X92 OM$:RM$;0:T$:D5$:D6$:N2: LINES PER PAGE r3 |A40390,400,990L "CUSTOMER NAME ";Q$R l S0: CASH PROJECTION L21: LINE NUMBER P$" ":V0 P1: PAGE NUMBER XY99 "ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUTPUTY CUSTOMER ":% "DO YOU WANT TO:"+ U " 41 - REPORT A SINGLE CUSTOMER."[  "" 42 - REPORT ALL CUSTOMERS." , 6" 43 - RUN ANOTHER PROGRAM." @ JX90:Z90 T"WHICH DO YOU WANT (41-43) ";A ^A41A43340 hL96NTROL 'D' 240& FORMAT AMOUNTD F(FMT100.5)100:FMTF\ Z$(FMT):Z$"$"Z$ ZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":210 ZZ$(Z$,3):(ZZ$,1)"."210 Z$Z$".00" C0111(Z$):Z$" "Z$:C0  "4. RECEIVABLES BALO ALTO, CALIFORNIA 94301 (415) 321-2881\ < APPLE II VERSION RELEASE 5.0r = 10/01/79 F"NOMON,C,I,O" P216,0 Z dOM$"OPENRECMASTER,L200,D1" nRM$"READRECMASTER,R" xCM$"CLOSERECMASTER" CD$""::: CO 7 COMPUMAX MICROREC SYSTEM - A/R BY CUSTOMER - R4u 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      1 TO CONTINUE";Z9ZZ90$dOM$*n0x6<D:c15)"RECEIVABLES BY DATE"kT$zA51ĺD9$A52ĺK7$;" TO ";K8$640NS BY DATE"',,"-------------------"0" ":,,T$IA51ĺD9$cA52ĺK7$;" TO ";K8$l" "}L28:PP1:L2L26L2L96ı J2L2L9:" ":J2(:"RUNMICROREC,D1"2Z9Z91<Z941410FCM$P"ENTER A((D1$,2))((D7$,2))980>j((D1$,2))((D8$,2))980Ut(D1$)(D7$)980l~(D1$)(D8$)980((D1$,4))((D7$,4))980(D7$)(D1$)1190((D1$,4))((D8$,4))980820" ":70);"PAGE ";P:" " ,,"RECEIVABLENUE";X9 )" ":" ":"PR#0":220J((D1$,2))((D7$,2))770k((D1$,2))((D8$,2))770$(D1$)(D7$)770.(D1$)(D8$)7708((D1$,4))((D7$,4))770B(D7$)(D1$)1110L((D1$,4))((D8$,4))770V760`#: ";N4%"LEDGER CR.ACC'T #: ";N5/XY88@X90İ1330I" "S1270jJ:FMTS:140:CM$XY99ĺ:"NO INVOICE(S) FOR REQUESTED DATE(S)":GG12500:GG:1020:"**** CASH PROJECTION: ";Z$:X901020"ENTER A 1 TO CONTIOMER NAME: ";C$fFMTB:140VpB0ĺ"INVOICE DATE: ";D1$:"AMOUNT INVOICED: ";Z$zB0BB:FMTB:140:"*** PAYMENT DATE: ";Q8$:"*** AMOUNT RECEIVED: ";Z$"DESCRIPTION: ";D$"QUANTITY: ";Q1"WAYBILL #: ";N1$"LEDGER DR.ACC'T A51D2D0770<J$(J):C014(J$):J$" "J$:C0FSSB^P$C$VV1:P$C$j D2$D3$xA51810 A52D2D7D2D8980*A51D2D09804>HB0D1$Q8$R:"CUSTOMER #: ";V;" INVOICE NUMBER: ";I$\"CUST$"N"2000l1200vOM$(J1N3RM$;JpC$:TT$:KK$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:CD$|D3$D2$D2$(D1$,2)(D1$,2)(D1$,4,2)D2(D2$)B0Q8$D1$:D1$Q9$:730Q9D9A51740A52D2D7D2D8770INTER OUTPUT, OR FOR CRT OUTPUT ";XY$J3XY$"C"Y$"N"::X91:600e5XY$"S"XY$"P"560p7Y$"Y":"ENTER PRINTER SLOT NUMBER (1 TO 7) ";SL:SL1SL7570D"PR#";SL:XY$"P"ĺ" 80N"XbOM$:RM$;0:T$:D5$:D6$:N:CD$ gY(D8$,2)(D8$,4,2) D8(D8$)E D7$(D7$,2)(D7$,2)(D7$,4,2)S D7(D7$)b D8D7430h  S0: CASH PROJECTION L21: LINE NUMBER P$" ":V0 P1: PAGE NUMBER+0"ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PR2: LINES PER PAGE h4 rA50380,430,1320W |"DATE WANTED (MM/DD/YY) ";D9$| D0$(D9$,2)(D9$,2)(D9$,4,2) D0(D0$) 490 D7(D7$) "START DATE, END DATE (MM/DD/YY,MM/DD/YY)";D7$,D8$ K7$D7$:K8$D8$ D8$(D8$,2)": "DO YOU WANT TO:" G " 51 - A/R FOR A SINGLE DATE."M w " 52 - A/R FOR A RANGE OF DATES."} " ," 53 - RUN ANOTHER PROGRAM." 6 @X90:Z90 J"WHICH DO YOU WANT (51-53) ";A TA51A53330 YXY99 ^L96-D 230 FORMAT AMOUNT= F(FMT100.5)100:FMTFU Z$(FMT):Z$"$"Z$ ZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":200 ZZ$(Z$,3):(ZZ$,1)"."200 Z$Z$".00" C0111(Z$):Z$" "Z$:C0  "5. RECEIVABLES BY DATE ALTO, CALIFORNIA 94301 (415) 321-2881X < APPLE II VERSION RELEASE 5.0n = 10/01/79 F"NOMON,C,I,O" P216,0 Z dOM$"OPENRECMASTER,L200,D1" nRM$"READRECMASTER,R" xCM$"CLOSERECMASTER" }CD$"": CONTROL3 COMPUMAX MICROREC SYSTEM - A/R BY DATE - R5q 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      ";D8$:LL1<TB3);"*** NBR.OF RECORDS: ";N;" ***":" "G" "QLL2W ]v OUTPUT RECORDS|(27OF$<J1NPRF$;J:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:DZ$UXY$"C"5000ZK(C$):K20C$220HTB);"ACCOUNTS RECEIVABLE":TB2);"TRANSACTION FILE LISTING":TB);"ACCOUNTS RECEIVABLE":TB);"MASTER FILE LISTING":A601200,1210Y$"Y"ĺ.5(80(T$)));T$:1230T$L7:A611250 TB5);"LAST ACCUMULATED DATE: STER' ****":KK13000:KK:1100/CX1:810@Y$"N"X92N$P1:1150X.1330g8X901100vL:"PR#0"VCL$:100`j START PRINTING THE LISTt~Y$"N"1220" ":" ":70);"PAGE ";P" "PP11& 'RECMASTER' LISTING ROUTINE,MOF$"OPENRECMASTER,L200,D1"hRF$"READRECMASTER,R"WF$"WRITERECMASTER,R"CF$"CLOSERECMASTER"CL$"CLOSE"OM$:RM$;0:T$:D7$:D8$:N:DZ$!N0ė::" **** NO RECORDS IN 'RECMA1:Y$"N":TB10:850.9XY$"S"XY$"P"8108;TB30u>"ENTER PRINTER SLOT NUMBER (1 TO 7) ";SL:SL1SL7830HY$"Y":"PR#";SL:XY$"P"ĺ" 80N"MY$"Y"ĺ" 80N"RCX1CX0:\P1f1150p1330zX90910CL$::290CFILE" CL$"CLOSE"=OF$:RF$;0:T$:D5$:D6$:N:CL$ N0ė::::"*** NO RECORDS IN 'RECFIL' ***":K13000:K:910*:"ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUTPUT, OR FOR CRT OUTPUT ";XY$4XY$"C"X9RIOD (MM/DD/YY) ";D6$8WM$;0:T$:D7$:D$:N:DZ$ABB0cWF$;0:T$:D5$:D6$:BB:CL$n:290t 'RECFIL' LISTING ROUTINEOF$"OPENRECFILE,L200,D1"RF$"READRECFILE,R"WF$"WRITERECFILE,R"CF$"CLOSERE1 lJ(vWJ$;0:D3$:D4$:N8::DZ$IRM$;0:T$:D7$:D8$:N:DZ$q"ENTER UPDATE DATE (MM/DD/YY) ";D$"TITLE FOR NEW TRANSACTION FILE";T$"START DATE FOR NEXT TRANSACTION PERIOD (MM/DD/YY) ";D5$"END DATE FOR NEXT TRANSACTION PEOMER RECEIPT RECORDEB0620: A NULL RECORD - IGNORE IT.zB0İ1830: ACCUMULATE NEW A/R INVOICE RECORD.&0 JOURNALIZE:DB0BBNWJ$;N81:D1$:D$:N4:B:DZ$XN8N81:WJ$;N81:D1$:D$:N5:B:DZ$bN8N8A60740,950,470 <  JOURNALIZE & ACCUMULATE A/RB H n OF$:RF$;0:T$:D5$:D6$:N:DZ$ OJ$:RJ$;0:D3$:D4$:N8:DZ$ J1N RF$;J:C$:S$:Z$:I$:D1$:B:D$:Q1:D2$:N1$:N4:N5:DZ$ OM$B0İ2140: A CUST" 63 - JOURNALIZE AND ACCUMULATE A/R", hN r" 64 - RUN ANOTHER PROGRAM"V |:d Z90:X90 L966: PAGE SIZE FOR 8-1/2 X 11 SHEET "WHICH NUMBER DO YOU WANT (61 - 64)"; A:A61A64400 A64ĺ"PR#0":"RUNMICROREC,D1" 'D' ***  CL$"CLOSE"2 WJ$"WRITEJOUFIL,R"I CJ$"CLOSEJOUFIL"P 4} "6. LIST, JOURNALIZE, ACCUMULATE A/R":  ""PR#0":"DO YOU WANT TO:" ,: 6" 61 - LIST TRANSACTION FILE" @ J" 62 - LIST MASTER FILE" T& ^CLOSERECFILE"/ OM$"OPENRECMASTER,L200,D1"J RM$"READRECMASTER,R"f WM$"WRITERECMASTER,R" CM$"CLOSERECMASTER" OJ$"OPENJOUFIL,L55,D1" RJ$"READJOUFIL,R" WJ$"WRITEJOUFIL,R" CJ$"CLOSEJOUFIL" DZ$"": *** CONTROL N AVE.G 2 PALO ALTO, CALIFORNIA 94301 (415) 321-2881j < APPLE II VERSION RELEASE 5.0 = 10/01/79 F"NOMON C,I,O" P216,0 Z dOF$"OPENRECFILE,L200,D1" nRF$"READRECFILE,R" xWF$"WRITERECFILE,R" CF$"*E COMPUMAX MICROREC SYSTEM - LIST, JOURNALIZE & ACCUMULATE - R6 UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT COPY, RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT ( WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMILTO         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          *****STATEMENT OF ";D$;"**********",TC1$4^S$<hZ$Brp|"INVOICE";12);"DATE";20);"DESCRIPTION"9);"DEBITS";20);"CREDITS";32);"BALANCE"R9139:"-";:R9"-":10V9(#KL15:" ":KL 2#53);"*************b(I$)8I$" "I$:70108l(E$)18E$E$" ":7020OvFMTB:N810:12000~I$;" ";D1$;" ";E$;" ";:B0ĺA$;13);B0ĺ11);A$;" ";SSB:FMTS:N812:12000A$;S0ĺ" DR"S0ĺ" CR"VV1@#J"****P1P11:37);"PAGE ";P1(P10ĺ" "6" ":" "<Bp[I$;10);D1$;19);E$rFMTB:N810:12000B0ĺ5);A$;B0ĺ15);A$;SSBFMTS:N811:1200026);A$;S0ĺ" DR"S0ĺ" CR"VV2XY$"P"ĺ" 80N" 8:BL$"DEBIT":S0BL$"CREDIT"SBL$;" BALANCE = $";A$x24:"HIT RETURN TO CONTINUE";U$~" ":" "BL$"DEBIT":S0BL$"CREDIT"25);BL$;" BALANCE = $";A$VP35035L9VP6:" ":L9P10":340s :"ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUTPUT, OR FOR CRT OUTPUT ";XY$ XY$"C"Y1: XY$"P"XY$"S"3000 :"ENTER PRINTER SLOT NUMBER (1 TO 7)?";SL SL1SL73030 Y2 "PR#";SL:X,9000h DECODE DATE"iDE$D$-k100007lQOGOPm OUTPUT TRANSACTIONjpDE$D1$:10000:11000{uY6000,7000zJJ1JNī221021000 CHECK ENDPAGE/ENDSCREENC1$C$C1$C2$ĴY13000,14000:2160Y4000,5000:"PR#0 C1$*C1$C$C1$C2$212044JJ1:JN2070=6CM$V9:"CUSTOMER ";C$u>"IS NOT IN MASTER FILE!!"CK912000:K9:340HCM$M PRINT?R3000W GET ALL OF RECORD J\21000a PRINT HEADINGcS0:P10fY8000:10000:11000Y6000,7000&J7Y4000,5000I"PR#0":340j:"ENTER CUSTOMER NAME ";C$(C$)23ĺ"TOO LONG!!":2000C2$C$ C2$ IS FOR ORDER ENTRY (C2$)23C2$C2$" ":2030C1$""OM$ J1RM$;J:DC00:OD0b30005gDE$D$:10000:QOGO?lC$""JvJ1Nt21000:C1$C$C2$C1$ĴY13000,14000C$C1$C2$C1$685J1ĴY4000,5000S0:P10:CO0:C$C1$:C2$C1$(C2$)23C2$C2$" ":675Y8000,9000DE$D1$12000:K9:340; "ENTER STATEMENT DATE (MM/DD/YY) ";D$a (D$)8ĺ"INVALID INPUT!!":480s M5((D$,2)) D5((D$,4,2)) M512M50ĺ"INVALID MONTH!!":480 D531D50ĺ"INVALID DAY!!":480 A712000 & 0 ALL CUSTOMERSLL CUSTOMER STATEMENTS"9 :"73 - RUN ANOTHER PROGRAM"f :"WHICH NUMBER DO YOU WANT (71-73)?";Ay A71A73410 A73ĺ"RUNMICROREC,D1":  C00:OD0:C$"":C2$"" L0 20000 :N0ĺ"*** NO RECORDS IN 'PAYMASTER' ***":K9N2$N2$" ":3061 3(N3$)25N3$N3$" ":3077 6M @P66: PAGE SIZES JY T~ ^"7. CUSTOMER STATEMENT PROGRAM" h"-----------------------------" r:" YOU MAY NOW:" |:"71 - PRINT A SINGLE CUSTOMER STATEMENT" :"72 - PRINT AT YOUR DATA HERE. , COMPANY NAMEN  WESTERN MANUFACTURING CORP.d  STREET ADDRESS{  592 DUANE STREET " CITY STATE ZIP (NO COMMMAS) , SUNNYVALE CA 94086 . 0:N1$,N2$,N3$ 1(N1$)30N1$N1$" ":305 2(N2$)25 PALO ALTO, CALIFORNIA 94301 (415) 321-2881a APPLE II VERSION RELEASE 5.0| AUGUST 15, 1980 "NOMON C,I,O":216,0 "PR#0" OM$"OPENRECMASTER,L200,D1" RM$"READRECMASTER,R" CM$"CLOSE" PU:d COMPUMAX MICROREC SYSTEM - CUSTOMER STATEMENT - R7yn UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOTx COPY, RENAME, CHANGE, CONVERT, EXPAND, OR RESELL WITHOUT WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 467 HAMILTON AVE.,=       *"5n"*";:9:"MACOMB, ILLINOIS 61455";:39:"*"do"***************************************"jpq" PRESS TO CONTINUE..";Z$rv::::::w" LOADING MICRORECEIVABLE PROGRAMS"xD$;"RUNMICROREC"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:"ԍԠ