' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIB`Ӝsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d£àĠz# u`ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)  o : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # o? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQrU o00Щ莢ɽదɬUɽ̢ʎ! o : Lm  ɛhhL%H% h% ` ` `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; ` o ɱɸ" L; )  o ɱɳ# L_ )`  o ɱɸ" L ) o ɱɳ# L ) ##` L RRIED (M,S)2 54NN$(I)"M"NN$(I)"S"II1;9B ^ PAY PERIOD (W,B,S,M)e NN$(I)"W"NN$(I)"B"NN$(I)"S"NN$(I)"M"II1  PAY TYPE (H,S) NN$(I)"H"NN$(I)"S"NN$(I)"I"II1 NN$(2)""ı1I3M1:M1$(I);:": ";NN$(I)PNN$(I)(NN$(I)BF$,BL(I))rI7ĴI72100,2105,2200,2300I12İ2400I11İ2500I 3005 CORRECT2600 GET PAYDATA1100 UPDATE EMP#CE120000 1 MA"READ DEDUCTIONS,R"TX",B0"/A$:DD(TX)(A$)5PD$;"CLOSE DEDUCTIONS"Vd ******~ ** ENTER EMPL DATA ******* NN$(1)(EN1):"TO RETURN TO MENU PRESS ":M1$(1)": "NN$(1)M1$(2);:": ";NN$(2)I110!K136&D$;"READ TAX TABLES,R"TX",B"BYO+A$:TX(TX,I,K)(A$)c0BYBYBY(K)1:i5o7:D$;"CLOSE TAX TABLES"Dg ******i ** READ DEDUCTIONSk ******lD$vD$;"OPEN DEDUCTIONS,D2,L9"{TX17D$;D2,L95"I1P18D$;"READ"PF$",R"(NN$(1))",B"BYQA$:TD(I)TR((A$))fBYBYPL(I)1:IyD$;"CLOSE"PF$ ****** ** READ TAX TABLES ****** BY0D$D$;"OPEN TAX TABLES,D2,L220"TX17BY0D$;"OPEN"PF$",D2,L95"#TI1P1I^D$;"WRITE"PF$",R"(NN$(1))",B"BY\h(TR(TD(I)))qrBYBYPL(I)1:I|D$;"CLOSE "PF$ ****** ** READ PAYDATA ******MS$"READING "PF$" DATA":150BY0:D$D$;"OPEN"PF$",EN EMPLOYEE DATA/PR,D2,L137"(I1M1RD$;"READ EMPLOYEE DATA/PR,R"EM",B"BY^NN$(I)sBYBYBL(I)1:ID$;"CLOSE EMPLOYEE DATA/PR""6 ******7 ** WRITE PAYDATA9 ******@MS$"WRITING "PF$" DATA":150EBY0:D$JS$"READING "CF$:150D$:D$;"OPEN "CF$",D2,L30"E I15b#D$;"READ "CF$",R"I",B0"n(CD$(I)u*I-D$;"CLOSE "CF$2 ******* ** READ EMPLDATA *******MS$"READING EMPLOYEE DATA":150BY0:D$D$;"OP (EM) ****:RT0F"TO RETURN TO MENU PRESS ":iEN$"":"EMPLOYEE NUMBER ";EN$|EN$""RT1:EM(EN$):EM0EMENı"NO SUCH NUMBER IS ON FILE."1205 ****** ** READ COMPANY DATA ******MI)1:I($D$;"CLOSE EMPLOYEE DATA/PR"..;G ******XI ** GET EMPLOYEE NUMBEReK ******qLENEN1yQD$VD$;"OPEN PARAMETER/PR,D2"[D$;"WRITE PARAMETER/PR"`ENeD$;"CLOSE PARAMETER/PR"j **** ** QUERY EMP#D$;"CLOSE PRINTER":% ******= ** WRITE EMPLDATAJ ******oMS$"WRITING EMPLOYEE DATA":150xBY0D$D$;"OPEN EMPLOYEE DATA/PR,D2,L137"I1M1D$;"WRITE EMPLOYEE DATA/PR,R"(NN$(1))",B"BYNN$(I)BYBYBL(BF$BL$# BY(1)8:BY(2)6:BY(3)5< B(1)2:B(2)4:B(3)5[ D$;"OPEN PARAMETER/PR,D2"w D$;"READ PARAMETER/PR" EN D$;"CLOSE PARAMETER/PR" PW132 D$;"OPEN PRINTER,D1" D$;"READ PRINTER" &I14:C(I)::I14:D(I):0**PRINT EMPLOYEE NAME $  ******* I I12:M1$(I)20)NN$(I):O U b  ******  ** INITIALIZE VARIABLES  ****** P110:M115 I140:BF$BF$" ":I M56:CE0 D$"" CR$(13) I140:BL$BL$(8):I:BL$EAD DATA  200:M2N1% ,Q 1MN$(12),M1$(M1),NN$(M1),BL(M1),M2$(M2)e 3TH$(EN),NT(EN) 6I1M2:M2$(I)::A$ 9I112:MN$(I):I :I1M5:M5$(I): ;I1M1:M1$(I),BL(I):I @I1P1:P1$(I),PL(I):I E  ******  êŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁TER STARTING CHECK # ";CK$:CK(CK$):CK$"Q"RT1:^'DT$""Ą"PLEASE ENTER THE DATE ";DT$y'(DT$)9DT$"":5120'"DO YOU WANT TO EDIT ANY PAYCHECKS? ";IV$'IV0:(IV$,1)"N"IV1' '"STARTING CHECK NUMBER:"CK$("DATE ON CHE!KA(4)TD(9):LA(6)TD(10):LA(8)TD(7):LA(10)TD(4):LA(12)TD(5):LA(14)TD(6):LA(16)LA(1)1r&5300 UPDATE FILES&VI1İ26110 INTERFACE&EM&& ******& ** USER INSTRUCTIONS& ******&PF$M5$(1):RT0&IE04'"PLEASE EN CHECK ";N$!%(N$,1)"N"5054+%5057^%N$""::"UPDATE FILES? ";N$:(N$,1)"N"5066%PF$M5$(1):1700:NP(TD(1)TD(2)TD(3))TD(4)TD(5)TD(6)TD(7)TD(8)TD(9)TD(10)NT(EM):5062%7000 PRINT CHECK%CKCK1Z&LA(1)NP:LA(2)TD(8):L$1600 WRITE PAYDAT.$TD(3)TD(3)NT(EM)D$6000 PR. REPORTT$AV$" ":EMj$6600 PR.TOTALS $5200 CORRECT??$5500 ALIGN CHKS.$26000 LEDGER?$EM1EN$1500 READ EMPDAT$NN$(11)"I"5066$400 %N$"":"PRINT6100 PREP PR.#EM1EN(#NT(EM)0>#1500 GET EMPDATm#P9$"A"ĭ(NN$(10),1)P9$N1N11:5030#NN$(11)"I"IEIE1:5030#5600 GROSS EARN#10100 CALC WAGES#IVİ10300 EDIT CHECK#AV$"N"ī5030#TD(3)TD(3)NT(EM)1P1:I") "P1$(I)20)TD(I):""+"- **C". ** FORMAT NUMBERSM"/ ** l"0((TD(N)))PL(N)TD(N)0r"?" ******" ** RUN PAYROLL" ******""VI0:N10:SC0:E10"5700 WHICH PAYPERIOD"5100 GET DIREC."RTı#!h4300 DISPLAY#!m3200 GETIN$/!rN(B$):!wN0ıM!|N1NP14205]!21:1:BL$u!"NEW VALUE ";TD(N)!TD(N)TR(TD(N))!4400 FORMAT!4200! **! ** DISPLAY@PAYDATA! **!400 PRINT HEADING!M5$(NF)":IURN+ :"UPDATE WHICH FILE ";N$:NF(N$): NFM51ıO NF1NFM54100l "SX0:NFM5SX1:NF15| 'PF$M5$(NF) ,1700 GET PAYDATA 64200 EDIT DATA ;1600 **WRITE PD$() @SXĂNF E4100 e ** f **EDIT PAYDATA g **1)"0"ı 3215 ******: **EDIT PAYDATA FILESG ******\1200 GET EMP#fRTı~1500 GET EMPLDATA41004000 **  **SELECT PAYROLL FILE400 PRINT HEADING I1M5:I"."5)M5$(I):I I"."5)"RETNGE WHICH LINE (<0> TO RETURN) ";7 IN$:IN$""3215J IN$(8)3245^ IN$(13)3260{ V(IN$):V47V583240 3215 IN$;:B$B$IN$:3215 L(B$):L03215 L1ĺIN$;:B$"":3215 IN$;:B$(B$,L1):3215 (B$)0(B$,$(1)": "NN$(1)& :I211<+ I1")"M1$(I)": "18)NN$(I)C, IU0 JIM1:3150r5 J1") "M1$(J)": "18)X$y: J? N FORMAT $$##.##S X$"$ "NN$(J)X z ******| ** GET IN$ ROUTINE~ ****** B$"" 21:1! "CHA N2NM113010$ IN:20:1C BL$;:"NEW VALUE ";NN$(N)b NN$(N)(NN$(N)BF$,BL(N)) N7ĴN72100,2105,2200,2300 N12İ2400 N12İ2500 IN3030 3005 ****** ** DISPLAY EMPLDATA ****** ! M1NN$(2):"AT THIS TIME ";N$-7 (N$,1)"N"ı7< 4100=A J ******a ** EDIT EMPLDATAn ****** 1200 GET EMP# RTı 1500 GET EMPDATA NN$(1)EN$ 3100 DISPLAY 3200 GET IN$ N(B$)1 N1ė:Q1:1000:D1"5 :"THERE ";::"MUST";::" BE A BLANK DISK" "IN DRIVE 2 AND THE DRIVE MUST BE CLOSED":"FOR THE COPYING PROGRAM TO WORK" :"PRESS WHEN YOU ARE READY TO":"SET-UP YOUR DISK" A$:A$(13)530 42348,22:44723,4:46922,9(NN$(I))BL(I)II1 '# ******>% ** INIT PAYROLL K' ******t( MS$"INITIALIZING PAYROLL FILE":150* I1P1:TD(I)0:+ K15:PF$M5$(K), 1605:K:ZZ999ı- :"DO YOU WISH TO ENTER ANY PREVIOUS. N$""2 "EARNINGS FOR "] #^ SALARY DIV PAY PERIOD*_ >` NN$(11)"S"ıWb NN$(10)"W"DV52.0pe NN$(10)"B"DV26.0j NN$(10)"S"DV24.0o NN$(10)"M"DV12.0t NN$(I)((NN$(I))DV)~  X(NN$(I)) X(X100.5)100 NN$(I)(X) I)(BF$,(T(TD$(I))))c7 LL$LL$P1$(I3)(BF$,(T(P1$(I3))))TD$(I3)(BF$,(T(TD$(I3))))7LL$LL$P1$(I6)(BF$,(T(P1$(I6))))TD$(I6)(BF$,(T(TD$(I6))))7LL$LL$M$(I)(BF$,(T(M$(I))))T$(I)7LL$:I7#TD(10)0L3:6450$(5)(BF$,12)"CHECK #: "(CH)H6LL$LL$" TOTAL HOURS: "TH$(EM)Q6LL$]6CHCH1e6:r6 ******6 ** PRINT AMTS.6 ******6T156I110:X$(TR(TD(I))):7500:TD$(I)X$:6I137LL$P1$(I)(BF$,(T(P1$(I))))TD$(13:XX(I)XX(I)T(I):B5VI13:X$(TR(T(I))):7500:T$(I)X$:q5[I110:X$(TR(TD(I))):7500:TD$(I)X$:w5`5 ******5 ** PRINT NAME5 ******5LL$"EMP. #: "NN$(1)(BF$,(5(NN$(1))))NN$(2)(BF$,(30(NN$(2)))) 6LL$LL$NN1)"GROSS PAY":M$(2)"DEDUCTIONS":M$(3)"NET PAY";4CHCKA4N43 ******d45 ** CALC. TOTALSq47 ******48I12:T(I)0:4=I13:T(1)T(1)TD(I):WX(I)WX(I)TD(I):4BI4P1:T(2)T(2)TD(I):WX(I)WX(I)TD(I):I4LT(3)T(1)T(2)5QIв PR#1 3z6200 TOTALS$36500:36300 PR. TITLESQ36400 PRINT AMTS.b39400 PR#0 h3u3 ******3 ** PRELIM. INIT3 ******3L$(1)"PAYROLL CHECK LIST"39200 SET PRINTER3L$(2)DT$:HN239100 PR.HEADING 14M$("IWEEKLY ONLY,2X:"EMIMONTHLY ONLYC2b:"ONTHLY ONLYY2l:"LL PERIODSy2q:"PRESS LETTER OF CHOICE"2v:A$:A$"W"A$"B"A$"S"A$"M"A$"A"57002P9$A$::2k ******2m **PRINT CHK.REGISTER2o ******3p930055131N$(80)ı%19300 PR#111"TEST"B19400 PR#0L15513R1_1 ******y1 ** CALC GE FOR FICA1 ******1PF$M5$(5):17051GETD(1)TD(2)TD(3)1PF$M5$(1)11C ** WHICH PAYPERIOD?1D:"EEKLY ONLY2N:"'TEST' IS PRINTED JUST TO THE RIGHT OFc0"THE PERFORATION."::"WHEN THE CHECKS ARE ALIGNED,0"ADVANCE THE CHECKS SO THAT THE PRINTER0"HEAD IS JUST BELOW THE FIRST CHECK.0:"PRESS

