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`;:& F$;:& N1;:$& N2;:/& N3;::& N4;:E& N5;:P& N6;:[& N7;:f& N8;:q& J$;:|& J1;:& G$;:&" J2;:&, H$;:&6 J3;:&@ I$;:&J J4;:&T K$;:&^ J5;:&h J6;:&r J7;: '| ROUTINE SHIFNEW JOB #5 CODE ";K$:2240;%( "NEW JOB #5 COST ";J5:2240j%2 "NEW ANNUAL ACCUM. FED. I. TAX ";J6:2240%< "NEW ANNUAL ACCUM. F.I.C.A. TAX ";J7:2240%F %P N$;:%Z S$;:%d C$;:%n P$;:%x Q$;:% B$;:% A$;:% D$;:& E$#1 CODE ";J$:22403$ "NEW JOB #1 COST ";J1:2240T$ "NEW JOB #2 CODE ";G$:2240u$ "NEW JOB #2 COST ";J2:2240$ "NEW JOB #3 CODE ";H$:2240$ "NEW JOB #3 COST ";J3:2240$ "NEW JOB #4 CODE ";I$:2240$ "NEW JOB #4 COST ";J4:2240% "ACCUMUL. STATE TAX ";N3:2240E# "NEW ACCUMUL. LOCAL TAX ";N4:2240o# "NEW MISC. WKLY DEDUCTION ";N5:2240# "NEW QUARTERLY ACCUM. (941) ";N6:2240# "NEW ANNUAL ACCUM. (W-2) ";N7:2240# "NEW ACCUM. VACATION (HOURS) ";N8:2240$ "NEW JOB CTION (MAX. 10 CHAR'S) ";A$:2240P"` "NEW DATE OF ACTION (MM/DD/YY) ";D$:2240~"j "NEW POSITION (MAX 10 CHAR'S) ";E$:2240"t "NEW CATEGORY (S OR H) ";F$:2240"~ "NEW RATE/WK OR RATE/HR ";N1:2240" "NEW NBR. OF EXEMPTIONS ";N2:2240# "NEW 06!$ "NEW STREET ADDRESS (MAX. 30 CHAR'S) ";S$:2240j!. "NEW CITY STATE ZIP (MAX 30 CHAR'S) ";C$:2240!8 "NEW TELEPHONE NBR. (DIGITS ONLY) ";P$:2240!B "NEW SOCIAL SEC. NBR. (DIGITS ONLY)";Q$:2240!L "NEW STATUS (M OR S) ";B$:2240!"V "NEW A " (Y OR N) ";U$'  U$"N"22409 U$"Y"2300  L2330,2340,2350,2360,2370,2380,2390,2400,2410,2420,2430,2440,2450,2460,2470,2480,2490,2500,2510,2520,2530,2540,2550,2560,2570,2580,2590,2600,2610,2620! "NEW NAME (MAX. 30 CHAR'S) ";N$:224L0L302280?"RECORD HAS FIELD NBR.'S 1 TO 30":2240c"IS THE DATA TO BE CHANGED: "; L2640,2650,2660,2670,2680,2690,2700,2710,2720,2730,2740,2750,2760,2770,2780,2790,2800,2810,2820,2830,2840,2850,2860,2870,2880,2890,2900,2910,2920,2930TE (MM/DD/YY) ";D2$:2130?"NEW NUMBER OF RECORDS ";N:2130]"NEW NBR. OF RECORDS ";Ne:zM12(I1):3010:"*** RECORD #: ";M;" - ";N$:10)"FIELD DESCRIPTION"::10000"FIELD TO BE CHANGED (1-30);(0 IF NONE)?";LL02630RDS: ";N&[" 0- NO (MORE) CHANGES"`\"WHICH NUMBER DO YOU WANT (0-4)?";DD:DD0DD42140vaDD0TT99:2220fDD2160,2170,2180,2190p"NEW TITLE (MAX.60 CHAR'S) ";T$:2130z"NEW STARTING DATE (MM/DD/YY) ";D1$:2130"NEW LAST UPDAY"ė:1800/U$"N"2080"4H>"CHANGE OF HEADING (Y OR N) ";U$VHU$"N"ıhMU$"Y"2110R:" 'PERSMASTER' HEADER INFORMATION":W" 1-TITLE: ";T$X" 2-STARTING DATE: ";D1$Y" 3-LAST UPDATE: ";D2$Z" 4-NUMBER OF RECO0:N80'J$"":"19-JOB #1 CODE ";J$GG$"":"21-JOB #2 CODE ";G$gH$"":"23-JOB #3 CODE ";H$I$"":"25-JOB #4 CODE ";I$K$"":"27-JOB #5 CODE ";K$ J10:J20:J30:J40:J50:J60:J70M12N:3010 "MORE Y OR N ";U$ *U$"/DD/YY)";D$7E$"":"9-POSITION (MAX. 10 CHAR'S)";E$]F$"":"10-CATEGORY (S OR H) ";F$uF$"S"F$"H"19701940N10:"11-RATE/WK OR RATE/HR";N1N20:"12-NUMBER OF EXEMPTIONS";N2N50:"15-MISC. WEEKLY DEDUCTION";N5N60:N7IP (MAX. 30 CHAR'S)";C$ADP$"":"4-TELEPHONE (DIGITS ONLY)";P$qNQ$"":"5-SOCIAL SEC.NBR. (DIGITS ONLY)";Q$XB$"":"6-STATUS (M OR S)";B$bB$"M"B$"S"1910l1880vA$"":"7-ACTION (MAX. 10 CHAR'S)";A$ D$"":"8-DATE OF ACTION (MM03010:I/WP$;0:T$:D1$:D2$:N:CP$::610a ROUTINE ADDS EMPLOYEE RECORDSm:NN1wEE1"EMPLOYEE #";E:&N$"":"1-NAME (MAX. 30 CHAR'S)";N$0S$"":"2-STREET ADDR. (MAX. 30 CHAR'S)";S$:C$"":"3-CITY STATE ZO GO AHEAD, Y OR N ";U$/|(U$,1)"N"ė:610AU$"Y"1650GhOP$:RP$;0:T$:D1$:D2$:NqDZ$"ENTER DATE (MM/DD/YY) ";D2$I1NN30:N40M12I:3050N60:N70:N80:J10:J20:J30:J40:J50:J60:J70N30:N4DS ";N:1700D<N ROUTINE CHANGES DATA IN A RECORDGX10000Mb[lL02130nvL0L161930"RECORD HAS FIELD NBR'S 1 TO 15 ":1880"IS THE DATA TO BE CHANGED: ";L2140,2150,2160,2170,2180,2190,2200,2210,2220,2230,2240,22WHICH NUMBER DO YOU WANT (0-4)?";XX:XX0XX41760EXX0TT99:aXX1790,1800,1810,1820|"NEW TITLE ";T$:1700"NEW END DATE (MM/DD/YY) ";D3$:1700"NEW WEEK (O OR E) ";W$W$"E"W$"O"18101700 "NEW NBR.OF RECORNGE OF HEADING, Y OR N ";U$/(U$,1)"N"ıAU$"Y"1680k:" 'PAYROLL' HEADER INFORMATION":" 1-TITLE: ";T$" 2-END DATE: ";D3$" 3-WEEK(ODD OR EVEN): ";W$" 4-NBR. OF RECORDS: ";N" 0-NO (MORE) CHANGES"3";O7,"12-JOB CODE # 4: ";I$@6O80:"13-% FOR J.C. #4 ";O8\@"14-JOB CODE # 5: ";K$}JO90:"15-% FOR J.C. #5 ";O9TM1O1:2330^O30:R$"":O40h"MORE Y OR N ";U$r(U$,1)"Y"1260| ROUTINE CHANGES HEADING"CHA.TX 30-ACC.FICA TAX"2o' 2t'EMPTIONS"818'"13-STA.TAX 14-LOC.TAX 15-WKLY.DEDUCT."g1B'"16-ACC.941 17-ACC.W-2 18-ACC.VACATION"1L'"19-CODE #1 20-COST #1 21-CODE #2"1V'"22-COST #2 23-CODE #3 24-COST #3"1`'"25-CODE #4 26-COST #4 27-CODE #5"2j'"28-COST #5 29-AC.FED\"RECORD NUMBER ";K;" DELETED"20fJJ1500:JJ80pA0840\0' FIELD DESCRIPTION0'"1-NAME 2-ADDRESS 3-CITY STA ZIP"0'"4-PHONE 5-SOC.SEC.# 6-STATUS"0$'"7-ACTION 8-DATE 9-POSITION" 1.'"10-CATGRY. 11-RATE(W/H) 12-EX2/I MOVE RECORD/N30102/XM2M22:M4M42:/bM3/lNNP1:3200:CP$:"EMPLOYEE ";F8$;" DELETED":GG1500:GG:4000/ SCREEN MESSAGE ONLY/"RECORD # MUST BE BETWEEN ";1;" AND ";N/JJ1500:JJ/ /[ SCREEN MESSAGE ONLY 0NN1:3200:CP$:"EMPLOYEE ";F8$;" DELETED":GG1500:GG:4000J.II1U. M12Is. GET PERSMASTER RECORD}.3050.F8$N$4390.PP1.IN4390.!IN4360.&M4M1.+M31(NKP).0M1M4.5 GET RECORD.:3050/DM1MNTER TODAY'S DATE (MM/DD/YY) ";F9$@- GET PERSMASTER HEADERJ-3100U-I1N]-KIh-M12I- GET PERSMASTER RECORD-3050-F8$N$4350-I-"NO SUCH EMPLOYEE IN MASTER FILE":GG1500:GG:CP$:4000-M2M1:P0@.KN,ROP$,TM1M2:3050A,V PUT PERSMASTER RECORD M1-2,M1+1-2S,YM1M12:3010n,[ STEP TO NEXT RECORDz,^M2M22,cM3,hNN1:3200:CP$:4700:4000, DELETE EMPLOYEE FROM MASTER,"ENTER NAME OF EMPLOYEE TO BE DELETED ";F8$#-"EVALIDITY OF REC.#'+"K0İ4600:4110<+,KNİ4600:4110Y+6 CHECK FOR LAST RECORD +@KNNN1:3200:CP$:4700:4000+E SET PHYSICAL RECORD ADDRESS+JM22K2+M SET RECORD COUNTER+OM31(NK)+Q GET PERSMASTER RECORD M1,M1+1ER DO YOU WANT (1-3)";A4,*A41A434050C*A44100,4300,5000g* DELETE RECORD BY REC. NUMBER* GET PERSMASTER HEADER*3100* CP$* "ENTER TODAY'S DATE (MM/DD/YY) ";F9$*"ENTER NBR.OF RECORD TO BE DELETED";K+ CHECK FOR OP$:WP$;0:T$:D1$:F9$:N:DZ$') F) DELETE MASTER RECORD(S)L)`)"YOU MAY NOW:"f))" 1-DELETE RECORD BY RECORD NUMBER"))" 2-DELETE ALL RECORDS FOR AN EMPLOYEE"))" 3-RUN ANOTHER PROGRAM")*"WHICH NUMB:C$:P$:Q$:B$:A$:D$:E$:F$:N1:N2:N3:N4:N5~( RP$;M11:N6:N7:N8:J$:J1:G$:J2:H$:J3:I$:J4:K$:J5:J6:J7( DZ$( ( ( GET PERSMASTER HEADER( OP$:RP$;0:T$:D1$:D2$:N:DZ$(& ( PUT PERSMASTER HEADER!) TS RECORDS' INM1)' M12I:3050>' M12(I1):3010E' IK' ' WP$;M1:N$:S$:C$:P$:Q$:B$:A$:D$:E$:F$:N1:N2:N3:N4:N5' WP$;M11:N6:N7:N8:J$:J1:G$:J2:H$:J3:I$:J4:K$:J5:J6:J7' DZ$' 4( RP$;M1:N$:S$13(I1$):I1$" "I1$:K1 FMTO3:1850:O3$Z$I*FMTO8:1940:O8$Z$a4FMTO9:1940:O9$Z$y>FMTO2:1850:O2$Z$HL(R$):L11R$(R$,11):2140RKL111:R$R$" ":K\fFMTO4:1940:O4$Z$kX9026000:2240p"RECORD # ";IZZ$,1)"."Z$Z$"0":1980=ZZ$(Z$,3):(ZZ$,1)"."1980MZ$Z$".00"_K110(Z$)mZ$" "Z$tKz1740FMTO1:Z$(FMT):1890:O1$Z$FMTO5:1940:O5$Z$FMTO6:1940:O6$Z$ FMTO7:1940:O7$Z$I1$(I1):Kб%:FMT(FMT100.5)100:Z$(FMT)SDZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":1900vNZZ$(Z$,3):(ZZ$,1)"."1900XZ$Z$".00"bl FORMAT OUTPUTvK17(Z$)Z$" "Z$:KFMT(FMT100.5)100:Z$(FMT)ZZ$(Z$,2):($J$" ":K-L(G$):L5G$(G$,5):1780GKL15:G$G$" ":KiL(H$):L5H$(H$,5):1800KL15:H$H$" ":KL(I$):L5L$(I$,5):1820KL15:I$I$" ":KL(K$):L5K$(K$,5):1820&KL15:K$K$" ":K0"JOB #4 CODE: ";I$;" JOB #4 COST: $";J4$b"JOB #5 CODE: ";K$;" JOB #5 COST: $";J5$"ANNUAL ACC.FED.INCOME TAX: $";J6$;" ANNUAL ACC.FICA TAX: $";J7$" "L10L1018:31000L(J$):L5J$(J$,5):1760 KL15:JCTIONS: $";N5$;" QUARTERLY 941: $";N6$^"ACCUM. W-2: $";N7$;" ACCUM.VACATION: ";N8$"JOB #1 CODE: ";J$;" JOB #1 COST: $";J1$"JOB #2 CODE: ";G$;" JOB #2 COST: $";J2$"JOB #3 CODE: ";H$;" JOB #3 COST: $";J3$.: ";Q$;" STATUS: ";B$;" ACTION: ";A$nh"DATE OF ACTION: ";D$;" POSITION: ";E$;" CATEGORY: ";F$m"RATE ( $/W OR $/H): ";N1$;" NBR. OF EXEMPTIONS: ";N2r"ACCUM.STATE TAX: $";N3$;" ACCUM.LOCAL TAX: $";N4$)w"MISC.WEEKLY DEDU7:1850N7$Z$#FMTN5:1850."N5$Z$?,FMTJ6:1940J6J6$Z$[@FMTN8:1940fJN8$Z$~TFMTJ7:1940:J7$Z$YX9025000:1730^"NAME: ";N$:"STREET ADDRESS: ";S$:"CITY STATE ZIP: ";C$;" TELEPHONE: ";P$,c"SOCIAL SEC. #&G5G5E5: TOTAL STATE?"z&G6G6E6: TOTAL 'TOTAL' DEDUCTIONS\"&G7G7E7: TOTAL NET PAYb"&"& PRINT TOTALS ACCUMULATED"&REPE$("*",80)"&"&"' "+!V'" 13-% JOB #4 CODE 14-JOB #5 CODE"Z!`'" 15-% JOB #5 CODE 0-NO (MORE) CHANGE"!j':"WHICH NUMBER DO YOU WANT (0-15)?";L:L0L1510090!t'B1510090!t'D0!t'D&G2G2E2: TOTAL SOC SEC TAX!f&G3G3E3: TOTAL FED WITHOLD"p '" 1-EMPLOYEE NBR. 2-REGULAR UNITS"Y $'" 3-SPECIAL UNITS 4-SPEC.RATE CLASS." .'" 5-SPEC.RATE $/UNIT 6-JOB #1 CODE" 8'" 7-% JOB #1 CODE 8-JOB #2 CODE" B'" 9-% JOB #2 CODE 10-JOB #3 CODE"!L'" 11-% JOB #3 CODE 12-JOB #4 CODE:J5:J6:J7 DZ$ c WP$;M1:O1:O2:O3:R$:O4:J$:O5:G$:O6:H$:O7:I$:O8:K$:O9l$ DZ$r. 8 OP$:RP$;M1:O1:O2:O3:R$:O4:J$:O5:G$:O6:H$:O7:I$:O8:K$:O9B DZ$L ':"EMPLOYEE # ";01;"- FIELD DESCRIPTION":* O4;:J$;:"O5;:-G$;:8O6;:CH$;:NO7;:YI$;:dO8;:oK$;:zO9;:RM$;M1:N$:S$:C$:P$:Q$:B$:A$:D$:E$:F$:N1:N2:N3:N4:N5 RM$;M11:N6:N7:N8:J$:J1:G$:J2:H$:J3:I$:J4:K$0#"NEW JOB CODE # 3 ";H$:1880E "NEW % FOR J.C.#3 ";O7:1880g*"NEW JOB CODE # 4 ";I$:18804"NEW % FOR J.C. #4 ";O8:1880>"NEW JOB CODE # 5 ";K$:1880H"NEW % FOR J.C. #5 ";O9:1880R\O1;:fO2;:pO3;:zR$;: UNITS WORKED ";O3:1880N"NEW SPEC. RATE CLASS (MAX. 15 CHARS) ";R$:1880w"NEW SPECIAL RATE $/UNIT ";O4:1880"NEW JOB CODE # 1 ";J$:1880"NEW % FOR J.C. #1 ";O5:1880"NEW JOB CODE # 2 ";G$:1880 "NEW % FOR J.C. #2 ";O6:18850,2260,2270,2280%" Y OR N ";U$;(U$,1)"N"1880MU$"Y"1930L1980,1990,2000,2010,2020,2030,2040,2050,2060,2070,2080,2090,2100,2110,2120"NEW EMPLOYEE NUMBER ";O1:1880"NEW REGULAR UNITS WORKED ";O2:1880"NEW SPECIAL:WQE6:O9E7* PRINTING ROUTINE0U " PAYROLL REGISTER DATE:";D9$[ $ " *** RECORD #:";J;" EMPLOYEE #:";WE. "TOTAL GROSS EARNINGS: ";E18 "SOCIAL SECURITY TAX: ";E2B "FEDERAL WITHH. TAX: ";E3L "STATE DISABILITY TAJ5J5O9E1&AVS5E40:2274BAVE1S5E4S3(S5AV)YAVS4E20:2277uAVE1S4E2S2(S4AV)3700E6E2E3E4E5S6E7E1E63800 PREPARE TO STORE IN PAYROLL REGISTER WFWF:WGE1:WIE2:WKE3:WME4:WOE579020MBGS4E20:2140,RE2S2E16\S1E1@f3200PpE3F3:E5F4Z9040gE4S3E1wS5AV2210E40W$"O"2230EO$"H"2230S62A3:2250S6A3AYAYWKE1BABAWME1BCBCWOE1BEBEWQE11=TOTAL GROSS EARNINGS4, E2=SOCIAL SECURITY TAXP- E3=FEDERAL INCOME TAXt. E4=STATE DISABILITY INSURANCE/ E6=TOTAL DEDUCTIONS0 E7=NET PAY - - E5=STATE TAX1 S2=0.0665 S4=297002 S3=.006 S5=149004E1WFAPWGWIIL%vOJ$:WJ$;0:XA$:XB$:XC:CJ$2"PR#0"D"PR#0":245RE0:M$""]K1NvM12K:13000:N$EF$M$N$EE1:M$N$EO12090K :"*** EMPLOYEE ";O1;" NOT IN MASTER FILE"A41800 A421500*+ E0āGG110:" ":GG3)@yPP1:65);"PAGE ";P:" "9)Jy OUMBER-(0u:"ENTER PRINTER SLOT NUMBER ";SLB(:uSL1SL730000b(Du"PR#";SL:XY$"P"ĺ" 80N"h(Nu(y PRINTER LINE COUNTER(yL1062INL766L10:GG1L76:" ":GG:(yL1062INı("yL108(,yNK99āGG14:" ":GG:NK0:31040)6yNK4$('e"J.C.#1:";J$;" % J.C.#1:";O5$N'e"J.C.#2:";G$;" % J.C.#2:";O6$t'e"J.C.#3:";H$;" % J.C.#3:";O7$'e"J.C.#4:";I$;" % J.C.#4:";O8$'e"J.C.#5:";K$;" % J.C.#5:";O9$:'e"HIT RETURN TO CONTINUE ";KK$:(/u PRINTER SLOT NCC.FED.INC.TAX:$";J6$:&Rb"ANNUAL ACC.F.I.C.A. TAX:$";J7$d&Wb:"HIT RETURN TO CONTINUE ";HH$:j&e&e"RECORD #:";I1$&e"EMPLOYEE #:";O1;" REGULAR UNITS:";O2&e"SPECIAL UNITS:";O3:"SPECIAL RATE CLASSIF.:";R$'e"SPECIAL RATE $/UNIT: ";OUARTERLY 941: ";N6$(%b"ACC.W-2: ";N7$=% b"ACC.VAC.:";N8$a%b"JOB #1:";J$;" COST #1:$";J1$% b"JOB #2:";G$;" COST #2:$";J2$%*b"JOB #3:";H$;" COST #3:$";J3$%4b"JOB #4:";I$;" COST #4:$";J4$%>b"JOB #5:";K$;" COST #5:$";J5$&Hb"ANNUAL A EMPLOYEE #:";E$aN$:S$:C$>$a"PHONE:";P$;" S.S.#:";Q$i$a"STATUS:";B$;" ACTION:";A$;" ON:";D$$a"POS:";E$;" CAT:";F$;" RATE:$";N1$$a"EXEMPTS:";N2;" ACC.STATE TAX:";N3$$a"ACC.LOCAL TAX:";N4$$a"MISC.WKLY.DEDUCTIONS:";N5$%a"Q$(P$,3):H2$(P$,4,3)'#*NH3$(P$,4)H#4NP$"("H1$")"H2$"-"H3$:d#P SOC.SEC EEE-TT-RRRR#PH4$(Q$,4):H5$(Q$,5,2)#PH6$(Q$,4)#(PQ$H4$"-"H5$"-"H6$:#a LISTING FOR CRT$a:" EMPLOYEE MASTER FILE LISTING":"RECORD #:";I;" :Q$:B$:A$:D$:E$:F$:N1:N2:N3:N4:N5{"~ RP$;M11:N6:N7:N8:J$:J1:G$:J2:H$:J3:I$:J4:K$:J5:J6:J7:DZ$" " OY$:RY$;M1:O1:O2:O3:R$:O4:J$:O5:G$:O6:H$:O7:I$:O8:K$:O9:CY$" " "N PHONE (YYY)EEE-GGGG# NH1ROLL FILE LISTING";:X90ĺ50);"PAGE ";P/!8 )W EK$"M"3455R)\ S0192F40:\)^ 3430)a S0S0AQ38: ITEMIZED DEDUCTIONS)f S0S050: STANDARD DEDUCTIONS)k 9140)p 3500)u CH3)z 3610)| BIWEEKLY & MARRIED** (S0192AQ2)(S0CTIONS%( S0S025: STD. DEDUCTIONS/( 91609(% 3500B(* CH1L(/ 3610d(2 WEEKLY & MARRIED(4 (S096AQ2)(S0192AQ1)ı(6 3390(9 S0S0AQ19: ITEMIZED DEDUCTIONS(> S0S025:AQ1S0S025: STANDARD DEDUCTIONS(C 9150)H 3500 S1V(2,I1)33005' F3F3V(1,I)(S1V(2,I)):3320X' F3F3V(1,I)(V(2,I1)V(2,I))_' In' F30F30~' STATE TAX' 9110' EO$"S"3415' EK$"M"3380' S096F40:: LOW INCOME EXEMPTION' 3355( S0S0AQ19: ITEMIZED DEDU0:F30:3330&& EK$"S"İ9570:9590?& EK$"M"İ9540:9560I& 3250e& BIWEEKLY (SALARIED)& S1S1AQ38.46:S10S10:F30:3330& EK$"S"İ9570:9580& EK$"M"İ9540:9550& F30& COMPUTE ACTUAL TAX& I17& I73290'вFINALLY,THE TAXES ARE COMPUTED AS PER TABLE E. THEN TAX CREDITS %T ARE COMPUTED USING TABLE D (LOCATED AT LINES 8100-8160).% FEDERAL TAX COMPUTATIONS% S0S1: FOR STATE TAX% EO$"S"3235% WEEKLY (HOURLY) & S1S1AQ19.23:S10S1 THE USER TAKES OUT LINE NUMBERS 3347, 3382,q$@ 3422,AND 3457. AS IS, THE PROGRAM WILL NOT COMPUTE THE OPTIONAL$E ITEMIZED DEDUCTIONS. THEN THE PROGRAM COMPUTES STD. DEDUCTIONS$J BASED ON MARITAL STATUS & NBR. OF EXEMPTIONS CLAIMED (TABLE C).A%O ARE PAID WEEKLY AND ARE MARRIED HAVE THEIR DEDUCTIONS COMPUTED ^#, IN LINES 3380 - 3410.#1 IN EACH SECTION, THE EARNINGS ARE FIRST CHECKED TO SEE IF THEY#6 EXCEED THE LOW INCOME LEVEL (TABLE A). THEN ITEMIZED DEDUCTIONS,$; MAY BE COMPUTED, IFSTATE TAX COMPUTATION IS CARRIED OUT IN LINES 3330 - 3630z" FIRST, THE WITHHOLDING RATES IN LINES 9110 - 9113 ARE READ." THE PROGRAM THEN COMPUTES TAXES BASED ON MARITAL STATUS"" AND THE LENGTH OF THE PAYROLL PERIOD.FOR EXAMPLE, EMPLOYEES WHOC#' INSTRUCTIONS FOR CHANGING TAX TABLESQ! ------------------------------------! THE FEDERAL TAX COMPUTATION IS PERFORMED IN LINES 3200 - 3320! IF YOU WISH TO CHANGE THE FEDERAL TAX TABLES,THE DATA IS KEPT IN! LINES 9520 - 9592.9" THE FMTL5:8000:18);Z$;G  FMTWO:7000:8);Z$;:3)"STATE WITHH.TAX"b  FMTL7:8000:18);Z$;  FMTA3:7000:8);Z$;:3)"MISC.DEDUCTIONS" # Z$" ":18);Z$; ( FMTWQ:7000:8);Z$;:3)"TOTAL DEDUCTIONS" - NN19:" ":NN 2 '! 3)"GROSS EARNINGS"4 FMTL8:8000:18);Z$;N FMTWI:7000:8);Z$;d 3)"SOC.SEC.TAX" FMTL6:8000:18);Z$; FMTWK:7000:8);Z$;:3)"FEDERAL WITHH.TAX" FMTL4:8000:18);Z$; FMTWM:7000:8);Z$;:3)"STATE DISAB.TAX" :" ":NN " "? 2);EF$;40(EF$));"PERIOD END.";D3$I " " 5);"NET PAY";7);"ACC'T #";12);"AMOUNT";4);"CATEGORY"  FMTWR:7000:1);Z$; Z1$Z$ FMTL9:8000:5);Z$ FMTL3:8000:18);Z$; FMTWG:7000:8);Z$;t B1B10.005*y M2$(B1):M2$(M2$,2,2);~ M1$((WR))c TA$"DOLLARS":TB$"AND":TC$"CENTS" TH$"****"M1$"*"TA$"*"TB$"*"M2$"*"TC$"****" 9);TH$ 50);D4$;10);WR " " 10);EF$ 10);EG$ 10);EH$  NN17X: ";E4#P "STATE WITHH.TAX: ";E5DQ "MISC.WKLY DEDUCTIONS: ";S6aR "TOTAL DEDUCTIONS: ";E6uS "NET PAY: ";E7}V :[ CHECK PRINTING ROUTINE` NN18:" ":NNe UNPACK INTO DOLLARS $ CENTSj B1WR(WR)o B10M2$"00":2430  "::;̈@;ֈ" A) BEFORE RUNNING OPT.41 MAKE A BACKUP"p;" OF BOTH PAYROLL & PERSMASTER FILES":;ꈺ" B) SINCE OPT.41 DESTROYS PAYROLL FILE";" OPT.41 MAY BE RUN ONLY ONCE. IF YOU";;" WANT TO RE-RUN OPT.41 FOR SAME WEEK"-:XB$:XC:CJ$:.:R WRITE JOUFIL RECORD M1X:ROJ$:WJ$;M1:XD$:XO$:XF:XG:CJ$:e:Ih5);EH$:0u:"ENTER PRINTER SLOT NUMBER ";SL:SL1SL730000::u"PR#";SL:Du" 80N":Nu:耺"RUNMICROPERS,D1":: ;ˆ" WARNING M1[9>OP$:WP$;M1:WE:WF:WG:CH$:WI:TJ$:WK:CL$:WM:CN$:WO:TP$:WQ:K$:O9:CP$:x9gB READ PAYROLL RECORD M19hBOP$:RP$;M1:WE:WF:WG:CH$:WI:TJ$:WK:CL$:WM:CN$:WO:TP$:WQ:K$:O9:CP$:9OF READ JOUFIL HEADER:PFOJ$:RJ$;0:XA$:EF$:EG$:EH$:EI$:EJ$:EK$:EL$:AM$:EN$:EO$:AP:AQ:AR:AS:A382RM$;M11:AU:AV:AW:EX$:AY:EZ$:BA:OB$:BC:OD$:BE:K$:J5:BF:BG:CM$828: GET PAYROLL HEADER8:OP$:RP$;0:V$:D3$:W$:O:CP$8:9> WRITE PAYROLL RECORD "7. WRITE PERSMASTER RECORD M1y7.OM$:WM$;M1:EF$:EG$:EH$:EI$:EJ$:EK$:EL$:AM$:EN$:EO$:AP:AQ:AR:AS:A37.WM$;M11:AU:AV:AW:EX$:AY:EZ$:BA:OB$:BC:OD$:BE:K$:J5:BF:BG:CM$:72 READ PERSMASTER RECORD M1F82OM$:RM$;M1)27:V(2,2)63:V(2,3)131:V(2,4)196K6x%V(2,5)273:V(2,6)331:V(2,7)433:g6% LEDGER ACC'T NUMBERSr6%L3840}6%L43386%L53396%L63376%L73406%L83366%L93226%6* READ PERSMASTER HEADER7*OM$:RM$;0:T$:D1$:D2$:N:CM$: WITHH.RATES -- SINGLEj5b%V(1,1).15:V(1,2).18:V(1,3).21:V(1,4).26:V(1,5).30:V(1,6).34:V(1,7).39:5k% SINGLE -- BIWEEKLY5l%V(2,1)55:V(2,2)127:V(2,3)262:V(2,4)3925n%V(2,5)546:V(2,6)662:V(2,7)865:5u% SINGLE - WEEKLY$6v%V(2,128:V(1,6).32:V(1,7).37:54M% MARRIED BIWEEKLYd4N%V(2,1)92:V(2,2)254:V(2,3)419:V(2,4)5774S%V(2,5)738:V(2,6)908:V(2,7)1112:4W% MARRIED WEEKLY4X%V(2,1)46:V(2,2)127:V(2,3)210:V(2,4)2884Z%V(2,5)369:V(2,6)454:V(2,7)556:5a% 51:V(2,3)89:V(2,4)127:V(2,5)165S3#V(2,6)203:V(2,7)241:V(2,8)279:V(2,9)317q3#V(2,10)355:V(2,11)393:w3#}3#30% *** FEDERAL TAX TABLE VALUES35%3:%3C% WITHHOLDING RATES4D%V(1,1).15:V(1,2).18:V(1,3).21:V(1,4).24:V(1,5).2,8)558:V(2,9)63512#V(2,10)710:V(2,11)787:Q2# MARRIED --WEEKLY--HOURLY2#V(2,1)1:V(2,2)101:V(2,3)177:V(2,4)253:V(2,5)330:V(2,6)406:V(2,7)482:V(2,8)558:V(2,9)635:V(2,10)710:V(2,11)787:2# SINGLE--WEEKLY-HOURLY#3#V(2,1)1:V(2,2)KLY<1#V(2,1)1:V(2,2)202:V(2,3)355:V(2,4)507:V(2,5)660n1#V(2,6)812:V(2,7)965:V(2,8)1116:V(2,9)12691#V(2,10)1421:V(2,11)1573:1# SINGLE BIWEEKLY1#V(2,1)1:V(2,2)101:V(2,3)177:V(2,4)253:V(2,5)3302#V(2,6)406:V(2,7)482:V(0S# 0V#.0Z# *** CALIFORNIA STATE VALUES40d#:0n#T0# WITHHOLDING RATES{0#V(1,1).01:V(1,2)0.02:V(1,3)0.030#V(1,4)0.04:V(1,5)0.05:V(1,6)0.060#V(1,7)0.07:V(1,8)0.08:V(1,9)0.090#V(1,10)0.1:V(1,11)0.11:1# MARRIED BIWEE.4,2.6,2.88/ 0,1.2,1.6,2,2.4,2.8,3.2,3.5,3.9,4.3,4.7g/ 0,1.2,2.5,2.8,3.2,3.6,4,4.4,4.8,5.2,5.5/(# TABLE VALUES USED/2# S2=SOC.SEC % /3# S4= SOC. SEC. CUTOFF/<#S20.0665:S429700:/O# S3=S.D.I. RATE S5=CUTOFF/P#S3.006:S514900.? FORMAT FOR ACC'T NUMBERS,.@Z$(FMT)>.JKK13(Z$)L.TZ$" "Z$T.^KKZ.h`.x. TAX CREDIT TABLES~..TC(4,11).J14:K010:TC(J,K):K,J.. 0,.6,.8,1,1.2,1.4,1.6,1.8,2,2.2,2.3 / 0,.6,1.2,1.4,1.6,1.8,2,2.2,2T TO CENTS+-X0((100(X00.005)))100:E-W FORMAT FOR AMOUNTS`-XFMT(FMT1000.5)100n-bZ$(FMT)-lZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":7050-vZZ$(Z$,3):(ZZ$,1)"."7050-Z$Z$".00"-KK113(Z$)-Z$" "Z$-KK-0)(AQ10)(TC(CH,10)TC(CH,9))%,.+,s;,tX0E1:4000Q,~E1X0:X0E2:4000g,E2X0:X0E3:4000},E3X0:X0E4:4000,E4X0:X0E5:4000,E5X0:X0S6:4000,S6X0:X0E6:4000,E6X0:,,X0E7:4000,E7X0: - ROUND AMOUN:u"PR#";SL"DuXY$"P"ĺ" 80N"(Nu)A7523ė:1905050"7600 NL6(R1$)B*NL63020050a4NR1$R1$" ":L6L61:20010gRNUGT$(Q$,3):GL$(Q$,4,2):GB$(Q$,4)U"FORMERLY Q$: ";Q$UQ$GT$"-"GL$"-"GB$:0u:"ENTER PRINTER SLOT NUMBER ";SL:SL1SL730000 UN ACCUMULATED 941"O" 522 - RESTART 941'S FOR ALL EMPLOYEES"Uy" 523 - RUN ANOTHER PROGRAM":"WHICH NUMBER DO YOU WANT (521-523) ";A7A7521A75235050A7521TT0:5080A7522TT99:5080 IN JOB COST":9000/"I/O ERROR IN 941,W-2";Z9Z91PX91Z9152090q"ENTER A 1 TO CONTINUE ";Z9w Z90 X911810*4>CP$ OPTIONS FOR 941 RUN:"PR#0""YOU MAY NOW:":" 521 - RP$;M1:N$:S$:C$:P$:Q$:B$:A$:D$:E$:F$:N1:N2:N3:N4:N5RP$;M11:N6:N7:N8:J$:J1:G$:J2:H$:J3:I$:J4:K$:J5:J6:J7:DZ$ EOF ROUTINES"EOF IN JOB COST":9000"EOF IN 941,W-2"ɫ9000"I/O ERROR :::&:" JOB COST REPORT - LABOR"@0J:PP1PDVNXWP$;M1:N$:S$:C$:P$:Q$:B$:A$:D$:E$:F$:N1:N2:N3:N4:N5bWP$;M11:N6:N7:N8:J$:J1:G$:J2:H$:J3:I$:J4:K$:J5:J6:J7:DZ$lvAR7:1710MZ$;:" ";:DD$)TS$:C$>^GG19:" ":GGDRZ$(FMT)ZZ$(Z$,2):(ZZ$,1)"."Z$Z$"0":1750ZZ$(Z$,3):(ZZ$,1)"."1750Z$Z$".00"K113(Z$)Z$" "Z$:K HEADING OF PAGE1$:20000:R1$;" ";:O$ L$." ":" ">"22000:Q$;b," ";:FMTJ6:1710:Z$;:" ";6FMTN7:1710:Z$;:" ";:FMTJ7:1710:Z$;:" ";:FMTN7:1710:Z$7" ":" ":" "@R1$N$:20000:R1$;JFMTN3:1710KZ$;:" ";LFMTN:0:CJ$?216,0?222,76)?1040e?Pú5);"AMOUNT";7);"ACC'T #";8);"AMOUNT";8);"CATEGORY"8>@:"DO YOU WANT TO CREATE JOURNAL RECORDS ":"FOR MICROLEDGER (Y/N) ";U$]>JU$"Y"40040p>TU$"N"40000>^U$"N"TT99:>g DETECTION OF JOUFIL>hOJ$:40080>kRJ$;0>mD1$:40080>r>GG(222)?GG5ĺOJ$:WJ$;0:D1$:D3$56:WI1234:WK12345.67:WM1234.67:WO1234567.89:WQ123456789J=qA3123456=rL9999:L3333:L4444:L5555:L6666:L7777:L8888=zEF$"JACK BROWN":EG$"21 OAK COURT":EH$"MENLO PARK CA 94025":D4$"07/05/79":D3$"07/10/78"==? SETTING UP JOUFILK<" RESTORE PAYROLL & PERSMASTER FILES."\<" LEDGER USERS SHOULD DELETE AND THEN"<" RE-INITIALIZE JOUFIL FILE"ZI1NIdM12IcnOP$:RP$;M1:M$:CP${xN$M$EE1:N$M$INEMMN:1450EMMI:1450I"FILE HAS ";E;" EMPLOYES.":1540M12M:OP$:RP$;M1:N$:CP$N ";U$(U$,1)"Y"1180.U$"N"1260T:"ENTER UPDATE (MM/DD/YY) ";D2$z OP$:WP$;0:T$:D1$:D2$:N:CP$:840 ADD AN UPDATED CONTINUATION HISTORY RECORD(2OP$:RP$;0:T$:D1$:D2$:N:CP$<"ENTER DATE (MM/DD/YYM0MN1210O:" ***NBR.OF RECORD(S) IN FILE = ";N:GG1500:GG:1290`M12M:3050:"IS ";N$;:" THE EMPLOYEE (Y OR N) ";U$(U$,1)"N"1260U$"Y"122022403010"DO YOU WANT TO CHANGE ANOTHER RECORD Y OR 8OP$:WP$;0:T$:D1$:D2$:N:CP$/B:840PL CORRECT EXISTING RECORDVVw`OP$:RP$;0:T$:D1$:D2$:NjDZ$tTT0~ CHANGE OF HEADING2110TT991290 CHANGE OF DATA"ENTER RECORD NUMBER TO CHANGE ";M920&A120970,1110,1320,4000,600@ ADD NEW EMPLOYEEFgOP$:RP$;0:T$:D1$:D2$:NpDZ$"ENTER DATE (MM/DD/YY) ";D2$E0:V$"":N01070J1NM12JRP$;M1:N$:DZ$N$V$EE1:V$N$$J.1800$STER." f8p" 122 - CORRECT AN EXISTING RECORD.">ufz" 123 - ADD CONTINUATION RECORD"l" 124 - DELETE EMPLOYEE RECORD"" 125 - RUN ANOTHER PROGRAM""WHICH NUMBER DO YOU WANT (121-125)";AA121A125"ENTER START DATE (MM/DD/YY) ";D$E OP$:WP$;0:T$:D$:D$:Z:CP$K*y4" **** MASTER FILE INITIALIZED ****"9GG11500:GG:600> ADDITIONS & UPDATES TO PERSMASTERH:"YOU MAY NOW;"R\" 121 - ADD A NEW EMPLOYEE TO MAL RESTART OF MASTER FILE." E " 14 - RUN ANOTHER PROGRAM."K v "WHICH NUMBER DO YOU WANT (11-14)?";A A11A14710 A10760,840,1570,250  PERSMASTER INITIALIZATION"  "ENTER TITLE (MAX.60 CHAR'S)" T$!NP2,D1" "RUNP3,D1") "RUNP4,D1": &"RUNP5,D1"f D PERSONNEL MASTER DATA PROGRAMl X b"DO YOU WANT TO;" l v" 11 - INITIALIZE MASTER FILE."  " 12 - ADD OR UPDATE MASTER RECORDS."  " 13 - ANNUA" T5 ^" 4 - PAYROLL REGISTER & PAY CHECKS."; hj r" 5 - JOB COST REPORT-LABOR, 941,W-2."p | " 0 - QUIT."  "WHICH NUMBER DO YOU WANT (0-5)?";A A0A5470  DX$ A13090,600,520,530,540,550 "RUCLOSE"# WP$"WRITEPERSMASTER,R"> CP$"CLOSEPERSMASTER"D g "MICROPERS PROGRAM SLECTION." "---------------------------"  "" 1 - PERSONNEL DATA ENTRY." , 6" 2 - PAYROLL DATA ENTRY." @ J" 3 - FILE LISTING. AVE.F ( PALO ALTO, CALIFORNIA 94301 (415) 321-2881j < APPLE II VERSION RELEASE 5.0 A OCTOBER-1979 F"NOMON,C,I,O" P216,0 Z dOP$"OPENPERSMASTER,L280,D1" nDZ$"" xRP$"READPERSMASTER,R" DX$"!*D COMPUMAX MICROPERS SYSTEM - PERSONNEL DATA ENTRY - MICROPERS UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT COPY, RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT  WRITTEN AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMILTON               WT$;I:D3$:D4$:X:Y CF$: C ""*** COPY COMPLETED ***"< ," MORE (Y/N)? ";Y$J -Y$"N"ĀY .Y$"Y"10b /300k OP$ RP$;0:D1$:D2$:N CF$  4OT$ >WT$;0:D1$:D2$:N HCF$ R OP$ RP$;I:D3$:D4$:X:Y CF$: OT$ WHEN READY";U$+ dOP$"OPENJOUFIL,L55,D1"C nRP$"READJOUFIL,R"O xCD$""m OT$"OPENJOUFIL1,L55,D2" WT$"WRITEJOUFIL1,R" CF$"CLOSE" 2000 2100 I1N 3000 4000 I CF$ "RENAME JOUFIL1,JOUFIL,D2" (SOURCE)" -:> ."PUT THE DISKETTE ON WHICH YOU WANT TO"j /"WRITE THE NEW JOUFIL FILE IN DRIVE 2" 0"(DESTINATION)" 1: 2"IF THE USER WILL USE A NEW DISKETTE IN" 3"DRIVE 2, IT MUST BE INITIALIZED FIRST" 5: 6"HIT 'RETURN' " ." JOUFIL FILE COPY PROGRAM"U" ------------------------"_::("THIS PROGRAM ALLOWS THE USER TO DUPLI -")"CATE THE JOUFIL DATA FILE"*:+"PUT THE ORIGINAL JOUFIL FILE TO BE DU-" ,"PLICATED IN DRIVE 1     O1:O2:O3:R$:O4:J$:O5:G$:O6:H$:O7:I$:O8:K$:O9F CF$:O OT$ WT$;I:O1:O2:O3:R$:O4:J$:O5:G$:O6:H$:O7:I$:O8:K$:O9 CF$: E"RENAME PAYROLL1,PAYROLL,D2"% C ""*** COPY COMPLETED ***"_ ," MORE (Y/N)? ";Y$m -Y$"N"Ā| .Y$"Y"10 /300 OP$ RP$;0:V$:D3$:W$:N CF$  4OT$ >WT$;0:V$:D3$:W$:N HCF$ R OP$; RP$;I:EN READY ";U$, dOP$"OPENPAYROLL,L100,D1"E nRP$"READPAYROLL,R"Q xCD$""q OT$"OPENPAYROLL1,L100,D2" RT$"READPAYROLL1,R" WT$"WRITEPAYROLL1,R" CF$"CLOSE" 2000 2100 I2N1 3000 4000 I CF$ VE 1 (SOURCE)." -:D ."PUT THE DISKETTE ON WHICH YOU WANT TO"q /"WRITE THE NEW PAYROLL FILE IN DRIVE 2" 0"(DESTINATION)" 1: 2"IF THE USER WILL USE A NEW DISKETTE IN":"DRIVE 2, IT MUST BE INITIALIZED." 5: 6"HIT 'RETURN' WH 1" PAYROLL FILE COPY PROGRAM"X7)"----------------------------"b::("THIS PROGRAM ALLOWS THE USER TO DUPLI -")"CATE THE PAYROLL DATA FILE"*:+"PUT THE ORIGINAL PAYROLL FILE TO BE DU-" ,"PLICATED IN DRI    CIAL RATE $ PER UNIT ";O4)A911520FO50:O60:O70:O80:O90P1620k"6-JOB CODE # 1: ";J$O50:"7-% FOR J.C. #1 ";O5"8-JOB CODE # 2: ";G$O60:"9-% FOR J.C. #2 ";O6"10-JOB CODE # 3: ";H$"O70:"11-% FOR J.C. #3 "O1:16406"IS ";N$;:" THE EMPLOYEE, Y OR N ";U$S(U$,1)"N"OO1:1640]2290O20:"2-REGULAR UNITS WORKED ";O2O30:"3-SPECIAL UNITS WORKED ";O3O301490R$"":"4-SPEC. RATE CLASS/N (MAX. 15 CHARS)";R$O40:"5-SPEDS PAYROLL RECORDSOO1%DZ$E"PAYROLL RECORD NBR. ";O:f O10:"1-EMPLOYEE NUMBER";O1yE0:N$"":E112IE1N<M12IFRM$;M1:M$PDZ$ZN$M$EE1:N$M$dEO11410nI x"MASTER FILE HAS ";E;" EMPLOYEES":O THE EMPLOYEE NBR Y OR N ";U$4t(U$,1)"N"1080FyU$"Y"1130T~MN1200aIM1NrM1I1:2360M1I:2330INN1WP$;0:T$:D3$:W$:N:CC$"***RECORD DELETED***":K12000:1080:590 ROUTINE ADD3$:W$:N:CC$:5902 DELETE A RECORDR$OP$:RP$;0:T$:D3$:W$:N[.DZ$8"ENTER NBR. OF RECORD TO BE DELETED (0 IF NONE) ";MBM0MN1110L"FILE HAS RECORDS 1 TO ";N:1080VM01240`M1M1:2360j"IS ";O1;:"000 OP$M1M1:2360O"IS ";O1;:" THE EMPLOYEE NBR. Y OR N ";U$e(U$,1)"N"1000vU$"Y"96018802330"DO YOU WANT TO CHANGE ANOTHER RECORD (Y OR N) ";U$(U$,1)"Y"900U$"N"1000WP$;0:T$: H CORRECT EXISTING RECORD@ROP$:RP$;0:T$:D3$:W$:NI\CC$cf CHANGE OF HEADINGlkTT0vp1680uTT991030z CHANGE OF DATA"ENTER RECORD NUMBER TO CHANGE ";MM0MN940"FILE HAS RECORDS 1 TO ";N:1A90#A220760,850,1060,220A ADD A PAYROLL RECORDbOM$:RM$;0:T$:D1$:D2$:NkOP$RP$;0:V$:D3$:W$:O DZ$"IS JOB COSTING TO BE USED (Y/N) ";Y$ Y$"N"A91*12604WP$;0:V$:D3$:W$:O:CC$>:590'l" 221 - ADD A NEW PAYROLL RECORD"-vS" 222 - CHANGE A PAYROLL RECORD"Y" 223 - DELETE A PAYROLL RECORD"" 224 - GO TO ANOTHER PROGRAM"::"WHICH ONE DO YOU WANT (221-224) ";AA221A224590ALARIED). ";* :"ENTER (O OR E) ";W$A W$"O"W$"E"530J 500P p OP$:WP$;0:V$:D3$:W$:0y &DZ$ 0" *** PAYROLL FILE INITIALIZED ***" :K11600:K:CC$::190 D ADDITIONS AND UPDATES N X"YOU MAY NOW:"b:RS,D1"% h PAYROLL INITIALIZATION+ K "'PAYROLL' INITIALIZATION"m "------------------------": "ENTER TITLE (MAX. 60 CHAR'S) " V$ "ENTER END DATE (MM/DD/YY) ";D3$  "ODD WEEK (HOURLY ONLY) OR EVEN WEEK (HOURLY & S 21 - INITIALIZE PAYROLL FILE"' V " 22 - ADD OR UPDATE PAYROLL RECORDS"\  " 23 - RUN ANOTHER PROGRAM" " ,: 6"WHICH NUMBER DO YOU WANT (21-23)?";A @A21A23310 J TA20360,590,350 ^CC$:"RUNMICROPEENPERSMASTER,L280,D1"1 RM$"READPERSMASTER,R"N WM$"WRITEPERSMASTER,R"_ CC$"CLOSE" COMPUMAX MICROPERS SYSTEM - PAYROLL DATA ENTRY - P2 "PAYROLL DATA PROGRAM" "--------------------": "DO YOU WANT TO:" :! " PALO ALTO, CALIFORNIA 94301 (415) 321-2881b < APPLE II VERSION RELEASE 5.0v F"NOMON,C,I,O" P216,0 Z dDZ$"": CONTROL 'D' nOP$"OPENPAYROLL,L100,D1" xRP$"READPAYROLL,R" WP$"WRITEPAYROLL,R" OM$"OP; COMPUMAX MICROPERS SYSTEM - PAYROLL DATA ENTRY - P2y 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.= (          " ":K PZ1740'dFMTN3:18502nN3$Z$CxFMTN6:1850NN6$Z$_FMTJ1:1940jJ1$Z${FMTJ2:1940J2$Z$FMTJ3:1940J3$Z$FMTJ4:1940J4$Z$FMTJ5:1940J5$Z$FMTN4:1850N4$Z$FMTN"Q$:K20500)FMTN1:18504N1$Z$Q K19(D$):D$D$" ":uL(C$):L30L$(L$,30):1320KL130:C$C$" ":K#X901360(L(B$)2KL110:B$B$" ":K<L(E$):L10E$(E$,10):1360FKL110:E$E$A$)L10A$(A$,10):1180:KL110:A$A$" ":K_L(P$):L10P$(P$,10):1200zKL110:P$" "P$:K20000L(S$)L29S$(S$,29):1240KL129:S$S$" ":KL(Q$):L10Q$(Q$,10):1260KL110:Q$" BR.OF RECORDS = ";N(A33I1M:10203I1N<I1IBTM1I11:2450^2020mA331070t$I.X901090BLCY$V"PR#0":220`L(N$)jL29N$(N$,29):1150tKL129:N$N$" ":KyX901180~L(;N;" RECORDS":K12000:K:1090(T$lN1ĺ"*** NO RECORDS IN 'PAYROLL' FILE ***":K12000:K:1090rW$"O"A$"ODD"W$"E"A$"EVEN""PERIOD ENDING:";D3$;" ";A$;" WEEK ";X90ĺ30);N;" RECORDS":" "X90ĺ" ":"NR CRT OUTPUT ";XY$0WXY$"C"X92:Y$"N":890Q\XY$"P"XY$"S"İ30000:890Zf850czOY$~RY$;0:T$:D3$:W$:NN0ĺ"PR#0":" *** NO RECORDS IN THIS FILE ***":GG11500:GG::190P1:2340A34930 M1MNĺ"FILE HAS "*** ONLY ";E;" EMPLOYEES ON FILE ***"8GG11500:GGFX90780LR [CP$o "PR#0"::220u*4A34840>"ENTER RECORD NUMBER ";MHR"ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUTPUT, OR FO8XE0:V$""bI1N,lM12I:2420DvN$V$EE1:V$N$RA32680_EM720lEM750u" "X90700"MASTER RECORD #: ";I;41);"EMPLOYEE # ";EX90ĺ" "1120EMIN750IA32750%"GG11500:GG::190"P1:2270*T$3&" ">0V$D1$5X90ĺ"START DATE:";V$;" UPDATED:";D2$:"NBR. OF RECORDS: ";N:590:"START DATE: ";V$;20);"LAST UPDATE: ";D2$D"NBR.OF RECORDS: ";NNX90āGG1700:GGO" "PL10L10PUT, OR FOR CRT OUTPUT ";XY$; XY$"C"Y$"N":500\ XY$"P"XY$"S"İ30000:520e 480n X91 X90ė:"EMPLOYEE MASTER FILE LISTING" OP$:RP$;0:T$:D1$:D2$:N DZ$N0ĺ"PR#0"::" *** NO RECORDS IN THIS FILE ***":r wP1:L100:NK995 |A30440,440,810,810,400; S "RUNMICROPERS,D1"Y w  EMPLOYEE 'PERSMASTER'}   A32470 "ENTER EMPLOYEE NUMBER ";M " "ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUT- " 32 - LIST EMPLOYEE MASTER FILE"3 Y " 33 - LIST A PAYROLL RECORD"_ " ," 34 - LIST PAYROLL FILE" 6 @" 35 - RUN ANOTHER PROGRAM" J TX90:Z90 ^"WHICH NUMBER DO YOU WANT (31-35)?";A hA31A35350 CP$"CLOSEPERSMASTER"6 OY$"OPENPAYROLL,L100,D1"O RY$"READPAYROLL,R"g CY$"CLOSEPAYROLL" "3. FILE LISTING PROGRAM. " "--------------------------" "DO YOU WANT TO:" " 31 - LIST AN EMPLOYEE MASTER RECORD" PALO ALTO, CALIFORNIA 94301 (415) 321-2881_ < APPLE II VERSION RELEASE 5.0s F"NOMON,C,I,O"~ P216,0 Z dOP$"OPENPERSMASTER,L280,D1" nDZ$"" xRP$"READPERSMASTER,R" DX$"CLOSE" WP$"WRITEPERSMASTER,R" :!8 COMPUMAX MICROPERS SYSTEM - LISTING PROGRAM - P3v 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.: (           OURNALIZE STATE WITHH.TAX%)M1M11T*XO$"STATE WITHH.TAX":XFL5:XGH(6):21000r, JOURNALIZE MISC.DEDUCTN~-M1M11.XO$"MISC.DEDUCTN":XFL7:XGH(7):210000 UPDATE NUMBER OF REC.COUNTER4L0L076XCL0l WRITE NEW HEADER JOUF00 JOURNALIZE SOC.SEC.TAX+M1M11VXO$"SOC.SEC.TAX":XFL8:XGH(3):21000u JOURNALIZE FED.WITHH.TAXM1M11XO$"FED.WITHH.TAX":XFL6:XGH(4):21000 JOURNALIZE S.D.I.M1M11&XO$"S.D.I.":XFL4:XGH(5):21000( JER'OP$:WP$;0:V$:D4$:W$:0:CP$7TT991990Z  SET JOUFIL TRANSACTION DATEf XD$D4$ JOURNALIZE GROSS PAYM1L01XO$"GROSS PAY":XFL3:XGH(1):21000 JOURNALIZE NET PAYM1M11XO$"NET PAY":XFL9:XGH(2):210H(6)H(6)WO+< SUM OF MISC.DEDUCTIONS<FH(7)H(7)S6BP[d GOTO PRINT CHECKSex2400BFBFWK:BGBGWI:AUAUWK2WI:AVAVWGARARWO:ASASWM WRITE PERSMASTER RECORD M1M12K:12000I WRITE NEW PAYROLL HEAD80% SUM OF TOTAL GROSS EARNINGS6H(1)H(1)WGM SUM OF NET PAYS^H(2)H(2)WRt SUM OF SOC.SECH(3)H(3)WI SUM OF FED.WITHH.TAXES H(4)H(4)WK SUM OF S.D.I.'SH(5)H(5)WM( SUM OF STATE WITHH.TAXES 2R (1 TO 7) ";SL:SL1SL71076M6:" COMPUTER IS PRINTING CHECKS NOW !."m7"PR#";SL:XY$"P"ĺ" 80N"z8I2O1= READ PAYROLL RECORD M1BM1I:17000:WRO9LS6WQWIWKWMWOO1WE:2000 IF TT=99 BYPASS JOUFILTT9913CK(S) ?";D4$)9610F0:"YOU NEED ";O;" CONTINUOUS CHECK FORMS."v1"ALIGN FIRST PRINT LINE WITH PRINTER HEAD"2:"ENTER

FOR PARALLEL PRINTER OUTPUT OR FOR SERIAL OUTPUT ";XY$3XY$"P"XY$"S"10744"ENTER PRINTER SLOT NUMBEENTER TO CONTINUE ";U$:CM$:CP$:245D OPTION 42 STARTS HERE` GET PERSMASTER HEADERk11000 GET PAYROLL HEADER15000  SETTING UP JOUFIL 40000 GET JOUFIL HEADER18000L0XC &"DATE TO BE PRINTED ON CHES,S.SEC.TAX,FED.TAX,S.D.I.,> STATE TAX,TOTAL DED.,NET PAYVM1J1:16000:2300] Jg"9610t4"PR#0">:"CHECK ALL FIGURES CAREFULLY. AFTER YOU"@"ARE SATISFIED OR MADE ALL NECESSARY"A"CORRECTIONS, RUN OPTION 42."'D:"HIT #";SL:Y$"Y":XY$"P"ĺ" 80N"; O$"":J018:Z(J0)0:J0F J1OX M1J1:17000b O1WEl 2000v 2100  PUT NEW J.COSTS INTO MATCHING  PERSMASTER RECORD FROM L#2040 M12K:12000  PUT INTO PAYROLL FILE COMPUTED GROSNTER DATE (MM/DD/YY) ";D9$ "ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUTPUT, OR FOR CRT OUTPUT ";XY$ XY$"C"Y$"N":646 XY$"S"XY$"P"641 "ENTER PRINTER SLOT NUMBER (1 TO 7) ";SL:SL1SL7644 "PR 43 - RUN ANOTHER PROGRAM" hK r"WHICH NUMBER DO YOU WANT (41-43)?";A^ |A41A43370w A40600,1000,33000 W COMPUTE/PRINT PAYROLL REGISTER XA4135000 lOM$:RM$;0:T$:D1$:D2$:N:CM$ vOP$:RP$;0:V$:D3$:W$:O:CP$ "E8100   TT0E " 4. PAYROLL REGISTER & PAY CHECKS"K c " DO YOU WANT TO:"i  ," 41 - COMPUTE PAYROLL AND PRINT" 1 6" PRINT PAYROLL REGISTER" @ J" 42 - PRINT CHECKS & JOURNALIZE" T ^" STER,L280,D1") RM$"READPERSMASTER,R"F WM$"WRITEPERSMASTER,R"a CM$"CLOSEPERSMASTER"~ OJ$"OPENJOUFIL,L55,D1" RJ$"READJOUFIL,R" WJ$"WRITEJOUFIL,R" CJ$"CLOSEJOUFIL" DZ$"": DZ$=CONTROL-D V(2,12),Z(8),H(10) f7 , COMPUMAX MICROPRES SYSTEM- P42V( APPLE II VERSION RELEASE 5.0\2pP"NOMON C,I,O"{Z216,0dnOP$"OPENPAYROLL,L100,D1"xRP$"READPAYROLL,R"WP$"WRITEPAYROLL,R"CP$"CLOSEPAYROLL" OM$"OPENPERSMA                  R#0"::5000Z/d ACCUMULATES JOB COSTS5nBxV$""ıZ FIND CLASS. CODEfK1N9zV$W$(K)1460W(K)W(K)VKN9N91W$(N9)V$:W(N9)V PRINTS W-2 FORM::R2$R1$VPRINTER OUTPUT OR FOR SERIAL PRINTER OUTPUT ";XY$SXY$"S"XY$"P"1202^30000hM$""sI1NM12I:1920M$N$1340 M$N$ PRINT W-2 FORMS1530(X9013402"ENTER A 1 TO CONTINUE ";X8<I P"P ";UI$B1360L$VE0:M$""/`I1N@jM12I:1920XtM$N$EE1:M$N$_~Ie"PUT ";E;" CONTINUOUS W-2 FORMS INTO PRINTER""ALIGN PRINTER HEAD WITH FIRST LINE OF W-2 FORMS."::7"ENTER

