' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`mation for W-2,Forms and all information for Year,"End reports. Removes all inactive",employees from files and updates,"Payroll records for start of new year.u'ÃFile Maintenance,SETUP COMPANY,Creates and updates a file of,information for more than 7 dil earnings records,are printed. %ÃProcess Quarterly Report,QUAR REPORT,Prints out all information for Federal,and State Quarterly Reports showing,income for the quarter and all taxes,withheld.,""&ÃEnd of Year Reports,YEAR END,Prints out all inform for,the first time. The student may also , create a data diskette and create,company and employee files."%xÃProcess Payroll,PROC PAYROLL,Prepares and edits payroll for,"employees of a small company.","Payroll checks, a payroll register,",and individuaZS)0) #!#CA$;:GCP,ZX,ZYg#CO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"36020m##PÃ"Payroll System:","A Business Simulation","",6k$dÃGetting Started,GET START,This program gives information,to the student using this progra:30000:330404"BZE0:ZFZEĺD$"DELETEMECC$$DISKE"KZW0:ZUZZ:z"LD1$",S"((953))",D"((954))",V"((955))"`D2$",S"((956))",D"((957))",V"((958)):"ZN$"":Z1"ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220#΁ZT((ADMECC$$DISK,A"ZS;ZT$:33200Y!ZF(ZD1ZE6):(ZFZE0)(ZDZT)(ZDZN$QN$)33020n!$QDZD:ZW33099!.ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28""8ZE4įWIND:CL$:CO,0,89:"Please remove the write-protect tab from your "Z$" diskette.":ZP1,89:"Please insert your "Z$" diskette for "QN$" in ";:QC3ĺ"drive "1(ZD(QC2))".":30000 ZFQC3ĺ"the drive located at:":" Slot: "(ZC):" Drive: "(ZC1):SPACE ZD(975)2įSPRO,2:33040 SPRO:ZDįSNOPRO!ZE0:ZEĺD$"BLOZE6ZE8QD2ĺCL$:9:"You do not have a proper data diskette in Drive 2. IF you have not formatted a data diskette, and would like to do so now, please press ESC twice. (ESC/ESC)":SPACE:975,1] ZZ1:ZF(Z1(QC1ZDQD)):ZFįWIND:CL$:CO,0u."::"Please report this error to MECC.":30000:31000ZZZU:ZU1:SET,ZD1:ZS704:ZC9533ZD:ZP0:Z0:ZT$D1$:Z$"program":ZDZT$D2$:Z$"data(ZDZE8)PTįSPRO,2:PT1:975,2:33040ZE6ĺ:SPRO,2:D$"BLOADDISK.CHECK":DC1:ZE0:33099E::ByZE8QDĺ:QD0:QC0:ZD0:33000:RNH,"DISKETTE SUPPORT"Q"yZE0:1200}ZE(222):ZN(218)(219)256:216,0:32000}ZUZE0ZE16ĦP}QC1QC2d}ZE255Ĵ(919)031000:8x}WIND:CL$:CO,0,80:"Error "ZE" at line #"ZN" in Men40>Z$Z$(ZN):ZN32ı6>ZCZC1:(ZN);:16040hBVSP,3:CL$"Use of Esc Key"CC$:CO,0,45:"You may want to quit in the middle of a program. If so, press the Escape (Esc) Key twice whenever the computer is waiting for a response.0uVSP::SPACEL>A$:ZN(A$)I>ZN1ZN8ZN13ZN24(ZN48ZN48TN)16040y>ZN8ZC0ZCZC1:(8);:ZC0Z$(Z$,ZC)>ZC0ZN8Z$"":16040>ZN816040>ZN27ZEZE1:ZE16030,31000>ZN13ı>ZN24ZC0:Z$"":16035>ZC11600,36:CO9:CT0:I1N:CT13DLİ30000::CO:CEW:CT1O:MN$(I)::CTCT1:J1DL:DS$(I,J)""DS$(I,J)" "ĺ" "DS$(I,J):CTCT1::::30000:WIND:CL$:12000:17000:>CA$;:ZE0:16368,0:ZC0:GCP,ZX,ZY:Z$"">CO,ZX,ZY:C13:"(612) 481-3527/30000/D/WIND:CL$:F2PDPRDR:TNPDN2V3N1SP$"s\36CL$:11:8:"Insert another diskette.630000:CL$6CS(P(P(999))1)166CS1CS7CS66CS::CL$DN$CC$:DM$CC$:"Version 1.2"CC$:WIND,(IP$""):"A manual to aid in the use of this":6:"diskette is available from MECC.w.9:" Title: "DN$:13:DM$/12:" Direct inquiries to:/:13:"MECC Distribution":13:"3490 Lexington Avenue North":13:"St. Paul, Minnesota 55126":R:BI:DY$:K:QU:TQ:D:I13:D1$(I):M1$(I):PE(I):^BK$:BA$:BC$:BS$:BZ$:DY:CS$KKK:KKBI:7000:PW$DT$:KKKK$C$(L)".F"(YR):L$",L80"D2$:7905:  D$"OPEN"K$T$:D$"READ"K$",R"J:.IP$"instructional "T.4:17):TTC!% T((T)100.5)100:0% O994000% CL$:CO,0,80:"Payroll will be processed for period ending on "DT$". Pay period is "E$:SPACE% VSP,0:Y9:J1Q:X99999:A(J)6A(J)93260& S1:CL$"EMPLOYEE PAYROLL DATA"CC$:BOX,66,8,211,8,3:18:S$S$V$::$T TY4TY3J$^ WA0:OT0:HW0:HR(R$(J)):T(WA$(J))$h TY2WAT:HW(W$(J)):OWWA1.5:OTOWHW:T(WAHR)OT$| TY3U(C$(J)):T(HRU100):HR0$ I13:TE(I)PE(I):N$(I)"1"TE(I)(TE(I)T.5)100$ % T%(J)4C(W$ AMOUNT OF $"T$T1$80)"*":QUı#:JW:3700:::S1T1:S2T2:S3T3:S4T4:S5T5:S6T6:S7T7:S8T8:G$" **ACCUMULATED**":K$" ** TOTALS **":EN$"":EM$(W)"*ACCUMULATED TOTALS*":R5:1215#::B$"*":615:697$X$" | ":F$" ":V$" ":I1T2(W)T2(W)T2(J):T3(W)T3(W)T3(J):T4(W)T4(W)T4(J):T5(W)T5(W)T5(J):T6(W)T6(W)T6(J):T7(W)T7(W)T7(J):U(W)U(W)U(J)"R5ı":T1$" TO BE DEDUCTED FROM NEXT CHECK.#A(J)3įPOFF:AJ105:6710:T$((GG)):50:PACT:"* NOTE - EMP "EN$" HAS80!"* "G$32)"| PAYROLL FOR PERIOD | YEAR TO DATE TOTAL *":"* "K$32)"| ENDING "DT$57)"| AS OF "DT$80)"*":B$"-":615!B$(S$,28):P1:657!T1T1S1:T2T2S2:T3T3S3:T4T4S4:T5T5S5:T6T6S6:T7T7S7:T8T8S8z"T(W)T(W)T(J):0:T0U WQ1:T(W)0:T2(W)0:T3(W)0:T4(W)0:T5(W)0:T6(W)0:T7(W)0:U(W)0:R5ı Y10:B$"*":615:::32)"PAYROLL REGISTER":36)DT$ J1Q:G$"EMP EMPLOYEE ":K$"NO. NAME:":A(J)91250 90:3500:3700:TYT%(J)!::B$"-":615:),A$:A(A$)`O9A1A6MS$"You must process payroll before using this option.":300:900A3000,5000,4000,400,1200,6000,31008CL$:11:"Please prepare your printer...":970:SPACE:PINIT R0:T10:T20:T30:T40:T50:T60:T70:T8,0,23,2,191,6:BOX,0,22,40,23,6A$" Payroll":WIND,70,72,F:CO:"1. "N$:"2. Display"A$:"3. Post"A$:"4. Print"A$" Checks":"5. Print"A$" Register "6. Recall Previous"A$:"7. Return to Main Menu"::WIND:CO,70:"Which Option? ";:INP,(1,"-17",1894&zT4((T(FE100))100.5)100:~T4.01T40.00@[FF0:24576:VSP,1:S0i3:N$CC$BOX,40,13,236,15,6:BOX,40,28,236,30,6:BOX,236,13,239,30,6:BOX,40,13,42,30,6BOX,239,22,F,23,6:BOX,276,22,F,191,6:BOX,0,190,F,191,6:BOXF)100.5)100'OMA99T3T2SP:870;RSM(TT2)SPMFWI1MS:SMS(I,1)SMS(I,2)T3(SMS(I,1))S(I,4)S(I,5):IMS\^T3((T3(EXMA))SU)MFaT30T30fT3(T3100.5)100pS1(J)TFIT4(((FI(FE100))S4(J))100.5)100: TA0:T1ı>4MM%(J):EXE%(J):TSTMF(EXFA):M2835J9I1FB>TSFS(I,1)TSFS(I,2)TA(TSFS(I,1))FS(I,3)100FS(I,4):IFB@:845CI1FBHTSFM(I,1)TSFM(I,2)TA(TSFM(I,1))FM(I,3)100FM(I,4):IFBJMT2((TAM SPEC. DEDUCTIONS":QU1:1249:QU0:A(J)1AB$"*":615:CKCK1G\FEED:POFF:900pH$(C)""I$"#A$H$(C):L(A$):A12L:A$A$(S$,A):C$(A$,10):2900T$(HR):Y8:50:Y10:B$B$T$:T$(((HRWA)100.5)100):50:B$B$T$::642B$(S$,28)C$"NET PAY ":I$NT$:A$C$" ":R$(((S1B)100.5)100):642:"*"33);:620:PA(J)6B$" ==INACTIVE EMPLOYEE== "C$"GROSS PAY ":I$T1$:A$C$" ":R$(S1):642:Pı)B$F$:615:A(J)2A(J)3:T1$" TAKEN OUT OF):710:635oB$(S$,28):B3$"#":"*"33);:620:TY2R5B$"HOURLY WAGE"" ":T$WA$(J):50:B$B$T$TY3R5B$"SALES FOR PERIOD ":T$R$(J):50:B$B$T$C$"TOTAL DED ":I$G$:A$C$" ":B((S2S3S4S5S6S7S8)100.5)100:R$(B)P677%B$"GROSS PAY ":B3$T1$GC1:I$T5$:R$(S5):710:635RP682eB$"DEDUCTIONSB3$(((T(J)G)100.5)100):G$B3$:C2:I$T6$:R$(S6):710:635P686B$"NET PAY ":B3$B5$ C3:I$T7$:S7((S7)100.5)100:R$(S7fferent,"companies, and creates and updates a",file of information for up to 20,different employees for each company.'ÃUpdate Tax Tables,UPDATE TAX TABLE,Creates and updates both state,and federal tax tables and updates,FICA tax information.,"",""h"J)SE:T4(J)FC:T5(J)Y1:T6(J)Y2:T7(J)Y3:U(J)OD:80:G0A(J)3e595:CL$:11:"Loading Files...k5z5KSD:50005MS$"No payroll was processed for last pay period":300:9005dO$CO$".COMP":D$"OPEN"O$,D2$:D$"READ"O$Z6xSW$:SA$:CI$:SI:O1:K1TQ99YRYR1:O99:DT$PW$R4u45:S9:PP9:J1Q:A200J:A(J)560304z6710:SDKO99:DT$PW$:S1(J)S1(J)GG:S2(J)S2(J)FD:S3(J)S3(J)SE:S4(J)S4(J)FC:S5(J)S5(J)Y1:S6(J)S6(J)Y2:S7(J)S7(J)Y3:S8(J)S8(J)ODA5T(J)GG:T2(J)FD:T3(3H:"NET PAY: $"T$:Pı*3JQ5097J3P1:JJ1:H22:A(J)55094X35020:H1s3O99V18:4030:5100318:"If Payroll is incorrect, choose "N$" from the menu and re-enter data.":SPACE3:9003pSW$"1"61003qPP9900%4sKKBF,30,3:BOX,138,12,140,150,3625:H:"GROSS EARN"T$X2T$T2$:50:H:"FED TAX: "T$z2T$T3$:50:H:"STATE TAX:"T$2T$T4$:50:H:"FICA TAX: "T$:D50802I1D:I96,97,98:50:W$H$(I):70:3T$T8$:50:H:"OTHER DED:"T$:80:T$NT$:50A(J)2:U(J)U(J)(GG):(1 4520:GV:^1GGS1:FDS2:SES3:FCS4:Y1S5:Y2S6:Y3S7:ODS8:1VSP,1:Y9:H1:J1Q:P0:A(J)551001CL$CO$" PAYROLL "DT$CC$13700:T$T1$:50:BOX,0,11,F,12,3:L10((EM$(J)))2:3:HL:EM$(J)2BOX,0,29,:"It is the end of the "T$" quarter. All files are updated. Print "T$" "A$" by choosing Process "A$"s from the main menu.":SPACE0O99:PP9:0AJ105:A(J)3S0:6710:GGGG0A(J)30GGG:7040:0AJ105:S0:6710:VG:GGGG1G0OA100E:7040:95:J1Q:7000U/@NYāI15:AJI:7040::I1Q:A105I:7040:a/JEOĂ/h:11:U$"company files...":S0:A0:DT1:7040:7500::MS$"All files are updated and posted./r300:NY00T$S$(O):NQĺCL$:9:A$"Quarterly Report"00:4800:7000.:KKBIY. A100E:6710:1207:J1Q:1246::3500:4800:K52S11u.7040:VK:E(K13.3)1.,V52K1:E1:13:"Files are being set up for the new year.":NY1:95:V54K2.1NYTQTQ1:DADA1:YRYR1:DA2DADA7!/6Ee payroll for "DT$" has already been posted to the payroll records.":SPACE:-U$"Updating ":R5:11:1:U$Y$"files...":45:1207:J1Q:A(J)54100-E(K13.3)1:SDKBI.OE:AJ5:90:3500:4800:7040:1:11:U$"quarterly files...":6700:35GT(J):S2FDT2(J):S3SET3(J):S4FCT4(J):S5Y1T5(J):S6Y2T6(J):S7Y3T7(J):S8ODU(J):,tT1$(T(J)):T2$(T2(J)):T3$(T3(J)):T4$(T4(J)):T5$(T5(J)):T6$(T6(J)):T7$(T7(J)):T8$((U(J)100.5)100):,CL$:V11:4030:900M-O99ĢV:"ThP9:O0:5000&+ TY4N2İ3350:Pı9+ PTY4İ3350+ 1TY2:TY1". Gross Sales for Period: $ ";:INP,(9,"-09.",1),R$(J):+ 7:"2. Commission: ";:PĺC$(J)"%":+ INP,(8,"-09.",1),C$(J):+H X99999.99:T1$"LESS+R V99:JJ1:[, S1G2900:T(J)T:T5(J)TE(1):T6(J)TE(2):T7(J)TE(3):U(J)(SD$):SD$""T* 80:GX3400z* 800:T0XT:T1$"GREATER":3410* T2(J)T2:T3(J)T3:T4(J)T4* SDK:95:3500:4800:A200J:S9:7040:A(J)3İ4600* 80:G0İ4500* :SW$"1"İ7500 + Pwant to make any changes? ";:301004)& A$"N"3240~) P1::"Which line do you want to change? ";:INP,(1,B$,1),A$:N(A$)) BOX,0,166,F,191:NUD3090) TY3N33225) N3020,3030,3040) NUIN1U:NNI:3075) 3100B* WA$(J)W$:212:NI". ";:M3ĺ"ENTER AMOUNT FOR "H$(I)" $: ";:3085_( H$(I)": "T$" ";:PĺPE(I)M$:( INP,(7,"-09.",1),T$:PE(I)(T$):( VU23:DVD214( V:UD". Enter any Special Ded.: $ ";:INP,(6,"-09.",1),SD$:B$"-1"(UD)#) 22:"Do you regular"U$;:INP,(6,"-09.",1),R$(J):Pıf' TY2Ģ9:"3. Enter overtime"U$;:INP,(6,"-09.",1),W$(J){' TY3TY4İ3300' Pı' D3090' 12:"COMPANY DEDUCTIONS"CC$:I1D' 3075::3090' M(N$(I)):T$"$ ":M$"":M1T$"":M$"%;( IP0:T20:T30:T40:T80Y& TYT%(J):W$WA$(J)::" Employee: "EM$(J):UTY:TY3UTY2o& TY3W$C$(J)"%& VU6:NU1:5:"1. "TY$(TY)": ";:PĺW$:3030& INP,(8,"-09.",1),W$:TY3C$(J)W$& :)' TY2U$" hours worked: ":7:"2. Enter:EM$(I):M%(I):T%(I):WA$(I):CM$(I):E%(I):SS$(I)B CS$::O ,AJ5QUs TT$CO$".F"(YR):L$",L80"D2$ ^D$"OPEN"T$,L$:D$"READ"T$",R"A hSD:GG:FD:SE:FC:Y1:Y2:Y3:OD:A104ĄK$:DA$:WE(K$):DA(DA$) mSD9A%(J)8 rCS$!I$::DA:CS$7T(SW$):E$"WEEKLY":BI2E$"BI"E$CYEYR:hT$CO$".EMP":L$",L255"D2$:Q0D$"OPEN"T$,L$:D$"READ"T$",R"Q:Q:A%:TQ99ĄX:ACS$:Q9000I1Q:D$"OPEN"T$,L$:D$"READ"T$",R"I:X:A%(I):A%(I)966405 N%(I)0):50:10:" EMPLOYER FICA CONTRIBUTION $"T$H5050:SPACE:FF0:900ZdLOAD CO FILEn40:T$CO$".COMP":D$"OPEN"T$,D2$:D$"READ"T$xSW$:SA$:CI$:ST$:ZI$:SI$:I$:I$:YR:BI:DY$:WE:QU:TQ:D:I13:D1$(I):M1$(I):PE(I): I15:OX,0,30,2,170,3:BOX,0,30,U,32,3:BOX,277,30,U,170,3:BOX,0,168,U,170,3BOX,0,73,U,74,3:BOX,0,94,U,95,3:BOX,0,127,U,128,3:FL2ı1246SPACE:BOX,0,30,U,191::FL2:BOX,0,30,U,191:6:"* TOTAL FOR QUARTER *"CC$-T$(((T1(W)FP).5)10);:36:M$:=12:" FEDERAL STATE TOTALG1238u" GROSS INC TAX INC TAX FICA "" WAGES WITHHELD WITHHELD PAID ":T$T1$:50:2:T$;:T$T2$:50:12:T$;:T$T3$:50:21:T$;:T$T4$:50:31:T$:GBQU$" Quarter, "YR;CC$4"Quarter ends on "DT$CC$OJ1Q:A%(J)9Ă:9006:" EMPLOYEE SOCIAL (M-S)" NAME SECURITY MARITAL" NO. STATUS400 :" "EM$(J);:22:SS$(Juarter for "CO$".rJ0-wJJ1:JQ42207x6700yT1(J)GG:T2(J)FD:T3(J)SE:T4(J)FC:T5(J)Y1:T6(J)Y2:T7(J)Y3:T8(J)ODz4215|Y10900GGS1:FDS2:SES3:FCS4:Y1S5:Y2S6:Y3S7:ODS8:FL0:CL$QN$CC$:R5:1205:Y9:R3r today's date:":V14:H21:97002G(A$)64165\JTD$(A$,2)"/"(A$,3,2)"/"(A$,2)O18:"Do you want to make any changes? ";:30100TA$"Y"įBOX,0,150,U,191:4000cCYCY0:YRYR1hR0:CL$:10:"Loading Quarterly Files for "QU$" Q";:INP,(1,"-14",1),A$:QU(A$)JWEQU13:QU$"Fourth":QU1QU$"First`QU2QU$"Secondw"QU3QU$"Third "62000@Y10:10:"Quarter ends on: "DT$:BOX,131,90,187,91,3CBOX,139,126,194,127,3:14:23:"/":14:26:"/ E14:"EnteE(I)((TE(I)T1100)100.5)100' H T%(J)4G(WA$(J)):T1T1GN  S1GGT1(J):S2FDT2(J):S3SET3(J):S4FCT4(J):S5Y1T5(J):S6Y2T6(J):S7Y3T7(J):S8ODT8(J):TQ99İ1000CL$:6:"Which quarter do you want to process? (1-4) ,89:"Getting the menu...":33000:RNH,"MENU"U"Z"00:RNH,"MENU"3000:RNH,"MENU""u...":33000:RNH,"MENU"8D:CL$:CO,0,80:"Error "ZE" at line #"ZN" in "N$"."::"Please report this error to MECC."::SPACE:31000V&X175X186K8ĢV:H:(X128);:HH1:Hher Quarter.":SPACE:4000"(#CL$:7:"No employees exist for "CO$". Please choose 'FILE MAINTENANCE' from the main menu and enter employees for "CO$". You must also process payroll before you process a "N$". "2#SPACE:31000"%ES0,#|REı!XAJ5QU:!SD0:T$CO$".QFIL":L$",L80"D2$_!D$"OPEN"T$,L$:D$"WRITE"T$",R"Aq!A%(J)8SD9!SD:GG:FD:SE:FC:Y1:Y2:Y3:OD!CS$:"@CL$:8:"No information has been entered into "QU$" Quarter Files. Please select anotı 8:"3. City: ";:Pı9 INP,(22,O$,1),CI$:CCıc 10:"4. State (example - MN) ";:Pı INP,(2,"-AZ",2),ST$:CCı 12:"5. Zip Code: ";:Pı INP,(10,O$,1),ZI$:CCı 14:"6. Employer State I.D NO: ";:Pı INP,(9,O$,1),SI$00:RNH,"MENU"t0:ST:R1ST:C15:S(R,C):::YRe/I14:S$(I):TY$(I)::I119:M$(I)::I19:T$(I)::CS$/D$"OPENFED.TAX.PER",D1$:D$"WRITEFED.TAX.PER":FP:FE:FI/ CS$:S(12,2)9999999:/y9000"yCL$:CO,0,89:"Getting the menu...":QC0:ZD0:330)::I119:M$(I)::I19:T$(I)::7200U.XCL$:CO,0,89:"Updating Tax Tables...o.l45:S(12,2)999999999.D$"OPENTAX FILE",D1$:D$"WRITETAX FILE".FA:FP:FI:FE:TM:R1TM:C14:FS(R,C)::#/TS:R1TM:C14:FM(R,C):::SA:SP:SU-|3680:9004-pCL$:11:"Loading Tax Tables...`-D$"OPENTAX FILE",D1$:D$"READTAX FILE"-FA:FP:FI:FE:TM:R1TM:C14:FS(R,C)::-TS:R1TM:C14:FM(R,C):::SA:SP:SU:ST:R1ST:C15:S(R,C):::YR*.I14:S$(I):TY$(I250 ,Z3480&,P1:RR2:SA991000d,RR1:3500:SA:3540:SP"%":3560:SU"%":ABįSPACE:5400r,P0:3580,RR0:P1:S$" ":3600:R112:R5:R"."S$;:S(R,1);:12:S(R,2);:20:S(R,3);:28:S(R,4);:33:S(R,5),"R8S$""-,:ABįSPACE:BįSPACE:5100*+P0:RE1:3080:RE0:P1+3200:R18:R5:R". ";:FS(R,1);:14:FS(R,2);:24:FS(R,4);:34:FS(R,3)"%":R:ABįSPACE:5200+3280,P3400:R18:R5:R". ";:FM(R,1);:14:FM(R,2);:24:FM(R,4);:34:FM(R,3)"%"::ABįSPACE:5:ABı$*`VSP,2:100:A$"Y"36923*ePİ7000:B*jCC0:3700R*lSA991100*oCC1:19:70:INP,(2,"-09",1),A$:A(A$):A1A123695*pVSP,1:T157:60:3625*tCC0:7000:900+P1:3000:YR:3020:FA:3040:FP"%":3052:FE"%":3060:FI:AS(R,2)&)BH20:80:K0S(R,3)(A$)K)GV:20:" ":V:20:S(R,3))LLI4:H28:80:K0S(R,4)(A$):S(R,4)993660)QV:28:" ":V:28:S(R,4))RLI7:H33:80:K0S(R,5)(A$))TV:33:" ":V:33:S(R,5))UCCı*VVV1:3:BOX,0,154,279,155,3(Pı6(V6:R112:S$" "F($V:R"."S$;n()LI7:CCRA:V5A:3630:CC0:3680(.H4:80:K0S(R,1)(A$)(3V:4:" ":V:4:S(R,1)(8H12:80:K0S(R,2)(A$):S(R,2)S(R,1)3640)=V:12:" ":V:12:,20,3:BOX,20,19,250,20,3:BOX,20,4,21,20,3`'VSP,0:4:4:"MIN MAX FROM MULT ADD"'5:4:"WAGE WAGE NET - BY ---(VSP,1:BOX,0,41,279,42,3:BOX,69,24,69,155,3:BOX,125,24,125,155,3:BOX,180,24,180,155,3:BOX,216,24,216,155,3600#&C$"-13":SA99C$"-1"Q& CC1:19:70:INP,(1,C$,1),A$:A(A$):65a& SA991050& A3525,3550,3570:CC0:3580&WW0:SA993700&RR2SA995400&VSP,1:SS$" ":CL$:"STATE TAX TABLE"CC$+'BOX,20,4,250,5,3:BOX,250,4,251:25:SU"% "% CCı@% AL2:LI3:V17:H34:100:P3586|% SL0:80:AL0:A$(A$,1):WW6P0:SA0:SU0:SP0:3500% SLP0:1000% A$""3580%A(A$):A$(A32(A96)):A$"Y"A$"N"3580%A$"Y"3592%SA993600%RRı&0$ K0SA(A$)+$ 6:28:SA" "5$ CCıc$ 8:"2. Income Adjustment Factor: ";:Pı$ LI8:V8:H30:80:K0SP(A$)$ 8:30:SP"% "$ CCı$ 10:"3. Surtax on State Tax: ";:Pı$ LI8:V10:H25:80:K0SU(A$)% 10P0:SU0:1000"# RR9P1:5300:# SS$" ":CL$d# 2:"TAX COMPUTATION DATA - STATE"CC$# BOX,20,4,250,5,3:BOX,250,4,251,20,3:BOX,20,19,250,20,3:BOX,20,4,21,20,3# 6:"1. State Exemption Amount: ";:Pı$ LI8:V6:H28:80:WW4100M(R,4)5" LI6:H34:80:K0FM(R,3)(A$):V:H:"%o" V:34:" ":V:34:FM(R,3)"%":FM(R,3)993460y" CCı" VV1:" 100" A$"Y"3495" Pı" 3500" CC1:19:70:INP,(1,"-18",1),A$:A(A$):65:3425# SL0:WW3:SA99S900 R0:FF1:VSP,1:HH150F CL$"Please enter company data"CC$\ BOX,52,9,226,9,3y 4:"1. Company: ";:Pı INP,(23,O$,1),CO$:C$CO$:C((CO$,1)):C65C903020 CN(R1):CCı 6:"2. Address: ";:Pı INP,(22,O$,1),SA$:CCnother company. You may delete a company to create more file space, or you may create a new data diskette.":SPACE:900 XW1:X15ĺ"You have maximum of 15 company files on this diskette. You must delete a company before adding another one.":SPACE:A1 SD7SDSD7:2815! 4" SD29SW5ıY' AA1:SD29SD:SD7SD:A13A1q) SD7SDSD7:2857w, T CL$"Create Company File"CC$:BOX,73,9,204,9,3:x CL$:9:SE70ĺ"You do not have enough space on your data diskette to create aV21V3:HH13. A2280090 A4A6A9A112700^2 AA1:SD31SD:SD7SD:A13A1d<  AA1:SD30SD:SD7SD:A13A1  FYR4:F$(F):F0:C1(F$):(F$,C,1)"."F1 :REı F02850 AA1:SD28SD:SD7SD:A13:H:SW1ĺI10)I". "A"/"SD( SDSD7C A2SD28İ2800:2509T SD23İ2600o VV1:V21V3:HH13w :( SD24A1SD24A3SD24A5SD24A7SD24A8SD24A10SD24A12ı* VV1:II1:I53ĢV:H:SW1ĺI10)I". "A"/"SD- RE1:2800:RE0:FDYDY1:DADYPAYEYR:WK(PA7):EVWK7:LEPAEV:LA(PA4):ALLELADA:X(AL7):XX7:DYALX:DYDY7SW2ıSDDY:H1:V3:DY2DYDY7:SDDY2020H1:V3:2500SW1:A1:SDDY:2500:SW0: I152:V$,W:WıSCL$"List of Current Company Files.":I1W:I2:I10)I". "CO$(I):_SW4ı:"Which company file do you want to update? ";:INP,(2,"-09",1),A$:A(A$):EZ$A$:A1AW1000CO$CO$(A):C$CO$901,A:500:!YE1699:DADY:10:"Which option do you want? ";:B$"-1"I$:INP,(1,B$,1),A$:AZ(A$)kAZ3000,5000,6500,6000,6100,960{AZ831010AZ(I$)31010(901)İ1000:W120AP$"PRINT EMP":31100SW4:1000:WįSPACE900 300:FCN,".COMP",CO0A$" Company File":8:10:"1. Create"A$:10:"2. Update"A$:10:"3. Delete"A$:10:"4. Add Employee Files":10:"5. Update Employee Files10:"6. List of"A$"s":I$"7":QĖ10:"7. Print Employee Data":I$"8F10:I$". Return to Main Menu"::$"File Maintenance":MEF$"Edit Company File< 3:F$CC$ BOX,40,13,236,15,6:BOX,40,28,236,30,6:BOX,236,13,239,30,6:BOX,40,13,42,30,6BOX,239,22,279,23,6:BOX,276,22,279,191,6:BOX,0,190,279,191,6:BOX,0,23,2,191,6:BOX,0,22,40,23,6:ME400BK$:BA$:BC$:BS$:BZ$:DY:CS$Q &CO$CO$(A):BI$"WEEKLY":BI2BI$"BI"BI$W +i 0T$CO$".EMP" :300:L$",L255"D2$:D$"OPEN"T$,L$:D$"READ"T$",R"0:Q DCS$: XBOX,0,HH,279,191: 32000 SW0:P0:R0:FF0:CC0:VSP,1:CL$. Fhanges? ";:200: W1120U 300:T$CO$(A)".COMP":D$"OPEN"T$,D2$:D$"READ"T$ SW$:SA$:CI$:ST$:ZI$:SI$:FI$:PP$:YR:BI:DY$:WE:QU:TQ:D:I13:D1$(I):M1$(I):PE(I):S$(PE(I)) T$(S$,2):(T$,1)"."S$S$"0 PE$(I)S$:"  Would you like to setup company files? ";:200D P0:A$"Y"3000O 31010c (1);:GCP,I,J CO,I,J:CEL:INP,(3,"YESNOyesno",1),A$:B(A$):A$(B32(B96)):A$"Y"A$"N"210 ,ZD1:QC2:ZW1:33000: "Do you want to make any c00:QN$ZN$. d300:CNT,SE:FCN,".COMP",CO$,WS hEZ$"1":(900)99Ĺ900,98:3000_ iW120 j(900)ĺCL$:A(900):9:"There are no employees on file.":EX1:3815 nEX0:A(901):A0900 s500:560:900/ xCL$:10:"No company files exist. 0SETUP COMPANY,COPYRT(C)MECC 1984DUPDATE 85/12/8-RMC^ APP,"COM.LIB":32734j 32000S$(1)"s":CC$(3):CL$(12):HH15033100:CO$(16):D$(13)(4):CS$D$"CLOSE" O$"-#+--:-<} !":ZS704:SET,0:RFL,"MECC$$DISK"ZS:332                     ZN$"":Z1A4ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220`4΁ZT((ZS)0):ZM(ZS35):,0,89:"Please remove the write-protect tab from your "Z$" diskette.":ZP1:SPACE::330403BZE0:ZFZEĺD$"DELETEMECC$$DISK3KZW0:ZUZZ:3LD1$",S"((953))",D"((954))",V"((955))3`D2$",S"((956))",D"((957))",V"((958)): 4PACE$2(975)2ZDįSPRO,2:33040:2SPRO:ZDįSNOPROm2ZE0:ZEĺD$"BLOAD MECC$$DISK,A"ZS;ZT$:332002ZF(ZD1ZE6):(ZFZE0)(ZDZT)(ZDZN$QN$)330202$QDZD:ZW330992.ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28"Z38ZE4ĺL$:CO"program":ZDZT$D2$:Z$"data1ZZ1:ZF(Z1(QC1ZDQD)):ZFĺL$:CO,0,89:"Please insert your "Z$" diskette for "QN$" in ";:QC3ĺ"drive "1(ZD(QC2))".":SPACE:2ZFQC3ĺ"the drive located at:":" Slot: "(ZC):" Drive: "(ZC1):S958,254:ZC2Ĺ957,3(954)!C/F:T1U1:CL$"Create a "T$(T1)I$CC$:CO,0,72:"Creating a "T$(T1)I$" will erase whatever information is currently on the"I$"."::"Do you want to continue? ";:36000:Z$"N"150996:CO,0,18::CEW:CO,0,73:"Pleaseer and press return. ";."Pressing return alone will accept the current values (or the default values if no current values exist) displayed to the right.":30000..ZC(S36):ZC3Ĺ956,(S37):957,(S38):958,(S39).ZC3Ĺ956,(953):":CO,0,153:"Is this correct? ";:36000:CO,0,144::CEL:Z$"N"11015fR+S37,SL:S38,DR:S39,VOl[+|.CL$"Special Disk Drive Setup Help"CC$:.:"To change the slot, drive or volume of the drive to hold the "T$(U1)I$", type the desired numb1:"Two drives are required for this package.":SPACE:11000+M3:E$"-09?":L$" Volume: ":DF$((958)):300:VO(DL$):VO255VO254:CO,ZX,ZY:VO+DL$"?"İ11900:11000G+CEW:CO,0,99:CEL:CO,0,90:CEL:N$" will look for your "T$(U1)I$" in:90:CEL::CEL:"Where will your "T$(U1)I$" be?"+:M1:E$"-37?":L$" Slot: ":DF$((956)):300:SL(DL$):DL$"?"İ11900:11000+M1:E$"12?":L$" Drive: ":DF$((957)):300:DR(DL$):DL$"?"İ11900:11000<+SL(953)DR(954)ĺCL$:1"N"36020 ))",D"((954))",V"((955))W`D2$",S"((956))",D"((957))",V"((958)):fZN$"":Z1ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220΁ZT(ZS)CA$;:GCP,ZX,ZY CO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$$QDZD:ZW33099A.ZE0:ZEĺD$"BSAVE MECC$$DISK,A"ZS",L$28"8ZE4įWIND:CL$:CO,0,89:"Please remove the write-protect tab from your "Z$" diskette.":ZP1:SPACE::33040BZE0:ZFZEĺD$"DELETEMECC$$DISKKZW0:ZUZZ: LD1$",S"((953drive "1(ZD(QC2))".":SPACE:wZFQC3ĺ"the drive located at:":" Slot: "(ZC):" Drive: "(ZC1):SPACESPRO:ZDįSNOPROZE0:ZEĺD$"BLOAD MECC$$DISK,A"ZS;ZT$:33200ZF(ZD1ZE6):(ZFZE0)(ZDZT)(ZDZN$QN$)33020 report this error to MECC."::SPACE:31000ZZZU:ZU1:SET,ZD1:ZS704:ZC9533ZD:ZP0:Z0:ZT$D1$:Z$"program":ZDZT$D2$:Z$"data ZZ1:ZF(Z1(QC1ZDQD)):ZFįWIND:CL$:CO,0,89:"Please insert your "Z$" diskette for "QN$" in ";:QC3ĺ"R@yCL$:VSP:HSP:CO,0,89:"Getting the main menu...":SET,0:33000:RNH,"MENU"}ZE(222):ZN(218)(219)256:216,0:32000}ZUZE0ZE16Ħd}ZE255Ĵ(919)031000:,x}WIND:CL$:CO,0,80:"Error "ZE" at line #"ZN" in "N$"."::"PleaseCEL:L(S$):K1L}#A((S$,K,1)):PPCTK,A:A32AA64::GCP,X,Y:BOX,X1,Y1,X6,Y7,3:(A);CA$;::CO,X9,Y:9150#(A)CA$;#K:Q$:CTCTL#0u:SPACE::yWIND:CL$:10:"Do you want to try again? ";,y360006yZ$"Y"Ĭ)"CHR$("91101F#JK6L:(S$,J,1)")"9100SP#X$(S$,K5,JK5):X((X$))fZ#X0X127X0d#L$"":K1L$(S$,K1)n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K#XQX:YQY:CO,X,Y:CA$;:0:50,Y1279,Y1:A32AA64::BOX,X1,Y1,X6,Y7,3:(A)CA$;::P(L1)9:XX9:S$S$C$:8020(A)CA$;:GCP,ZX,ZY:P(L1)ZXX:XZX:S$S$C$:8020XXP(L):BOX,X1,Y1,X9,Y7,0:CEL:L18000S$(S$,L1):8020(#L(S$):L79120<#K1L6:(S$,K,5E SUPPORT":31100(GET SETUP COMPANYF900,99:AP$"MENU":31100Oy900e"y900,0:AP$"MENU"|yCL$:CO,0,89:"One moment please...":SET,1:ZD0:33000:RNH,AP$.o$(219)256:216,0:32000.0}ZUZE0ZE16ĦM0d}ZE255Ĵ(919)031000:0x}WIND:L$:CO,0,80:"Error "ZE" at line #"ZN" in "N$"."::"Please report this error to MECC."::SPACE:310001ZZZU:ZU1:SET,ZD1:ZS704:ZC9533ZD:ZP0:Z0:ZT$D1$:Z$CO,0,73:ZVZE7ĺ"The volume number of this"I$" does not match the current setting.":30000+ZV(ZE7):CL$:CO,0,89:"Please insert your "T$(T)I$" for "N$;:ZC(S36):ZC2ĺ" in drive "ZD;&,ZC3ZL953(ZD2)3:" in the drive located at:"::" eport this error to MECC.":30500L*U}500:ZU1:ZE0:ZEĺD$"VERIFYLOGO"D1$r*Z}T0:ZD1:WP0:34500::12:31060*ЄZU1:SET,ZD:ZSS0:ZV0:CPRO,ZP:ZPįCPRO,ZP*ڄSPRO,ZP(ZP):ZE0:ZEįRFL,"MECC$$DISK"ZS:38000:(TZT)(N$ZN$)34070\+䄺CL$:BRUN"UP$D1$:RNH,"HPRINT.OBJ"=)cy975,0:ALįRNH,"GET START"M)hyRNH,"MENU")}ZE(222):ZN(218)(219)256::(4)"CLOSE")}ZUZE0ZE16Ħ)(})<}ZE25531000)F}UNHOOK:FILT:::12:1!*P}"Error "ZE" at line #"ZN:"in "M$"."::"Please r(`w16368,0::'(ySPRO:(901)ĬT(y500:(901)2T0:ZD1:WP0:34500::e( y54915:1000(6y500:ZU1:ZE0:ZEĺD$"VERIFYLOGO"D1$(@yZU0:T0:ZD1:WP0:34000(JyZU0:CL$:CO,0,89(Ty"Getting the "PN$" menu...)^yNOFILT::901,0:D$"118YY)90'DRCEL:Z$"N"įCO,0,20:CEW:210006'kRG'0u:SPACE::z'$wZF0:24:1:868:7:"Press ";:(64435)6Ğ'8w"SPACE BAR";::" to continue";'Lw16368,0:16384,128:ZP(16384):ZF(ZF1)(ZP155):ZF231000(VwZP160ZP14130540,(DL$)b&0RM3:E$"-09":L$" Volume: ":DF$((OS2)):300:(DL$)255DL$"254":CO,ZX,ZY:DL$s&5ROS2,(DL$) ':RCEW:CO,0,(58YY)9:CEL:CO,0,(48YY)9:"Copy will look for your "Q$I$" in:":CO,0,(118YY)9:"Is this correct? ";:36000:CO,0,(D$"BRUNDISKUTIL.OBJ"%N%RYY(Q$T$(T1)):OS9533YY:CO,0,(108YY)9:CEL:CO,0,(58YY)9:CEL:"Where will your "Q$I$" be?%R:M1:E$"-37":L$" Slot: ":DF$((OS)):300:OS,(DL$)&&RM1:E$"12":L$" Drive: ":DF$((OS1)):300:OS1QS34ZEįDW,5IS,07IS,1553248/$jNZEİ700<$lNZU0:IS]$nNZ$"is":EFZ$"could not be$pN:11:"The copy of your "T$(T1)I$:Z$" finished.":30500%zN500:T0:ZD1:WP0::34500::12:"One moment please...":901,1:NOFILT:D$"BRUNHPRINT.OBJ"D1$:U1:ZE0:ZEįDR,IS,0QS,15163846#`NZEİ700:20076b#aNK64QS34ZEįDR,5IS,07IS,1553248v#bNZEİ700:20076#cNZD1:T2:WP1::34500#dN:12:"Writing to backup"I$"...":SET,1:ZU1:ZE0:ZEįDW,IS,0QS,1516384#fNZEİ700:20076"$hNK6400:L"YNIB(ID1)256(ID0):16128,IB:ZU1:ZE0:ZEįDW,34,1534,1516128e"[NZU0:ZEİ700:20078"\NUNHOOK:901,2:::FILT:EF0"]NIS0345(3K64):TT1:ZD2:WP0::34500"^N:12:"Reading from "T$(T1)I$"...":SET,2:QSIS4:QS34QS34"#_NZT1:ZD2:WP0:34000:PTZP:ZU1:ZE0:ZEįDR,34,1534,1516128X!FNZU0:ZEİ700:20078h!GNID(16128)x!HNZD1:39000!RNOKİ500:"WNCL$:CO,0,89:"Preparing your backup"I$"...":DT$",S"((953))",D"((954))",V"((955)):SPRO,PT:400:ZEİ5:PTZP:ZU1:ZE0:ZEįDR,34,1534,1516128D =NZU0:ZEİ700:20078 >NCO,0,27:CEW:CO,0,90:"Please insert your backup"I$;:(S36)2ĺ" in drive 1 and your "T$(T1)I$" in drive 2"; @N(S36)3DC2ĺ" and your "T$(T1)I$; CN".":30000?!ENDC2Twill erase whatever information is currently on the backup"I$"."::"Do you want to continue? ";:36000:Z$"N"İ500:;NDC(S36):DC3ĺCL$"Special Copy Setup"CC$:Q$"backup":21000:Q$T$(T1):21000:DC(D1$D2$)1+ # INP,(9,Z$),QS$:QS(QS$):Cıq# 10:"4. SOCIAL SECURITY - FICA:"3)"$ ";:Pı# INP,(9,Z$),QT$:3290# S(QG$):U(QT$):3970:EE0:3550# Cı# QG(QG$):QF(QF$):QS(QS$):QT(QT$):R2ı$ SQGQFQS3440,3450,3460,3470,3480,3498:3290:34895" 3485:J" L(T$):T24L:a" A$"quarter":3900" 7:"1. GROSS INCOME:"13)"$ ";:Pı" INP,(9,Z$,1),QG$:QG(QG$):C3550" 8:"2. FEDERAL"J$7)"$ ";:Pı" INP,(9,Z$),QF$:QF(QF$):Cı# 9Y3$:Cı;! D11:D5". SPECIAL DEDUCTIONS:"7)"$ ";:PıT! INP,(9,Z$),YD$:Cı! 300:SGFSEMY1Y2Y3OD:S0İ3990:3420! P$"-1"(D5):V19:3800! A$"Y"3495! RC1:3458:! C0:3500! V21:3850)" 3290:C1:A3420,3430,: $ ";:Pı  INP,(9,Z$),YT$1 HH134:3290Z S(GI$):U(YT$):3970:EE0:3450c Cıu U1:550:Pı D1$(1)""įINP,(9,Z$),Y1$:Cı U2:550:Pı D1$(2)""įINP,(9,Z$),Y2$:Cı U3:550:Pı! D1$(3)""įINP,(9,Z$),R A$"year":3900:\ 7:"1. GROSS INCOME:"13)"$ ";:PıXa INP,(9,Z$,1),GI$:C3450|f 8:"2. FEDERAL"J$7)"$ ";:Pık INP,(9,Z$),YF$:Cıp 9:"3. STATE"J$9)"$ ";:Pıu INP,(9,Z$),YS$:Cı z SZ$"SOCIAL SECURITY - FICA":10:"4. "SZ$"3600H L$:Z$"-09.":6M U9CH2:"You have processed payroll for at least one period. Changing the"C$" for this employee may change your quarterly figures."::"If it is necessary to change the"C$", press the ESC key twice.":SPACE:CH1O PıHH170:3290:3295> 350C 5:"If you are entering"G$"s into the computer after the first pay period of the year, you may want to enter"C$" from the beginning of the year."::"Would you like to enter the"C$" and deductions? ";D 200:30:A$"N"T138:B166:250:17:6:H$M$C$:6:BI$" Commission: ";:34:"%":Pı~" 17:6:H$M$C$:6:BI$" Commission: ";:34:"%":Pı% 18:27:INP,(6,"-09.",1),CM$:(CM$)993365* Cı4 V20:3800:C$" Accumulated earnings7 A$"N"R1ı9 A$"Y"3290:INP,(8,"-09.",1),W$:W(W$):W99999İ3700:3320@ CıJ 3380 T93:B120:250:12:6:H$M$C$:6:"Hourly Wage: $ ";:Pı 3290:INP,(5,"-09.",1),W$:Cı 3380 500:Pı INP,(8,"-09.",1),W$:W(W$):W99999İ3700:3350E . Salary 2. Hourly Wage":"3. Commission 4. Salary + Commission 8:"Which type of income does "M$" receive: (1-4) ";:Pı C$"'S ":(M$,1)"S"C$" " Pı INP,(1,"-14",1),A$:T%(A$):T%3320,3330,3360,3350 500:Pı7  R3ı( V21:3800:A$"Y"32201! Rı;& 3295S V23:P$"-19":3850 HH155:3290:A3015,3020,3030,3040,3050,3060,3070,3080,3090:3290:3100 BOX,0,HH,279,191: W$"":CM$"" L$:HH135:VSP,1K 13:"TYPES OF INCOME"::"1> V15:H28:50:SS$(A$,3)"-"(A$,4,2)"-"(A$,4):Cıi 17:"8. Number of Exemptions: ";:Pı INP,(2,"-09",1),A$:E%(A$):Cı 19:"9. Single or Married: ";:Pı INP,(7,1),A$:A$(A$,1):A$"S"A$"M"3090 M%(A$"M")1:C INP,(22,O$,1),EA$:Cı6 9:"4. City: ";:PıR INP,(20,O$,1),EC$:Cı{ 11:"5. State (example MN): ";:Pı INP,(2,"-AZ",2),ES$:Cı 13:"6. Zip Code: ";:Pı INP,(10,O$,0),EZ$:Cı 15:"7. Social Security Number: ";:P,A$:N%(A$):I1Q:N%N%(I)TI'  TĺL$:9:M$(T)"-"E$" number "N%" already exists. Please assign a new number.":SPACE:P(R1):3010 Cı 5:"2."E$" Name: ";:Pı INP,(19,O$,1),M$:RM$(Y)M$ Cı 7:"3. Address: ";:Pı of 20"F$" for this company. You cannot enter another"E$".":SPACE:IC0:900| 45:K04:AXX5K:6630::A200XX:6630 R1R3: VSP,0:L$"Enter"E$" Data"CC$:BOX,73,8,205,7,3 T0:3:"1."E$" Number: ";:PĺN%:3020! INP,(4,"-09",1):8:"Which option do you want? ";:INP,(1,"-17",1),A$:B(A$)TQB2B7900}B800,3000,4000,8000,9000,960,31010AP$"PRINT EMP":31100 30:XX0:QQQ:I1Q:A(I)9XXI :XXQQQQ1:XXQQM XX20ĺL$:9:"You have the maximum,279,191,6:BOX,0,190,279,191,6:BOX,0,23,2,191,6:BOX,0,22,40,23,68:8:"1. List"E$" Names":8:"2. Add"E$" Files":8:"3. Change Data for"E$:8:"4. Terminate an"E$>8:"5. Reactivate an"E$:8:"6. Print"E$" Data":8:"7. Return to Main Menu":;:INP,(2,"-09"),A$:A(A$):A$""ı5A1AQ710QYA:M$M$(A):E%N%(A):a 700:SPACEzVSP:L$:R0:C0:P0:N$CC$BOX,40,13,236,15,6:BOX,40,28,236,30,6:BOX,236,13,239,30,6:BOX,40,13,42,30,6CBOX,239,22,279,23,6:BOX,276,22hich employee? "hVSP,0:J0:L$" EMPLOYEE";:20:"EMPLOYEE NO.";:33:"STATUS":BOX,20,8,263,8,3:I1Q:A(I)9707JJ1:E(I)J:J2:J10)J". "M$(I);:25:N%(I);:32:A(I)6ĺ"INACTIVE":707"ACTIVE:VSP,1:$CO,0,180:TE$$"READ"T$",R"A:X:A(A):A(A)96204bN%:A0620gM$:M%:T%:W$:CM$:E%:SS$:GI$:YF$:YS$:YT$:Y1$:Y2$:Y3$:YD$:QG$:QF$:QS$:QT$:EA$:EC$:ES$:EZ$lCS$qMA$"MARRIED":M%1MA$"SINGLEvT$"ChangeTE$T$" record: WI$"BiweeklyST93:B120:250:12:6:"Enter "M$C$:6:BI$" Salary: $ ";:&D1$(U)""T$D1$(U):3499:10U:4U". "D1$(U)":"T)" $ ";:PĴU570,580,5900:Y1$:DY2$:NY3$:XT$CO$".EMP":45#]D$"OPEN"T$",L255"D2$:D(YT$):Y1(Y1$):Y2(Y2$):Y3(Y3$):OD(YD$):W^L$E$" File"CC$:BOX,99,8,187,7,3:D$"OPEN"CO$".COMP":D$"READ"CO$".COMP":I$:I$:C$:I$:I$:I$:I$:I$:YR:BI:I$:WEQU:TQ:D:I13:D1$(I):M1$(I):PE(I): CS$:BI$"Weekly":BI2B00:900 (1);:GCP,I,Jv CO,I,J:CEL:INP,(3,"YESNOyesno",1),A$:A(A$):A$(A32(A96)):A$"Y"A$"N"210| BOX,20,T,279,T,3:BOX,279,T,279,B,3:BOX,20,B,279,B,3:BOX,20,T,20,B,3:BOX,20,B,277,B,3:/,G(GI$):F(YF$):SE(YS$):M1 cV:H:"- ":M d45:FCN,".COMP",CO$,CZ:CO$CO$((901)):T$CO$".EMP"} gD$"OPEN"T$",L255":D$"READ"T$",R"0:Q:CS$ i400:Q3000 nI1Q:D$"OPEN"T$",L255":D$"READ"T$",R"I:X:A(I):N%(I):M$(I):CS$: x(900)13000 700:710:6136K0KK1:V:H:" ":96:HH1:V:H:K$:L(A$):A$(A$,1,L1)_ UX155UU1:U231005 ZX175X186K11ĢV:H:(X128);:HH1:H:K$:A$A$(X128):KK1 \96 _60 `K3K6ı aX136İ99:HH1:KK1:H:V:K$: bHH1:KKB$:QG$B$:QF$B$:QS$B$:QT$B$:300:6900X (Y1$B$:Y2$B$:Y3$B$:QG0:QF0:QS0:QT0:t -ZW1:QC2:ZD1:33000: 2K$(127):U0:K0:A$"":YY16368:YY,0:V:H:K$ <X(16384):X12860 AX255X136 FYY,0:X141K10ĢV:H:" ":C PXE(21),M$(21),N%(21),A(21)9 24576:11:"Loading"F$"...r 33100:CC$(3):L$(12):IC1:D$(4):CS$D$"CLOSE" O$"-#+--:-<} ! D$"OPENFED.TAX.PER"D1$:D$"READFED.TAX.PER":CZ:FE:FB:CS$ 100) B$"0.00":GI$B$:YF$B$:YS$B$:YT$B$:YD$8PROG:EMP RECORDS,UPDATE 10/19/85CPROG:R.M.CHILDERSUCOPYRIGHT(C)`32734l32000 QN$"Payroll System":G$" employee record":H$"Enter ":J$" INCOME TAX:":N$"Edit Employee Files":E$" Employee":F$" employee files":CO$(20),                              Q:A%(J)9Ă:900A%6:" EMPLOYEE SOCIAL (M-S)o%" NAME SECURITY MARITAL%" NO. STATUS%400::" "EM$(J);:22:SS$(J);:36:M$:%FL4ı&12:" FEDERAL STATE (J)Y2:T7(J)Y3:T8(J)OD"$4210X$GGS1:FDS2:SES3:FCS4:Y1S5:Y2S6:Y3S7:ODS8:d$Q900w$FF2:R5:1205$R3:CL$"END OF YEAR REPORT"CC$$"For Calendar Year "YR;CC$$"Last Pay Period Processed was "DT$CC$$FL45030%J1WEWE1#@Y10:2000,#JCYCY0:YRYR1p#hR0:CL$:11:"Loading files for End of Year Reports for "CO$".#jQU4:WE40QU3#kWE27QU2#mJ0:WE14QU1#rJJ1:AJ5:JQ900#w6745$|T1(J)GG:T2(J)FD:T3(J)SE:T4(J)FC:T5(J)Y1:T67Y3T7(J):S8ODT8(J):3"I178:"-";::"*":C"TQ99İ500Q"Y10:CL$"BOX,139,90,194,91,3:10:23:"/":10:26:"/"10:"Enter today's date:":V10:H21:9700"(A$)64020"TD$(A$,2)"/"(A$,3,2)"/"(A$,2)#WEWE1:BI2 T$(T3(J)):50:"* $"T$;:T$(T4(J)):50:40)"|"43)"$"T$80)"*":"*"80)"*":I124:"*";::" W-2 WAGE AND TAX STATEMENT "YR" ";:I123:"*";:! ! :FEED:POFF:900" S1GGT1(J):S2FDT2(J):S3SET3(J):S4FCT4(J):S5Y1T5(J):S6Y2T6(J):S"*";:3600 "* Federal Income Tax Withheld:"40)"|"43)"Social Security Wages:"80)"*":T$(T2(J)):50:"* $"T$40)"|";:T$(T1(J)):50:43)"$"T$80)"*":"*";:3600 "* State Income Tax Withheld:"40)"|"43)"Social Security Tax Withheld"80)"*!"* "SA$40)"|"43)EA$(J)80)"*":"* "CI$", "ST$" "ZI$40)"|"43)EC$(J)", "ES$(J)" "EZ$(J)80)"* "*";:3600:"* Wages, Tips, other Compensation:"40)"|"43)"Employee's Social Security number:"80)"*":T$(T1(J)):50:"* $"T$40)"|"43)SS$(J)80)"*":1G   Q900# Y9:1400< J1Q:A%(J)93070 ::L$"=":1500:"*"80)"*":"* Employer's Identification Number:"40)"|"43)"Employer's State Number:"80)"*":"* "FI$40)"|"43)SI$80)"*a "*";:3600:"* "CO$40)"|"43)EM$(J)80)"*":(HW$(J)):OTWA1.5:OW((OTHW)100.5)100:T1(((WAHR)100.5)100)OW| TY(J)3TY(J)4G(GS$(J)):T(CM$(J)):T1((GT100)100.5)100:HR0 I13:TE(I)PE(I):M1$(I)"1"TE(I)((TE(I)T1100)100.5)100  TY(J)4G(WA$(J)):T1T13A1  A FYR4:F$(F):F1:C1(F$):(F$,C,1)"."F0T :R28:FR29b FP29ım KIı AA1:PRP:P7P:A13A1 P7PP7:2815 T WA0:OT0:HW0:HR(HR$(J)):TY$(J)"1"T1(WA$(J))Ih TY(J)2WA(WA$(J)):HWU)"/"((YR),2):[( P24A1P24A3P24A5P24A7P24A8P24A10P24A12ı|) G(A10)SD:GTETEG:DASD. II1:A22800/ KIı0 R31:A4A6A9A11R302 AA1:PRP:P7P:A13A1<  AA1:SD30SD:SD7SD:A)):&WE0WE51:YYYRYR1:CY1HWE1WE52:YYYRYR1:CY1QKWEiA1:PDA:P2PP7u I152 KIBA:UP:I52 G(A10)SD:GTETEG:DASD PP7:A2P28İ2800:2510 P23İ2600 KI2501 :DT$(B)"/"(R0:CL$:11:"Please prepare your printer...":SPACE:PINIT:VI180:L$;:::fT5(J)((T5(J))100.5)100:T6(J)((T6(J))100.5)100:T7(J)((T7(J))100.5)100:T8(J)((T8(J))100.5)100gT1$(T5(J)):T2$(T6(J)):T3$(T7(J)):T4$(T8(J SECURITY STATUS"40)D2$(1)52)D2$(2)62)D2$(3)72)"OTHER DED\2L$"*":1500<R5:1205:J1Q:A%(J)91355AM$"M":1638:MA(J)1M$"SFR3:1240K::"TOTALS FOR YEAR :";:M$"":R5:1638:1240:L$"=":1500PR0:3100?x'J::"TOTALS FOR YEAR:";:R5:1238JT$(((T1(W)FP).5)100):50L$"=":1500::"EMPLOYER FICA CONTRIBUTION"69)"$"T$::1500:29)"MISCELLANEOUS DEDUCTIONS"::L$"*":1500"EMPLOYEE SOCIAL MARITALK("NAME duction"S$(D1)" is "TP". "S$;:D1ĺ"for all "D" deductions ";8&"cannot exceed 99%. Please re-enter":SPACE:CC0:TP99:8yEX1108yME0:901,0:9008"yAP$"MENU"8|yQC0:ZD0:33000:CL$:CO,0,89:"One moment please...":RNH,AP$ZE(2z #   ̮ʠ!Үà РӠ: ؠŠ!ĮخҠ"ҠĠ.ͮ  ԮʠԠР ̮ʠ Р٠2ԠԠҠԠäˠŠԠ,ҠӮΠ̠͠ϠϠ ՠ!à̠5ҠԠŠؠŠ*E%(A):SS$(A):GI$:YF$:YS$:YT$:Y1$:Y2$:Y3$:YD$:QG$:QF$u1QS$:QT$:EA$(A):EC$(A):ES$(A):EZ$(A):CS$:1@Q90001T4230r2(#CL$:8:"No Employee files exist for "CO$". Please choose 'FILE MAINTENANCE' from the Main Menu and enter EmpCI$:ST$:ZI$:SI$:FI$:PP$:YR:BI:DY$:WE:D:I1D:D1$(I):M1$(I):PE(I):0jQU:TQ:BK$:BA$:BC$:BS$:BZ$:DA:CS$:0T$CO$".EMP":L$",L255"D2$:D$"OPEN"T$,L$:D$"WRITE"T$",R"A@1WE:A%(A):N%(A):EM$(A):MA(A):TY$(A):WA$(A):CM$(A):E"T$",R"Q:Q:AC:CZ:SQ:EQ:CS$:0/XAJ5QUV/SD0:T$CO$".QFIL":L$",L80"D2${/D$"OPEN"T$,L$:D$"WRITE"T$",R"A/A%(J)8SD9/SD:GG:FD:SE:FC:Y1:Y2:Y3:OD/CS$:/LT$CO$".COMP":D$"OPEN"T$,D2$:D$"WRITE"T$P0`SW$:SA$:QS$:QT$:EA$(I):EC$(I):ES$(I):EZ$(I)6.CS$::C.,AJ5QUg.YT$CO$".F"(YR):L$",L80"D2$.^D$"OPEN"T$,L$:D$"READ"T$",R"A.hSD:GG:FD:SE:FC:Y1:Y2:Y3:OD:A104ĄK$:DA$:WE(K$):DA(DA$).mSD9A%(J)9.rCS$:#/D$"WRIT"READ"T$",R"Q:Q:AC:CZ:SQ:EQ:TQ99WECZ?-CS$:Q9000-I1Q:D$"OPEN"T$",L255":D$"READ"T$",R";I:X:A%(I):A%(I)96650-N%(I):EM$(I):MA(I):TY$(I):WA$(I):CM$(I):E%(I):SS$(I):GI$:YF$:YS$:YT$:Y1$:Y2$:Y3$:YD$:QG$:QF$:).,xSW$:SA$:CI$:ST$:ZI$:SI$:FI$:PP$:YR:BI:DY$:WE:QU:TQ:D:I13:D1$(I):M1$(I):PE(I):,BK$:BA$:BC$:BS$:BZ$:DA:CS$,E$"WEEKLY":BI2E$"BIWEEKLY,YEYR:,T$CO$".EMP":L$",L255"D2$:Q0:D$"OPEN"T$,L$:QQ6800--D$ being deleted:"::A1Q:A%(A)7ĺEM$(A);:25:N%(A);:30:"DELETED":A%(A)9:7600::BB1v+A%(A)6A%(A)0QQ0+B8B16įSPACE:BOX,0,25,M,191:4+:QQİ6600+WIND:HSP::SPACE:900+d45:T$CO$".COMP":D$"OPEN"T$,D2$:D$"READ"T$fees to delete.":SPACE:900%*6047a*16:"Do you want to delete this":"employee? ";:30100p*A$""900*A$"Y"A%(B)7*BB1:BQ6010*FM1:A1Q:A%(A)7FM0*A%(A)1QQ0*:FM900\+45:B0:CL$"All Employees below areSPACEH)BOX,0,30,M,191::BOX,0,30,M,191:6:"* TOTAL FOR YEAR *"CC$h)(SW3:5120:SPACE:FL0:900u)pFO0:B1)zIBQ:CL$:A%(I)6ĺEM$(I);:25:N%(I);:30:"INACTIVE":BI:IQ:FO1:QQ1::6030*:FOĺCL$:11:"There are no inactive employT$(5050:SPACE=(R5:1205:SW0:CL$:J1Q:FL4:5010{(14:" "D2$(1);:13:D2$(2);:22:D2$(3);:31:"OTHER DED( 1638::T$T1$:50:" "T$;:T$T2$:Y9:50:12:T$;:T$T3$:50:21:T$;:T$T4$:50:31:T$::Y10(FL2:5080(SW3ı),170,3:BOX,0,168,M,170,3X'BOX,0,73,279,74,3:BOX,0,94,279,95,3:BOX,0,127,279,128,3j'1246:FL2ı'SPACE:BOX,0,30,M,191::FL2:BOX,0,30,M,191:6:"* TOTAL FOR YEAR *"CC$(T$(((T1(W)FP).5)100):50:10:" EMPLOYER FICA CONTRIBUTION $" TOTAL&1238?&" GROSS INC TAX INC TAX FICAl&" WAGES WITHHELD WITHHELD PAID&:T$T1$:50:" "T$;:T$T2$:50:12:T$;:T$T3$:Y9:50:22:T$;:T$T4$:50:31:T$::Y10'BOX,0,30,2,170,3:BOX,0,30,M,32,3:BOX,277,30,M 975,255:RNH,"MENU": (#:11:"THIS PRODUCT REQUIRES AT LEAST 48K OF RAM TO OPERATE."::"THIS APPLE HAS ONLY "(941)"K OF RAM.":16368,0:16384,128:16368,0 }:SL I:SL CBRUNLOGO":16304,0:16297,0:16299,0:16302,0:(4)"BRUNBUTIL.OBJ":RFL,"HPRINT.OBJ":RFL,"PRINTER COMMANDS.BIN"P(948) LL704:RFL,"MECC$$DISK"LL:DC(LL36):953,SL:954,DR:955,VO:956,SL:957,(DRDC)1:958,0:DC3āZ02:956Z,(LL37Z): PAYROLL SIMULATION-PROGRAM: HELLOKCOPYRIGHT (C) MECC, YEARj(LAST UPDATE: 85/08/01 RMCv32000:(4)"MAXFILES1":::P(X)(X)(X1)256:LP(P(999)):SL(L1)16:DR(L2):VO(L14)(978)1579000| 230,64:(4)"   u(1);:GCP,ZX,ZY'4uCA$;:GCP,ZX,ZY4uCO,ZX,ZY:CEL:INP,(3,"YESNOyesno"),A$:Z(A$):A$(Z32(Z96)):Z(A$"Y"):A$""301994uZA$"N"301204u4yFZ310104y9004"yCL$:11:"Getting the menu...":ZD0:QC0:33000:RNH,"MENU"U1:V:H:" ":9796:HH1:V:H:C$:L(A$):A$(A$,1,L1)3>&X175X186K8ĢV:H:(X128);:HH1:H:C$:A$A$(X128):KK13C&9796:97603D&K2K5ı3E&X136İ9799:HH1:KK1:H:V:C$:3F&HH1:KK13G&V:H:"/ ":30uSPACE:4loyees. Also you must process payroll for at least one pay period before you can process the End of Year reports.22#SPACE:310002%C$(127):K0:A$"":Y16368:Y,0:V:H:C$2 &X(16384):X12897602*&Y,0:X141ĢV:H:" "::34&X136K0KK^BgBlgC k { J*^BC AC|~}~JUsBgB0gC.5B;J*NGKGsBsB63Cwx{JUNGKGsBs600p00CBnJ*NGKGsBcB6cCtwutJUNGKGsBsB63CCnJ*N[sBc600`CFJUOZs``wBfgC{9{{ J*^ MBlLC8W0W8JUAOABOEp`pc`pEp`Bg`pVGs00{C3ACFJUNGS>BB|VGQ|0TAA ~~B@@oBLOCFJ*NGSBsOA|D|ApVGOE@`pG`@GBBYCFJUNGPA?|xBy8B@B`ABpAB8ABAABBGlo`OCFJ*NGS!B<!pGO~x`FBAQB oBlOCFJUNGSCf~nGP?D@B`ABpAB8ABAABBLBlOCFJ*NGSC3 023pxO3yyByB yyyVGOaHBAQBBOB`OCFJUNGSBC~D~F|B~|??C*B*B***B*AB*C*BBB3CFJ*NGKGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGKGN~C*B*B* FBC BBB CFJ*NGPAAOACOpGOCUBWBB@B`@CFJUNGPp`gg`ptGOCC     ^B0xXCFJ*^037B6ACFJU^BC3ACFJ*XA_BBC3ACFJUN[]??B/++*C*BB3?>CFJ*NGKGO?_WUUUBUABUCUBB>0CFJUNGTvGJ((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                   t3 BC#< |t=>0)?><@=0)?><@=@ |t>0BDHt&cu'Ch&BDBBC`((((((((((((((((     ".COMP":D$"OPEN"T$,D2$:D$"READ"T$SW$:SA$:CI$:ST$:ZI$:SI$:FI$:PP$:YR:BI:DY$:K:D:I13:D1$(I):M1$(I):PE(I):QU:TQ:BK$:BA$:BC$:BS$:BZ$:DY:CS$D$"OPEN"T$,D2$:D$"WRITE"T$8SW$:SA$:CI$:ST$:ZI$:SI$:FI$:PP$:YEC$:ES$:EZ$:CS$+wAC1:AC$"IN"AC6n|N%(E$):M%MA:T%(TY$):E%EE:D$"OPEN"K$T$:D$"WRITE"K$",R"JWE:AC:N%:M$:M%:T%:W$:CM$:E%:SS$:GI$:YF$:YS$:YT$Y1$:Y2$:Y3$:QG$:QF$:QS$:QT$:EA$:EC$:ES$:EZ$:CS$:#T$C$(L)":704,1:D$"BSAVEMECC$$DISK,A704,L40"4TCZ8199@YL1CZ~^J0:K$C$(L)".EMP":T$",L255"D2$:8200:Q:CS$:Q8100cJ1Q:8200hWE:AC$:E$:M$:MA:TY$:W$:CM$:EE:SS$:GI$:YF$:YS$:YT$rY1$:Y2$:Y3$:QG$:QF$:QS$:QT$:EA$:PW$""PW$DT$7D$"OPEN"K$L$:D$"WRITE"K$",R"0UDT$:PW$:K:DA:NY:CS$eAAA:QD0:@CL$:9:"Please wait a few moments..."::"Your data diskette must be updated to work with this version of "QN$". &J:D$"DELETEDISK.CHECKıR31(A4A6A9A11)>AA1:PRP:P7P:A13A1DyxFYR4:F$(F):F1:C1(F$):(F$,C,1)"."F0}:R28(F0)~FP29ıKIıAA1:PRP:P7P:A13A1P7PP7:7815NY0:DC(PX$DT$)PW$PX$1:PDA:P2PP7bI1524lKIBA:UP:I52TvPP7:A2P28İ7800:7050dP23İ7600rKI7020:DT$(B)"/"(U)"/"((YR),2):P24A1P24A3P24A5P24A7P24A8P24A10P24A12ıII1:A27800KIC$CO$".COMP"CBD$"OPEN"C$D2$:D$"READ"C$:I18:X$::YR:CS$Y,K$CO$".F"(YR)|^D$"OPEN"K$L$:D$"READ"K$",R"0hDT$:PW$:K:DA:NY:CS$rPX$DT$NYYRYR1:P29:7800:FDADA1:DA2DADA7NYYRYR17000:7900XAl you be "FU$"? ";:INP,(2,"-09",1),B$:B(B$)AB1BCZ6100XPKBPKĹ900,99:mCO$C$(B):901,B~AA5Ĺ900,0A2ıK$CO$".EMP":T$",L255"D2$:QD0:D$"OPEN"K$T$:D$"READ"K$",R"0:Q:CS$:QCZ0:900,B:60408L$",L80"D2$:0CZA5:ZZ$CN$(A):0FU$"processingDCZ1B1:6120AA5CZCZ1:C$(CZ)"Create new company":PKCZ:FU$"updating":CZ15CZCZ1.CL$"List of Current Company Files:"::I1CZ:I3:I10)I". "C$(I):::"Which company payroll wilR,54,6:BOX,276,52,R,132,6:BOX,0,130,R,132,6:BOX,0,52,2,132,6:WIND,40,70,259,120:CO,40,HS:"Getting "Z1$"... ZC0:ZD0:WIND:33000:RNH,ZZ$ pA1A5ı zZD1:QC2:QD2:ZW1::33000 AAA:FCN,".COMP",C$,CZ DCİ8000(900)99CZ000 A((A$))< PRAN2ZZ$X1$(0):Z1$X1$(1):4000i DRAN2PRZZ$X2$(0):Z1$X2$(1):4000 AN2PDİ14000:3090  AN1İ15000:3090 A0ANZZ$CN$(A):Z1$MN$(A):4000  3000  6000p HS90:R279:CL$:BOX,0,52,Printer Support":X1$(0)"PRINTER SUPPORT":N2". "X1$(1) >MHOF:X2$(1)"Diskette Support":X2$(0)"DISKETTE SUPPORT":N2PR". "X2$(1) ROFMH1:N2PD". End \:GCP,IX,IY: CO,IX,IY:MH1:"Which number? ";:CEL:16000:A$Z$:A(A$):A103MH1:"Programs:[ :GCP,ZX,ZY:L1(N(TC1).5):4MH(L9):L". "MN$(L)::GCP,Z1,Z2 TCįCO,ZX,ZY:LLN:20MH(L9):L". "MN$(L)::CO,Z1,Z2 :MH1:"Options: :OF4((N1)9) OFMH:N1". General Information8 4MHOF:X1$(1)":CC$(3):D$(4)$ CS$D$"CLOSE"7 LDN$,DM$,DV$,N] `C$(16),MN$(N1),CN$(N),DS$(N,DL) jL1N:MN$(L),CN$(L):J1DL:DS$(L,J):: t13000 ~(900)99A5:3085 900,0:WIND:2000:3000:1200 CL$DN$CC$:DM$CC$ DV$CC$ 5:  MENU PROG:S.MCCARRON6COPYRT:MECC,1983K(UPDATE:85/12/13W232000l<(4)"MAXFILES1"d(975)255Č24768:975,0P(S)(S)(S1)256R279:DL5:DR1:PR1:DI0:MH4:TC0 33100:QN$"Payroll System":CA$(1):CL$(12)          100):635'2900:PB$(S$,28):673SC$"0":I$" ":TY3I$"%":C$((T1$))wT%(J)4C$((T1$)(WA$(J)))T$C$(J)I$:Y8:60:Y10:B$"COMMISSION"T$:T$C$:50:B$B$T$C$"OTHER DED ":I$T8$:A$C$" ":R$(((S8)100.5)100):642 T3$:A$C$" ":R$(((S3)100.5)100):642JEN$(N%(J)):R5EN$""PB$EN$" "EM$(J):L(B$):B$B$(S$,28L):667B$"SALARY"V$:B3$"0":TY1B3$T1$T%(J)4B3$WA$(J) C$"FICA TAX ":I$T4$:A$C$" ":R$(((S4)100.5)":lB$"-":615:"* TYPE OF PAY HOURS GROSS | TYPE OF DED AMOUNT | ---YEAR TO DATE--- *":615B$"REGULAR ":730C$"FED TAX ":I$T2$:A$C$" ":R$(S2):642P662B$"OVERTIME ":WAOW:HRHW:745-C$"STATE TAX ":I$A$;:I167U:U$;::"DOLLARS *":Dg"*";:I178:B$;::"*":_lI147:"-";::"*":q"* ";:L(B$):A74L:L(C$):AAL:A$(S$,A):B$A$C$" *":{P642|T$B3$:50:B$B$V$V$T$"* "B$X$;:T$I$:50:A$T$X$;:T$R$:50:C$T$" *A$M$(B)" AND ":BB(B):590,!X(B10)8&X570M+(BX10)0565f0A$A$T$(X)"-":570v5A$A$T$(X):BB(X10)?X(B)DA$A$M$(X)" AND "IBBXNBB.001:B(B100)SC$(B)XA$A$C$"/100]U(A$)$b"* "X10000)MFZ0:X(B1000):X19FZX:X(X10):A$T$(X)F$:X((T$,4,1))]B1000510zA$A$M$(X)" THOUSAND "FZXFZBB(X1000)X(B100)X530 A$A$M$(X)" HUNDRED "BB(X100)(B)19(B)11545A$$B$:B$" KEEP STUB FOR TAX PURPOSES "B$B$F$:615:B$EM$(J):C$"PAY PERIOD ENDED: "DT$" ""CHECK NUMBER "(CK):625:B$F$:615645T$B5$:50:B5$T$A$"":B(B5$)(B5$)2590,575,545,515,495X(B10000)X0BB(615:615U$"-":B$"PAY TO THE":C$"":625:T$B5$:50:B$"ORDER OF: "EM$(J):C$"$"T$:625:B$F$:615:615:460:615:615:B$BK$:C$"":625(B$BA$:I1(CO$):C$C$U$::625:B$BC$", "BS$" "BZ$:C$CO$:625:B$F$:615:B$"=============":B$B;:INP,(6,"-09",1),A$:CK(A$):PINIT9J1Q:TYT%(J)\80:90:3700:A(J)5G.1695::3500:B$"*":615:B$F$:615:A$"":B$CO$:C$"CHECK NUMBER "(CK):625B$SA$:C$"":B5$NT$:625:B$CI$", "ST$" "ZI$:C$"DATE: "DT$:625:B$F$:or "CO$".":6500:6600:A0:67107 J1Q:A(J)9230J E0:6700:250[ :2000:900 S1(J)GG:S2(J)FD:S3(J)SE:S4(J)FC:S5(J)Y1:S6(J)Y2:S7(J)Y3:S8(J)OD: ,CL$:CO,0,89:MS$:SPACE:%P0:970:Y10:14:"Enter starting check number: "2SUSU1001.0T }SU(SU0):R1MS:C15:S(R,C):::X:I14:S$(I):TY$(I): I119:M$(I)::I19:T$(I)::CS$:SP1SPSP100 Y$"employee ":45:FCN,".COMP",C$,A:A(901):O9:FF1 CO$C$(A):L$",L80"D2$:CL$:11:"Loading files f8(J):4 _GG0:FD0:SE0:FC0:Y10:Y20:Y30:OD0:A `T$T5$:N aT$T6$:[ bT$T7$: dSET,1:D$"OPENTAX FILE"D1$:D$"READTAX FILE" iFA:X:FI:FE:FB nR1FB:C14:FS(R,C):: sTS:R1FB:C14:FM(R,C):: xMA:SP:SU:MS:SU(P$,2,1)"."58 9T$T$".0* :T$T$"0> <T$(S$T$,Y):i FL(W$):W$W$":"(S$,9L):H:W$T$: PG((T(J)T2(J)T3(J)T4(J)T5(J)T6(J)T7(J)U(J))100.5)100:NT$(G): ZGGS1(J):FDS2(J):SES3(J):FCS4(J):Y1S5(J):Y2S6(J):Y3S7(J):ODS33100:CC$(3):D$(4):CL$(12):CS$D$"CLOSE"z ZS704:SET,0:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:N$"Process Payroll #F279:100 -ZD1:QC2:ZW1:33000: 2T$"#"T$(S$,Y): 4(T$)3(T$,1)"."58 5P$(T$,3):(P$,1)"."60 7/3APP,"COM.LIB":32734'32000T$(9),T(21),T2(21),T3(21),T4(21),T5(21),T6(21),T7(21),U(21),S1(21),S2(21),S3(21),S4(21),S5(21),S6(21),S7(21),S8(21),T%(21),S(12,5) W$(21),R$(21),A(21),N%(21),EM$(21),M%(21),WA$(21),C$(21),E%(21),M$(21)0                    W0:HR(HR$(J)):T%(J)1T1(WA$(J))h T%(J)2WA(WA$(J)):HW(HW$(J)):OTWA1.5:OW((OTHW)100.5)100:T1(((WAHR)100.5)100)OW| T%(J)3T%(J)4G(GS$(J)):T(CM$(J)):T1((GT100)100.5)100:HR0! I13:TE(I)PE(I):M1$(I)"1"T30#2 AA1:PRP:P7P:A13A1)< N AA1:SD30SD:SD7SD:A13A1T  FYR4:F$(F):F1:C1(F$):(F$,C,1)"."F0 :R28:FR29 FP29ı KIı AA1:PRP:P7P:A13A1 P7PP7:2815 &T WA0:OT0:HB):B$(M)! (A$)1A$"0"A$8 (B$)1B$"0"B$[ DT$A$"/"B$"/"((YR),2):( P24A1P24A3P24A5P24A7P24A8P24A10P24A12ı) G(A10)SD:GTETEG:DASD. II1:A22800/ KIı0 R31:A4A6A9A11R80:B$;:::0WE0WE51:YYYRYR1:CY1RWE1WE52:YYYRYR1:CY1[4KWEsA1:PDA:P2PP7 I152 KIBA:MP:I52 G(A10)SD:GTETEG:DASD PP7:A2P28İ2800:2510 P23İ2600 KI2501  :A$((W)T4(W)T4(J):T5(W)T5(W)T5(J):T6(W)T6(W)T6(J):T7(W)T7(W)T7(J):T8(W)T8(W)T8(J)bR3ı:M$""::"TOTALS :";:R5:1238T$(((T1(W)FP).5)100):50B$"=":1300::"EMPLOYER FICA CONTRIBUTION"69)"$"T$::FEED:POFF:900I1J))100.5)100NT1$(T1(J)):T2$(T2(J)):T3$(T3(J)):T4$(T4(J)):R3ıEM$(J);22)SS$(J);37)M$;:T$T1$:50:40)T$;:T$T2$:50:50)T$;:T$T3$:50:60)T$;:T$T4$:50:70)T$:R5ıWT1(W)T1(W)T1(J):T2(W)T2(W)T2(J):T3(W)T3(W)T3(J):T4INC TAX INC TAX FICA "s" NO. STATUS WAGES WITHHELD WITHHELD PAID "1300:J1Q:A%(J)91250400T1(J)((T1(J))100.5)100:T2(J)((T2(J))100.5)100:T3(J)((T3(J))100.5)100:T4(J)((T4(YR:28)"Quarter ends on "DT$:28)"========================"iCO$70)TD$:SA$:CI$", "ST$" "ZI$::1300:"EMPLOYEE SOCIAL (M-S) FEDERAL STATE TOTAL"NAME SECURITY MARITAL GROSS NA104:RE1:6740:RE0^R0:CL$:11:"Please prepare your printer...":SPACE:PINITgT10qWQ1T1(W)0:T2(W)0:T3(W)0:T4(W)0:T5(W)0:T6(W)0:T7(W)0:T8(W)0:R5ıY10:B$"*":::32)"QUARTERLY REPORT=30)QU$" Quarter, "Q(A1A2)900* A5000,1200,31010Q CL$:4:"YEARLY FILES FOR "CO$CC$ :YRYE:NTQ100:YRYRN1:I1N:I". "YR:YRYR1::NN$(N) NN$"-1"(N):16:"Which year do you want to process? ";:INP,(1,NN$,1),A$:A(A$):YRYRNA1A,30,6g BOX,239,22,U,23,6:BOX,276,22,U,191,6:BOX,0,190,U,191,6:BOX,0,23,2,191,6:BOX,0,22,40,23,6 WIND,40,70,U:CO:"1. Display "N$:"2. Print "N$:"3. Return to Main Menu :WIND:"Which option do you want? ";:INP,(1,"-13",1),A$:A(A$) $CO$((901)):CL$:11:"Loading files for "CO$".":6500:6600b ,Z$" ":I170:S$S$Z$::4000| M$"M":M%(J)1M$"S  FF0:VSP,1:24576 3:"Process "N$CC$ BOX,40,13,236,15,6:BOX,40,28,236,30,6:BOX,236,13,239,30,6:BOX,40,13,421:ZW1:33000:, 2(T$)3(T$,1)"."58K 5Z$(T$,3):(Z$,1)"."60a 7(Z$,2,1)"."58o 9T$T$".0| :T$T$"0 <T$(S$T$,Y): PNTT1(J)T2(J)T3(J)T4(J)T5(J)T6(J)T7(J)T8(J):NT(NT100.5)100: d40:FCN,".COMP",CO$,ZZ> COT%(21),GS$(20),WA$(20),CM$(20),E%(20),CO$(20)w N$"Quarterly Report":U279:CC$(3):D$(4):CL$(12):CS$D$"CLOSE" 33100:ZS704:SET,0:RFL,"MECC$$DISK"ZS:33200:QN$ZN$ D$"OPENFED.TAX.PER",D1$:D$"READFED.TAX.PER":FP:CS$:100 (QC2:ZDwPROG:UPDATE QUAR FILES5PROG: R.M.CHILDERSNCOPYRT (C)1985-MECCgUPDATE: 85/8/17 RMCAPP,"COM.LIB":32734 32000- T1(21),T2(21),T3(21),T4(21),T5(21),T6(21),T7(21),T8(21),SS$(21),HW$(20),HR$(20),A%(21),N%(21),EM$(21),M%(21),         d.S. 50:5:"Figures are entered from annual tax tables in the following manner:l3 BOX,174,43,215,44,38 CO,8,60:"Over - But not over - of excess over":BOX,0,69,279,69,3:9:2:"$4,100 - $9500...$324 plus 15% -$4,100"[; BOX,30,83,31,99,3: :"Change only the information in the"I$" columns that deviates from the previous year. If a column figure has not changed, simply press 'RETURN' and the cursor will skip to the next column."; " The data from the previous column will be retaine" character when the program is waiting for input on the ALTERNATE TAX TABLE screen.]\506:"Editing federal and state tax tables is accomplished by choosing 'Update"I$"' from the menu. This will display the current tax tables on the diskette.calculated as $42.50.":50H6:"To use the alternate tax table press the slash (/) character when the program is waiting for input on the STATE TAX TABLE INFORMATION screen. If you wish to return to the Minnesota tax tables, press the slash (/)";URs provided in this program. This method uses a percentage of the federal"W$"tax to compute the state tax.>:"For example, an employee has a taxable wage of $700.00 and the federal"W$"is $85.00. If the state"W$"is 50% of the $85.00, the state tax is tax tables were entered or updated.:"The information in the state tax table is set up for current Minnesota State Withholding Tax Schedules."::"All tables are based on ANNUAL wages.jT30:50:6:"An alternate method of calculating state tax i"CC$TBOX,20,4,250,5,3:BOX,250,4,251,20,3:BOX,20,19,250,20,3:BOX,20,4,21,20,3$6:"The federal and state tax"W$"information included in this program is the most current available. The beginning entry for the Federal Tax Table shows the year the,20,3I8:"1. Percentage of Federal Tax: ";:PĺSP"%":ABįSPACE:900_PP0:RR9:3580LI8:V8:H31:SP0:80:WW6SA0:P0:3500K0SP(A$)BOX,203,60,255,70:8:31:SP"%$3580LP0:65:1010CL$:"HELP WITH TAX TABLE$)"A2000,960,5000,3000,31010;AB1:5000:AB0:900mSL0:CC0:SS$" ":T25:60WW5:SA99:BOX,34,8,238,16:S$:2:"ALTERNATE TAX DATA - STATE"CC$BOX,20,4,250,5,3:BOX,250,4,251,20,3:BOX,20,19,250,20,3:BOX,20,4,2179,23,6:BOX,276,22,279,191,6:BOX,0,190,279,191,6:BOX,0,23,2,191,6:BOX,0,22,40,23,6 9:9:"1. Help with"I$:9:"2. Display"I$:9:"3. Update"I$:9:"4. Enter New"I$9:"5. Return to Main Menu"::12:"Which Option? ";:INP,(1,"-15",1),A$:A(AGCP,I,Jc CO,I,J:CEL:INP,(3,"YESNOyesno",1),A$:A(A$):A$(A32(A96)):A$"Y"A$"N"210i AL0:AB0:P0:CC0:VSP,1:CL$ 3:N$CC$ BOX,40,13,236,15,6:BOX,40,28,236,30,6:BOX,236,13,239,30,6:BOX,40,13,42,30,6V BOX,239,22,2X136K0KK1:V:H:" ":HH1:H:V:(127):H:L(A$):A$(A$,1,L1):KA$"" \X173X186KLIX175ĢV:H:(X128):V:H1:(127):HH1:H:A$A$(X128):KK1 _85 d17:"Do you want to make any changes? "; nAL2Pı (1);:to change? ";:1 PK0:A$"":V:H:(127):KS,0F UX(5):X12885W VX255X136o WX141ĢV:H:SS$: XALX196X250KLIĢV:H:(X128):V:H1:(127):HH1:A$A$(X128):KK1:85 YX175WWSL1:AL0:CC0:WWWW1: ZX16285T [$" Tax Table":CC$(3):D$(4):CL$(12):CS$D$"CLOSE"s ZS704:ZW1:SET,0:RFL,"MECC$$DISK"ZS:33200:QN$ZN$ RNH,"USR.FUNC" (6000:900 -ZW1:QC0:ZD0:33000: 2SPACE <BOX,0,T,279,191: AT140:60 F"Which line do you want (UNPDATE TAX TABLES1PROG: R.M.CHILDERSNCOPYRIGHT (C) 1985-MECCcUPDATE: 8/16/85vAPP,"COM.LIB"35127:33100 32000N$"Update Tax Tables":KS16368:S$(4),TY$(4),M$(19),T$(9),S(12,5):TM8:ST128 W$" withholding ":I            DISK,A"ZS",L$28" 8ZE4įWIND:CL$:CO,0,89:"Please remove the write-protect tab from your "Z$" diskette.":ZP1:SPACE::33040 BZE0:ZFZEĺD$"DELETEMECC$$DISK KZW0:ZUZZ: LD1$",S"((953))",D"((954))",V"((955))& `D2$",S"( "(ZC):" Drive: "(ZC1):SPACEF (975)2ZDįSPRO,2:33040\ SPRO:ZDįSNOPRO ZE0:ZEĺD$"BLOAD MECC$$DISK,A"ZS;ZT$:33200 ZF(ZD1ZE6):(ZFZE0)(ZDZT)(ZDZN$QN$)33020 $QDZD:ZW33099 .ZE0:ZEĺD$"BSAVE MECC$$533ZD:ZP0:Z0:ZT$D1$:Z$"program":ZDZT$D2$:Z$"data ZZ1:ZF(Z1(QC1ZDQD)):ZFįWIND:CL$:CO,0,89:"Please insert your "Z$" diskette for "QN$" in ";:QC3ĺ"drive "1(ZD(QC2))".":SPACE:& ZFQC3ĺ"the drive located at:":" Slot:3}ZE(222):ZN(218)(219)256:216,0:32000H}ZUZE0ZE16Ħgd}ZE255Ĵ(919)031000:x}WIND:CL$:CO,0,80:"Error "ZE" at line #"ZN" in "N$"."::"Please report this error to MECC."::SPACE:31000: ZZZU:ZU1:SET,ZD1:ZS704:ZC9 掲`ժՖՖխժժժժխՖխժCBCPRDDFILNOFILRFRNSNOPRSPRSEҕ 2k~U_jSX]P7 ` J `@ i @ ȱ z`,&` {ݩD ^ D`bDcED`7P `7P( ` ʊ F` &L`L 䎱 ޠȱL ȱ8쭣8ȱ>? :p"j>k? %p ͘g^h_^`ȱ^Șe^^_iȑ^^_`_^@A Z # { RPQ . ,L ͘Ll`Q ːeDbEcBfCg@hAi>j?k ' )͘ e,L׭XLXLX Θ$)͘j>k? p͘ G 8`Lg8hegiȱehj8L % J, ` % P, L p?> p=<8?. e<&8>!>> g R>P>Q .?=<`L #H h`STɹST` ST` L ː\DbEcBfCg@hAi>j?k ' `բ | L< | `z mzz{{ |z{{ `Uz_j`S縎X]`ѕҕ ߅$0ѕҕ  c`Lv { (^_ <= ޤ<=LL ]JJJJȱ<`Hha {8 $h`а ,,i,,`@@H?e@??h v@ ?88` , <= <ȭ<ȭ<ȭ<ȭ<><ȥ?< <H<= H <= I<<*>%>>*@%@@ 7E@L`ɪɭ`8` F` < mʒӒDMV %ɩ` Z ZLy< ϬȽ` <=<, X,lӠӠŠҍԠŠŠԠŠ͠ˍĠӠή`Ϋ  9$8` 8L6ɪɖ8*7-77*<%<<D>ʱD>` L&`EE݌$8`ab _݃`pab,~p8`dd<=/0<a {8 /᩶` ,Q,R,T X+JJJJ % "\  L+ɐvw+LfɯL' 8ɀ   Lޤȱ 0:,јe湥 PiQi , ,`vwL<='K3690'LCO,X,Y:3699:CO,X,Y:"Enter a percentage for":CO,X,Y8:D1$(I)": ";:PPE(I).001İ3663:'MPĺPE$(I):'OM1įINP,(6,"-09.",1),PE$(I):PE(I)(PE$(I)):CCı'QBI:M(VCO,X,Y:30,3:X27:Y111:M3660,3670,3680+&@CCıe&BD3įCO,0,136:"3."V$D1$(3)" (1-3) ";:PM1İ3652:v&CPĺM1$(3):&DD3įINP,(1,"123",1),M1$(3):M(M1$(3)):Pı*'GD3I3:BOX,20,146,279,146,3:BOX,279,146,279,168,3:BOX,20,168,279,168,3:BOX,20%6X27:Y74:M3660,3670,3680:CCı\%8D1įCO,0,98:"2"V$D1$(2)" (1-3) ";:PM1İ3645:m%;PĺM1$(2):%=D1įINP,(1,"-13",1),M1$(2):M(M1$(2)):Pı!&?D1I2:BOX,20,108,279,108,3:BOX,279,108,279,130,3:BOX,20,130,279,130,3:BOX,20,108,20,1oll period":7:"as a variable dollar amount.z$.V$". Select a method for ":CO,0,60:"1"V$D1$(1)" (1-3) ";:PĺM1$(1):$3PįINP,(1,"-13",1),M1$(1):M(M1$(1))$5I1:BOX,20,70,279,70,3:BOX,279,70,279,92,3:BOX,20,92,279,92,3:BOX,20,70,20,92,3$600:CC1:A3540,3550,3560:600:CC0:3570#VSP,0:CL$"The "D" additional deduction"S$(D1)" may be calculated in one of three ways:-$$4:4:"1. As a percentage of the gross pay,":4:"2. As a fixed dollar amount, or":4:"3. To be input each payrNP,(8,O$,1),D1$(3):CCı%" 21:4006" A$"Y"3585A" R1ıP" CC0:3600"23:"Change the number of deductions? ";:200"A$"Y"įBOX,0,85,279,191:CH1:3520"600:23:"Which line do you want to change? ";:INP,(1,"-13",1),A$:A(A$),# N! 15:"Enter name"S$(D1)" of deduction"S$(D1)" (max. 8 ":"characters):f! :DĢ17:6:"1. ";o! Pı! INP,(8,O$,1),D1$(1):CCı! D1Ģ18:6:"2. ";! Pı! D1įINP,(8,O$,1),D1$(2):CCı! D3Ģ19:6:"3. ";! Pı" D3įIo use? (0, 1, 2 or 3) ";:Pı= INP,(1,"-03",1),A$:D(A$)s :ID13:D1$(I)"":M1$(I)"":PE(I)0::D3700 D1įBOX,0,135,279,189:D1$(2)"":D1$(3)"":M1$(2)"":M1$(2)"":PE(2)0:PE(3)0 D2įBOX,0,143,279,189:D1$(3)"":M1$(3)"":PE(3)06:"1. Federal Income Tax":6:"2. State Income Tax":6:"3. Social Security - FICA 8:"Up to three additional deductions may be used for such things as union dues, savings bonds, insurance, etc. 12:"How many additional deductions do you want t,3:PQįSPACE:%\ QU4:WE40QU35a WE27QU2Ec WE14QU1f TQQU:23:"Do you want to change current week? ";:CEL:200i QCTQQUk A$"N"R1ıp A$"Y"3415T VSP,0:HH155:CL$"There are three standard payroll deductions:"::000:SW0:PıCW 23:"Enter no. of current calendar week: ";:CELwX INP,(2,"-09",1),WE$:WE(WE$):WE1WE523415Z 20:26:"CURRENT WEEK":21:31:WE" "[ BOX,160,147,270,148,3:BOX,270,147,271,170,3:BOX,160,170,271,171,3:BOX,159,147,160,1713340 CCı 16:400-# A$"Y"33808% R1ıG* CC0:34004 :"What line do you want to change? ";:INP,(1,"-14",1),A$:A(A$)> 600:CC1:A3305,3320,3330,3340:600:3360H VSP,0:CL$ R 1:5:"(Payroll period ends on "DY$")"::2BI(B$) CCıg 13:"4. Enter day pay period ends.":" (MON, TUE, WED, THU, FRI, SAT) ";:Pı DY0:INP,(3,3),DY$ DY$"SAT"DY6 DY$"MON"DY1 DY$"TUE"DY2 DY$"WED"DY3 DY$"THU"DY4 DY$"FRI"DY5 DY* INP,(4,"-09",4),YR$:YR(YR$):CCı BOX,145,56,245,57,3:BOX,245,56,246,95,3:BOX,145,95,246,96,3:BOX,144,56,145,96,3:Pı 8:"3. Pay Period -";:23:"1. Weekly"::23:"2. Biweekly":10:" Select 1 or 2: ";:Pı INP,(1,"12",1),B$:3080:600:3100  2900:HH135S 4:"1. Employer pension plan allowed? ";:Pı\ 200w PP$"0":A$"Y"PP$"1 CCı 6:"2. Payroll Year: ";:Pı CCQĺ:16:"Payroll Year cannot be changed after employees have been entered.":SPACE::CCı4 16:"7. Employer Federal I.D NO: ";:PıP INP,(9,O$,1),FI$:CCı] 18:400n A$"Y"3220y! R1ı& CC0:3300 :"What line do you want to change? ";:INP,(1,"-17",1),A$:A(A$) 600:CC1:A3020,3030,3040,3050,3060,3070, (ESC/ESC)."::"This feature is useful if you want to display only a portion of a set of records. Note, however, that data"you just entered will not be stored on the"W$".SPACE:900SPACEBOX,0,T,279,191:4: 900,99:AP$"DISKETT:"CAUTION: Do not use the print programs if your printer is not set up. This would cause"T$" to stop and your data may be destroyed.<1500:"Escape Option"CC$|x:"It is possible to leave any program before reaching the end by pressing ESC twicee lost if you leave"T$" before this occurs.M1500:"Using the Printer"CC$:"Payroll checks and all payroll forms are set up to use an 80-column printer. The printer slot and specifications may be changed by using the Printer Support Option.data that you enter into the computer is not saved to the"W$" until the end of"T$" section. Data is being transferred to the"W$" when you see a message ";+"such as UPDATING FILES on your screen and the red disk drive light is lit. NOTE: Data will bEmployee: "M$(1),17:"2. Street: "M$(2)F18:"3. City: "M$(3)20:"What line d"Y$"change? ";:INP,(1,"-13",1),A$:A(A$):T168:1510:40021:"D"Y$"practice again? ";:200:A$"Y"İ1510:1215T24:1510:"Saving Data"CC$:"The "."::"Simply enter the"U$" the line you want to change. The cursor returns to that line and waits for you to reenter the"I$".:"D"Y$"practice? ";:200:A$"N"1240M$(1)"JIM JOHNSON":M$(2)"2345 MOORPARK LANE":M$(3)"WORTHINGTON16:"1. maximum"U$E$"s per company is twenty. A"W$" can store"I$" for up to seven"C$"with twenty"E$"s each, or up to fifteen"C$"with fewer than."fifteen"E$"s.":1500"Edit Feature"CC$::"At the end of each entry screen, you may go back and edit the"I$re you go to the CREATE COMPANY and EMPLOYEE FILES option. DISKETTE SUPPORT, Option 9, on the main menu also provides a utility for creating the"W$".":1500:6$"The"U$" company files that may be stored on a"W$" will vary depending on the"U$E$"s. The6. Update Tax Tables7T24:1500:"Data Diskette"CC$6:"The"W$" must be created before you enter the company and"E$" file"I$". The"W$" may be created in two ways. Option 2 on the GETTING STARTED menu allows you to create the"W$;" just befoe company and"E$" files. These files contain"I$" necessary for processing payroll and the payroll reports. :9:"1. "N$:9:"2. Process Payroll":9:"3. Process Quarterly Report":9:"4. Process End of Year Reports9:"5. File Maintenance":9:"W$" data diskette":T2:B21:300 4:"The order in which you use"T$"s on this diskette is the same as on the main menu. The "N$" program will allow you to create the"W$" that is necessary to operatek "the program. It also allows you to create thns for Payroll Program":"2. Create Data Diskette":"3. Create Company & Employee Files "4. Return to Main Menu"::7:WIND:"Which option do you want? ";:INP,(1,"-14",1),A$:A(A$) A1000,3000,4000,31010 CL$:N$CC$! Y$"o you want to ":I,BILI,BILI,TI::@ 15A:16A2:INP,(20,1),M$(A):R CL$::N$CC$p L40:T13:R240:B30:300 BOX,239,22,279,23,6:BOX,276,22,279,191,6:BOX,0,190,279,191,6:BOX,0,23,2,191,6:BOX,0,22,40,23,6W WIND,21,70,279:CO:"1. Instructioram":U$" number of":CC$(3):D$(4):CL$(12)j ZS704:SET,0:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:900~ (1);:GCP,I,J CO,I,J:CEL:INP,(3,"YESNOyesno",1),A$:A(A$):A$(A32(A96)):A$"Y"A$"N"210  ,6:I02:LI,TIRI,TIR(4)"MAXFILES1"1PROG: GETTING STARTEDHPROG:R.M.CHILDERSbCOPRIGHT(C)MECC 1984z UPDATE 85/8/17 RMC APP,"COM.LIB":3273432000/ 33100:C$" companies ":E$" employee":I$" information":N$"Getting Started":T$" the prog      317:"Are the above commands correct? ";:36000GL1(Z$"Y"):L1Mk@S$"":16368,0:XQX:YQYTL(S$):CO,X,Y:C$:A(C$):A127A8YA13Ĺ16368,0:^(A8L0)įCO,35,QY:"PRINT "Q$CA$:8000hA88080rA34L198020P|xtra 'RETURN' when you have finished.=L111:CT1:HSP,2L215:42L2:6:CA$;:CEW:"PRINT "Q$CA$;:GCP,QX,QY:8000S$""Ģ42L2:1:CA$;:CEW::L25S$""İ9000:CTCT1:PPCT,13L2:CTCT1:PPCT,0:PPCT1,255:PPCT2,255 2.)Tl9:"Which slot is your"I$"in? ";:INP,(1,"-17",1),ZN$:ZN(ZN$):PP,128ZNv13:"Does"Y$" require any special commands? ";:36000Z$"N"ĹPP2,0:PP3,255:PP4,255:%BOX:CO:"Please type in the special commands for"Y$". Type an e:"Which number? ";:INP,(1,"-12",1),ZN$:ZN(ZN$)JPP2,128(ZN1)14:"Which slot is the communications"::"card in? ";:INP,(1,"-17",1),ZN$:ZN(ZN$)PP,ZN:XBOX::4:"The printer"I$"may be in any slot 1 - 7. (Most commonly 1 orL,0:md7:"What printer are you making these"::"settings for? ";:INP,(20,"- z",0),P$:LP(P$):LP0ınL1LP:PP106L,((P$,L,1))::pBOX:3:"You may use:"::" 1. High speed (usually 30 cps)"::" 2. Low speed (usually 10 cps)"5r type of printer"I$"(such as a serial or parallel card)WIND,Q1,Q2,Q3,Q4:::"Which number? ";:INP,(1,"-12",1),Z$:ZN(Z$)ZN6000,7000PP1,66:BOX5200:ZW1:33000:D$"BSAVEPRINTER COMMANDS.BIN,A"PP",L128"PL120:PP106;:::J96127:(J);:::::FEED\POFF:24576:11:" Printer test complete.":30000WIND:CO:N$CC$:WIND,Q1,Q2,Q3,Q4:3:"You may use:"::" 1. An Apple Communications Card":8" 2. "CA$;:GCP,ZX,ZY:WIND,ZX,ZY:"Any othe"O$"..." I0127:PPI,0:Z ZW1:33000:D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128"g 30000:BOX:9:"Please prepare"Y$"...":30000CL$:9:"Testing the printer...":D$"IN#0":D$"PR#0":PINIT:"Printer Test":$I13:J3295:(J)Z(P0P13P32):ZPP64::GCP,X,Y:BOX,X1,Y1,X6,Y7,3o L2(P13):PP21L2:(P)CA$;::ZįCO,X9,Yw : L1:HSP: :" Type of printer:":HSP,2::7:L120:((PP106L));:::HSP: 8:"Now returning the"P$"to"::"their 30000:) CO:"The current"P$"are:H  :" Slot: ";(PP)128:]  (PP2)0İ2400t $ (PP107)0İ2500 . 30000: ` " Commands:"::CT2:HSP,2 t L115:(PPCT)0L15:2470 ~ 7:"PRINT "(34)CA$;:L211:P(PPCT):CTCT1> H30000:a 3:T$"up to":"expect an Apple Communications Card":"in slot #"(PP)". :SD$"LOW":SD10:(PP2)127SD$"HIGH":SD30 7:"The speed is set to '"SD$"'":"(usually "SD" characters per second). ::(PP107)0İ2500 BOX:CO:ZN2000,5000,3000,4000,310404 BL00:L0S JP1((PP)0)((PP)127)l JP2100,2200,2300: 45:T$"to the"::"default setting, which is to search"::"slots 1 and 2 for a recognizable card"::"each time the diskette is started up. nter settings ":BOX:CO::"You may:":G " 1. Check current"P$:_ " 2. Change"P$: " 3. Return"P$"to their":CO,42:O$: " 4. Test"P$: " 5. Return to main menu $::"Which number? ";:INP,(1,"-15",1),ZN$:ZN(ZN$)' 8 PP(948)(949)256:CA$(1):CC$(3):Q$(34):VSP:HSP 24576:I$" interface card ":O$"original state (slot search)":T$"This diskette is currently set ":Y$" your printer L011:4050:Q10:Q220:Q3279:Q4191:WIND,Q1,Q2,Q3,Q4( P$" pri PROGRAM: PRINTER SUPPORT5PROG:P. BOUCHARDRCOPYRIGHT (C) MECC 1983l(UPDATE:85/08/01 RMC 2(4)"MAXFILES1"d32734n32000xN$"Printer Support":D$(4):CL$(12):ZS704:SET,0:RFL,"MECC$$DISK"ZS:33200:QN$ZN$::P(19)<         LPj,Hk  l  hl`L, HHHHHHHHH k ީl wjlNO,ɍɠ ɛ8nl,lPݩ lhhhhhhhmHihʍ i i i LiL 2k 3kM4k2k g<>=M4k?'<>2k2k3k` H g Rh PQ`L     խ)?` ` @)`,` Rj ެiii g&' i jQ&-iQ&&ii i`*U U*ժ Fj')JMFj)i Q&,iP 0=Kj`Gj`J&)` `L3f̙ujvj ߅$0Hujvj LbLvjj j` hiii h8)h` g R  QP (`L h`L)  @ iiiiiiiii g iii i i g iii i iBi g&' i jQ&-iQ&&ȭi i j& jQ&-iQ&&ii i`i-hhh hJ` &eeieh ghIiVhi 썛h gmh﬜hMhVhPjjjjjjj0jj) h0ȱjhjhhУ`8pPH)8 qȥq-`,f`imimʈ i iiʎ iLi Aggg` gg }ggg` g Ag }gggg`{g|g|g8pug.{g(ugg|gm{gg`8p g)gJJ gg gg .g .g ngg)ggmgg`hH80 " Jfm8h)` dem88eLf` deme` d8` f@ yf yf f`Lb dffL(f ``fʽ`) ` `fH`mS` dS`)We`Ve hWe gVe}`mf8ff`f` dLb,0*`%f 8fHfJhj`mfff` b d` b dI``L defff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff ``)    LX8e湥 pHpH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff f`em (f%%h $20 LPc $ aHaH`dWeceWeeeee'fIfbffffff(bb d cf hf gNOH c h f ghH ,aɈ( cb h) e f g c ebbh`xo 8ɀ`?```L`bbbbp$% `@ GaLa6 ,fLbLcfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH c$ d e$%0 d        (956))",D"((957))",V"((958)):5 ZN$"":Z1j ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220 ΁ZT((ZS)0):ZM(ZS35) 6(Payroll Systemvolume where your "T$(U1)I$" will be located. ";<*30000B**CL$"Special Disk Drive Setup"CC$:::"Your PROGRAM"I$" was started from:"::" Slot: "(953):" Drive: "(954):" Volume: "(955)+CO,0,180:"Press ? for help.0 +CO,0,f the screen.*:"Most users will have either one or two floppy disk drives. If you have a different setup (such as a hard disk or more than one control card), use "QU$"Select special"K$"."QU$1*:"This option will ask you for the slot, drive, and D1$bo'12000:35000:600:WPĺCL$:CO,0,89:"You may now replace your write-protect tab.":30000hs'*CL$"Change Disk Drive Setup Help"CC$:: *"This menu asks how many disk drives you are using. The current selection is displayed at the top oke no change\$':"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for help.":CO,ZX,ZYB'INP,(1,"-13?",1),Z$:Z$"?"İ10900:10000G'(Z$)310099L'SC(Z$):SC2İ11000Q'S36,SC1:T0:ZD1:WP1:34000V'D$"BSAVE MECC$$DISK,A"S",L$28"$", use "QU$"Copy a "T$(U1)I$"."QU$" You should make backup copies of a "T$(U1)I$" every time you make significant changes to it.30000:'CL$"Change"K$CC$:200::"You may:"::" 1. Select two disk drives":" 2. Select special"K$ '" 3. Maons as easy as possible for you.":30000CO,0,27:CEW:CRĺ"If you need a new "T$(U1)I$", select "QU$"Create a "T$(U1)I$"."QU$" This will prepare a"I$" to hold "T$(U1)" created while using "N$".":"Whenever you need to make copies of a "T$(U1)I"T$(U1)" diskettes.:"The current"K$" is displayed at the top of the "QU$M$QU$" menu screen. If that setup is not what you are using, select "QU$"Change the"K$"."QU$" ";("The rest of "N$" will use this information to make multiple disk operatielp.":CO,ZX,ZYC.INP,(1,"-1"(4(CR))"?",1),Z$:Z$"?"İ19008Z$"?"Ĵ(Z$)((CR)((Z$)1))10000,15000,20000,31030B1000lCL$M$" Help"CC$:::QU$M$QU$" allows you to view and change the"K$", and to ";:CRĺ"create and ";{"copy y:"::" 1. Change the disk drive setup":CRĺ" 2. Create a "T$(U1)I$%" "2CR". Copy a "T$(U1)I$:" "3CR". "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:"Return to the "PN$" menu":WIND):"Which number? "CA$;:GCP,ZX,ZY:CO,0,180:"Press ? for h ? 953,PS:954,PD:955,PV:956,DS:957,DD:958,DV:35000E W XPS(953):PD(954):PV(955):DS(956):DD(957):DV(958)  ZE8ė:12:"This "T$(T)I$" is damaged.":30500:EF1:IS34: 32040 WIND:CL$M$CC$:200I$:"You ma the write-protect tab from this"I$".":30000:CO,0,162:CEW:400r ZE0:ZEĺD$"INITHELLO"DT$:D$"DELETEHELLO" ZU0:ZE8įCO,0,140:"Unable to create a "T$(T1)I$" from this"I$". Be sure that your disk drive door is shut.":30000: ZE32040drive "(S38)", volume "(S39)")":WIND/ + ,L$CA$;:GCP,ZX,ZY:CO,115,ZY:"["DF$"]":CO,ZX,ZY:INP,(M,E$,0),DL$:DL$""DL$DF$ @CO,ZX,ZY:DL$CA$;:CEL:  ZU1:ZE0:ZEĺD$"BSAVEJUNK,A0,L1"DT$A ZE4įCO,0,162:CEW:"Please remove9):ALPN$"Getting Started, 901,1:1000o CO,0,27:"The current setup selection is:":(S36)1220,230 :" two disk drives"::) " "CA$;:GCP,ZX,ZY:WIND,ZX,ZY,279,191:"a special disk drive setup ";:"(data"I$" in slot "(S37)", " diskette":D$(4):CA$(1):CL$(12):CC$(3):QU$(34)f x35000::24576:D$"BRUNDISKUTIL.OBJ"D1$ S16064:S016000:RFL,"MECC$$DISK"S K64((941)63):ZSS:38000:N$ZN$:600 U11:T$(0)"program":T$(1)"data":T$(2)"backup AL((900)9* DISKETTE SUP*PROG:A HOLLENBECKGCOPYRIGHT (C) MECC 1984`(UPDATE:85/07/22 RPBsd901,0:32000i16000:CR1kUP$"BUTIL.OBJ":PN$"Payroll System9 nAR$"Are you sure you want to ":K$" disk drive setup":M$"Diskette Support":I$                      9:"2. Return to File":12:"Maintenance 9:"3. Return to Main Menu"::5:"Which option do you want? ";:INP,(1,"-13",1),A$:A(A$) A1000,5000,31010R FF0:CL$:9:"Please prepare your printer...":SPACE::"The accumulated totals printed o:3:"Print Employee Files"CC$r BOX,40,13,236,15,6:BOX,40,28,236,30,6:BOX,236,13,239,30,6:BOX,40,13,42,30,6 I279:BOX,239,22,I,23,6:BOX,276,22,I,191,6:BOX,0,190,I,191,6:BOX,0,23,2,191,6:BOX,0,22,40,23,6) 9:9:"1. Print Employee Files":0 7(P$,2,1)"."58% 9T$T$".02 :T$T$"0T <T$"$ "(" "T$,9):n FL(T$):T(80L)2: dZD1:QC2:33000:FCN,".COMP",CO$,ZZ nA(901):FF1 CO$CO$(A):CL$:11:"Loading files for "CO$". ,6500:6600:1000 FF0:CL$0),QG$(20),QF$(20),QS$(20),QT$(20)j A%(20),N%(21),EM$(21),M%(21),T%(20),WA$(20),CM$(20),E%(20),CO$(20) N$"Print Employee Data":QN$"Payroll System":D$(4):CL$(12):CS$D$"CLOSE" 100 2(T$)3(T$,1)"."58 5P$(T$,3):(P$,1)"."6PROG:PRINT EMP DATA1PROG:R.M.CHILDERSLCOPYRIGHT(C)MECC 1984_UPDATE 85/8/8yAPP,"COM.LIB":32734 32000" 33100:CC$(3):EA$(20),EC$(20),ES$(20),EZ$(20),SS$(20),GI$(20),YF$(20),YS$(20),YT$(20),Y1$(20),Y2$(20),Y3$(20),YD$(2        P Pxp @ @  @  @hPPPJq` P PP  @@  P@ pxxxxxxpx0H@@@@pxp ` p0`` pبppxxxp@@@@H0hP @ppppx @ @@ @  @p px Pppxxp ppبȨppph𠐈ppp pP AUSCWININjXmemfj4kWkkkkkkkdkkllBmmmm` PPPPPPPP xp(  @@@h @ @@  p p @  @pȈp ` pp0@0p0Pp8@p @@Ɲo) +po9pp Ъ 8pLo ` ֩PyQ AL +pppAp`#p"p p"p#p` ~L pH)hJJJAp`LANCS AZ09!/:@[`{~ @BOHOOUNHOOCECRDFAFPARSNOJUSJUSCNNOCNGCDVSHSSPACCEP QpRpZp[p߹Zp[pIo pIo , g =p ,Ho $pMp) Np OpPp)?p ߅ l Mo ) L{o HHH>p hhh ɛ Moo0LooɈ95ɍ=p7,?p >p h5880`L =p>p?pHoAp ( $pL!o | {$0! >p ,Ln ^ {$0LnNHo Lo|Jo nr- p nKo n p-KoKoKo pLnnJoLoJo^`NHo Qphh,lp` ֩PyQ ALŠҠ僁iimiʈ i i &'iq& iLi N8`f `.f`xmym ` ң Σ  h`+ hR("  ^{80":D$"WRITE"T$",R"0:DT$:DT$:WE:DY:DD:CS$:J7 T$CO$".F"(YR):T74!8200k7>!TE$CO$".F"(YA)7H!D$"RENAME"TE$","T$:7&TP0:I1D:M1$(I)"1"TPTPPE(I)7&:TP99İ99507&@8&S$"The total percentage ":CL$:9:S$"of your "D" deW71206CO$(A)""ı{6T$CO$(A)".EMP":L$",L255"D2$:300:D$"OPEN"T$,L$:D$"WRITE"T$",R"0:Q:DD:W%:TQ:DD:CS$66@C$""C$CO$6JCO$C$:I101104:8200:D$"OPEN"T$",L80":D$"WRITE"T$",R"I:X19:DD::CS$:278200:D$"OPEN"T$",L900%5XCL$:11:"Updating files...Z5300:T$CO$".COMP":D$"OPEN"T$,D2$:D$"WRITE"T$5SW$:SA$:CI$:ST$:ZI$:SI$:FI$:PP$:YR:BI:DY$:WE:QU:TQ:D:I13:D1$(I):M1$(I):PE(I):5BK$:BA$:BC$:BS$:BZ$:DY:CS$6FCN,".COMP",CO$,W:$CO$(A)".EMP":D$"DELETE"T$,D2$L4T$CO$(A)".F"(YR):D$"DELETE"T$,D2$W465504T$CO$(A)".QFIL":D$"DELETE"T$,D2$4:CNT,SE:FCN,".COMP",CO$,W:W1204CL$:11:"Do you want to delete another file? ";:2004A$"Y"65005901,0:PACE:90036000O3CL$:11:"No employee files exist for "CO$(A)".":3810f3dSW4:1000:W1203n:"Which file do you want to delete? ";:INP,(2,"-09",1),A$:A(A$):EZ$A$:A1AW65003xSW7:510:T$CO$(A)".COMP"3}D$"DELETE"T$,D2$!4T570042RT$CO$(A)".QFIL":TE$CO$".QFIL"D2$:5990>2\5700V2fD$"RENAME"T$","TE$\2kw2p(901)İ1000:W1202900,5AZ:AP$"EMP RECORDS":311002(901)İ1000:W1202560 3QĺCL$:11:"There are no employee files to update.":SR1:5930::.1 YAYR:(901)İ1000:W120a1A(901):T$CO$(A)".COMP":TE$CO$".COMP"D2$k15990|1%TQ99İ58001)RE0:YRYA1*T$CO$(A)".F"(YR):TE$CO$".F"(YR)D2$145990:REı1HT$CO$(A)".EMP":TE$CO$".EMP"D2$:59902M:CH55000'363740,D1M(M1$(2)):3640:3647U06D3M(M1$(3)):3650:3655c0@P0:36900|P1:CC0:CH0:3705:BK$:3720:BA$:3730:BC$:3740:BS$:3750:BZ$:P0:3760:R00CNCN0:59000D7000:8100:900 1RE1:NTQ100:I1N:YRY3340:DY$:P0:3360&/YAYRİ85000/ 5200O/AN$"NO":PP$"1"AN$"YESU/(}/PP1:CC1:R1:3346:CC0:3400:3418/CC0:3500:D/3530:D1$(1):3550:D1$(2):3560:D1$(3):P0:R1:3570/D5500/CHP1:CC1 0"M(M1$(1)):36001,"-14",1),A$:A(A$)1.A5000,6500,4040,31010?.ME0:900^.P1:(901)İ1000:W120.3005:CO$:3030:SA$:3040:CI$:3050:ST$:3060:ZI$:3070:SI$:3080:FI$:P0:R1:3100.P1:CC0/3300:5150:AN$:3320:YR:YAYR:3327:3330:BI:e data at this time? ";:2005-A$"N"(900)31010K-A$"N"ME1:900U-6015-SW0:9:8:"1. Update Company File":8:"2. Delete Company File.8:"3. File Maintenance":8:"4. Return to Main Menu"::8:"Which option do you want? ";:INP,(:3760s,Q0:WW1:AW:CO$(W)CO$:SW$"1":CL$:11:CO$" file is established.":7050:8000:I1W:CO$CO$(I)AI,8100:,7110,FCN,".COMP",CO$,W:I1W:CO$CO$(I)AI,:901,A:EZ$(A):CL$-11:"Would you like to enter new employe(2,"-AZ ",2),BS$:CCı5+12:"5. Zip Code: ";:PıQ+INP,(9,O$,5),BZ$:CCı^+17:400o+A$"Y"3780z+R1ı+CC0:3800+:"What line do you want to change? ";:INP,(1,"-15",1),A$:A(A$),600:CC1:A3710,3720,3730,3740,3750:600*tRı*yVSP,1:29007*~4:"1. Bank Name: ";:PıT*INP,(22,O$,1),BK$:CCıx*6:"2. Street Address: ";:Pı*INP,(20,O$,1),BA$:CCı*8:"3. City: ";:Pı*INP,(25,O$,1),BC$:CCı*10:"4. State (example - MN) ";:Pı+INP,A$"Y"3695)mR1ı&)nCC0:3700)oCO,0,175:3699:CO,0,175:"What line do you want to change? ";:CEL:INP,(1,"-13",1),A$:A(A$))pIA:CC1:3699:A3630,3640,3650:3690)sS$" ":CO,X,Y:S$:CO,X,Y8:S$:3699:CO,X,Y:"Enter dollar amount for":CO,X,Y8:D1$(I)": $ ";:PĺPE$(I):(YM2įINP,(6,"-09.",1),PE$(I):PE(I)(PE$(I))([CI:(`CO,X,Y:3699:CO,X,Y:"Data will be entered at run time.":(j9900:TP993600(kX0:Y175:CO,0,Y:400 )l! ! ! ! ! !!!!!!!O$". Please choose 'FILE MAINTENANCE' from the main menu and enter Employees.":SPACE:FF1nyCL$:FF31010wy900"yAP$"MENU"|yCL$:CO,0,89:"One moment please...":ZD0:QC0:33000:900,0:RNH,AP$50N%(I):EM$(I):M%(I):T%(I):WA$(I):CM$(I):E%(I):SS$(I):GI$(I):YF$(I):YS$(I):YT$(I):Y1$(I):Y2$(I):Y3$(I):YD$(I)QG$(I):QF$(I):QS$(I):QT$(I):EA$(I):EC$(I):ES$(I):EZ$(I)CS$::[(#CL$:9:"No Employee files exist for "CI$:PP$:YR:BI:U$:X:X:TQ:D:I13:D1$(I):X$:X:ACS$]TQ99NTQ100:YRYRNT$CO$".EMP":L$",L255"D2$:Q0D$"OPEN"T$,L$:D$"READ"T$",R"Q:Q:CS$Q9000I1Q:D$"OPEN"T$",L255":D$"READ"T$",R"I:X:A%(I):A%(I)966COME TAX:"41)T$:T$QT$(J):50:"SOCIAL SECURITY - FICA:"41)T$PxL$"=":1500Vw::FEED:POFF:24576:5000I180:L$;:::AP$"SETUP COMPANY":31100dT$CO$".COMP":D$"OPEN"T$,D2$:D$"READ"T$8xU$:SA$:CI$:ST$:ZI$:SI$:F:D1$(3)":"41)T$A<T$YD$(J):50:"SPECIAL DEDUCTIONS: "41)T$F:21)"ACCUMULATED TOTALS FOR ENTRY QUARTER, "YR:T2162:T)"=";::PT$QG$(J):50::"GROSS INCOME:"41)T$:T$QF$(J):50:"FEDERAL INCOME TAX:"41)T$?ZT$QS$(J):50:"STATE INME:"41)T$:T$YF$(J):50:"FEDERAL INCOME TAX:"41)T$ T$YS$(J):50:"STATE INCOME TAX:"41)T$:T$YT$(J):50:"SOCIAL SECURITY - FICA:"41)T$D1340T$Y1$(J):50:D1$(1)":"41)T$(D1T$Y2$(J):50:D1$(2)":"41)T$2D3T$Y3$(J):50)41)"MARITAL STATUS: "MA$[:"TYPE OF WAGE: "WA$;:T%(J)3ĺ41)E$" AMOUNT: $ "WA$(J)T%(J)3ĺ41)CM$CM$(J)PE$:127041)CM$CM$(J)PE$:25)"ACCUMULATED TOTALS FOR "YR:25)"===========================5T$GI$(J):50::"GROSS INCOT%(J)4WA$"SALARY AND COMMISSION":CM$"COMMISSION: ":PE$"%dMA$"SINGLE":M%(J)2MA$"MARRIED"EMPLOYEE NUMBER "N%(J)41)"STATUS: "AC$:EM$(J)41)"SOCIAL SECURITY # "SS$(J)EA$(J)41)"EXEMPTIONS: "E%(J)EC$(J)", "ES$(J)" "EZ$(JL$"*":1500(:J1Q:A%(J)91420UMF52:E$"WEEKLY":BI2MF26:E$"BI"E$PE$"":CM$"":AC$"ACTIVE":A%(J)6AC$"IN"AC$WA$"SALARY":T%(J)2WA$"HOURLY WAGE":E$"HOURLY"T%(J)3WA$"COMMISSION":CM$"COMMISSION: ":PE$"%=n this report contain only those figures entered into the original employee files. PINIT:T$CO$:70::T)T$:T$SA$:70:T)T$:T$CI$", "ST$" "ZI$:70:T)T$:: "EMPLOYER'S IDENTIFICATION NUMBER: "FI$:"EMPLOYER'S STATE NUMBER: "SI$:: ō؍΍ԍō΍΍ō΍΍΍΍΍΍΍΍ٍٍٍٍٍٍٍٍōύōҍɰ  ĈsL х ` RP6PDH)#n6,6ph" ֩PyQ AL6h) `!CNAP{>}}}}~}~fzy~^{UyS?yX@y]Ay~P~7~ Gu`>?4> <=8> <=Ώ<=` t 4x c iy`L { ^_ u<= Nv !v uii`L~7~P(Lx ʊLLx &LGu`L 䎱 掲`]{ y]{` mͳ   ފ fy`ժՖՖխժժժժխՖխժFCRFRNSNOPRSPRSEPINIPOFPACFEE {` { {{^ !}`n} { ^_ ( { R Nv#egiehj !v,}0 l,`,L 8n} C}<}=} eL׭}<}=<}=Ѝ},, ,`7PLx~{{{{ l t/>?{ 4x>?2ȱ쨊 4xLԠ { { x|{i#Ǎ{LS|{Liy{Ȍ{i{Lɠ{ʱ!}9{00ȩ{Ȣ) |{{{{{`L{ um{m{ {{`ɍɌ yͳ y` {`HX{_{)hHX{ɍ 7{h` } u{{m{y,]{5S,]{N`{ a{9b{I7a{:zb{;zc{߭ _{7y{yy`Y{`Y{6Y{L{{{6H7Hy6y7,y0 {ɍ Lz$Hy8$y$ {{  @ {$yhi{$y6yh7h6{ yy~y~~yL)yUz_j`S縎X]`?<>?>,>$f<<`yy ߅$0yy  c`LvSY{ eu^{$H)_{h0,`{0RLgzyy6z7  yyyy D`&xD'xED` ,xxx <= <ȭ<ȭ<ȭx<ȭx<><ȥ?< <H<= H <=x I<xy y?y@yAyL)yy myy~y~~y4p >? w!p 8w6w<7w=,`Aw6w87w`6w v7w x tp wD&xE'xB*xC+x@,xA-x>.x?/x$x#x"x@A x  x `@ i @ ȱ 4x`,w`D xe`а ,,i,,`gh`ȱȘeiȑ Lw%)8w>? wPLw8w; 8`6w 7w g6wh7wȱ> 9wo6w 7w6wȱ v7w8ȱ 9w>? wD>ʱD>`CuDuFu .FuDu mCuFuEumEuFuFu` <=u >u?Ȑ۩`?)8鍸ζ`H88HHg