RINT CHECK OR EST).1N$:N$(80)N$(84)URE TO ALIGN YOUR CHECKS.D/~:"SET YOUR CHECKS IN THE PRINTER SO p/"THAT MOST OF THE FIRST CHECK IS BELOW/"THE PRINTER HEAD."::"PRESS AND THE WORD 'TEST'/"WILL BE PRINTED ON THE TOP CHECK./"MOVE THE CHECK BACK AND FORTH UNTIL*0.J5300:TD(3)TD(3)NT(EM).LLA(1)NP:LA(2)TD(8):LA(4)TD(9):LA(6)TD(10):LA(8)TD(7):LA(10)TD(4):LA(12)TD(5):LA(14)TD(6):LA(16)LA(1)1.OXX1:26000:XX0.T5400.w ******.y ** ALIGN NEBS CHECKS.{ ******.|/}"USE THIS PROCEDGP-1I210:TD(I)0:7-6N1$"":TD(3)TD(3)NT(EM)U-7PF$"LAST PAYCHECK":1600g-8AV$"N"5400-;400:"UPDATE EMPLOYEE'S FILES? ";N1$-@SC0:(N1$,1)"N"SC1-E5500 ALIGN CHK.-F7000 PRINT CHK.-GSC0-H(N1$,1)"N"545200, AV$"":NT(EM)0P,""PLEASE ENTER THE CHECK # ";CK$:CK(CK$):CK$"Q"ız,$DT$""Ą"PLEASE ENTER THE DATE ";DT$,'N$"":"WILL THIS CHECK HAVE DEDUCTIONS? ";N$,,(N$,1)"N"İ10100:10300:5430-."PLEASE ENTER AMOUNT OF CHECK ";GP:TD(1)(I):+K13"+PF$M5$(B(K))8+1700 GET PAYDATX+I110:TD(I)TD(I)PC(I):p+1600 WRITE PAYDATw+K}++ ******+ ** PRINT SINGLE CHK+ ****** +1200 GET EMP#+RTı+1500 GET EMPDAT+5600 CALC.GE,4,1)P9$5255:*{1700:TD(3)TD(3)NT(EM): GET PAYDATP*6000 PRINT REG.X*EMm*6600 PR.TOTALSs**I1P1:WX(I)0:*I13:XX(I)0:*IE0:BH0** ******* ** UPDATE XXX-T-DATE* *******I110+PC(I)TDEES CORRECT ";N$$)Z(N$,1)"N"ı/)d100005)fl)iN$"":"DO YOU WANT AN UPDATED CHECK REGISTER?";N$)n(N$,1)"N"ı)q5280 RE-INIT)r6100 BANNER)sEM1EN)x1500 GET EMPDAT)yNN$(11)"I"IEIE1:5255 *zP9$"A"ĭ(NN$(10)S: "DT$(IV5155S("THE CHECK LIST WILL BE PRINTED":"WITHOUT INTERVENTION."o(#:N$"":"CORRECT? ";N$(((N$,1)"N"DT$"":5115(-(N$,1)"Q"RT1(2(K ******(M ** ALLOW CORRECTIONS (O ******(P)UN$"":"ARE ALL EMPLOYE WRITE PROTECT TAB FROM "AN"YOUR DATA DISKETTE AND REBOOT":iLO"THERE HAS BEEN A HARDWARE ERROR."VO"PLEASE CONSULT YOUR APPLE DOS MANUAL FOR"`O"I/O ERRORS.":"THE TEXT FILES, THUS CREATING A DATA":"DISK."2 :"IF YOU ALREADY HAVE A)) X$(EQ):7500" L2)X$;3 L2(T(X$))F X$(EY):7500R L2)X$X d ******l **~ ** PAGE CTRL********EM50L5:7600:3305:3615(EM50)EM50L12:7600:33059400 PR#0$******EMPT WGSu ETETEEx ' ******/ **@ ** PRINT ITH **T ******c 9300PR#1l T15 NN$(5);:(T2)(NN$(5)))NN$(2); X$(EF):7500 (T2)(NN$(2)))X$; L2(T(X$)) X$(EE):7500 L2)X$; L2(T(X$1)TF(2)TF(2)TD(3)2N PF$M5$(5):1700GET YRLYTQ EYTD(1)TD(2)TD(3):YTYTEY]T EF0W EYEQTX(1,2)EFTX(1,2)(EYEQ)Z EYTX(1,2)EFEQ] ` TOTAL FICAc FT(FTEF)f i EMPL EXEMPT WAGESl EE(EQEF)o r TOTAL EX T7)"YEAR"% I1T8:"*";:.% " "=* 9400PR#0C/ OC ******WD **lE ** CALC.FIGUREStF **G ******H 1500GET EMPLDATI MFPF$M5$(2):1700:3403J PF$M5$(4):1700 GET QRTLYK EQTD(1)TD(2)TD(3):QTQTEQL TF(9300 PR#1 T15$ " SOCIAL";= (T4)8)"TAXABLE";Q T7)"EXEMPT";s T6)"TOTAL WAGES (TO DATE)" "SECURITY #";:(T2)10)"EMPLOYEE NAME"; (T2)13)"WAGES"; T5)"WAGES"; MFĺT5)"MONTH";:3350 T5)"QUARTER";****** **% ** INIT FOR FICA- **9 ******U TX7:1800 READ FICA m& YT0:QT0:FT0:ET0}0 TAX$"FICA"N  EN56L56EN:7600:3210 EMEN56:L63EM:7600  ****** ** ** TITLES ** ******  FIGURES? (Y/N) ";A$:A$(A$,1)B TF(1)0:TF(2)0:A$"Y"TF(1)1Y 9200PREP PRNTR c RTıt 9100BANNER 3100INIT. 3300TITLES EM1EN 3400CALC.TTL 3500PRINT 3600PAGE CTRL EM 3800LAST PAGE  ** ******6 L$(1)"QUARTERLY FICA INFORMATION" :"PRESS FOR QUARTERLY REPORT":"PRESS FOR MONTHLY REPORT":A$:MF0:A$"M"L$(1)"MONTHLY FICA INFORMATION":MF1  9000DATE?? :"IS MISCELLANEOUS PAY BEING USED FOR":"TIP 76009400 PR#0% B$""- A$= A$""2710O A$(13)ĺ:z A$(8)Č1008:B$(B$,(B$)1):2710 (A$)312710 A$(44)A$(108) A$; B$B$A$:2710 J(B$)"  ****** ** ** FICA REPORT WAGE : "X$/\NN$(11)"S"ĺT3)"SALARY: "X$baNN$(11)"I"ĺT3)"INACTIVE EMPLOYEE":IEIE1hft******|**** LINE CONTROL********XEM10ENEM2205EM10L11:7600:2215((X12)12X)2215L6:#1 6T30 7NN$(1):NN$(2);18L3(NN$(2))<9I35O>TL3)NN$(I);yC(T)(NN$(I)))M1$(I3)": "NN$(I3);EL2((M1$(I3))2(NN$(I3)))HTL2)M1$(I6)": "NN$(I6)IL30JIMX$NN$(12):7500 WNN$(11)"H"ĺT3)"HOURLY***#L$(1)"EMPLOYEE DATA REPORT69000 DATE?? @RTıU9200PREP PRNTRf9100BANNERsEM1EN1500GET EMPDAT2100PRINT2200LINE CTRLEM /******0**1** PRINT IT2**3******49300PRMS$"READING TAX TABLES":150' BY0/D$QD$;"OPEN TAX TABLES,D2,L220"\!K13&D$;"READ TAX TABLES,R"TX",B"BY+TX(1,K)0BYBYBY(K)1:K:D$;"CLOSE TAX TABLES"D********** EMP.DATA REPORT***** 4N(222)8ī20300H >N"ERROR # ";(222)" AT LINE # "(218)(219)256N HNz N"DATA DISKETTE MUST BE A COPY OF THIS" N"PROGRAM DISKETTE. RUN THE 'COPYA' " N"UTILITY ON YOUR SYSTEM MASTER TO COPY" N"ONTO A BLANK DISK.":N"PLEASE REMOV6: INITIALIZE WITH NO SYSTEMu :12:A$"COPYING":545:A$"(IGNORE SCREEN DISPLAYS)":545:D$:D$;"EXEC COPIER,D1"{  !20(A$)2);A$: :A$"LOADING":12:(24(A$)2):A$:D$;"RUN START,D1" N:D$:(222)6ī20100 *N(222)4ī20200EOUS PAYDATA CATEGORY":"USED FOR TIPS? (Y/N) ";:"";A$:(A$,1)"Y"A1:6009V*xA0*y:12:"ENTER EMPLOYER'S STATE ID# ";SI$*z1300 READ CF$*EM1EN*IIII1*1500READ EMPDAT *PF$M5$(5)*1700GET YTD*9300PR#1"+D(3PR PAYDAT )L50:7600*)!9400 PR#00)&<)k******D)l**V)m** W-2 FORMS_)n** k)o******)p6100 ALIGN W-2 FORMS)qW21)sII0:I17:WT(I)0:)t7700 GET FICA CEILING)uCF$"COMPANY INFORMATION"N*w:12:"IS THE MISCELLANENL40(7600CR$((9125BANNER 8(9300PR# 1\("TOTALS FOR ALL EMPLOYEES"::("ACTIVE EMPLOYEES: "ENIE" INACTIVE EMPLOYEES: "IE(5400 TITLES(I15(H110(X$(TR(GT(I,H))):7500( TD$(I,H)X$(H:I )5500)TD$(J,I);'J:'I,'"DEDUCTIONS"8'I4P1H'3)P1$(I);h'T(3(P1$(I))))TD$(1,I);'J25:T(TD$(J1,I)))TD$(J,I);'J:'I'L5:7600''******'**'** TOTALS'**'******(L14:(EN2)225&,T(M5$(I1)))M5$(I);&&6I8&;" ":I1T6B&@"*";I&EIR&J" "X&Od&w******l&x**&y** PRINT PAYDATA&z**&{******&|"GROSS EARNINGS"&I13:3)P1$(I);&T(3(P1$(I))))TD$(1,I); 'J25:T(TD$(J1,I))PP %%******%**/%** PAGE CTRL7%**C%******P%ENEMıh%(EM2)2EM5320|%L16:EM2L10%7600CR$%9400PR#0%%******%**%** TITLES%**%******%T20%" "%"T)M5$(1);&'IR EMPDATA$**$******&$IE0/$T105$ A$K******I$L**a$M** GET&FORMAT PD()i$N**u$O******$PPP15$ZPF$M5$(PP)$d1700 GET DATA$nJ1P1$sX$(TD(J)):7500$tGT(PP,J)GT(PP,J)TD(J)$xTD$(PP,J)X$$}J%EE LISTING"#9000DT$ /#9200PREP.PRNTR9#RTıL#9100 BANNER Y#EM1ENn#1500GET EMPDAT#5200GET PAYDAT#2100EMPDAT#5400TITLES#5500PAYDAT#5300PAGE CTRL#EM#5600TOTALS##** $** INIT F"EM"3800LAST PAGE""."******6"**B"**INITJ"**V"******o"TX8:1800READ FUTA"YT0:QT0:FT0:ET0"TAX$"FUTA"""******"**"** PRINT EMP LISTING"**"******"5100INIT #L$(1)"EMPLOYT":"PRESS FOR MONTHLY REPORT":A$:MF0:A$"M"L$(1)"MONTHLY FUTA INFORMATION":MF1n!9200PREP PRNTR!9000 DATE??!RTı!9100BANNER!4100INIT!3300TITLES!EM1EN!3400CALC.TTL!3500 PRINT"3600PAGE CTRL,3))) &X$(X):7500F (T)"(TAXABLE WAGES X "TX(1,1)")":T4)X$U -L50:7600e 29400 PR#0k 7w ****** ** ** FUTA REPORT ** ****** L$(1)"QUARTERLY FUTA INFORMATION" TF(1)0Y!:"PRESS FOR QUARTERLY REPORJECT TO "TAX$" TAX";:(T4)L2)X$DTX7TX(1,1)TX(1,1)TX(1,3)VTF(1)03875l X$(TF(2)):7500!"TIP TOTAL (NOT SUBJECT TO EMPLOYER'S PERCENTAGE)";12)X$#"AMOUNT DUE FROM EMPLOYER"$XTR(TX(1,1)FT) %TF(1)XTR(X(TF(2)TX(1TA --""TOTAL WAGES PAID";2X$(QT):7500D(T4)16)X$\X$(TX(1,2)):7500pL2(36(X$)1) "EXEMPT WAGES (PAYMENTS IN EXCESS OF "X$")";X$(ET):7500(T4)L2)X$X$(FT):7500L2(17(TAX$)4)""WAGES SUB**** LAST PAGE**(******79300PR#1L3200 LINEFEED ^9125 BANNERm9300PR#1X$(YT):7500"TOTAL WAGES PAID (YEAR-TO-DATE)";:(T4)31)X$MFĺT)"-- THIS MONTH'S DATA --":3830T)"-- THIS QUARTER'S DAN D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! o , и` X$i( " X ,      ĠίҍŠųƠؠҠؠΠ ננĠĨة֩Ϡ͠Š؍ƠؠΠנРĨРƠ֩Π   7010;_TD(3)TD(3)NT(EM)X;`I1P1:YT(I)TD(I)YT(I):X$(YT(I)):7500:YT$(I)X$:h;b9300 PR#1z;c(C(3))7015;dD(3)0D(4)0ĺ(D(3))(D(4));:7015;eD(3)0ĺ(D(3));;g7400 FORMAT;l7100 PRINT IT!;q9400 PR#0 TO COMMENCE PRINTING.-:"PRESS EST OR ";N$.N$"T"İ9300:"TEST":9400: FORMS.":7,"PUT W-2'S INTO PRINTER SO THAT MOST OFe,"THE FIRST FORM IS BELOW THE PRINT HEAD.,:"PRESS AND THE WORD 'TEST' WILL BE ,"PRINTED. SLIDE THE FORM BACK AND,"FORTH UNTIL 'TEST' IS PRINTED -"JUST TO THE RIGHT OF THE )0D(4)0ĺ(D(3))(D(4)):60458+D(3)0ĺ(D(3))L+6300PRINT W-2k+EMENEM42İ6500:EMEM1z+9400PR#0+EM+W20++******+**+** ALIGN W-2'S+**+******+:"USE THIS PROCEDURE TO ALIGN YOUR ,"W-2 :H K1QT H PF$M5$(B(K))8H 1605 WRITE ZEROS?H KGH EMMH ZH/! ******wH1! **CURR MON TO LAST MONH3! ******H4!MS$"INITIALIZING EMPLOYEE #"NN$(1):150H8!PF$M5$(2)H>!1705 READ CURR MONHH!PF$M5$(3)IR!1605 WRITE LAGk ** DISPLAY QUARTER MSG.&Gl **9Gq Q$(1)"SECOND"KGv Q$(2)"THIRD"^G{ Q$(3)"FOURTH"G "AND THE "Q$(MT3)" QUARTER.G G ******G ** ZERO ***-T-D TOTALSG ******G EM1EN:NN$(1)(EM)G 8500 LASTMONTHH I110:TD(I)0 TO EXIT THE ":"PROGRAM, OR TO RETURN TO THE MENU."dF5 A$:A$(13)A$(27)A$(81)8245vF: A$(27)ė:F? A$(81)ıFD K11EN:NN$(1)(K1)FF :15:"CLEARING EMPLOYEE # ";K1FI ZZ999:2602 CLEARFN K1FS ZZ0FX Fj **LLOW THESE STEPS:":8E& "1. BACKUP YOUR DATA DISKETTE.gE+ "2. KEEP LAST YEAR'S DISK AS AN ARCHIVE."E0 :"WHEN YOU ARE READY TO RE-INITIALIZE":"YOUR DATA DISKETTE (IN DRIVE 2) PRESS"8F2 ". IF HAVEN'T BACKED UP YOUR ":"DISK YET, HIT $""!D:"CONTINUE? (Y/N) ";N$@I1L:" ":%@2@ ******J@ ** FORMAT FOR CHKW@ ******c@I1P1x@X$(TR(TD(I)))@7500:TD$(I)X$:I@TPTD(1)TD(2)TD(3)@X$(TR(TP)):7500:TP$X$@TD0:I410:TDTDTD(I):A X$(TR(TD)):7500:T35(NN$(2))))DT$(BF$,(10(DT$)))(NN$(11),1)"S"ĺ:7136A>"TOTAL HOURS=>";TH$(EM)I>:>LL$DT$(BF$,(15(DT$)))(CK)(BF$,(30((CK))))>LL$LL$TP$(BF$,(12(TP$)))TD$(BF$,(12(TD$)))NP$>LL$>L12:7300 CR$%? LL$(BF$,10)NN$(2)(BF$,()YT$(I)(BF$,(T1(YT$(I))))TD$(I)J=LL$LL$(BF$,(T3(TD$(I))))X$U=LL$:a=I4P1=XXTD(I):X$(TR(X)):7500=LL$(BF$,10)P1$(I)(BF$,(16(P1$(I))))YT$(I)(BF$,(T2(YT$(I))))TD$(I)=LL$LL$(BF$,(T4(TD$(I))))X$>D(3)NT(EM) $";NT(EM)V1)GPGPNTDER THE CATEGORY":"'TIPS' IS USED IN THE FOLLOWING WAY:":T)"THE TIP AMOUNT IS ADDED TO THE GROSS ":"THAT APPEARS ON THE EDIT MENU. THIS " $"NT(EM)\P'"NET PAY: $"NPP':"15. CHECK TO BE ISSUED==> ";YES$:P(P7( ******P9( ** EDIT PAYCHECKP;( ******P<(YES$"YES":10200 DISP. CHCKPA(3200 GET IN$QF(N(B$)NH(2)NH(3))O' O' ******:O' ** DISPLAY PAYCHECKGO' ******YO'400 HEADINGbO'T10O'T)"REGULAR"T2)"O.T."T3)"MISC."O'"HOURS:";:I13:TI)I". "NH$(I);::O'"RATE:";:I13:TI)I3".$"GP(I);::P':I4P1:P1$(I)":"210)"W"NH(1)40*N'NN$(10)"B"NH(1)80>N'NH$(1)(NH(1))^N'I23:NH(I)0:NH$(I)"0":N'GP(1)(NN$(12)):GP(2)GP(1)1.5:GP(3)0N'GP(2)TR(GP(2))N'I1315:TD(I9)(NN$(I)):N'10400 CALC. PAYN'NH(1)1GP(2)0 O'TH$(EM)(NH(1)100: CALC WAGES'M$'10300 EDIT CHECK>M&'TD(3)TD(3)NT(EM)VM)'1600 WRITE PAYDATmM+'TD(3)TD(3)NT(EM)xM.'10000Mo' ******Mq' **CALC. WAGES&HOURSMs' ******Mt'NN$(11)"I"ıMy'NN$(11)"S"NH$(1)"S":NH(1)1:10130M~'NH(1)0N'NN$((3))93801L$D(1)0D(2)0ĺ(D(1))(D(2));:HL$D(1)0ĺ(D(1));NL$[L$ ******qL$ ** TURN PR# OFF~L$ ******L$L$D$;"PR#0"L$L ' ******L ' ** CHECKSL' ******L'1200 GET EMPL#L'RTıL'1500 GET EMPDATM'10E PREPARE YOUR PRINTER FOR/K#"THE "L$(1)". "YK$::"PRESS TO CONTINUE ";N$_K$lKO$ ******KQ$ ** TURN ON PRINTERKS$ ******KT$MS$"PRINTING":150K^$D$:D$;"PR#";C(4)Kc$C(1)9340Kh$C(2)ĺ(9);"K";Kr$(9);"133N"; L|$(C15 J#CF$"COMPANY INFORMATION"4J#1300 READ CF$DJ#9300 PR#1JJ#qJ#I14:65((CD$(I))2))CD$(I):J#:I1HN:65((L$(I))2))L$(I):J#L5:7300J#9400 PR#0J#J# ******J# ** PREP. PRINTERJ# ******J#K#"PLEASĠננčננĨΩ׍ΠŠίҍųųΠԯҍųųĠίҍΠؠ Πؠ ƠؠҠؠΠ Π͠Š؍נРĨƠĠΠĠĠֺϠ ST MON I\!I## ******)I%# ** DATE??6I'# ******cI(#:DT$""Ą"PLEASE ENTER THE DATE: ";DT$}I2#:20((DT$)2))DT$I<#::"CORRECT? (Y/N) ";N$:(N$,1)"N"DT$"":9000IF#I# ******I# ** PR.REPORT HEADINGI# ******J#CF$""91L(),BY()#a0u ** BL()=FIELD LENGTH4a3u **********;a4u Ta5u EMPLOYEE NUMBER,3la6u EMPLOYEE NAME,20a:u ADDR 1, 25a?u ADDR 2,25aDu SOC.SEC.NO.,11aKu LOCAL CODE, 2aOu STATE ABBR., 2aSu MARRIED,1aXu EXEMPTIONS,2R`t NOVEMBER,DECEMBER"`t 7`t PAYDATA FILES>`t S`t LAST PAYCHECKi`t CURRENT MONTH|`t LAST MONTH `t QUARTER-TO-DATE`t YEAR-TO-DATE`t ALL FIVE FILES`+u *********`-u ** EMPLOYEE DATA`.u ** a/u ** M1$(),BITIALIZE NEW MONTH'_}t PRINT REPORTS?_~t ENTER/VIEW TAXESu_t ENTER COMPANY INFORMATION,POST TO VERSALEDGER_t QUIT_t EOD_t _t MONTHS_t _t JANUARY,FEBRUARY,MARCH_t APRIL,MAY,JUNE,JULY`t AUGUST,SEPTEMBER,OCTOBE(I)BU(I)LA(I)^qI1^q28000 WRITE BUFFER7^qG^ht *********c^jt ** DATA FOR MAIN MENUt^lt ********* ^mt CREATE EMPLOYEE FILE^rt UPDATE EMPLOYEE FILE^wt UPDATE PAYROLL FILE ^zt ISSUE SINGLE CHECK^{t RUN PAYROLL_|t INRITE BUFFER,]jmD$:D$;"OPEN BUFFER,D2,L11"8]tmI1MNW]~mD$;"WRITE BUFFER,R"I",B0"g]mTR(BU(I))n]mI]mD$;"CLOSE BUFFER"]m]Hq CREDIT TRANS]q:A$"FILLING BUFFER":20((A$))2)A$]qI2142:LA(I1)LA(I)1:I]qI1MN^qBUjD$;"CLOSE NAME",\@jD$;"OPEN CODE,D2,L7"8\JjI1MNT\TjD$;"READ CODE,R"I",B0"_\^jAN(I)f\hjI{\rjD$;"CLOSE CODE"\|j\jD$;"OPEN BUFFER,D2,L11"\jI1MN\jD$;"READ BUFFER,R"I",B0"\jBU(I)\jI\jD$;"CLOSE BUFFER"\k ]`m WeXXĴZ926110,26108,26108 [e&[eI[fNS999İ27000 GET ACCTS. a[f27300 GET BUFFERl[f29000[xi GET ACCOUNTS[iNS999[iMS$"READING FILES":150[iD$;"OPEN NAME,D2,L16"[iI1MN[iD$;"READ NAME,R"I",B0"[iN$(I)[jI\-ZeD$:D$;"OPEN COMPANY INFORMATION,D2,L30"VZeD$;"READ COMPANY INFORMATION,R6,B0"^ZeA$ZeD$;"CLOSE COMPANY INFORMATION"ZeA$"Y"ıZeC$"PAYROLL"Ze:"WOULD YOU LIKE TO PLACE "C$Ze"INFORMATION IN THE LEDGER BUFFER";:14000:VIZ9[(7)) Y8,%Y2 ** READ COMPANY INFO2Y6 ******GY6 ** Y/N/Q INPUTTY6 ******bY6" ?";Z9${Y6(Z9$,1)"Y"Z91:Y6(Z9$,1)"N"Z92:Y6(Z9$,1)"Q"Z93:Y6:"PLEASE ANSWER (Y/N/Q)";:14000Ye LEDGER INTERFACEYeLA(9)LA(9)1X+ ******X+ ** FIND DV,X+ ******6X+DV52MX+NN$(10)"B"DV26dX+NN$(10)"S"DV24{X+NN$(10)"M"DV12X+X$,GETX(7,1,2)TD(7)0:X),GEGPTX(7,1,2)TD(7)TX(7,1,1)(TX(7,1,2)GE):11315X.,TD(7)GPTX(7,1,1)Y3,TD(7)TR(TD: W4+II1:TD(N)TX(TX,I,2)DVNW9+TD(N)TD(N)TX(TX,I,3)(AWTX(TX,I,1)DV)cW>+TD(N)0TD(N)0iWC+vWW+ ******WY+ **READ TAX TABLESW[+ ******W\+ADıWa+AD1Wf+MS$"READING TAX TABLES":150Wu+1800 READ TAXESWz+1900 READ DED.X+(EM) V6)V* ******+V* **CALC. TAXES8V* ******?V* _V+TX5(NN$(6))0TD(N)0:wV +NN$(8)"M"TXTX1V+11200 GET DVV+D(NN$(9))V+AWGPD(DD(TX)DV)V +I110V%+TX(TX,I,1)011055V*+AWTX(TX,I,1)DVĂIW/+I1TD(N)0** 4H**4I** FORMAT W/ $$'4J**34K******B4LK1(X$)Z4Q(X$,K,1)"."7520a4VKw4[X$X$".00":75254`(X$)K1X$X$"0"4eW2ı4fX$"$"X$4j4******4**4**PRINT LINES4**4******4I1L4" "5:7500:T2(T1(TW$)))X$:6540;3T2(T1(TW$)))"***"E3::d3X$(WT(3)):7500:T1)X$;~351(T1(X$)))"***"3L5:WT(4)065703X$(WT(4)):7500::T1)X$;:51(T1(X$)))"***":LL2376003I17:WT(I)0:34G**** TAX TABLES""@D$:ED$;"OPEN DEDUCTIONS,D2,L9"]JD$;"READ DEDUCTIONS,R"PT",B0"lOTX$(11,1)TD$;"CLOSE DEDUCTIONS"^I110J13TX$(I,J)0J:IPT110:1000: B$"" A$ A$""2710  *  **" ** READ TAXTABLES+ **9 *******YMS$"READING "M1$(PT):150bBY0jD$D$;"OPEN TAX TABLES,D2,L220"I110K13D$;"READ TAX TABLES,R"PT",B"BYTX$(I,K)BYBYBL(K)1:KI D$;"CLOSE"WRITE NAME,R"I",B0"% Z(N$(I)(13), d(IA n(D$;"CLOSE NAME"[ (MS$"WRITING MN":150s (D$;"OPEN MN,D2,L4" (D$;"WRITE MN,R1,B0" (MN (D$;"CLOSE MN" (MS$"WRITING BUFFER":150 (ZERO0 (D$;"OPEN BUFFER,D2,L11" (I1MN!(D FILE&'MS$"WRITING CODE FILE":150D'D$:D$;"OPEN CODE,D2,L7"P'I1MNm'D$;"WRITE CODE,R"I",B0"x'AN(I)'I(D$;"CLOSE CODE"<( WRITE NAME FILEA(MS$"WRITING NAME FILE":150F(D$:D$;"OPEN NAME,D2,L16"K(I1MN P(D$;:LI(I$)'25LI:" ";AN(I)A'AN(I)999999Ģ15:BF$:10120r'18:"ENTER ACCOUNT NAME => ..............."'" IF '"N1$(I)"'"'18:22:" ";N$(I)'(N$(I))0N$(I)N1$(I)'(N$(I))15Ģ18:BF$:10140':I' WRITE CODETER NEW VALUE ";M$N1TX(1,1)M7N2TX(1,3)MJN3TX(1,2)MT6000m' INPUT LEDGER INFOw'XXı'XX1V'MN16:N$(MN),AN(MN)t':::~'I1MN'15:"ENTER ACCOUNT NUMBER ";I;" => ######";'I1ė:10120 'I$(I)T)TX(1,1)<"2.) ANNUAL EMPLOYER'S TAX RATE: "T)TX(1,3)c"3.) MAX INCOME TAXED:"T)TX(1,2)i"MAXIMUM TAX WITHHELD:"T)TX(1,2)TX(1,1):"ENTER LINE # TO CHANGE (0 TO RETURN) ";N$N(N$):N0N36000N0İ1000::"ENN6CD$(N)"Y"İ100005010%215)CM$8DI1M2`I".) "M2$(I)15)CD$(I)f lwp FICAzT23:15)M1$(PT)TX$(1,1)(TX(1,1)):TX$(1,2)(TX(1,2)):TX$(1,3)(TX(1,3)) "1.) ANNUAL EMPLOYEES' TAX RATE:"" ****** **2 ** COMPANY INFO; **H ******XCM$M1$(PT)n1200 READ CD$()5100 DISPLAY3200 GET IN$()N(B$)N0İ1300:N1NM2502020:1BL$;:"NEW VALUE ";:2700:CD$(N)B$  ** ** DISLPAY# **0 ******;T23:L 15)M1$(PT)x TX$(1,1)(TX(1,1)):TX$(1,2)(TX(1,2))~"1.) ANNUAL TAX RATE:"T)TX(1,1)"2.) MAX INCOME TAXED:"T)TX(1,2)"MAXIMUM TAX WITHHELD:"T)TX(1,2)TX(1,1)(1,1)(TX$(1,1)):TX(1,2)(TX$(1,2)):TX(1,3)(TX$(1,3))IPT7ī6000]4100 DISPLAYg3200sN(B$)N0İ1000:N1N240103400 MOD FUNC. 20:1BL$;:"NEW VALUE ";TX(X,Y)3400 FORMAT4010 ******INDICESF **G ******)H X1:YN7R Y43430M\ YY3:XX1:3410Sf \ **v ** TRUNCATE TO BL() ** (TX$(X,Y))BL(Y)NG1  ****** ** ** FICA,FUTA... ** ******1500 GET TXTBLE9TX;  IN$ IN$(8)32451 IN$(13)3260N V(IN$):V47V583240X 3215r IN$;:B$B$IN$:3215 L(B$):L03215 L1ĺIN$;:B$"":3215 IN$;:B$(B$,L1):3215 (B$)0(B$,1)"0"ıC ******D **E ** FIND UAL DEDUCTION: $"TX$(11,1)G= 23::"ENTER PERCENTAGES AS DECIMALS":M? cN FORMAT $$##.##vS X$"$ "NN$(J)|X z ******{ **| ** GET IN$ ROUTINE} **~ ****** B$"" 20:1 "CHANGE WHICH LINE (<0> TO RETURN) "TX$(X,Y)$ NG0:3500 CHECK LEN1 NG3035; 3005H ******Q **l ** DISPLAY TAXTABLESv **  ******  C1! 400 HEADING& I110+ K130 T(K1)1)C")"TX$(I,K);2 CC15 K:: I< C") ANN **! ** EDIT TAX TABLES* **7 ******Q 1500 GET TAXTABLE h 1600 GET DEDUC.} 3100 DISPLAY 3200 GET IN$ N(B$) N0İ1000:1100: N1N313010 3400 MOD FUNC. 20:1 BL$;:"NEW VALUE ";A$(13)ĺ:7 A$(8)Č1008:B$(B$,(B$)1):2710J (A$)312710S A$;f B$B$A$:2710r J(B$)~ I11J (B$,I1,1)(108)I1JB$(B$,I11)(44) (B$,I1,1)(108)B$(B$,I11)(44)(B$,J(I1)) "  ****** 5 5 GET FICA CEILINGA5D$;"OPEN TAX TABLES,D2,L220`5(D$;"READ TAX TABLES,R7,B9s52F2$:F2(F2$)5<D$;"CLOSE TAX TABLES":5##******5$#**5%#** DATE??5&#**5'#******5(#RT0:5-#DT$""Ą"PLEASE ENTER THE DATE ";DT$62ER "N" IS $";AE0 >:"CORRECT? (Y/N)";:" ";A$? CA$(A$,1)S HA$"Y"İ4000:e RA$"N"2100o \1510 D$:D$;"OPEN SPECIAL,D2,L10" D$;"READ SPECIAL,R"N AE D$;"CLOSE SPECIAL": D$;"OPEN SPECIAL,D2,L10" D$;"WRITE SPECI:NENN11000  1000 :10:"ENTER ANNUAL AMOUNT FOR PERSONAL AND":"DEPENDENT DEDUCTION FOR":"EMPLOYEE NUMBER "N" => ";:A$ AE(A$) 2100 1000 3000 READ SPECIAL 4:10:"CURRENT DEDUCTION AMOUNT FOR ":"EMPLOYEE NUMB(N1$):N10N14ė:35020Q&N10MS$"SAVING PRINTER PARAMETERS":150:37000j&N13(C(3))İ35300&N14C(N1)(C(N1))::35020&&17:958:"ENTER SLOT # ";C(4):C(4)1C(4)735110&0:35020&B$"COMPRESSED":J10'D(1)0:D(2)0:D(EEDS ";:C(2)ĺ"ENABLED ";::"DISABLED"::35060W%:"ENABLED";::" DISABLED"%::"3. COLUMNS ";:C(3)ĺ"132 ";::"80"::35070%:"132";::" 80"%::"4. SLOT # ";C(4)&::"ENTER LINE # TO CHANGE (0 TO RETURN)";N1$:N1DECEMBER`t $`t PAYDATA FILES+`t @`t LAST PAYCHECKV`t CURRENT MONTHi`t LAST MONTH `t QUARTER-TO-DATE`t YEAR-TO-DATE`t ALL FIVE FILES`+u *********`-u ** EMPLOYEE DATA`.u ** `/u ** M1$(),BL(),BY()a0u ** BOT1:60095+eMM$"A"MM$(10)PTOT1Le2:5OT:" ";:PT0PTM2^ePTM21PT1oeOTPT:60070L$"LOADING"TR(X)(X100.5)100(MS$"INITIALIZING":1502500 **INITIALIZE7250 **READ DATA <D$:D$;"OPEN MN,D2,Ed_ *******d`6:I1M2:6)M2$(I):0de6dDdPT1:OT1qdI140:"-";::14);::"VERSAPAYROLL"dA$"MAIN MENU":(20(A$)2):A$::I140:"-";::d60000d2:5PT:"-->":5PTdMM$:(MM$)13ı eMM$"Q"MM$(11)PT REGULAR PAY,10(cy OVERTIME PAY,10>c"y MISC. PAY,10Tc'y DEDUCTION 1,8jc,y DEDUCTION 2,8c1y DEDUCTION 3,8c6y FICA ,7c;y FEDERAL TAX,8c@y STATE TAX,8cEy LOCAL TAX,8cJy EOD c[ ******d] ** INPUT ROUTINb]u PAY PERIOD,1-bbu PAY TYPE,1Bbgu SALARY, 9 Zblu DEDUCTION 1,7qbqu DEDUCTION 2,7bvu DEDUCTION 3,7by ********* by ** PAYROLL DATAby **by ** P1$(),PL()by ** PL()=FIELDLENGTHby *********cy #:20((DT$)2))DT$P6<#::"CORRECT? (Y/N/Q) ";N$:(N$,1)"N"DT$"":9000f6A#(N$,1)"Q"RT1l6F#x6#******6#**6#** PRINT BANNER6#**6#******6#CF$""91206#CF$"COMPANY INFORMATION"6#1300READ CF$6#9300PR#1"7#ΠŠίҍŠŠΠԯҍ֩Ơ֩Π֩ננΠנРĨРƠ֩Π֩Ơ֩Π֩ננS$NG35017;$ˆ:MS$"LOADING PRINTER PARAMETERS":150T$Lj38000 GET C AND D_$ɈNG0:$̈A$"PRINTER PARAMETERS":20(A$)2:A$$ֈ5$"1. ";:C(1)ĺ"PARALLEL ";::"SERIAL"::35050$刞:"PARALLEL";::" SERIAL"4%ꈺ::"2. LINE FR ID #:/#u INTERFACE WITH VERSALEDGER==>::#u EOD#u NET PAY,FED TAX WITH,FED TAX PAY,ST TAX WITH,ST TAX PAY,LOC TAX WITH,LOC TAX PAY,FICA WITH,FICA PAY,DED1 WITH,DED1 PAY,DED2 WITH,DED2 PAY,DED3 WITH,DED3 PAY,CASH ACCT$ PRINTER PARAMETERS (MARRIED)&"t LOCAL TAXES (SINGLE)B"t LOCAL TAXES (MARRIED)M"t FICAY"t FUTA"t COMPANY INFORMATION,ENTER PRINTER SPECS"t RETURN TO MAIN PROGRAM"t QUIT,EOD"0u NAME:"5u ADDR 1:":u ADDR 2:"?u ADDR 3:#Du EMPLOYE$;"WRITE BUFFER,R"I",B0""!(ZERO)!)I@!)D$;"CLOSE BUFFER"F!)V!ht *********_!it **{!jt ** DATA FOR MAIN MENU!kt **!lt ********* !mt FEDERAL TAXES (SINGLE)!rt FEDERAL TAXES (MARRIED)!|t STATE TAXES (SINGLE) "t STATE TAXEMO,D1": ALABAMA7D$;"EXEC CHANGEMAINAL,D1":H NEW MEXICOiD$;"EXEC CHANGEMAINNM,D1":w VERMONTD$;"EXEC CHANGEMAINVT,D1": OKLAHOMAD$;"EXEC CHANGEMAINOK,D1": MISSISSIPPID$;"EXEC CHANGEMAINMS,D1": DEDUCTING NYC TAXES"24:"CORRECT? (Y/N/Q)";B$N>B$(B$,1):B$"N"5855_HB$"Y"5980pRB$"Q"2000zW5855\20000fA$"N"ĺD$;"EXEC CHANGEMAINNYS,D1":kA$"Y"ĺD$;"EXEC CHANGEMAINNY,D1":p MISSOURIzD$;"EXEC CHANGEMAINW YORKM:10:"WILL YOU BE DEDUCTING NEW YORK CITY ":"TAXES? (Y/N/Q)";A$iA$(A$,1):A$"N"5900zA$"Q"2000A$"Y"59205855 :10:"YOU WILL ";::"NOT";::" BE DEDUCTING NYC TAXES":5940 :10:"YOU ";::"WILL";::" BE:  WISCONSIN3 D$;"EXEC CHANGEMAINWI,D1":H  SOUTH CAROLINAi D$;"EXEC CHANGEMAINSC,D1":z D NEW JERSEY ND$;"EXEC CHANGEMAINNJ,D1": v UTAH D$;"EXEC CHANGEMAINUT,D1":  NEBRASKA D$;"EXEC CHANGEMAINNE,D1": NEHANGEMAINARK,D1":"  MINNESOTAC (D$;"EXEC CHANGEMAINMN,D1":P P KANSASq dD$;"EXEC CHANGEMAINKA,D1":  KENTUCKY D$;"EXEC CHANGEMAINKT,D1":  MASSACHUSSETS ,D$;"EXEC CHANGEMAINMA,D1": | IOWA D$;"EXEC CHANGEMAINIA,D1"5150,6090,6000,4000,5780,4000,4000,5700,6050,5850,6110  SN344000,4000,6080,4000,6100,4000,5650,4000,4000,4000,5750,6070,4000,4000,4000,5600,4000 D$;"RUN INIT/PR,D1"  CALIFORNIA D$;"EXEC MAINCHANGECA,D1":  ARKANSAS D$;"EXEC C>";::" "ST$(SN)" ";::"<":: :"CORRECT? (Y/N) ";A$T A$"Y"A$"N"3020e A$"N"2000y 20000 DISPLAY SN6020,4000,4000,5100,5000,4000,4000,4000,4000,4000,4000,4000,4000,4000,4000,5500,52006 SN175300,4000,4000,4000,5400,4000,070 3:HT12K5 KF *23:"(ENTER 0 TO RETURN TO START-UP)"r 22:"ENTER NUMBER OF YOUR STATE =>";SN SN0SN51Ģ22:BL$:3000 SN0ė:12:A$"LOADING":20(A$)2)A$:D$;"RUN START,D1" :10:"YOUR STATE ABBREVIATION IS ";::"o  STATE SETUP ST$(51)6 I151:ST$(I):PI140:BL$BL$" ":\D$(4)u ** MAIN ROUTINE **{A$"STATE TAX SETUP ROUTINE":(20(A$)2):A$:3HT5:I1:K13 II(I16):I52ĖHT:I;". ";ST$(I):I:2Ԡͺ͠͠֍ԠĤŠ̢נР͠͠ĨΠҠŠΠӍŠίҬıŠŠΠԯҬıɠŠ؍ƠؠΠֺ͠ƠР͠Π͠РϠֺ͠ƠР͠Π͠РԠĤԠĤΠ̬IJ̱ԠĤĠ̬Ң̠ΤŠŠĠίҬıΠԠ ϠӤ̤ ԠĤԠĤΠŬıƠؠҠؠΠ Ϡ͠   ! 4N"ERROR # ";X;" AT LINE # ";YDAL,R"N AE& D$;"CLOSE SPECIAL", M NX(222):Y(218)(219)256S !N *NX5ĺ"YOU MUST ENTER EMPLOYEE DATA BEFORE":"YOU CAN CHANGE IT"::"HIT TO RECOVER";:"";A$::0 4N"ERROR # ";X;" AT LINE # ";Y" RECOVER";:"";A$::0  I14:65((CD$(I))2))CD$(I):07#L$(2)DT$W7#:I12:65((L$(I))2))L$(I):f7#9400PR#0l7#x7#******7#**7#** PREP. PRINTER7#**7#******7#7#"PLEASE PREPARE YOUR PRINTER FOR7#"THE "L$(1)". "8$::"PRESS ":5PT*MM$:(MM$)13ı+MM$6)D$:D$;"OPEN PRINTER,D1":D$;"DELETE PRINTER"Q)D$:D$;"OPEN PRINTER"i)D$;"WRITE PRINTER"|)I14:C(I):)I14:D(I):)D$;"CLOSE))pD$:D$;"OPEN PRINTER,D1":D$;"READ PRINTER)zI14:C(I):)I14:D(I): *Ie(܌17:958:"YOUR PRINTER REQUIRES THE USE OF":"CHR$(";D(J2);") ";:D(J3)0ĺ"CHR$(";D(J3);")"k(挺("TO GET "B$" PRINT.":"CORRECT?";:" ";Q$(Q$"Y"Q$"N"36060(Q$"N"35300(J3B$"NORMAL WIDTH":J12:J23:J34:36000)3)0:D(4)0:J21:J32#'17:958'"ARE ONE OR TWO CHARACTERS NECESSARY TO ":"SWITCH YOUR PRINTER TO "B$;:" MODE? (ENTER 1 OR 2)";N'N2N136000'I1N'JIJ1'Ȍ17:958:"ENTER CHARACTER NUMBER "I"=> CHR$(..)";:32:"(";D(J)(Ҍ420) ";EX$:3000  GET ENI :"ENTER EMPLOYEE # (0 TO RETURN) ";ENW EN1ġ:] A : "MS$7 :"2. WITHHOLDING EXEMPTION : $"(EX$)v :"ENTER LINE # TO CHANGE (0 TO RETURN) ";N:N0N23010 N0İ2000: N23070 :"ENTER MARITAL STATUS (M/S/B) ";MS$:3000 :"ENTER TOTAL WITHHOLDING AMOUNT":" (FROM FORM 62-FILE" D$:D$;"OPEN MISS,D2,L20: D$;"READ MISS,R"ENH MS$:EX$\ D$;"CLOSE MISSb s  WRITE FILE D$:D$;"OPEN MISS,D2,L20 D$;"WRITE MISS,R"EN MS$:EX$ D$;"CLOSE MISS  DISPLAY :"1. MARITAL STATUS ųųĠίҍƠؠΠĨΩĨΠŠίҍųųΠԯҍ"HIT TO CONTINUE";A$WD$:D$;"OPEN GLPARAM/DAT,D2":D$;"READ GLPARAM/DATgA$:A$:A$W9999ĆX((A$)1),Y((A$)1):W9999ʷD$;"CLOSE":D$:D$;"OPEN GLACCT/IDX,D2":D$;"READ GLACCT/IDXI1(A$:A$"END"X(I)((AADING":(24((A$)1)2):12:A$:8 0D$;"RUN TEST,D1" D ID)L8MID1:45020"SY(MID):M:(7)"ACCOUNT NUMBER IS NOT ON FILE"r"POSTING IS NOT VALID. YOU MUSTij"ENTER THE NUMBER "KEY" IN YOURγ"LEDGER ACCOUNT FILE.س:15:"INSERT VERSALEDGER II PROGRAM DISKETTE":"IN DRIVE # 2"z#`Ӡ ӠŠ ԠŠʠ ʠŠ Š ŠʠŠ٠Š Π ؠ ʠŠ  Ԡ ̠Š  Ԡ  Ԡ! ˠà ӠŠ ɠà   ˠŠР " ! ͠Ӡ  Ϡ!ʠ  Ϡ"Šؠ ɠ ̠  ٠  үҠ  РԠ ίҠ_ Ҡ!Ԡ"ҠŠ٠ΠԯҠ: ΠԯҠ& ؠӠ ӠĠɠPE,1=gu SALARY, 9 /=lu DEDUCTION 1,7E=qu DEDUCTION 2,7[=vu DEDUCTION 3,7l=y********* u=y** =y** PAYROLL DATA=y**=y ** P1$(),PL()=y ** PL()=FIELDLENGTH=y**=y*********=y REGULAR PAY,10>y OVERTIME PAH <2u**<3u**********<4u7<5u EMPLOYEE NUMBER,3N<6u EMPLOYEE NAME,20a<:u ADDR 1, 25r TO CONTINUE ";N$8$'8O$******/8P$**G8Q$** TURN ON PRINTERO8R$**[8S$******s8T$MS$"PRINTING":1508^$D$:D$;"PR#";C(4)8c$C(1)93408h$C(2)ĺ(9);"K";8r$(9);"133N";8|$(C(3))93808$D(1)0D(2)0ĺ(D(1))(D(2));:9$ֺĨΩĨΩĨΩĨΩ֍ĨΩĨΩĨةĩֺΠŠίҍųųΠԯҍנРĨננΠ͠ŠƠנ֠ΠϠĨΩנֺĨΩĨΩĨΩĨΩ֍ϠĨΩנŠųĠίҬıƠؠҠؠΠ ϠƠؠҠؠĠנ֠Π ΠƠؠҠؠΠĨΩĨΩĠĨة֍͠ųΠԯҍ֩ĨΩĨΩֺΠƠנΠĨΩנ֩ĨΩĨΩֺΠĨΩנ֩ĨΩĨΩֺΠŠίҍŶΠ͠Š؍ƠĠΠĠֺϠĨΩĨΩĠֺΠĨΩĨΩĠĺΠ͠ΠōƠנΠĨΩנɱҰΠ ίҍųųΠԯҍ  NCTAX" COPYRIGHT 5/849 H&E COMPUTRONICSO 50 N PASCACK RDm SPRING VALLEY, NY 10977y D$(4)d:5:"1. ENTER EMPLOYEE DEDUCTIONSn"2. CHANGE EMPLOYEE DEDUCTIONSx"3. RETURN TO MAIN MENU"4. QUIT% :"ENTER N)(219)256M"Q"MM$(11)PTOT1:60095<+MM$"A"MM$(10)PTOT1]+2:5OT:" ";:PT0PTM1o+PTM11PT1+OTPT:60070+0 ERROR HANDLER+:PT10(222)5ī12+D(7)"ERROR NUMBER "(222)" HAS OCCURED ON LINE "(218)(219)2566" sPT6M$"A"MM$(10)PTOT19e2:5OT:" ";:PT0PTM2KePTM21PT1\eOTPT:60070ALLEY, NY q L$"LOADING"TR(X)(X100.5)100(MS$"INITIALIZING":1502500 **INITIALIZE7250 **READ DATA <D$:D$;"OPEN MN,D2,6:I1M2:6)M2$(I):de#d1dPT1:OT1^dI140:"-";::14);::"VERSAPAYROLL"dA$"MAIN MENU":(20(A$)2):A$::I140:"-";::d60000d2:5PT:"-->":5PTdMM$:(MM$)13ıdMM$"Q"MM$(11)PTOT1:60095eMy OVERTIME PAY,10+c"y MISC. PAY,10Ac'y DEDUCTION 1,8Wc,y DEDUCTION 2,8mc1y DEDUCTION 3,8c6y FICA ,7c;y FEDERAL TAX,8c@y STATE TAX,8cEy LOCAL TAX,8cJy EOD c[ ******c] ** INPUT ROUTINEc_ ******d`OD,1bbu PAY TYPE,1/bgu SALARY, 9 Gblu DEDUCTION 1,7^bqu DEDUCTION 2,7ubvu DEDUCTION 3,7by ********* by ** PAYROLL DATAby **by ** P1$(),PL()by ** PL()=FIELDLENGTHby *********by REGULAR PAY,10cL()=FIELD LENGTH!a3u **********(a4u Aa5u EMPLOYEE NUMBER,3Ya6u EMPLOYEE NAME,20ma:u ADDR 1, 25a?u ADDR 2,25aDu SOC.SEC.NO.,11aKu LOCAL CODE, 2aOu STATE ABBR., 2aSu MARRIED,1aXu EXEMPTIONS,2b]u PAY PERI$,6)):Y(I)((A$,(A$)6)):II1:480103NAI1BD$;"CLOSEH$PUTRONICSk 50 N PASCACK RD SPRING VALLEY, NY D$(4)MM(12):I112:MM(I):2D$;"OPEN MN,D2,L4"<D$;"READ MN,R1,B0"FMNPD$;"CLOSE MN" ZN$(MM$(10)PTOT12@2:5OT:" ";:PT0PTM2D@PTM21PT1U@OTPT:60070SPRING VALLEY, NYTR(X)(X100.5)100(MS$"INITIALIZING":1502500**INITIALIZE7250**READ DATAd60050 nPT2000,3000,4000,5000,6000,1$(I): ?e? ?PT1:OT1M?I140:"-";::14);::"VERSAPAYROLL"?A$"REPORT PRINTING MENU":(20(A$)2):A$::I140:"-";::?60000?2:5PT:"-->":5PT?MM$:(MM$)13ı?MM$"Q"MM$(11)PTOT1:60095@MM$"A"Y,10>"y MISC. PAY,10.>'y DEDUCTION 1,8C>,y DEDUCTION 2,8X>1y DEDUCTION 3,8f>6y FICA,7{>;y FEDERAL TAX,8>@y STATE TAX,8>Ey LOCAL TAX,8>Jy EOD >[******>\**>]** INPUT ROUTINE>^**>_******?`6:I1M2:6)M2ŠŠΠԯҍкƠĠ֠ΠĠ֍ԠĤΠĬ̱ԠĤĠĬҢ͍ԠĤנР̠Ĥ֍ננčԠĤŠčΠҠàӍŠίҬıŠŠĠίҬıΠԠ ϠӤ̤ ԠĤΠجıƠؠҠؠΠ Ϡ͠ÍĠ  ϠԠ̤ ؤҤΠҨө ӤؤԠҧӠɠνӤ̠ŠŠӍ٠ ͠Ԡԍ٠̠͠ŠӮӍŠĠӠ̢ҠɠϠԠɺϠƠĠĨΠ Ԡ̤ϠϠӤǠɢ ԠĤΠɬIJԠĤŠɢԠĨԠĨƠҠΠ Ԡ̤ϠƠΠϠ Ԡ̤Ԡ̤ ԠҠנŠĨƠҠĠĨҠĨΠԠԠŠԠ٠ĨԠԠԠƠҧӠ΢ԠҠŠĨԠԠ͠ĠӠϠŠĠҠԠΠĨ ԠҠţϠŠϠɬIJԠĤĠɢԠĨԠĨԠĨ͠ĨŧӠ͠ĨҧӠ͠ĨؠӍԠĤŠɢŠԠԠĠ͠ŧӠՠŠԠĠɠ΢ԠΠӠþŠӠξԠƠҤĠҤΠƠҤΠӤǠɢ ԠĤԠĤΠEAD NCD,R"EN:PE$:D$:DT 5/849 H&E COMPUTRONICSO 50 N PASCACK RDm SPRING VALLEY, NY 10977y D$(4)d:5:"1. ENTER EMPLOYEE DEDUCTIONSn"2. CHANGE EMPLOYEE DEDUCTIONSx"3. RETURN TO MAIN MENU"4. QUIT% :"ENTER N"EMPLOYEE # "EN" : $"PE3 :"CHANGE? (Y/N) ";Q$W (Q$,1)"Y"(Q$,1)"N"2030n (Q$,1)"Y"2000 :"ENTER NEW VALUE ";PE PE$(PE):4000 :5:2020 D$;"OPEN NCD,D2,L10" D$;"WRITE NCD,R"EN PE$:D$: D$;"R ANNUAL PERSONAL EXEMPTION FROM":"WITHHOLDING EXEMPTION CERTIFICATE":"FORM NC-4: $";PEs PE$(PE):4000:1000 :5:"ENTER EMPLOYEE NUMBER (0 TO RETURN) ";:"";EN EN0ĺD$;"CLOSE": 3000:5000:PE(PE$) :"PERSONAL EXEMPTION FOR ":ŠųĠίҍΠԠ ϠŠ Ơ٠ΠԠ̤ؤҤΠҨũ ŤؤԠҧӠɠνŤ     21:"PRESS TO START AGAIN"D M$:M$(13)M$(27)190V M$(27)100y N(N$):N300,400,500,600,700 ,1000:D$;"RUN SETUP,D1" 1000:D$;"RUN INIT/PR" 1000:D$;"RUN MAIN/PR" X1000:D$;"RUN PRINT/PR" :" :A$"LOROGRAM"& 10:"3. RUN MAIN PROGRAM"P 12:"4. RUN REPORT PRINTING PROGRAM"c 14:"5. QUIT" 16:"ENTER NUMBER OF CHOICE=>";:N$:(N$)49(N$)53Ģ16:BL$:160 22:I140:" ";: 19:"PRESS TO EXECUTE CHOICE # ";N$# : START PR D$(4)6I140:BL$BL$" ":Nd:A$"VERSAPAYROLL"hn:(20(A$)2):A$:s22:"YOU ";::"MUST";::" CHOOSE OPTION #1 ON FIRST RUN"x6:"1. SET-UP NEW DATA DISK ";::"(FIRST RUN)": }8:"2. RUN INITIALIZATION PUMBER OF CHOICE ";:"";N:N1N4100C N1000,2000,160,170:100l :"LOADING ...":D$;"RUN MAIN/PR,D1 :"TO RECOVER PROGRAM":"TYPE: RUN": :5:"ENTER EMPLOYEE NUMBER (0 TO RETURN) ";:"";EN EN0ĺD$;"CLOSE": 3000Y :"ENTER    ΠֺƠРΠЍנРΠֺƠĠΠƠРΠЍƠĠΠֺƠРΠЍנРŠųĠίҬıڠƠؠΠڠƠڠΠ ƠڠΠננ͠ŠƍƠР֠ΠֺϠƠР֠Π ̹ҠɠϠԠĤĠҭϭŬҢ̠Τ¢ٍԠԨɩԨɩԨɩĨɩ٠٠̨ɩԠɍԠĤŠҭϭŢԠĤΠɬIJԠĤĠɢĨԠĨԠĨԠĤŠɢΠƠؠΠ ΠƠؠҠؠΠ Ϡ͠ɠ٠ԠĤԠĤΠҭϭŬԠԠŠĠӠ̢ҠɠϠԠɺϠƠĠĨΠ Ԡ̤ϠϠӤǠɢ ԠĤΠɬIJԠĤŠɢŠϠΩƠҠΠ Ԡ̤ϠƠΠϠ Ԡ̤Ԡ̤ ԠҠנŠĨƠҠĠĨҠĨΠŧӠԠ٠ĨԠԠԠƠҧӠ΢ԠҠŠĨԠԠ͠ĠӠϠŠĠҠԠΠĨ ԠҠţϠȠԠĤΠɬIJԠĤĠɢԠĨԠĨԠĨ͠ĨŧӠ͠ĨҧӠ͠ĨؠӍԠĤŠɢŠԠԠĠ͠ ԠƠՠŠԠĠɠ΢ԠΠӠþŠӠξԠƠҤĠҤΠƠҤΠӤǠɢ ԠĤųųĠίҍƠؠҠؠΠ ϠƠؠҠؠΠ ĨΩĨΩà֩Π͠Ӡ؍ƠĠΠנкΠƠؠ  -- DOS 3.3 HELLO  (:.(E2MS$"VERSAPAYROLL"]720((MS$)2))MS$i<D$(4)qFD$PD$;"OPEN A,D1,L1"ZD$;"READ A"dAD$;"CLOSE A"A0ĺD$;"RUN START,D1"D$;"RUN MAIN/PR,D1"  ԠĨԠĤŠɢΠƠؠΠ Π͠ɠ٠ԠĤԠĤΠҭϭŬIJ̹ҠɠϠԠĤĠҭϭŬҢ̠9^$D$:D$;"PR#";C(4)%9c$C(1)9340:9h$C(2)ĺ(9);"K";L9r$(9);"133N";^9|$(C(3))93809$D(1)0D(2)0ĺ(D(1))(D(2));:9$D(1)0ĺ(D(1));9$9$******9$**9$** TURN OFF PRINTER9$**9$******9$9$D$;"PR#0"9$c"y MISC. PAY,10,c'y DEDUCTION 1,8Bc,y DEDUCTION 2,8Xc1y DEDUCTION 3,8kc6y FICA ,7c;y FEDERAL TAX,8c@y STATE TAX,8cEy LOCAL TAX,8cJy EOD c[ ******c] ** INPUT ROUTINEc_ ******d`6:I1M2:6)M2$(I)ŭΠƠĠΠàΠƠؠΠàΠƠĠΠàΠƠĠΠàΠàĠΠŠίҍųųΠɍ   ŠנȬҠʠԠӮӮɠĬŠίҍĠԯҍɠĬŠԯҍųųΠԯҍƠԨԨԨĨΠĨΩΠĨΩΠҨРĨΠ͠ҠɍƠԨԨԨĨΠӠΠӠΠҨРĨΠɤ¢ٍԠԨɩԨɩԨɩĨɩ٠٠̨ɩԠɍԠĤŠҭϭŢԠĤΠɬIJԠĤĠɢԠĨԠĨԠĨԠĤŠɢΠӠΠҨРĨΠ͠Š؍ƠؠΠנРƠנ֠ΠנֺϠנРƠנ֠Πנ֍נР׍ננĨԠĨԠĨԠĤŠɢƠԨԨԨĨΠĨΩΠĨΩΠҨРĨΠ͠ҠɍƠԨԨԨĨΠӠŠҠɠϠԠĤĠҭϭŬҢ̠Τ¢ٍԠԨɩԨɩԨɩĨɩ٠٠̨ɩԠɍԠĤŠҭϭŢԠĤΠɬIJԠĤĠɢԠԠĨԠĨԠĤŠɢΠƠؠΠ ΠƠؠҠؠΠ Ϡ͠ɠ٠ԠĤԠĤΠҭϭŬIJ̹ŠĠӠ̢ҠɠϠԠɺϠƠĠĨΠ Ԡ̤ϠϠӤǠɢ ԠĤΠɬIJԠĤŠɢԠĨδЩ֩ĩϠԠЩ֩ĩϠԠ֩Щ֩ĩנԍΠŠίҬıŠŠΠԯҍŠŠĠίҬıƠؠΠ ƠؠΠϠ͠ԠŠ؍ƠР֠ΠϠƠР֠ΠϠԠ֩ĠԯҍɬɬŠԯҍųųųΠԯҍֺϠР֩ΠŠίҬıŠųΠԯҍίҍŠŠΠԯҍננĨƠĠΠƠĠΠננֺϠננ֠Ġ֩ΠŠנȬҠ̠ԠͮӮɠĬŠΠӠΠӠΠҨРĨΠ͠Š؍ƠؠΠנРƠנ֠ΠנֺϠנРƠנ֠Πנ֍נР׍ԠĨԠĨԠĨԠĤŠɢƠԨԨԨĨΠĨΩΠĨΩΠҨРĨΠ͠ҠɍƠԨԨԨĨԯҍPO$(2)DT$Ab9200FIND SPOT(AlRTıN20(B$)2)B$HN E:(20(A$)2):A$:3HT5:I1:K13 II(I16):I52ĖHT:I;". ";ST$(I):I:2 PA%D$;"EXEC CHANGEMAINPA,D1":. NCOD$;"EXEC CHANGEMAINNC,D1":] MONTANA~D$;"EXEC CHANGEMAINMT,D1":' AL,AK,AZ,AR,CA,CO,CT,DE,DC,FL,GA,HI,ID,IL,IN,IA,KS,KY,LA,ME,MD,MA,MI,MN,MS,MO#' MT,NE,NV,NH,NJ,NM,NY,NC,ND,OH,OK,OR,PA,MO,D1": ALABAMA7D$;"EXEC CHANGEMAINAL,D1":H NEW MEXICOiD$;"EXEC CHANGEMAINNM,D1":w VERMONTD$;"EXEC CHANGEMAINVT,D1": OKLAHOMAD$;"EXEC CHANGEMAINOK,D1": MISSISSIPPID$;"EXEC CHANGEMAINMS,D1": DEDUCTING NYC TAXES"24:"CORRECT? (Y/N/Q)";B$N>B$(B$,1):B$"N"5855_HB$"Y"5980pRB$"Q"2000zW5855\20000fA$"N"ĺD$;"EXEC CHANGEMAINNYS,D1":kA$"Y"ĺD$;"EXEC CHANGEMAINNY,D1":p MISSOURIzD$;"EXEC CHANGEMAINW YORKM:10:"WILL YOU BE DEDUCTING NEW YORK CITY ":"TAXES? (Y/N/Q)";A$iA$(A$,1):A$"N"5900zA$"Q"2000A$"Y"59205855 :10:"YOU WILL ";::"NOT";::" BE DEDUCTING NYC TAXES":5940 :10:"YOU ";::"WILL";::" BE:  WISCONSIN3 D$;"EXEC CHANGEMAINWI,D1":H  SOUTH CAROLINAi D$;"EXEC CHANGEMAINSC,D1":z D NEW JERSEY ND$;"EXEC CHANGEMAINNJ,D1": v UTAH D$;"EXEC CHANGEMAINUT,D1":  NEBRASKA D$;"EXEC CHANGEMAINNE,D1": NEHANGEMAINARK,D1":"  MINNESOTAC (D$;"EXEC CHANGEMAINMN,D1":P P KANSASq dD$;"EXEC CHANGEMAINKA,D1":  KENTUCKY D$;"EXEC CHANGEMAINKT,D1":  MASSACHUSSETS ,D$;"EXEC CHANGEMAINMA,D1": | IOWA D$;"EXEC CHANGEMAINIA,D1"5150,6090,6000,6120,5780,4000,4000,5700,6050,5850,6110  SN344000,4000,6080,4000,6100,4000,5650,4000,4000,4000,5750,6070,4000,4000,4000,5600,4000 D$;"RUN INIT/PR,D1"  CALIFORNIA D$;"EXEC MAINCHANGECA,D1":  ARKANSAS D$;"EXEC C>";::" "ST$(SN)" ";::"<":: :"CORRECT? (Y/N) ";A$T A$"Y"A$"N"3020e A$"N"2000y 20000 DISPLAY SN6020,4000,4000,5100,5000,4000,4000,4000,4000,4000,4000,4000,4000,4000,4000,5500,52006 SN175300,4000,4000,4000,5400,4000,070 3:HT12K5 KF *23:"(ENTER 0 TO RETURN TO START-UP)"r 22:"ENTER NUMBER OF YOUR STATE =>";SN SN0SN51Ģ22:BL$:3000 SN0ė:12:A$"LOADING":20(A$)2)A$:D$;"RUN START,D1" :10:"YOUR STATE ABBREVIATION IS ";::"  STATE SETUP ST$(51)6 I151:ST$(I):PI140:BL$BL$" ":\D$(4)u ** MAIN ROUTINE **{A$"STATE TAX SETUP ROUTINE":(20(A$)2):A$:3HT5:I1:K13 II(I16):I52ĖHT:I;". ";ST$(I):I:2     "READING "PF$" DATA":150)BY0:D$DD$;"OPEN"PF$",D2,L95"PI1P1uD$;"READ"PF$",R"(NN$(1))",B"BYA$:TD(I)TR((A$))BYBYPL(I)1:ID$;"CLOSE"PF$**********READ TAX TABLES** ******D$;"OPEN EMPLOYEE DATA/PR,D2,L137".I1M1YD$;"READ EMPLOYEE DATA/PR,R"EM",B"BYNN$(I):B$NN$(I):2800:NN$(I)B$BYBYBL(I)1:ID$;"CLOSE EMPLOYEE DATA/PR""********** READ PAYDATA********MS$D$;"OPEN "CF$",D2,L30"$ I15A #D$;"READ "CF$",R"I",B0"g (CD$(I):B$CD$(I):2800:CD$(I)B$n *I -D$;"CLOSE "CF$ 2 ******* ** ** READ EMPLDATA ** ******* MS$"READING EMPLOYEE DATA":150 BY0:D$"R" EN' D$;"CLOSE PARAMETER/PR"@ D$;"OPEN PRINTER,D1W D$;"READ PRINTER"y &I14:C(I)::I14:D(I): 0D$;"CLOSE PRINTER" : ****** ** ** READ COMPANY DATA ** ****** MS$"READING "CF$:150 D$ "* MS$L$:150:D$:D$;"RUN INIT/PR,D1"O MS$L$:150:D$:D$;"RUN VLI,D1"W :q :(20(MS$).5):12 "** "MS$" **" ****** **** READ DATA ROUTINE ****** N1 A$:A$"EOD"NN1:220  RL4" AD$;"READ MN,R1,B0"# FMN6 KD$;"CLOSE MN"W PAN(MN),N$(MN),BU(MN),LA(MN)d dCEĽ:0o i60050 nPT2000,3000,4000,5400,5000,8000,120,130,130,135,140:100 sMS$L$:150:D$:D$;"RUN MAIN/PR,D1" xMS$L$:150:D$:D$;"RUN PRINT/PR,D1p] MAIN/PR$ COPYRIGHT 1982; COMPUTRONICS INCQ 50 N PASCACK RDj SPRING VALLEY, NY q L$"LOADING"TR(X)(X100.5)100(MS$"INITIALIZING":1502500 **INITIALIZE7250 **READ DATA <D$:D$;"OPEN MN,D2,                                              ** ******+ P110:M115:SCR40G I1SCR:BF$BF$" ":IP M56[ D$""i CR$(13) I1SCR:BL$BL$(8):I:BL$BF$BL$ BY(1)8:BY(2)6:BY(3)5 B(1)2:B(2)4:B(3)5 D$;"OPEN PARAMETER/PR,D2" D$;"READ PARAMETER/PŠŠĠίҬıĨРŠίҬıŠŠΠԯҬı  200:M2N1 ,H 1MN$(12),M1$(M1),NN$(M1),BL(M1),M2$(M2)b 6I1M2:M2$(I)::A$y 9I112:MN$(I):I :I1M5:M5$(I): ;I1M1:M1$(I),BL(I):I @I1P1:P1$(I),PL(I):I E ****** ** ** INITIALIZE VARIABLES 30,120:100 x:C MS$"LOADING":150:D$:D$;"RUN MAIN/PR,D1"] :(20(MS$).5):12r "** "MS$" **"x ****** ** **** READ DATA ROUTINE ** ****** N1 A$:A$"EOD"NN1:220 READ DATAW8 PRINT/PR$COPYRIGHT 1982@H&E COMPUTRONICS, INC.X50 NO.PASCACK ROADoSPRING VALLEY, NYTR(X)(X100.5)100(MS$"INITIALIZING":1502500**INITIALIZE7250**READ DATAd60050 nPT2000,3000,4000,5000,6000,1                     ŠŠĠίҬıƠؠҠؠΠ ƠؠΠננֺϠננ֍ƠנΠĨРΠŠίҬıŠŠO CONTINUE";A$:90*/NX(218)(219)256L4N"ERROR # ";Y;" AT LINE # ";XTA" I14:NN$(I)" ":I" . Y/N/Q=Q$(Q$,1)OQ$"Y"Q1:aQ$"N"Q2:sQ$"Q"Q3::"PLEASE ENTER ";Q$:5000 NY(222)%N'N(7)*NY5ĺ:(7);"EMPLOYEE NOT ENTERED YET==>RETRY":"HIT RETURN TNN$(1)"E"A$"1"NN$(1)" "[A$"1"NV$"E"āI24:NN$(I)" ":I:NN$(1)"E":2200nNN$((A$))NV$x2100 D$:D$;"OPEN CTA,D2,L42" RNE:B0 I14 D$;"WRITE CTA,R"R",B"B NN$(I)CR$ BBBY(I) I D$;"CLOSE C0J"FOR ITEMIZED DEDUCTIONS";30);"=>";NN$(2)_R:"3.STANDARD DEDUCTION";30);"=>";NN$(3)\:"4.TAX CREDIT";30);"=>";NN$(4)f:"ENTER LINE # TO CHANGE,0 TO SAVE ";A$p(A$)0(A$)42150uA$"0"ī2500z:"ENTER NEW VALUE ";NV$!14D$;"READ CTA,R"R",B"B*NN$(I);BBBY(I):IOD$;"CLOSE CTA"Y2100*NN$(2)(ID):NN$(3)(SD):NN$(4)(TC)4:"AMOUNTS FOR EMPLOYEE # ";NE>:"1. EXEMPT? (E IF YES)";30);"=>";NN$(1)H:"2.ADDIT. WITHHOLDING ALLOWANCE"IONS"t"==>";ID<~:"ENTER STANDARD DEDUCTION AMOUNT"Q"FROM TABLE C "_"==>";SD:"ENTER TAX CREDIT AMOUNT FROM ""TABLE D ""==>";TC2090RE1:1000:RE0:NE$"Q"ıD$:D$;"OPEN CTA,D2,L42"RNE:B0ITATE", ="WITHHOLDING. CORRECT";:Q$:5000; ?NN$(1)"E"Q BQ1095,1050,1075 GNN$(1)"E":NN$(2)" ":NN$(3)" ":NN$(4)" ":2100 L V"ENTER AMOUNT FROM TABLE B CONCERNED" `"WITH ADDITIONAL WITHHOLDING ALLOWANCES"j"FOR ITEMIZED DEDUCTR EMPLOYEE NUMBER"/ "(Q TO RETURN TO MENU)"I "==>";NE$:NE$"Q"ıh NE(NE$):NE1NEEN1040r REı :"WILL EMPLOYEE'S GROSS ANNUAL" "SALARY BE UNDER ";LI;:Q$ $5000 .Q1080,1100,1075 3 8:"EMPLOYEE IS EXEMPT FROM S:D$;"RUN MAIN/PR,D1" ,:) D$(4)7 CR$(13)V D$;"OPEN PARAMETER/PR,D2"r D$;"READ PARAMETER/PR"z EN D$;"CLOSE PARAMETER/PR" LI5000 &BY(1)2:BY(2)10:BY(3)10:BY(4)10 X  ENTER EMPL DATA 1ST TIME  "ENTE1. ENTER EMPLOYEE DATA"6 d"2. CHANGE EMPLOYEE DATA"T n"3. RETURN TO MAIN MENU"c x"4. QUIT" :"ENTER NUMBER OF SELECTION=>";A A1A4130 A1000,1500,200,300:90 :(20(MS$).5):12 "** "MS$" **": MS$"LOADING":170"IT MUST BE USED BEFORE ANY CHECKS CAN"O <"BE ISSUED. INFORMATION MUST BE"r F"ENTERED FOR EVERY EMPLOYEE." H:"USE THE EXACT CALCULATION TABLES":"(METHOD B) FOR THE VALUES REQUESTED" P:"HIT TO CONTINUE":A$:A$(13)80 Z:"N  CALTAX, ENTERS TAX WITHHOLDING O FOR CALC OF STATE INCOME TAXe WRITTEN 1/20/83q20000 MS$"INITIALIZING":170500:I15::"THIS PROGRAM IS USED TO ENTER STATE"("TAX INFORMATION FOR ALL EMPLOYEES"( 2     ԠǤԠĤŠؠӍΠ ͠Ԡ  ƠĨΩΠĨΩ ͠ŠͮÍàԠĤΠҭϭŬIJ̹بببب٠ԠĤΠؠӬIJ̲ԠĤĠؠӬҢآ¢ٍԠФԠĤĠؠӬҢآ¢٠٨ŠŠĠίҍΠԠ ϠӤ̤ ԠĤԠĤΠجı͠ب͠ȤΩԨΩبب  )(219)256MMM$:(MM$)13ı6+MM$"Q"MM$(11)PTOT1:60095U+MM$"A"MM$(10)PTOT1v+2:5OT:" ";:PT0PTM1+PTM11PT1+OTPT:60070+0 ERROR HANDLER+:PT10(222)5ī12 ,D(7)"ERROR NUMBER "(222)" HAS OCCURED ON LINE "(218*I14:D(I):"*D$;"CLOSE(*D*`6:I1M1:6)M1$(I):J*eP*^*PT1:OT1*I140:"-";::14);::"VERSAPAYROLL":*A$"INITIALIZATION MENU":(20(A$)2)::A$::I140:"-";:::*60000*2:5PT:"-->":5PT+ĨΩΠĨΩΠŠίҍųųΠԯҍ̠ΤҠɠϠƠРبجɬΠԠɍɠɠĨΩРبجɬĨΩĨΩبجɬɨɩĨΩĨΩĠĨةĨΩĨΩĨΩĨΩ֍ƠAL WIDTH":J12:J23:J34:36000%)X)D$:D$;"OPEN PRINTER,D1":D$;"DELETE PRINTER")D$;"OPEN PRINTER":D$;"WRITE PRINTER)I14:C(I):)I14:D(I):)D$;"CLOSE))pD$:D$;"OPEN PRINTER,D1":D$;"READ PRINTER*zI14:C(I):"=> CHR$(..)";:32:"(";D(J)#(ҌI(܌17:958:"YOUR PRINTER REQUIRES THE USE OF":"CHR$(";D(J2);") ";:D(J3)0ĺ"CHR$(";D(J3);")"(挺("TO GET "B$" PRINT.":"CORRECT?";:" ";Q$(Q$"Y"Q$"N"36060(Q$"N"35300)J3B$"NORMPRESSED":J107'D(1)0:D(2)0:D(3)0:D(4)0:J21:J32E'17:958'"ARE ONE OR TWO CHARACTERS NECESSARY TO ":"SWITCH YOUR PRINTER TO "B$;:" MODE? (ENTER 1 OR 2)";N'N2N136000'I1N'JIJ1(Ȍ17:958:"ENTER CHARACTER NUMBER "IببببببǠкРРĨΩΠؠ РǍ РР֍ĠΩƠҠΠ Ԡ̤ϠƠΠϠ Ԡ̤Ԡ̤ ԠҠנŠĨƠҠĠĨҠĨΠԠԠ Ԡ٠ĨԠԠԠƠҧӠ΢ԠҠŠĨԠԠ͠ĠӠϠŠĠҠԠΠĨ ԠҠţϠŠϠҠԯҬı:15120:NGDT$"":15000 :,:******4:**K:** CHECK OUT DATES:**_;******h;NG1;(DT$,3,1)"/"(DT$,6,1)"/"ı$;(DT$)8ı.;MM$(DT$,2)8;DD$(DT$,4,2)B;YY$(DT$,2)L;(MM$)1(MM$)12ıV;(DD$)1(I1MN$i(D$;"READ BUFFER,R"I",B0"/n(BU(I)Gs(BU$(I)"$"(BU(I))Nx(Ie(D$;"CLOSE BUFFER"k(::15:"PLEASE ENTER THE DATE AS MM/DD/YY":DT$""ĺ:"(PRESS IF "DT$")::" =>";N$:(VD$"")(N$"")ı:DT$N$' ** READ CODE-' ********************G'D$;"OPEN CODE,D2,L7"S(I1MNo (D$;"READ CODE,R"I",B0"z(AN(I)(I((D$;"CLOSE CODE"<( ******************F( ** READ BUFFERP( ******************Z(D$;"OPEN BUFFER,D2,L11"d(CLOSE BUFFER"x#/'MS$"READING DATA":300J' ********************]' ** READ NAMEx$' ********************B'D$;"OPEN NAME ,D2,L16"L'I1MNV'D$;"READ NAME,R"I",B0"`'N$(I)j'It'D$;"CLOSE NAME"' ********************٠ҠɠϠԠĤĠҭϭŬ¢٢Ң̠ΤԠ¤àà̠¤٠٠̨ɩԠɍԠĤŠҭϭŢƠà̠ǤΠĨΠҨР̠ФϠIN DRIVE 2. TO CONTINUE";A$.9000A(# CLEAR BUFFERL-#ZERO02#:10:"CLEAR BUFFER??";A$:A$(A$,1):A$"Y"A$"N"90107#A$"N"ıF#D$:D$;"OPEN BUFFER,D2,L11"P#I1MNU#D$;"WRITE BUFFER,R"I",B0"Z#ZEROd# n#D$;"EN "AF$",D2,L65"TI1MN'Y45000?^D$;"READ "AF$",R"SchA(1):A$(2):A(3):A(4):A$(5)wrA(3)A(3)BU(I)|D$;"WRITE "AF$",R"AN(I)A(1):A$(2):A(3):A(4):A$(5)ID$;"CLOSE "AF$$:15:"INSERT PAYROLL DATA DISKETTE":"1MNNTNT1:RNT1WRE$"AR":NT$(NT):NT$(" ",(4(NT$)))NT$:RE$RE$NT$pD$;"WRITE "TF$",R"RBU(I):DT$:P$:N$(I):RE$:AN(I)ID$;"WRITE "TF$",R1"JE:NTD$;"CLOSE "TF$ WRITE ACCOUNT FILEJD$:D$;"OPTF$6:10:"ENTER NAME OF ACCOUNT FILE":"==>";AF$R READ TRANSACTION FILEvMS$"WRITING LEDGER FILES":300 FIND LOF(D$:D$;"OPEN "TF$",D2,L81"2D$;"READ "TF$",R1"<JE,NTF JE=NEXT REC NT=LOFP WRITE TRANS FILEIкD$;"PR#0" *  POST TO VERSALEDGER5 47000v :15:"INSERT VERSALEDGER II DATA DISKETTE":"IN DRIVE # 2" "HIT TO CONTINUE";A$ 48000 P$"V/PAYROLL" 15000 GET DT$:10:"ENTER NAME OF TRANSACTION FILE":"==>";R BUFFER CONTENTS":4000)  A$DT$:40003  4010L 26((A$)2));A$:[ I15:: "ACCT. NUMBER";:8)"DESCRIPTION";:9)"VALUE" I160:"-";:  I1MN L$(AN(I)) AN(I);20(L$))N$(I);20(N$(I)))BU$(I) I 15:BF$:20401 PT5000,3000,9000,200,250:120D PRINT BUFFERY 15000 GET DT$ :"ALIGN PRINTER AND PRESS " "TO PRINT BUFFER CONTENTS";A$ D$;"PR#";C(4) (C(1))C(2)ĺ(9);"K"; A$"VERSAPAYROLL":4000  A$"LEDGES$" **" @3 $:"HIT TO CONTINUE";A$S :"1. POST TO VERSALEDGER"u :"2. PRINT BUFFER CONTENTS" :"3. CLEAR BUFFER CONTENTS" :"4. RETURN TO MAIN MENU" :"5. QUIT" 15:"ENTER NUMBER OF CHOICE=>";PT PT5PT1ĢMN),AN(MN),BU(MN),BU$(MN)4 dI140:BF$BF$" ":IK x10000 GET TOTALS D$;"OPEN PRINTER,D1":D$;"READ PRINTER":I14:C(I)::D$;"CLOSE 2000 MENU :MS$"LOADING":300:D$;"RUN MAIN/PR,D1" : ,:(20(MS$).5):12 6"** "MI  VLI' VERSALEDGER INTERFACE> COPYRIGHT 2/2/83U H&E COMPUTRONICSk 50 N PASCACK RD SPRING VALLEY, NY D$(4)MM(12):I112:MM(I):2D$;"OPEN MN,D2,L4"<D$;"READ MN,R1,B0"FMNPD$;"CLOSE MN" ZN$(       "* MS$L$:150:D$:D$;"RUN INIT/PR,D1"O MS$L$:150:D$:D$;"RUN VLI,D1"W :q :(20(MS$).5):12 "** "MS$" **" ****** **** READ DATA ROUTINE ****** N1 A$:A$"EOD"NN1:220  RL4" AD$;"READ MN,R1,B0"# FMN6 KD$;"CLOSE MN"W PAN(MN),N$(MN),BU(MN),LA(MN)d dCEĽ:0o i60050 nPT2000,3000,4000,5400,5000,8000,120,130,130,135,140:100 sMS$L$:150:D$:D$;"RUN MAIN/PR,D1" xMS$L$:150:D$:D$;"RUN PRINT/PR,D1]] MAIN/PR$ COPYRIGHT 1982; COMPUTRONICS INCQ 50 N PASCACK RDj SPRING VALLEY, NY q L$"LOADING"TR(X)(X100.5)100(MS$"INITIALIZING":1502500 **INITIALIZE7250 **READ DATA <D$:D$;"OPEN MN,D2,                                       ɬŠίҬıà ҠɠϠԠĤĠҢ͢¢ԠԤɩ  بɩԠɍԠĤŠΠҠŠؠύԍؠϠ ͠ĠӍ ͠ĠĮԠ؍Ҡؠ Π͠Ġ؍ببببԠĤԠĤΠIJ̴Ԥ֩ƠؠҠؠΠР؍Π͠͠͠ĠؠӍ͠͠ƠĠΠΠĠӤǠؠӢ ҠΠƠנبجɬ֠ΠԠɍƠɠΠĨΩΠɠɠĨΩبجɬ֍ĨΩĨΩبجɬנبجɬ֩ƠؠҠؠΠĨΩĨΩ̠àƠؠҠؠΠؠЍƠؠҠؠΠנР̠Ԥ̠֩Ԥ֩ϠנРĠĨة֩ؠƠؠҠؠΠؠҠɠϠ؍ƠبجɬĨΠ͠ƠؠĠԤŢΠĨΩΠƠؠĠΤΠΠƠΤ͢Πؠؠ ͠Ԡ֍Ġ̠ΤĠԯҍΠԠ ϠɍŠԯҍà ٧ӠҠٍŠԍԍ΍ӠԠȠ΍                 CD$(I)B$I$D$;"CLOSE "CM$*3 **O ** WRITE COMPANY INFOX **tMS$"WRITING "CM$:150|D$D$;"OPEN "CM$",D2,L30" I1M2#D$;"WRITE "CM$",R"I",B0"(CD$(I)CR$-I2D$;"CLOSE "CM$7 ******TE DEDUCTIONS,R"PT",B0"*[TX$(11,1),CR$E`D$;"CLOSE DEDUCTIONS"KeT **o ** READ COMPANY INFOx **MS$"READING "CM$:150D$D$;"OPEN "CM$",D2,L30"I1M2D$;"READ "CM$",R"I",B0" CD$(I):B$CD$(I):2800:NG "M1$(PT):150 BY0" D$D D$;"OPEN TAX TABLES,D2,L220"P I110[ K13 D$;"WRITE TAX TABLES,R"PT",B"BY TX$(I,K) BYBYBL(K)1:K I $D$;"CLOSE TAX TABLES" . LD$ QD$;"OPEN DEDUCTIONS,D2,L9"VD$;"WRI****** P110:M115:SCR409 I1SCR:BF$BF$" ":IH TX$(11,3)S D$""a CR$(13) I1SCR:BL$BL$(8):I:BL$BF$BL$ BL(1)8:BL(2)6:BL(3)5   ******  **  ** WRITE TAXTABLES  **  ****** MS$"WRITI  ****** 3 10)"ANNUAL PAYROLL PERIOD"D 10)M1$(PT)O T15:l "FOR"T)"THE"T2)"PLUS "EARNINGS"T)"TAXES"T2)"THIS "OVER-"T)"ARE:"T2)"PERCENT: :  ******  **  ** INITIALIZE VARIABLES  **    READ DATA% 5 200:M1N1E 200:M2N1K ,` 1M1$(M1),N1$(16)w ;I1M1:M1$(I):I =A$ @I1M2:M2$(I):I EA$ JI116:N1$(I):I O ^NPACKRD  ******  **  **PRINT HEADING  **Ơנ֨ɩΠԠɠɠĨΩ֨ɩ֩֨ɩשΠŠίҬıųųΠԯҍĠ٠ؠӍ֨֨֨֨֨֨֨֨֨֨֨֨֨֨֨ҠɠϠƠŠΠĨΩΠƠΠϠƠΠϠƠΠϠĨΩи֍Π͠Ġ٠ƍƠР֠ΠֺϠƠР֠ΠֺϠР֩Π͠ΠԍР֍ŠиɵҠؠΠ ΠƠؠĠؠΠΠƠР֠ĠР֠ΠĨΩĨΩĨΩΠƠР֠ΠĨΩĨΩĨΩ͠ŠŠųĠίҬıڠƠؠҠؠΠڠƠؠҠؠĠԤΤ΢ΠϠƠڠΠ ƠڠΠננƠנĠؠ   4000,4000,5000,35000,130,120:100* x:Z MS$"LOADING":150:D$:D$;"RUN MAIN/PR,D1"t :(20(MS$).5):12 "** "MS$" **" ****** ** **** READ DATA ROUTINE ** ****** N1 A$:A$"EOD"NN1:220# INIT/PR$ COPYRIGHT 3/83@ H&E COMPUTRONICS INC.] SPRING VALLEY,NY 10977e 40 :NG1:PT10:C(4)1:50(MS$"INITIALIZING":1502500 **INITIALIZE7250 **READ DATA8NG115d60050nPT7İ3000:100" sPT6               N COMPANY INFORMATION,D2,L30"D 6D$;"WRITE COMPANY INFORMATION,R6"M @"N"q JD$;"CLOSE COMPANY INFORMATION" TD$:D$;"OPEN MN,D2,L4" ^D$;"WRITE MN,R1,B0" h16 rD$;"CLOSE MN" |:A$"LOADING":12:(24(A$)2):A$:D$;"RUN STATE SETUP, DATA DISK THAT":"YOU HAVE ENTERED EMPLOYEE INFO"b "ONTO, PUT IT IN DRIVE 2 AND HIT " :"HIT FOR FIRST RUN" :"HIT TO SETUP DISK WITH CURRENT":"DATA" A$:A$(13)A$(27)280 "A$(27)500 ,D$:D$;"OPE SETUP PR20000( D$(4)Y:"IF YOU ARE STARTING THE PROGRAM FOR THE""FIRST TIME, PUT A BLANK DISK IN ""DRIVE 2 AND HIT TO INITIALIZE ""THE TEXT FILES, THUS CREATING A DATA":"DISK."2 :"IF YOU ALREADY HAVE AԯҍųųĠίҍƠؠҠؠΠ ͠ȠƠĠΠΠƠĠΠננֺΠננֺΠŠίҍųųΠŠŠĠίҬıƠؠΠĨΩĨΠŠίҍŠŠΠԯҬı ̠ؤ֍ΠҠŠӍŠίҬıΠԯҍԠĤĠӬҢ̠ΤԠӤԠؤԠĤŢӤԤӤƠӤӢΠӠֺϠƠӤ͢ΠӠֺϠӠ֍נРӠĠίҬıΠԠ ϠԠĤԠĤΠӠŬıƠؠҠؠΠ Ϡ͠ӍԠĤԠĤΠӬIJ  QUIT4 :"ENTER NUMBER OF CHOICE ";N:N1N4100K N300,400,500,160T 100\ :p ,MS$" ":EX$" " 64000 GET EN @3000 DISPLAY J 4000 GET EN 1000 GET INFO 3000 DISPLAY  D$;"RUN MAIN/PR,D1  READ _ MISS STATE, COPYRIGHT JAN. 1984G H&E COMPUTRONICS INC] 50 N PASCACK RD| SPRING VALLEY, NY 10977 D$(4)d:"1. ENTER EMPLOYEE INFORMATIONn:"2. CHANGE EMPLOYEE INFORMATIONx:"3. RETURN TO MAIN MENU :"4.      PA%D$;"EXEC CHANGEMAINPA,D1":y' AL,AK,AZ,AR,CA,CO,CT,DE,DC,FL,GA,HI,ID,IL,IN,IA,KS,KY,LA,ME,MD,MA,MI,MN,MS,MO' MT,NE,NV,NH,NJ,NM,NY,NC,ND,OH,OK,OR,PA,RI,SC,SD,TN,TX,UT,VT,VA,WA,WV,WI,WY N DISPLAY *NC$"MODIFYING":B$"(IGNORE SCREEN DMO,D1": ALABAMA7D$;"EXEC CHANGEMAINAL,D1":H NEW MEXICOiD$;"EXEC CHANGEMAINNM,D1":w VERMONTD$;"EXEC CHANGEMAINVT,D1": OKLAHOMAD$;"EXEC CHANGEMAINOK,D1": MISSISSIPPID$;"EXEC CHANGEMAINMS,D1":D(N)0.00:#Z-TD(N)TR(GPSD(1)))d-<- EMPLOYER SDI`-YT(1)YT(2)YT(3)SD(3)ES0:w-ESTR(GPSD(2)):|t INITIALIZE NEW MONTH,ENTER NJ ST DIS. INS.Ey SDI DED,8A33,40F nPT2000,3000,4000,5400,5000,8000,8600,120,1L95",I13<-D$;"READ YEAR-TO-DATE,R"(NN$(1))",B"BYY -YT(I):YT(I)YT(I)TD(I)n-BYBYPL(I)1:I-D$;"CLOSE YEAR-TO-DATE"(-D$;"OPEN SDI,D2"2-D$;"READ SDI"<-SD(1):SD(2):SD(3)F-D$;"CLOSE SDI" P-YT(1)YT(2)YT(3)SD(3)T11000:I:8710/ "A3SD(A)0Ģ15:BL$:87109 $"8660T L"MS$"WRITING SDI":150j V"D$;"OPEN SDI,D2"~ `"D$;"WRITE SDI" j"SD(1):SD(2):SD(3) t"D$;"CLOSE SDI" ~" +TX5İ11500: , ** SDI ** ,BY0,D$:D$;"OPEN YEAR-TO-DATE,D2,ROSS TO BE USED FOR ":"CALCULATION =>";SD(3)` !15:"ENTER LINE# TO CHANGE (0 TO RETURN)=>";A| !A0A3Ģ15:BL$:8690 "A0ī8780 "15:BL$:BL$:15:"ENTER NEW VALUE =>";SD(A) "(A1A2)(SD(A)0SD(A)1)ĺ"MUST BE ENTERED AS DECIMAL":I ! SD(1)=EMPLOYEE'S %4 ! SD(2)=EMPLOYER'S %J ! SD(3)=MAX GROSS^ !D$;"CLOSE SDI" !:"1. PERCENT DEDUCTED FROM EMPLOYEE'S ":"SALARY =>";SD(1) !:"2. PERCENT OF EMPLOYER'S CONTRIBUTION":"PER EMPLOYEE =>";SD(2)- !:"3. MAXIMUM YTD GTATE DIS.INSn !:10:"IF YOU HAVE NOT ENTERED SDI INFORMATION":"THEN PRESS ELSE PRESS ";:A$ !A$(13)A$(27)8602 !A$(27)8660 !MS$"READING SDI":150 !D$:D$;"OPEN SDI,D2" !D$;"READ SDI" !SD(1):SD(2):SD(3)30,130,135,140:100" TE0:5700p ,YYĺLL$:X$(TE):7500:TE$X$:"EMPLOYER'S SDI CONTRIBUTION=>";TE$:6446 -LL$:11700:X$(ES):7500:ES$X$:"EMPLOYER'S SDI CONTRIBUTION=>";ES$ .L1 /TETEES YY1 6400PRINT IT YY0 ! NJ S  D$(4),D$;"OPEN CHANGEMAINNJ,D1"ID$;"WRITE CHANGEMAINNJ"T33,30o"POKE 33,1:POKE34,23"#"LOAD MAIN/PR"(110-"SAVE MAIN/PR"<D$;"CLOSE CHANGEMAINNJ"A33,40F nPT2000,3000,4000,5400,5000,8000,8600,120,1   Ԡ̤ ؤҤө ӤؤԠҧӠɠνӤ̠ŠŠӍ٠ ͠Ԡԍ٠͠ʠŠӮӍŠ ԠƠŠųĠίҍΠԠ ϠŠ Ơ٠ΠԠ̤ؤҤũ ŤؤԠҧӠɠνŤϠ!! ΠԯҍųųĠίҍƠؠҠؠΠ ϠƠؠҠؠΠĨΩĨΩĨة֩č͠Š؍נРĨ֩ΠŠίҍųų!!נϠננננֺΠŠίҍŠŠΠԯҬı֠֍͠נР֍ƠנΠנ Ơנ Π נƠ Π נשĠƠؠΠנŠŠĠίҬıƠؠҠؠΠ ϠƠؠĠנ֠ΠĨΩנֺϠƠР֠ĠؠҠؠΠĨΩĨΩР!!!ΠԯҍɵƠؠΠɵҠɶϠƠנɶΠԠɶɶɵɵɶĨנèɵΠŠίҍŠŠŠŠĠίҬıƠؠҠؠΠנĨƠנ֠ΠƠؠҠؠΠĨΩנبجɬ͍͠èèèèèè! ! ! ɱҰΠ!׍͍ԠϬIJŠŠΠĬıүҍǍӍǍ٠΍ǍؠӍǍ΍ǍŠųΠŠЬı"נ֩ĨΩĨΩֺΠƠנΠĨΩנ֩ĨΩĨΩֺΠĨΩנ֩ĨΩĨΩֺΠŠѠ׍Π͠Š؍ƠĠΠĠֺϠĨΩĨΩĠֺΠĨΩĨΩĠĺΠ͠ΠōƠנΠĨΩΠ͠Š؍͠֍ѠРĨנѠƠנ͠Πנ͍נѠ׍Π͠͠֍ѠРĨנѠƠנ͠Πנ͍ųųĠίҍƠؠΠ ϠƠؠΠ ϠƠؠҠؠΠƠנ֠Π ϠƠؠҠؠΠ " " "":"2. CHANGE/VIEW DEDUCTION AMOUNT"D :"3. RETURN TO MAIN MENU" 20:"ENTER NUMBER OF CHOICE";:A$:A(A$):A1A4Ģ20:I140:" ";:::150 A1500,2000,200:60 D$;"RUN MAIN/PR,D1" :10:"ENTER EMPLOYEE NUMBER =>";:" ";N$:N(N$) MISSOURI STATE STUFF(200004 D$(4)SD$;"OPEN PARAMETER/PR,D2"oD$;"READ PARAMETER/PR"w(EN2D$;"CLOSE PARAMETER/PR"<:A$"PERSONAL AND DEPENDENT EXEMPTION":20(A$)2)A$d::n"1. ENTER DEDUCTION AMOUNT"$ x" "  """""