FOR PARALLEL FMTS:1710:S$Z$;" ACCUMULATED 941 AS OF: ";D4$AwY$"N"ĺX$:"$ ";S$::R1$:V1$:L$::D4$:106025);X$;55);"$";S$25);R1$25);V1$25);L$::$:.X9010908"HIT RETURN TO CONTINUE R'S) ";X$fM$"":S0"pI1N3zM12I:1920BM$N$940LM$N$WSSN6eTT0940tN60:1880{IY$"Y"İ30000::Y$"N"ė:"WITHHELD INCOME AND FICA TAXES":97020);"WITHHELD INCOME AND FICA TAXES":"COMPANY NAME (MAX.30 CHAR'S) ";R1$0,R2$R1$\4"STREET ADDRESS (MAX. 30 CHAR'S) ";V1$>"CITY STATE ZIP (MAX. 30 CHAR'S) ";L$H"EMPLOYER STATE ID # ";O$MA53Ą"NAME OF STATE (2 CHAR'S) ";DD$RA531110 \"NAME OF BANK (MAX. 30 CHA5000o"ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUTPUT, OR FOR CRT OUTPUT ";XY$XY$"C"Y$"N":X92:790XY$"S"XY$"P"760 Y$"Y"OP$:RP$;0:T$:D1$:D2$:N:DZ$ "ENTER DATE (MM/DD/YY) ";D4$$*1$FMTW(I):1710:WW$(I)Z$/Y$"Y"660P7);W$(I):25);WW$(I):670j7);W$(I);2);WW$(I){X90İ2020IX90720:"HIT RETURN TO CONTINUE ";UU$"PR#0"::210 QUARTERLY 941 & ANNUAL W-2:1400&V$K$:VJ5:1400"0I0:P1:1810;DV$D1$GNY1$D2$uX"START DATE ";V$;41);"LAST UPDATE ";Y1${bl1);"JOB CLASS. CODE";21);"ACCUM. GROSS LABOR $"vI1N9W(I)((W(I)1000.5))100R1$W$(I):20000:W$(I)R 30000:Y$"Y"6 OP$:RP$;0:T$:D1$:D2$:N:DZ$E M$"":N90P I1Na M12I:1920p M$N$560z M$N$  PUTS JOB CODES INTO W$(.,.) & AMOUNTS INTO W(.) V$J$:VJ1:1400 V$G$:VJ2:1400 V$H$:VJ3:1400V$I$:VJ4hA50410,755,790,380 r5 |"RUNMICROPERS,D1"; Z  JOB COST REPORT LABOUR "ENTER

FOR PARALLEL PRINTER OUTPUT, FOR SERIAL PRINTER OUTPUT, OR FOR CRT OUTPUT ";XY$ XY$"C"X91:Y$"N":440 XY$"P"XY$"S"410PORT-LABOR" 7 " 52 - BANK DEPOSIT FOR 941"= ] " 53 - ANNUAL W-2 RUN"c  "" 54 - RUN ANOTHER PROGRAM" , 6X90:Z90 ;KT0 <TT0 @:: J"ENTER THE NUMBER YOU WANT (51-54) ";A TA51A54330 ^ LOSEPERSMASTER", WP$"WRITEPERSMASTER,R"8 DZ$""D W$(50)O W(50)\ WW$(50) NN150:W$(NN)"":W(NNN)0:WW$(NN)"":NN "JOB COST, 941, W-2" "------------------": "DO YOU WANT TO:" " 51 - PRINT JOB COST RE PALO ALTO, CALIFORNIA 94301 (415) 321-2881U < PRINTER IN SLOT #4 F APPLE II VERSION - RELEASE 4.0 06/30/79 P"NOMON,C,I,O" Z216,0 d nOP$"OPENPERSMASTER,L280,D1" xRP$"READPERSMASTER,R" CP$"C): COMPUMAX MICROPAY SYSTEM - JOB COST, W-2, 941 - P5x UNDER PROTECTION OF CALIFORNIA TRADE SECRET LAW. DO NOT COPY, RENAME, CHANGE, CONVERT, EXPAND OR RESELL, WITHOUT( WRITTE AGREEMENT WITH COMPUMAX ASSOCIATES, 505 HAMILTON AVE.< 2           *"5n"*";:9:"MACOMB, ILLINOIS 61455";:39:"*"do"***************************************"jpq" PRESS TO CONTINUE..";Z$rv::::::w" LOADING MICROPERSONNEL PROGRAM"xD$;"RUNMICROPERS"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:"ҍύǍÍ