8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L START PR4 PRODOS VERSION COPYRIGHT 1984@ D$(4)ZI140:BL$BL$" ":rd:A$"VERSAPAYROLL"n:(20(A$)2):A$:}6:"1. RUN INITIALIZATION PROGRAM":"2. RUN MAIN PROGRAM":"3. RUN REPORT PRINTING PROGRAM" :"<R6 M)TAXTABLESR6 MDEDUCTIONSAR6 MCOINF.PRR6 MMNR6 MPRINTERR6 J+ ,CHANGEMAINOHR6 R+ PRINTCHANGECAmR6 L,INITCHANGECAR6 L,CHANGEMAINMD7R6 L,,CHANGEMAINORR6 L,CHANGEMAINVAR6 L,CHANGEMAINWV<R6 L,PARAM.PRR6 L,,CHANGEMAINOKR6 L,CHANGEMAINPAxR6 L,CHANGEMAINZZTR6 L,CHANGEMAINAZR6 L,,CHANGEMAINGA0R6 L,CHANGEMAINILR6 L,,CHANGEMAINAL R6 L,CHANGEMAINUTR6 L,,CHANGEMAINNJ# R6 R ,MAINCHANGECA R6 L,,CHANGEMAINNYy y ,CHANGEMAINMOR6 L,,CHANGEMAINNMIR6 L,,CHANGEMAINIA "R6 L,,CHANGEMAINWIR6 L,,CHANGEMAINNC$R6 L,CHANGEMAINMNQCHANGEMAINSCR6 L,,CHANGEMAINMScR6 L,-CHANGEMAINARKR6 L,CHANGEMAINNYSPy y CHANGEMAINLA|R6 L,,CHANGEMAINMACHANGEMAINNECHANGEMAINVTR6 L,,CHANGEMAINKA R6 T&CALTAX{ R6 J *MISS.STATE`R6 J5'MOSTATER6 J5%NCTAX"R6 J5CHANGEMAINKY6e8 e8 CHANGEMAINMER6 L,PRMASTERR6 ' 3%STARTR6 J5+STATE.SETUP  R6 e8 'INIT.PRH#R6 J5'MAIN.PR&,UR6 R6 (PRINT.PRR'8R6 J5#VLIp >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R4. QUIT"T 16:"ENTER NUMBER OF CHOICE=>";:N$:(N$)49(N$)52Ģ16:BL$:160Z r 22:I140:" ";: 19:"PRESS TO EXECUTE CHOICE # ";N$ 21:"PRESS TO START AGAIN" M$:M$(13)M$(27)190 M$(27)100   MISSOURI+zD$;"EXEC CHANGEMAINMO":9 ALABAMAWD$;"EXEC CHANGEMAINAL":h NEW MEXICOD$;"EXEC CHANGEMAINNM": VERMONTD$;"EXEC CHANGEMAINVT": OKLAHOMAD$;"EXEC CHANGEMAINOK": MISSISSIPPID$;"EXEC CH5940A :10:"YOU ";::"WILL";::" BE DEDUCTING NYC TAXES"^4:"CORRECT? (Y/N/Q)";B$z>B$(B$,1):B$"N"5855HB$"Y"5980RB$"Q"2000W5855\20000fA$"N"ĺD$;"EXEC CHANGEMAINNYS":kA$"Y"ĺD$;"EXEC CHANGEMAINNY": pGON#D$;"EXEC CHANGEMAINOR":2 NEW YORKy:10:"WILL YOU BE DEDUCTING NEW YORK CITY ":"TAXES? (Y/N/Q)";A$A$(A$,1):A$"N"5900A$"Q"2000A$"Y"59205855 :10:"YOU WILL ";::"NOT";::" BE DEDUCTING NYC TAXES": CHANGEMAINIA":"  WISCONSIN@ D$;"EXEC CHANGEMAINWI":U  SOUTH CAROLINAs D$;"EXEC CHANGEMAINSC": D NEW JERSEY ND$;"EXEC CHANGEMAINNJ": v UTAH D$;"EXEC CHANGEMAINUT":  NEBRASKA D$;"EXEC CHANGEMAINNE": ORE  ARKANSAS1 D$;"EXEC CHANGEMAINARK":A  MINNESOTA_ (D$;"EXEC CHANGEMAINMN":l P KANSAS dD$;"EXEC CHANGEMAINKA":  KENTUCKY D$;"EXEC CHANGEMAINKY":  MASSACHUSSETS ,D$;"EXEC CHANGEMAINMA": | IOWA D$;"EXEC5300,6150,6120,6180,5400,4000,5150,6090,6000,6190,5780,4000,4000,5700,4000,5850,6110  SN344000,6220,6080,5800,6100,6160,5650,4000,4000,4000,5750,6070,6130,6250,6140,5600,4000 D$;"EXEC CHANGEMAINZZ":  CALIFORNIA D$;"EXEC MAINCHANGECA": STATE ABBREVIATION IS ";::">";::" "ST$(SN)" ";::"<":Z :"CORRECT? (Y/N) ";A$t A$"Y"A$"N"3020 A$"N"2000 20000 DISPLAY SN6020,6170,6200,5100,5000,4000,4000,4000,4000,4000,6210,4000,4000,4000,4000,5500,5200V SN17 16):I52ĖHT:I;". ";ST$(I):I:20708 3:HT12K5? Kj *23:"(ENTER 0 TO RETURN TO START-UP)" 22:"ENTER NUMBER OF YOUR STATE =>";SN SN0SN51Ģ22:BL$:3000 SN0ė:12:A$"LOADING":20(A$)2)A$:D$;"RUN START> :10:"YOUR STATE.SETUP7 PRODOS VERSION COPYRIGHT 1984DST$(51)Z I151:ST$(I):tI140:BL$BL$" ":D$(4) ** MAIN ROUTINE **A$"STATE TAX SETUP ROUTINE":(20(A$)2):A$:3HT5:I1:K13' II(IN(N$):N400,500,600,7008 1000:D$;"RUN INIT.PR"T 1000:D$;"RUN MAIN.PR"q X1000:D$;"RUN PRINT.PR"y : :A$"LOADING":(24((A$)1)2):12:A$: ANGEMAINMS": PA6D$;"EXEC CHANGEMAINPA":? NC]D$;"EXEC CHANGEMAINNC":i MAINED$;"EXEC CHANGEMAINME": VIRGINIAD$;"EXEC CHANGEMAINVA": WEST VIRGINIAD$;"EXEC CHANGEMAINWV": LOUISIANA D$;"EXEC CHANGEMAINLA":' RHODE ISLANDED$;"EXEC CHANGEMAINRI":R ALASKApD$;"EXEC CHANGEMAINAK":$ MARYLAND)D$;"EXEC CHANGEMAINMD":. MONTANA3D$;"EXEC CHANGEMAINMT":8 ARIZONA=D$;"EXEC CHANGEMAINAZ":B GEORGIEADING "M1$(PT):150 BY0(D$FD$;"OPEN TAXTABLES,L220"cD$;"READ TAXTABLES,R"PToI110zK13TX$(I,K)ID$;"CLOSE TAXTABLES""@D$ED$;"OPEN DEDUCTIONS,L9"JD$;"READ DEDUCTIONS,R"PTOTX$(WRITE COMPANY INFO **9MS$"WRITING "CM$:150AD$ZD$;"OPEN "CM$",L30"f I1M2#D$;"WRITE "CM$",R"I",B0"(CD$(I)-I2D$;"CLOSE "CM$7 ******* ** ** READ TAXTABLES ** *******MS$"R"CLOSE DEDUCTIONS"e# **> ** READ COMPANY INFOG **cMS$"READING "CM$:150kD$D$;"OPEN "CM$",L30"I1M2D$;"READ "CM$",R"ICD$(I):B$CD$(I):2800:CD$(I)B$ID$;"CLOSE "CM$ ** ** :150 BY0 D$6 D$;"OPEN TAXTABLES,L220"T D$;"WRITE TAXTABLES,R"PT` I110k K13y TX$(I,K)  I $D$;"CLOSE TAXTABLES" . LD$ QD$;"OPEN DEDUCTIONS,L9" VD$;"WRITE DEDUCTIONS,R"PT [TX$(11,1)`D$;110:M115:SCR40/ I1SCR:BF$BF$" ":I> TX$(11,3)I D$""W CR$(13) I1SCR:BL$BL$(8):I:BL$BF$BL$ BL(1)8:BL(2)6:BL(3)5   ******  **  ** WRITE TAXTABLES  **  ****** MS$"WRITING "M1$(PT) ) 10)"ANNUAL PAYROLL PERIOD": 10)M1$(PT)E T15:b "FOR"T)"THE"T2)"PLUS "EARNINGS"T)"TAXES"T2)"THIS "OVER-"T)"ARE:"T2)"PERCENT: :  ******  **  ** INITIALIZE VARIABLES  **  ****** P0  ! READ DATA( 8 200:M1N1H 200:M2N1N ,c 1M1$(M1),N1$(16)z ;I1M1:M1$(I):I =A$ @I1M2:M2$(I):I EA$ JI116:N1$(I):I O  ******  **  **PRINT HEADING  **  ****** !"#$PT64000,4000,5000,35000,130,120:1001 x:] MS$"LOADING":150:D$:D$;"RUN MAIN.PRw :(20(MS$).5):12 "** "MS$" **" ****** ** **** READ DATA ROUTINE ** ****** N1 A$:A$"EOD"NN1:22 INIT.PR+ PRODOS COPYRIGHT 1984G H&E COMPUTRONICS INC.d SPRING VALLEY,NY 10977l 40 :NG1:PT10:C(4)1:50(MS$"INITIALIZING":1502500 **INITIALIZE7250 **READ DATA8NG115d60050nPT7İ3000:100) sSD,TN,TX,UT,VT,VA,WA,WV,WI,WY- N DISPLAY^*NC$"MODIFYING":B$"(IGNORE SCREEN DISPLAYS)"x4N:10:20(C$)2)C$~9N>N20(B$)2)B$HN A!GD$;"EXEC CHANGEMAINGA":,L OHIOJQD$;"EXEC CHANGEMAINOH":[j WASHINGTONyoD$;"EXEC CHANGEMAINWA":' 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,11,1)"TD$;"CLOSE DEDUCTIONS"(^4I110?J13NTX$(I,J)0XJ:ImPT110:1000:s} B$"" A$ A$""2710 A$(13)ĺ: A$(8)Č1008:B$(B$,(B$)1):2710 (A$)312710 A$; B$B$A$:2710  J(B$) I11JI (B$,I1,1)(108)I1JB$(B$,I11)(44) (B$,I1,1)(108)B$(B$,I11)(44)(B$,J(I1)) "  ****** ** ** EDIT TAX TABLES ** ****** 1500 GET TAXTABLE  1600 GET DEDUC MN (D$;"WRITE MN (MN2 (D$;"CLOSE MN"P (MS$"WRITING BUFFER":150[ (ZERO0u (D$;"OPEN BUFFER,L11" (I1MN (D$;"WRITE BUFFER,R"I (ZERO )I )D$;"CLOSE BUFFER" ) ht ********* it ** jt ** DATA FOR MAIN MENU!kD$;"WRITE CODE,R"I'AN(I)&'I;(D$;"CLOSE CODE"R<( WRITE NAME FILEsA(MS$"WRITING NAME FILE":150F(D$:D$;"OPEN NAME,L16"K(I1MNP(D$;"WRITE NAME,R"IZ(N$(I)d(In(D$;"CLOSE NAME"(MS$"WRITING MN":150 (D$;"OPENCCOUNT NAME => ...............">'" IF '"N1$(I)"'"U'18:22:" ";N$(I)r'(N$(I))0N$(I)N1$(I)'(N$(I))15Ģ18:BF$:10140':I' WRITE CODE FILE'MS$"WRITING CODE FILE":150'D$:D$;"OPEN CODE,L7"'I1MN'0' INPUT LEDGER INFO&'XXı/'XX1HV'MN16:N$(MN),AN(MN)Tt':::`~'I1MN'15:"ENTER ACCOUNT NUMBER ";I;" => ######";'I1ė:10120'I$(I):LI(I$)'25LI:" ";AN(I)'AN(I)999999Ģ15:BF$:10120!'18:"ENTER AAXED:"T)TX(1,2)G"MAXIMUM TAX WITHHELD:"T)TX(1,2)TX(1,1)y:"ENTER LINE # TO CHANGE (0 TO RETURN) ";N$N(N$):N0N36000N0İ1000::"ENTER NEW VALUE ";MN1TX(1,1)MN2TX(1,3)MN3TX(1,2)M600(I)15)CD$(I) &p FICA1zT23:B15)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:"T)TX(1,1)"2.) ANNUAL EMPLOYER'S TAX RATE: "T)TX(1,3)"3.) MAX INCOME TEAD CD$()5100 DISPLAY33200 GET IN$()?N(B$)PN0İ1300:cN1NM25020n20:1BL$;:"NEW VALUE ";:2700:CD$(N)B$N6CD$(N)"Y"İ10000501015)"COMPANY INFORMATION"I1M2I".) "M2$$(1,2)(TX(1,2))?"1.) ANNUAL TAX RATE:"T)TX(1,1)f"2.) MAX INCOME TAXED:"T)TX(1,2)l"MAXIMUM TAX WITHHELD:"T)TX(1,2)TX(1,1)" ****** ** ** COMPANY INFO ** ******CM$"COINF.PR 1200 RN(B$)N0İ1000:1N1N24010G3400 MOD FUNC. R20:1rBL$;:"NEW VALUE ";TX(X,Y)3400 FORMAT4010 ****** ** ** DISLPAY ** ******T23: 15)M1$(PT) TX$(1,1)(TX(1,1)):TXRUNCATE TO BL() **6 (TX$(X,Y))BL(Y)NG1< I ******R **h ** FICA,FUTA...q **~ ******1500 GET TXTBLETX(1,1)(TX$(1,1)):TX(1,2)(TX$(1,2)):TX(1,3)(TX$(1,3))PT7ī60004100 DISPLAY3200$IN$:3215# L(B$):L03215> L1ĺIN$;:B$"":3215[ IN$;:B$(B$,L1):3215v (B$)0(B$,1)"0"ıC ******D **E ** FIND INDICESF **G ******H X1:YNR Y43430\ YY3:XX1:3410f  ** ** T X$"$ "NN$(J)X $z ******-{ **F| ** GET IN$ ROUTINEO} **\~ ******f B$""q 20:1 "CHANGE WHICH LINE (<0> TO RETURN) "; IN$ IN$(8)3245 IN$(13)3260 V(IN$):V47V583240 3215  IN$;:B$BABLES **  ******$ , C1?! 400 HEADINGK& I110V+ K13t0 T(K1)1)C")"TX$(I,K);~2 CC15 K:: I< C") ANNUAL DEDUCTION: $"TX$(11,1)= 23::"ENTER PERCENTAGES AS DECIMALS":? N FORMAT $$##.##S. 3100 DISPLAY, 3200 GET IN$8 N(B$)O N0İ1000:1100:b N1N313010w 3400 MOD FUNC. 20:1 BL$;:"NEW VALUE ";TX$(X,Y) NG0:3500 CHECK LEN NG3035 3005 ****** ** ** DISPLAY TAXTt **!lt ********* 6!mt FEDERAL TAXES (SINGLE)U!rt FEDERAL TAXES (MARRIED)q!|t STATE TAXES (SINGLE)!t STATE TAXES (MARRIED)!t LOCAL TAXES (SINGLE)!t LOCAL TAXES (MARRIED)!t FICA!t FUTA "t COMPANY INFORMATION,ENTER PRINTER SPECS*"t RETURN TO MAIN PROGRAM;"t QUIT,EODG"0u NAME:V"5u ADDR 1:e":u ADDR 2:t"?u ADDR 3:"Du EMPLOYER ID #:"u INTERFACE WITH VERSALEDGER==>:"u EODl#u NET PAY,FED TAX WITH,FED TAX PAY,ST TAX WITH,ST TAX PAY,LOC .PR* MS$L$:150:D$:D$;"RUN INIT.PRK MS$L$:150:D$:D$;"RUN VLIS :m :(20(MS$).5):12 "** "MS$" **" **** READ DATA ROUTINE N1 A$:A$"EOD"NN1:220 READ DATA 200:M2N1 ,$ 1MN$(%'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOP:D$;"OPEN MN' AD$;"READ MN,R1,B0"/ FMNB KD$;"CLOSE MN"c PAN(MN),N$(MN),BU(MN),LA(MN)p dCEĽ:0{ i60050 nPT2000,3000,4000,5400,5000,8000,120,130,130,135,140:100 sMS$L$:150:D$:D$;"RUN MAIN.PR xMS$L$:150:D$:D$;"RUN PRINT MAIN.PR3 PRODOS VERSION COPYRIGHT 1984J COMPUTRONICS INC` 50 N PASCACK RDy SPRING VALLEY, NY  63999L$"LOADING"TR(X)(X100.5)100(MS$"INITIALIZING":1502500 **INITIALIZE7250 **READ DATA <D$+D(7)"ERROR NUMBER "(222)" HAS OCCURED ON LINE "(218)(219)25640:"-";:::*600005*2:5PT:"-->":5PTK*MM$:(MM$)13ıq*MM$"Q"MM$(11)PTOT1:60095*MM$"A"MM$(10)PTOT1*2:5OT:" ";:PT0PTM1*PTM11PT1*OTPT:60070*0 ERROR HANDLER+:PT10(222)5ī12G$:D$;"OPEN PRINTER":D$;"READ PRINTER;)zI14:C(I):N)I14:D(I):])D$;"CLOSEc))`6:I1M1:6)M1$(I):)e))PT1:OT1)I140:"-";::14);::"VERSAPAYROLL":*A$"INITIALIZATION MENU":(20(A$)2)::A$::I1PRINT.":"CORRECT?";:" ";Q$>(Q$"Y"Q$"N"36060P(Q$"N"35300(J3B$"NORMAL WIDTH":J12:J23:J34:36000(((D$:D$;"OPEN PRINTER"(D$;"WRITE PRINTER"(I14:C(I):(I14:D(I):(D$;"CLOSE(()pDER 1 OR 2)";N"'N2N136000-'I1N8'JIJ1~'Ȍ17:958:"ENTER CHARACTER NUMBER "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$" (N1))::35020I&&17:958:"ENTER SLOT # ";C(4):C(4)1C(4)735110V&0:35020o&B$"COMPRESSED":J10&D(1)0:D(2)0:D(3)0:D(4)0:J21:J32&17:958'"ARE ONE OR TWO CHARACTERS NECESSARY TO ":"SWITCH YOUR PRINTER TO "B$;:" MODE? (ENT ";::"80"::350701%:"132";::" 80"M%::"4. SLOT # ";C(4)%::"ENTER LINE # TO CHANGE (0 TO RETURN)";N1$:N1(N1$):N10N14ė:35020%N10MS$"SAVING PRINTER PARAMETERS":150:37000%N13(C(3))İ35300&N14C(N1)(C0(A$)2:A$$ֈ5N$"1. ";:C(1)ĺ"PARALLEL ";::"SERIAL"::35050p$刞:"PARALLEL";::" SERIAL"$ꈺ::"2. LINE FEEDS ";:C(2)ĺ"ENABLED ";::"DISABLED"::35060$:"ENABLED";::" DISABLED"%::"3. COLUMNS ";:C(3)ĺ"132 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#NG35017#ˆ:MS$"LOADING PRINTER PARAMETERS":150#Lj38000 GET C AND D#ɈNG0:$̈A$"PRINTER PARAMETERS":212),M1$(M1),NN$(M1),BL(M1),M2$(M2)8 3TH$(EN),NT(EN)R 6I1M2:M2$(I)::A$i 9I112:MN$(I):I :I15:M6$(I)::I1M5:M5$(I): ;I1M1:M1$(I),BL(I):I @I1P1:P1$(I),PL(I):I E  **PRINT EMPLOYEE NAME  I12:M1$(I)20)NN$(I):  =  ** INITIALIZE VARIABLESM P110:M115h I140:BF$BF$" ":Iv M56:CE0 D$"" CR$(13) I140: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 PARAM.P400 N12İ2500% IN3030/ 3005I ** DISPLAY EMPLDATAO e! M1$(1)": "NN$(1)s& :I211+ I1")"M1$(I)": "18)NN$(I), I0 JIM1:31505 J1") "M1$(J)": "18)X$: J? N FORMAT $$##.##S X$"$ "NN$(J)1500 GET EMPDATA# NN$(1)EN$8 3100 DISPLAYL 3200 GET IN$Z N(B$)1q N1ė:Q1:1000: N2NM113010 IN:20:1 BL$;:"NEW VALUE ";NN$(N) NN$(N)(NN$(N)BF$,BL(N)) N7ĴN72100,2105,2200,2300 N12İ2* I1P1:TD(I)0:++ K15:PF$M6$(K)B, 1605:K:ZZ999ıl- :"DO YOU WISH TO ENTER ANY PREVIOUSv. N$""2 "EARNINGS FOR "NN$(2):"AT THIS TIME ";N$7 (N$,1)"N"ı< 4100A  ** EDIT EMPLDATA 1200 GET EMP# RTı NN$(10)"B"DV26.0.j NN$(10)"S"DV24.0Go NN$(10)"M"DV12.0bt NN$(I)((NN$(I))DV)h~ x X(NN$(I)) X(X100.5)100 NN$(I)(X) (NN$(I))BL(I)II1 % ** INIT PAYROLL ( MS$"INITIALIZING PAYROLL FILE":1501 9& PAY PERIOD (W,B,S,M)aNN$(I)"W"NN$(I)"B"NN$(I)"S"NN$(I)"M"II1g} PAY TYPE (H,S)NN$(I)"H"NN$(I)"S"NN$(I)"I"II1 ^ SALARY DIV PAY PERIOD` NN$(11)"S"ıb NN$(10)"W"DV52.0e ": ";NN$(I)-NN$(I)(NN$(I)BF$,BL(I))OI7ĴI72100,2105,2200,2300_I12İ2400oI11İ2500vI 3005 CORRECT2600 GET PAYDATA1100 UPDATE EMP#CE120001 MARRIED (M,S)4NN$(I)"M"NN$(I)"S"IIEAD DEDUCTIONS,R"TX*A$:DD(TX)(A$)0KD$;"CLOSE DEDUCTIONS"Qk ** ENTER EMPL DATA~NN$(1)(EN1):"TO RETURN TO MENU PRESS ":M1$(1)": "NN$(1)M1$(2);:": ";NN$(2)NN$(2)""ıI3M1:M1$(I);:$;"OPEN TAXTABLES,L220"%TX17.BY0KD$;"READ TAXTABLES,R"TXWI110b!K13{+A$:TX(TX,I,K)(A$)057:D$;"CLOSE TAXTABLES"Di ** READ DEDUCTIONSlD$vD$;"OPEN DEDUCTIONS,L9"{TX17D$;"RSE "PF$% ** READ PAYDATAIMS$"READING "PF$" DATA":150VBY0:D$nD$;"OPEN"PF$",L95"D$;"READ"PF$",R"(NN$(1))I1P1A$:TD(I)TR((A$))D$;"CLOSE"PF$ ** READ TAX TABLESBY0D$DPLDATA.PR,R"EMI1M1(NN$(I).JD$;"CLOSE EMPLDATA.PR"P"g7 ** WRITE PAYDATA@MS$"WRITING "PF$" DATA":150EBY0:D$JD$;"OPEN"PF$",L95"^D$;"WRITE"PF$",R"(NN$(1))cI1P1h(TR(TD(I)))r |D$;"CLO$"READING "CF$:150D$8D$;"OPEN "CF$",L30"C I15[#D$;"READ "CF$",R"Ig(CD$(I)n*I-D$;"CLOSE "CF$2 ** READ EMPLDATAMS$"READING EMPLOYEE DATA":150BY0:D$D$;"OPEN EMPLDATA.PR,L137"D$;"READ EM PARAM.PR"j+ ** QUERY EMP# (EM)6:RT0a"TO RETURN TO MENU PRESS ":EN$"":"EMPLOYEE NUMBER ";EN$EN$""RT1:EM(EN$):EM0EMENı"NO SUCH NUMBER IS ON FILE."1205 ** READ COMPANY DATAMS"D$;"OPEN EMPLDATA.PR,L137"ID$;"WRITE EMPLDATA.PR,R"(NN$(1))U I1M1aNN$(I)g$D$;"CLOSE EMPLDATA.PR".I ** GET EMPLOYEE NUMBERLENEN1QD$VD$;"OPEN PARAM.PR[D$;"WRITE PARAM.PR"`EN eD$;"CLOSER D$;"READ PARAM.PR"# EN< D$;"CLOSE PARAM.PR"G PW132] D$;"OPEN PRINTERt D$;"READ PRINTER" &I14:C(I)::I14:D(I): 0D$;"CLOSE PRINTER" :  ** WRITE EMPLDATA MS$"WRITING EMPLOYEE DATA":150 BY0D$X | ** GET IN$ ROUTINE( B$""3 21:1^ "CHANGE WHICH LINE (<0> TO RETURN) ";t IN$:IN$""3215 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):3215E (B$)0(B$,1)"0"ıO 3215j **EDIT PAYDATA FILES1200 GET EMP#RTı1500 GET EMPLDATA41004000 **  **SELECT PAYROLL FILE400 PRINT HEADING I1M5:*F7000 PRINT CHK.$*GSC0;*H(N1$,1)"N"5452X*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+y ** ALIGN NEBS C10100:10300:5430E)."PLEASE ENTER AMOUNT OF CHECK ";GP:TD(1)GP[)1I210:TD(I)0:y)6N1$"":TD(3)TD(3)NT(EM))7PF$"LASTPCHK":1600)8AV$"N"5400);400:"UPDATE EMPLOYEE'S FILES? ";N1$)@SC0:(N1$,1)"N"SC1*E5500 ALIGN CHK.T EMP#(RTı((1500 GET EMPDAT;(5600 CALC.GED(400X( AV$"":NT(EM)0(""PLEASE ENTER THE CHECK # ";CK$:CK(CK$):CK$"Q"ı($DT$""Ą"PLEASE ENTER THE DATE ";DT$('N$"":"WILL THIS CHECK HAVE DEDUCTIONS? ";N$),(N$,1)"N"İ'I13:XX(I)0:#'IE0:BH0)'D' ** UPDATE XXX-T-DATEP'I110b'PC(I)TD(I):m'K13'PF$M6$(B(K))'1700 GET PAYDAT'I110:TD(I)TD(I)PC(I):'1600 WRITE PAYDAT'K'' ** PRINT SINGLE CHK(1200 GETER?";N$&n(N$,1)"N"ı1&q5280 RE-INITC&r6100 BANNERP&sEM1ENf&x1500 GET EMPDAT&yNN$(11)"I"IEIE1:5255&z1700:TD(3)TD(3)NT(EM): GET PAYDAT&6000 PRINT REG.&EM&6600 PR.TOTALS&'I1P1:WX(I)0:VENTION."'%#:N$"":"CORRECT? ";N$E%((N$,1)"N"DT$"":5115[%-(N$,1)"Q"RT1a%2}%M ** ALLOW CORRECTIONS %P%UN$"":"ARE ALL EMPLOYEES CORRECT ";N$%Z(N$,1)"N"ı%d10000%f &iN$"":"DO YOU WANT AN UPDATED CHECK REGISENTER THE DATE ";DT$1$(DT$)9DT$"":5120`$"DO YOU WANT TO EDIT ANY PAYCHECKS? ";IV$}$IV0:(IV$,1)"N"IV1$ $"STARTING CHECK NUMBER:"CK$$"DATE ON CHECKS: "DT$$IV5155 %"THE CHECK LIST WILL BE PRINTED":"WITHOUT INTER:LA(12)TD(5):LA(14)TD(6):LA(16)LA(1)1D#5300 UPDATE FILESb#VI1İ26110 INTERFACEj#EMp## ** USER INSTRUCTIONS#PF$M6$(1):RT0#IE0#"PLEASE ENTER STARTING CHECK # ";CK$:CK(CK$):CK$"Q"RT1:$DT$""Ą"PLEASE N$""::"UPDATE FILES? ";N$:(N$,1)"N"5066"PF$M6$(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"CKCK1,#LA(1)NP:LA(2)TD(8):LA(4)TD(9):LA(6)TD(10):LA(8)TD(7):LA(10)TD(4)!6000 PR. REPORT&!AV$" ":EM AND THE WORD 'TEST'+"WILL BE PRINTED ON THE TOP CHECK. ,"MOVE THE CHECK BACK AND FORTH UNTILM,"'TEST' IS PRINTED JUST TO THE RIGHT OF,"THE PERFORATION."::"WHEN THE CHECKS ARE ALIGNED,,"ADVANCE THE CHECKS SO THAT THE PRINTER,"HEAD IS JUST BELOW THE FIRST CHECK.-:"PRESS

RINT CHECK OR ES LL$(BF$,10)NN$(2)(BF$,(35(NN$(2))))DT$(BF$,(10(DT$)))\:!AA$"************":"I1(NP$):(NP$,I,1)"$"Ă:#NP$(NP$,(NP$)(I1)):NP$(AA$,12(NP$))NP$:%LL$LL$(CK)(BF$,(10((CK))))NP$:)LL$:*L3:7300 CR$;4(BF$,(T4(TD$(I))))X$&9LL$:ID9(NN$(11),1)"S"ĺ:7136a9"TOTAL HOURS=>";TH$(EM)i9:9LL$DT$(BF$,(15(DT$)))(CK)(BF$,(30((CK))))9LL$LL$TP$(BF$,(12(TP$)))TD$(BF$,(12(TD$)))NP$9LL$9L12:7300 CR$E:0)P1$(I)(BF$,(16(P1$(I))))YT$(I)(BF$,(T1(YT$(I))))TD$(I)j8LL$LL$(BF$,(T3(TD$(I))))X$u8LL$:8I4P18XXTD(I):X$(TR(X)):75008LL$(BF$,10)P1$(I)(BF$,(16(P1$(I))))YT$(I)(BF$,(T2(YT$(I))))TD$(I)9LL$LL$ FORMAT7l7100 PRINT IT!.7q9400 PR#0E7sTD(3)TD(3)NT(EM)K7v`7 ** PRINT CHECK7X0:T119:T231:T324:T4127L477300 CR$732)"YTD";12)"GROSS";10)"DED.";8)"NET7I137XXTD(I):X$(TR(X)):7500E8LL$(BF$,1ET PAYDAT?6^SCāI1P1:X$(YT(I)):7500:YT$(I)X$::7010V6_TD(3)TD(3)NT(EM)6`I1P1:YT(I)TD(I)YT(I):X$(YT(I)):7500:YT$(I)X$:6b9300 PR#16c(C(3))70156dD(3)0D(4)0ĺ(D(3))(D(4));:70156eD(3)0ĺ(D(3)); 7g7400YEES:"IE5" "25I110:TD(I)TR(WX(I)):O5I13:T(I)TR(XX(I)):a56230 FORMATu56400 PRINT IT5L50:7300 CR$59400 PR#055U **PRINT CHECKS5XPF$M6$(5):17005ZI1P1:YT(I)TR(TD(I)): 6]PF$M6$(1):1700 GE11:E16ĺ(12):74nXE16:X0X7(X7)ĺ(12)=4xL4 **TOTALS]49300 PR#1t4(12): FORM FEED4L$(3)"":L$(4)"TOTALS FOR PAYROLL CHECK LIST"4HN4:911649300 PR#14"ACTIVE EMPLOYEES :"ENIEN1; 525)"INACTIVE EMPLOBF$,(T(P1$(I6))))TD$(I6)(BF$,(T(TD$(I6))))b3LL$LL$M$(I)(BF$,(T(M$(I))))T$(I)n3LL$:I3#TD(10)0L3:64503(LL$BF$(BF$,20)P1$(10)(BF$,(T(P1$(10))))TD$(10)3-LL$:L2327300 CR$373a ** PAGE CONTROL4dE1:2 ** PRINT AMTS.$2T15S2I110:X$(TR(TD(I))):7500:TD$(I)X$:^2I132LL$P1$(I)(BF$,(T(P1$(I))))TD$(I)(BF$,(T(TD$(I))))2 LL$LL$P1$(I3)(BF$,(T(P1$(I3))))TD$(I3)(BF$,(T(TD$(I3))))63LL$LL$P1$(I6)(I110:X$(TR(TD(I))):7500:TD$(I)X$:21`F1 ** PRINT NAME1LL$"EMP. #: "NN$(1)(BF$,(5(NN$(1))))NN$(2)(BF$,(30(NN$(2))))1LL$LL$NN$(5)(BF$,12)"CHECK #: "(CH)1LL$LL$" TOTAL HOURS: "TH$(EM)1LL$1CHCH12PAY"0CHCK0,05 ** CALC. TOTALS@08I12:T(I)0:o0=I13:T(1)T(1)TD(I):WX(I)WX(I)TD(I):0BI4P1:T(2)T(2)TD(I):WX(I)WX(I)TD(I):I0LT(3)T(1)T(2)0QI13:XX(I)XX(I)T(I):0VI13:X$(TR(T(I))):7500:T$(I)X$:,1[ TOTALS/6500)/6300 PR. TITLES@/6400 PRINT AMTS.Q/9400 PR#0 W/m/ ** PRELIM. INIT/L$(1)"PAYROLL CHECK LIST"/9200 SET PRINTER/L$(2)DT$:HN2/9100 PR.HEADING 0M$(1)"GROSS PAY":M$(2)"DEDUCTIONS":M$(3)"NET .N:"IWEEKLY ONLY5.X:"EMIMONTHLY ONLYL.b:"ONTHLY ONLYb.l:"LL PERIODS.q:"PRESS LETTER OF CHOICE".v:A$:A$"W"A$"B"A$"S"A$"M"A$"A"5700.P9$A$::.m **PRINT CHK.REGISTER.p9300 PR#1 /z6200T).'-N$:N$(80)N$(84)55137-N$(80)ıH-9300 PR#1T-"TEST"e-9400 PR#0o-5513u-- ** CALC GE FOR FICA-PF$M6$(5):1705-GETD(1)TD(2)TD(3)-PF$M6$(1)--C ** WHICH PAYPERIOD?.D:"EEKLY ONLYI24:15)NN$(I):;9L4';;7300-;>?;I1L:" ":E;]; ** FORMAT FOR CHKi;I1P1~;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): < X$(TR(TD)):7500:TD$X$3<NPTPTD:X$(TR(NP)):7500:NP$X$9<P ";YES$:J(*J9( ** EDIT PAYCHECKMJ<(YES$"YES":10200 DISP. CHCK`JA(3200 GET IN$sJF(N(B$):N0ıJK(N1510305JM(N14İ10500:10400:10300JP(21:1:BL$"NEW VALUE";:" ";NV$JQ(N15AV$(NV$,1):AV$"N"ıJR(N1510305K_(NVT."T3)"MISC.">I'"HOURS:";:I13:TI)I". "NH$(I);::kI'"RATE:";:I13:TI)I3".$"GP(I);::I':I4P1:P1$(I)":"2T)I3".$"TD(I):II':"GROSS PAY: $"GP;:20:"14. TIPS -> $"NT(EM)I'"NET PAY: $"NP J':"15. CHECK TO BE ISSUED='GP(1)(NN$(12)):GP(2)GP(1)1.5:GP(3)0@H'GP(2)TR(GP(2))aH'I1315:TD(I9)(NN$(I)):wH'10400 CALC. PAYH'NH(1)1GP(2)0H'TH$(EM)(NH(1)NH(2)NH(3))H'H' ** DISPLAY PAYCHECKH'400 HEADINGH'T10I'T)"REGULAR"T2)"O. WRITE PAYDAT'G+'TD(3)TD(3)NT(EM)2G.'10000LGq' **CALC. WAGES&HOURS_Gt'NN$(11)"I"ıGy'NN$(11)"S"NH$(1)"S":NH(1)1:10130G~'NH(1)0G'NN$(10)"W"NH(1)40G'NN$(10)"B"NH(1)80G'NH$(1)(NH(1))G'I23:NH(I)0:NH$(I)"0":+H0D(2)0ĺ(D(1))(D(2));:6F$D(1)0ĺ(D(1)); TO CONTINUE ";N$gE$EQ$ ** TURN ON PRINTERET$MS$"PRINTING":150E^$D$:D$;"PR#";C(4)Ec$C(1)9340Eh$C(2)ĺ(9);"K";Er$(9);"133N";E|$(C(3))9380F$D(1)ѱD# ** PR.REPORT HEADING0D#CF$""9115BD#CF$"COINF.PRVD#1300 READ CF$fD#9300 PR#1lD#D#I14:65((CD$(I))2))CD$(I):D#:I1HN:65((L$(I))2))L$(I):D#L5:7300D#9400 PR#0D#D# ** PREP. PRINTERD#"E#YEE #"NN$(1):150#C8!PF$M6$(2)>C>!1705 READ CURR MONMCH!PF$M6$(3)hCR!1605 WRITE LAST MONnC\!~C%# ** DATE??C(#:DT$""Ą"PLEASE ENTER THE DATE: ";DT$C2#:20((DT$)2))DT$C<#::"CORRECT? (Y/N) ";N$:(N$,1)"N"DT$"":9000DF# "Q$(MT3)" QUARTER.B 9B ** ZERO ***-T-D TOTALSSB EM1EN:NN$(1)(EM)hB 8500 LASTMONTH~B I110:TD(I)0:B K1QTB PF$M6$(B(K))B 1605 WRITE ZEROSB KB EMB B1! **CURR MON TO LAST MONC4!MS$"INITIALIZING EMPLO5A: A$(27)ė:%A? A$(81)ı?AD K11EN:NN$(1)(K1)dAF :15:"CLEARING EMPLOYEE # ";K1~AI ZZ999:2602 CLEARAN K1AS ZZ0AX Ak ** DISPLAY QUARTER MSG.Al **Aq Q$(1)"SECOND"Av Q$(2)"THIRD"A{ Q$(3)"FOURTH"B "AND THEVE."\@0 :"WHEN YOU ARE READY TO RE-INITIALIZE":"YOUR DATA DISKETTE (IN DRIVE 2) PRESS"@2 ". IF HAVEN'T BACKED UP YOUR ":"DISK YET, HIT TO EXIT THE ":"PROGRAM, OR TO RETURN TO THE MENU."A5 A$:A$(13)A$(27)A$(81)824 ** END OF YR MESS GE? I? "IF THE FOURTH QUARTER IS ENDING, YOUo? "SHOULD SAVE THIS DATA DISKETTE.? :"TO CREATE A NEW DATA DISKETTE,?! "FOLLOW THESE STEPS:":?& "1. BACKUP YOUR DATA DISKETTE.@+ "2. KEEP LAST YEAR'S DISK AS AN ARCHI"8015>8400 ZERO PAYDAT%>7> ** WARNING!=>d>"BEFORE INITIALIZING YOUR PAYROLL>"FILES, YOU SHOULD HAVE PRINTED ANY >"MONTHLY AND QUARTERLY REPORTS.>N$"">:"CONTINUE? (Y/N) ";N$>RT0:(N$,1)"N"RT1>:? ! =ERTı6=O"WHICH MONTH IS ENDING (1-12)? ";MTK=TMT1MT128015^=^MT12İ8200:=c:"PAYROLL FILES WILL BE":"INITIALIZED FOR "MN$(MT1)=mQT1:(MT3)3MTQT2:8300=r:N$"":"CORRECT (Y/N/Q) ";N$=w(N$,1)"Q"ı>|(N$,1)"N(NV$))Kd(N6TD(N3)NV:10445:10300TKi(N4NH(N)NV:NH$(N)NV$:10400:10300qKn(GP(N3)NV:10400:10300K( **CALC.DEDUCTIONSK(MS$"CALCULATING PAYCHECK":150K(I13:TD(I)NH(I)GP(I):K(NH(3)0TD(3)GP(3)L(GPTD(1)TD(2)TD(3)NT(EM)L(GPTR(GP),L(11100 READ TAXES^L((NN$(9),1)"E"āIJ710:TD(IJ)0:IJ:10440rL(N8:TX1:11000L(N9:TX3:11000L(N10:TX5:11000L(N7:TX7:11300L(I110:TD(I)TR(TD(I)):L(NPGP:I4P1:NPNPTD(I):L(NPTR(NP)M(Z?u ADDR 2,25,ZDu SOC.SEC.NO.,11BZKu LOCAL CODE, 2ZZOu STATE ABBR., 2lZSu MARRIED,1ZXu EXEMPTIONS,2Z]u PAY PERIOD,1Zbu PAY TYPE,1Zgu SALARY, 9 Zlu DEDUCTION 1,7Zqu DEDUCTION 2,7 [vu DEDUCAST PAYCHECK"Yt CURRENT MONTH3Yt LAST MONTHIYt QUARTER TO DATE]Yt YEAR TO DATErYt ALL FIVE FILESY-u ** EMPLOYEE DATAY/u ** M1$(),BL(),BY()Y0u ** BL()=FIELD LENGTHY5u EMPLOYEE NUMBER,3Y6u EMPLOYEE NAME,20Z:u ADDR 1, 25 EOD Xt Xt MONTHS"Xt @Xt JANUARY,FEBRUARY,MARCH[Xt APRIL,MAY,JUNE,JULY{Xt AUGUST,SEPTEMBER,OCTOBERXt NOVEMBER,DECEMBERXt PAYDATA FILESXt LASTPCHKXt CURMONTHXt LASTMONTH Xt QTDXt YTDYt LE FILE#Wrt UPDATE EMPLOYEE FILE>Wwt UPDATE PAYROLL FILE YWzt ISSUE SINGLE CHECKnW{t RUN PAYROLLW|t INITIALIZE NEW MONTHW}t PRINT REPORTSW~t ENTER/VIEW TAXESWt ENTER COMPANY INFORMATION,POST TO VERSALEDGERWt QUITXt VmIVmD$;"CLOSE BUFFER"%Vm9VHq CREDIT TRANSeVq:A$"FILLING BUFFER":20((A$))2)A$VqI2142:LA(I1)LA(I)1:IVqI1MNVqBU(I)BU(I)LA(I)VqIVq28000 WRITE BUFFERVqVjt ** DATA FOR MAIN MENUWmt CREATE EMPLOYEIU^jAN(I)UhjI*UrjD$;"CLOSE CODE"0U|jJUjD$;"OPEN BUFFER,L11"VUjI1MNoUjD$;"READ BUFFER,R"IzUjBU(I)UjIUjD$;"CLOSE BUFFER"UkU`m WRITE BUFFERUjmD$:D$;"OPEN BUFFER,L11"UtmI1MNU~mD$;"WRITE BUFFER,R"IVmBU(I)CCTS. Tf27300 GET BUFFER+Tf29000?Txi GET ACCOUNTSJTiNS999gTiMS$"READING FILES":150TiD$;"OPEN NAME,L16"TiI1MNTiD$;"READ NAME,R"ITiN$(I)TjITjD$;"CLOSE NAME"T@jD$;"OPEN CODE,L7"TJjI1MNUTjD$;"READ CODE,R"R,L30!SeD$;"READ COINF.PR,R6)SeA$ASeD$;"CLOSE COINF.PRPSeA$"Y"ıaSeC$"PAYROLL"Se:"WOULD YOU LIKE TO PLACE "C$Se"INFORMATION IN THE LEDGER BUFFER";:14000:VIZ9SeXXĴZ926110,26108,26108SeSeTfNS999İ27000 GET A(7)) R8,'R2 ** READ COMPANY INFO=R6 ** Y/N/Q INPUTKR6" ?";Z9$dR6(Z9$,1)"Y"Z91:}R6(Z9$,1)"N"Z92:R6(Z9$,1)"Q"Z93:R6:"PLEASE ANSWER (Y/N/Q)";:14000Re LEDGER INTERFACEReLA(9)LA(9)1SeD$:D$;"OPEN COINF.PQz+1900 READ DED.Q+.Q+ ** FIND DV8Q+DV52OQ+NN$(10)"B"DV26fQ+NN$(10)"S"DV24}Q+NN$(10)"M"DV12Q+Q$,GETX(7,1,2)TD(7)0:Q),GEGPTX(7,1,2)TD(7)TX(7,1,1)(TX(7,1,2)GE):11315Q.,TD(7)GPTX(7,1,1)R3,TD(7)TR(TD1)011055%P*+AWTX(TX,I,1)DVĂI8P/+I1TD(N)0:VP4+II1:TD(N)TX(TX,I,2)DVP9+TD(N)TD(N)TX(TX,I,3)(AWTX(TX,I,1)DV)P>+TD(N)0TD(N)0PC+PY+ **READ TAX TABLESP\+ADıPa+AD1Pf+MS$"READING TAX TABLES":150Qu+1800 READ TAXESTALS."O')GPGPNT(EM)CO,):"ENTER THE TIP AMOUNT => $";NT(EM)TO1)GPGPNT(EM)ZO6)nO* **CALC. TAXESuO* O+TX5(NN$(6))0TD(N)0:O +NN$(8)"M"TXTX1O+11200 GET DVO+D(NN$(9))O+AWGPD(DD(TX)DV)O +I110 P%+TX(TX,I,TING TAXES,":"BUT IT IS SUBSEQUENTLY SUBTRACTED FROM":"THE NET PAY PRIOR TO PRINTING THE CHECK":"ITSELF. THE MISC. FIGURE IN THE PAY-"O")"DATA FILE WILL, HOWEVER, CONTAIN THE ":"TIP AMOUNTS SO END OF QUARTER AND W-2":"FORMS WILL REFLECT CORRECT TOTH$(EM)(NH(1)NH(2)NH(3))$M(2M) ** TIPSM):"THE AMOUNT ENTERED UNDER THE CATEGORY":"'TIPS' IS USED IN THE FOLLOWING WAY:":M)"THE TIP AMOUNT IS ADDED TO THE GROSS ":"THAT APPEARS ON THE EDIT MENU. THIS "N)"AMOUNT IS USED WHEN CALCULATION 3,7 [y ** PAYROLL DATA5[y ** P1$(),PL()P[y ** PL()=FIELDLENGTHg[y REGULAR PAY,10[y OVERTIME PAY,10["y MISC. PAY,10['y DEDUCTION 1,8[,y DEDUCTION 2,8[1y DEDUCTION 3,8[6y FICA ,7\;y FEDERAL TAX,8\@y STATE TAX,8(\Ey LOCAL TAX,84\Jy EOD K\] ** INPUT ROUTINEg\`6:I1M2:6)M2$(I):m\es\\PT1:OT1\I140:"-";::14);::"VERSAPAYROLL"\A$"MAIN MENU":(20(A$)2):A$::I140:"-";::\60000 ]2:5PT:(NN$(I)))M1$(I3)": "NN$(I3);DEL2((M1$(I3))2(NN$(I3)))dHTL2)M1$(I6)": "NN$(I6)mIL30tJIMX$NN$(12):7500WNN$(11)"H"ĺT3)"HOURLY WAGE : "X$\NN$(11)"S"ĺT3)"SALARY: "X$ aNN$(11)"I"ĺT3)"INACTIVE EMPLOYEE"9100BANNEREM1EN01500GET EMPDAT@2100PRINTT2200LINE CTRL\EMb n/******v0**1** PRINT IT2**3******49300PR#16T307NN$(1):NN$(2);8L3(NN$(2))9I35>TL3)NN$(I);!C(T)AXTABLES,L220"-&D$;"READ TAXTABLES,R"TX8(K13E+TX(1,K)K0e:D$;"CLOSE TAXTABLES"kDw********** EMP.DATA REPORT********L$(1)"EMPLOYEE DATA REPORT9000 DATE?? RTı9200PREP PRNTRD$D$;"OPEN"PF$",L95";D$;"READ"PF$",R"(NN$(1))GI1P1`A$:TD(I)TR((A$))fyD$;"CLOSE"PF$**********READ TAX TABLES** ******MS$"READING TAX TABLES":150 BY0D$D$;"OPEN TD$;"OPEN EMPLDATA.PR,L137"<D$;"READ EMPLDATA.PR,R"EMHI1M1nNN$(I):B$NN$(I):2800:NN$(I)B$tD$;"CLOSE EMPLDATA.PR""********** READ PAYDATA********MS$"READING "PF$" DATA":150BY0:D$ D$;"OPEN "CF$",L30"+ I15C #D$;"READ "CF$",R"Ii (CD$(I):B$CD$(I):2800:CD$(I)B$p *I -D$;"CLOSE "CF$ 2 ******* ** ** READ EMPLDATA ** ******* MS$"READING EMPLOYEE DATA":150 BY0:D$$;"READ PARAM.PR" EN4 D$;"CLOSE PARAM.PR"J D$;"OPEN PRINTERa D$;"READ PRINTER" &I14:C(I)::I14:D(I): 0D$;"CLOSE PRINTER" : ****** ** ** READ COMPANY DATA ** ****** MS$"READING "CF$:150 ** INITIALIZE VARIABLES% **1 ******H P110:M115:SCR40d I1SCR:BF$BF$" ":Im M56x D$"" 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 PARAM.PR D READ DATA " 200:M2N1( ,T 1MN$(12),M1$(M1),NN$(M1),BL(M1),M2$(M2)n 6I1M2:M2$(I)::A$ 9I112:MN$(I):I :I1M5:M5$(I)::I15:M6$(I): ;I1M1:M1$(I),BL(I):I @I1P1:P1$(I),PL(I):I E ****** **QSTUVWXYZ[\]^_`abcdefghijklmn00,5000,6000,130,120:100# x:O MS$"LOADING":150:D$:D$;"RUN MAIN.PRi :(20(MS$).5):12~ "** "MS$" **" ****** ** **** READ DATA ROUTINE ** ****** N1 A$:A$"EOD"NN1:220  PRINT.PR4 PRODOS VERSION COPYRIGHT 1984PH&E COMPUTRONICS, INC.h50 NO.PASCACK ROADSPRING VALLEY, NYTR(X)(X100.5)100(MS$"INITIALIZING":1502500**INITIALIZE7250**READ DATAd60050 nPT2000,3000,40"-->":5PT#]MM$:(MM$)13ıI]MM$"Q"MM$(11)PTOT1:60095h]MM$"A"MM$(10)PTOT1]2:5OT:" ";:PT0PTM2]PTM21PT1]OTPT:60070](4)"RUN STATE.SETUP :IEIE1f******$**9** LINE CONTROLA**M******YXEM10iENEM2205EM10L11:7600:2215((X12)12X)2215L6:76009400 PR#0 B$"" A$ A$""2710 A$(13)ĺ:" A$(8)Č1008:B$(B$,(B$)1):27105 (A$)312710M A$(44)A$(108)V A$;i B$B$A$:2710u J(B$){"  ****** ** ** FICA REPORT ** ****** L$(1)"QUARTERLY FICA INFORMATION"] :"PRESS FOR QUARTERLY REP"TX8:1800READ FUTA1"YT0:QT0:FT0:ET0A"TAX$"FUTA"G"S"******["**u"** PRINT EMP LISTING}"**"******"5100INIT"L$(1)"EMPLOYEE LISTING""9000DT$ "9200PREP.PRNTR"RTı"9100 BANNER #EM1E1!9200PREP PRNTR*!9000 DATE??4!RTıE!9100BANNERT!4100INITe!3300TITLESr!EM1EN!3400CALC.TTL!3500 PRINT!3600PAGE CTRL!EM!3800LAST PAGE!!******!**!**INIT!**"******29400 PR#0 7! ******) **= ** FUTA REPORTE **Q ******x L$(1)"QUARTERLY FUTA INFORMATION" TF(1)0!:"PRESS FOR QUARTERLY REPORT":"PRESS FOR MONTHLY REPORT":A$:MF0:A$"M"L$(1)"MONTHLY FUTA INFORMATION":MF X$(TF(2)):7500U!"TIP TOTAL (NOT SUBJECT TO EMPLOYER'S PERCENTAGE)";12)X$u#"AMOUNT DUE FROM EMPLOYER"$XTR(TX(1,1)FT)%TF(1)XTR(X(TF(2)TX(1,3)))&X$(X):7500(T)"(TAXABLE WAGES X "TX(1,1)")":T4)X$-L50:7600 7500L2(36(X$)1)L "EXEMPT WAGES (PAYMENTS IN EXCESS OF "X$")";_X$(ET):7500q(T4)L2)X$X$(FT):7500L2(17(TAX$)4)"WAGES SUBJECT TO "TAX$" TAX";:(T4)L2)X$TX7TX(1,1)TX(1,1)TX(1,3)TF(1)03875BANNER9300PR#1*X$(YT):7500`"TOTAL WAGES PAID (YEAR-TO-DATE)";:(T4)31)X$MFĺT)"-- THIS MONTH'S DATA --":3830T)"-- THIS QUARTER'S DATA --""TOTAL WAGES PAID";X$(QT):7500(T4)16)X$X$(TX(1,2)): ****** **( ** PAGE CTRL0**<******]EM50L5:7600:3305:3615(EM50)EM50L12:7600:33059400 PR#0$********** LAST PAGE********9300PR#13200 LINEFEED 9125 9300PR#1 T15= NN$(5);:(T2)(NN$(5)))NN$(2);P X$(EF):7500j (T2)(NN$(2)))X$;{ L2(T(X$)) X$(EE):7500 L2)X$; L2(T(X$)) X$(EQ):7500 L2)X$; L2(T(X$)) X$(EY):7500 L2)X$ EF0-W EYEQTX(1,2)EFTX(1,2)(EYEQ)CZ EYTX(1,2)EFEQI] Z` TOTAL FICAic FT(FTEF)of i EMPL EXEMPT WAGESl EE(EQEF)o r TOTAL EXEMPT WGSu ETETEEx  ****** ** ** PRINT IT ** ****** E ** CALC.FIGURESF **(G ******>H 1500GET EMPLDAT]I MFPF$M6$(2):1700:3403~J PF$M6$(4):1700 GET QRTLYK EQTD(1)TD(2)TD(3):QTQTEQL TF(1)TF(2)TF(2)TD(3)N PF$M6$(5):1700 GET YRLYQ EYTD(1)TD(2)TD(3):YTYTEYT6)"TOTAL WAGES (TO DATE)"J "SECURITY #";:(T2)10)"EMPLOYEE NAME";b (T2)13)"WAGES";u T5)"WAGES"; MFĺT5)"MONTH";:3350 T5)"QUARTER"; T7)"YEAR" I1T8:"*";:% " "* 9400PR#0/ C ******D **YT0:QT0:FT0:ET0%0 TAX$"FICA"+N J EN56L56EN:7600:3210e EMEN56:L63EM:7600k w ****** ** ** TITLES ** ****** 9300 PR#1 T15 " SOCIAL"; (T4)8)"TAXABLE"; T7)"EXEMPT"; T  RTı 9100BANNER, 3100INIT.= 3300TITLESJ EM1EN] 3400CALC.TTLm 3500PRINT 3600PAGE CTRL EM 3800LAST PAGE  ****** ** ** INIT FOR FICA ** ****** TX7:1800 READ FICA & ORT":"PRESS FOR MONTHLY REPORT":A$:MF0:A$"M"L$(1)"MONTHLY FICA INFORMATION":MF1c t 9000DATE?? :"IS MISCELLANEOUS PAY BEING USED FOR":"TIP FIGURES? (Y/N) ";A$:A$(A$,1) TF(1)0:TF(2)0:A$"Y"TF(1)1 9200PREP PRNTR N#1500GET EMPDAT-#5200GET PAYDAT>#2100EMPDATO#5400TITLES`#5500PAYDATt#5300PAGE CTRL|#EM#5600TOTALS##**#** INIT FR EMPDATA#**#******#IE0#T10# #K******#L** $M** GET&FORMAT PD()$N**$O******+$PPP15;$ZPF$M6$(PP)O$d1700 GET DATA[$nJ1P1q$sX$(TD(J)):7500$tGT(PP,J)GT(PP,J)TD(J)$xTD$(PP,J)X$$}J$PP$$******$**$** PAGE CTRL$**$******$ENEMı%($X$'2x:X$(WT(2)):7500:T3)X$;\2}11(X$))TW$;:X$(WT(5)):7500:18(TW$))X$y2X$(WT(7)):7500:TW$X$2:T1)TW$;2(A)X$(WT(6)):7500:T2(T1(TW$)))X$:65402T2(T1(TW$)))"***"2::3X$(WT(3)):7500:T1)X$;D(9)):75001T1)X$;5151(T1(X$)))"***";H1T251)NN$(7)c1L5:(NN$(6))0ī6405z1X$(TD(10)):75001" ":T1)X$;151(T1(X$)))"***":LL217600CR$1 1d SUBTOTALS1nI34:T0)CD$(I):2sX$(WT(1)):7500:TW0(A)TWTWTT:X$(TW):7500:TW$X$^0TWF2X$(F2):7500:TW$X$:WT(7)WT(7)F2:6355q0WT(7)WT(7)TW0T1(5(NN$(2))))TW$;0(A)X$(TT):7500:T2(T1(TW$)))X$:63650T2(T1(TW$)))"***"0" ":I34:5)NN$(I): 1X$(T(8):WT(3)WT(3)TD(9):WT(4)WT(4)TD(10):WT(5)TD(7)WT(5):(A)WT(6)WT(6)TTj/X$(TW):7500:TW$X$/" ":T0)NN$(5);/X$(TD(8)):7500:27(5(NN$(5))))X$;/11(X$))TW$;/X$(TD(7)):7500/18(TW$))X$0" ":T0)NN$(2);(27:L3:76001.T1)CD$(5);15(CD$(5)))SI$.T0)CD$(1):T0)CD$(2);:II42(II42)ĺ52(CD$(2)))"X":6500:EMEM1:..I34:T0)CD$(I):.TWTD(1)TD(2)TD(3):(A)TTTD(3). SUBTOTALS ON 6317P/WT(1)WT(1)TW:WT(2)WT(2)TDW )-"THE TOP OF THE SECOND INVOICE.V- :"PRESS TO COMMENCE PRINTING.|-:"PRESS EST OR ";N$-N$"T"İ9300:"TEST":9400:6160-9400:-******-**-** PRINT W-2'S-**-******.T05:T138:T256:T3.2,:"PRESS AND THE WORD 'TEST' WILL BE Z,"PRINTED. SLIDE THE FORM BACK AND~,"FORTH UNTIL 'TEST' IS PRINTED,"JUST TO THE RIGHT OF THE PERFORATION.,:"WHEN THIS IS DONE, ADVANCE THE FORM-"SO THAT THE PRINTER HEAD IS JUST BELOEMEM1+9400PR#0 +EM)+W20/+;+******C+**W+** ALIGN W-2'S_+**k+******+:"USE THIS PROCEDURE TO ALIGN YOUR+"W-2 FORMS.":+"PUT W-2'S INTO PRINTER SO THAT MOST OF,"THE FIRST FORM IS BELOW THE PRINT HEADNTER EMPLOYER'S STATE ID# ";SI$5*z1300 READ CF$B*EM1ENN*IIII1e*1500READ EMPDAT t*PF$M6$(5)*1700GET YTD*9300PR#1*D(3)0D(4)0ĺ(D(3))(D(4)):6045*D(3)0ĺ(D(3))*6300PRINT W-2 +EMENEM42İ6500:)n** )o******0)p6100 ALIGN W-2 FORMS9)qW21S)sII0:I17:WT(I)0:o)t7700 GET FICA CEILING)uCF$"COINF.PR)w:12:"IS THE MISCELLANEOUS PAYDATA CATEGORY":"USED FOR TIPS? (Y/N) ";:"";A$:(A$,1)"Y"A1:6009)xA0!*y:12:"E::@("ACTIVE EMPLOYEES: "ENIE" INACTIVE EMPLOYEES: "IER(5400 TITLES](I15i(H110(X$(TR(GT(I,H))):7500( TD$(I,H)X$(H:I(5500PR PAYDAT (L50:7600(!9400 PR#0(&(k******(l**)m** W-2 FORMS $(I))))TD$(1,I);9'J25:T(TD$(J1,I)))TD$(J,I);B'J:I'IW'L5:7600]'i'******q'**'** TOTALS'**'******'L14:(EN2)2ENL40'7600CR$'9125BANNER '9300PR# 1("TOTALS FOR ALL EMPLOYEES"&w******&x**,&y** PRINT PAYDATA4&z**@&{******V&|"GROSS EARNINGS"m&I13:3)P1$(I);&T(3(P1$(I))))TD$(1,I);&J25:T(TD$(J1,I)))TD$(J,I);&J:&I&"DEDUCTIONS"&I4P1&3)P1$(I);'T(3(P1EM2)2EM5320&%L16:EM2L104%7600CR$C%9400PR#0I%U%******]%**l%** TITLESt%**%******%T20%" "%"T)M5$(1);%'I25%,T(M5$(I1)))M5$(I);%6I%;" ":I1T6%@"*";%EI%J" "&O351(T1(X$)))"***"23L5:WT(4)06570o3X$(WT(4)):7500::T1)X$;:51(T1(X$)))"***":LL2y376003I17:WT(I)0:33G******3H**3I ** FORMAT W/ $$3J**3K******3LK1(X$)3Q(X$,K,1)"."75204VK4[X$X$".00":7525/4`(X$)K1X$X$"0"94eW2ıG4fX$"$"X$M4jY4******a4**t4**PRINT LINES|4**4******4I1L4" "444 GET FICA CEILING4D$;"OPEN TAXTABLES,L2204(D$;"READ TAXTABLES,R7,F1 52F2  VLI' VERSALEDGER INTERFACEK PRODOS VERSION COPYRIGHT 1984b H&E COMPUTRONICSx 50 N PASCACK RD SPRING VALLEY, NY D$(4)MM(12):I112:MM(I):2D$;"OPEN MN<D$;"READ MNFMNPD$;"CLOSE MN" ZN$(MN)@PTM21PT1%@OTPT:60070::14);::"VERSAPAYROLL"a?A$"REPORT PRINTING MENU":(20(A$)2):A$::I140:"-";::l?60000?2:5PT:"-->":5PT?MM$:(MM$)13ı?MM$"Q"MM$(11)PTOT1:60095?MM$"A"MM$(10)PTOT1@2:5OT:" ";:PT0PTM2y DEDUCTION 2,8(>1y DEDUCTION 3,86>6y FICA,7K>;y FEDERAL TAX,8^>@y STATE TAX,8q>Ey LOCAL TAX,8|>Jy EOD >[******>\**>]** INPUT ROUTINE>^**>_******>`6:I1M2:6)M2$(I):>e>>PT1:OT1?I140:"-";qu DEDUCTION 2,7+=vu DEDUCTION 3,7<=y********* E=y** Z=y** PAYROLL DATAb=y**v=y ** P1$(),PL()=y ** PL()=FIELDLENGTH=y**=y*********=y REGULAR PAY,10=y OVERTIME PAY,10="y MISC. PAY,10='y DEDUCTION 1,8>,BER,3<6u EMPLOYEE NAME,201<:u ADDR 1, 25B TO CONTINUE ";N$7$7O$******7P$**7Q$** TURN ON PRINTER7R$**7S$******8T$MS$"PRINTING":150F#6#******6#**.6#** PRINT BANNER66#**B6#******T6#CF$""9120f6#CF$"COINF.PRy6#1300READ CF$6#9300PR#16#I14:65((CD$(I))2))CD$(I):6#L$(2)DT$6#:I12:65((L$(I))2))L$(I):6#9400PR#06#7#***$:F2(F2$))5<D$;"CLOSE TAXTABLES":55##******=5$#**L5%#** DATE??T5&#**`5'#******k5(#RT0:5-#DT$""Ą"PLEASE ENTER THE DATE ";DT$52#:20((DT$)2))DT$5<#::"CORRECT? (Y/N/Q) ";N$:(N$,1)"N"DT$"":90005A#(N$,1)"Q"RT16,AN(MN),BU(MN),BU$(MN)3 \D$;"OPEN COINF.PR,L30M ^D$;"READ COINF.PR,R6V `CD$n bD$;"CLOSE COINF.PR c6000 INTERFACE? dI140:BF$BF$" ":I x10000 GET TOTALS D$;"OPEN PRINTER":D$;"READ PRINTER":I14:C(I)::D$;"CLOSE 2oqrstuvwxy(I1MN% (D$;"READ CODE,R"I0(AN(I)7(IL((D$;"CLOSE CODE"e<( ******************zF( ** READ BUFFERP( ******************Z(D$;"OPEN BUFFER,L11"d(I1MNi(D$;"READ BUFFER,R"In(BU(I)s(BU$(I)"$"(BU(I))x(I(**************#' ** READ NAME>$' ********************WB'D$;"OPEN NAME ,L16"cL'I1MNzV'D$;"READ NAME,R"I`'N$(I)j'It'D$;"CLOSE NAME"' ********************' ** READ CODE' ********************'D$;"OPEN CODE,L7" CLEAR BUFFER-#ZERO0Z2#:10:"CLEAR BUFFER??";A$:A$(A$,1):A$"Y"A$"N"9010h7#A$"N"ıF#D$:D$;"OPEN BUFFER,L11"P#I1MNU#D$;"WRITE BUFFER,R"IZ#ZEROd#n#D$;"CLOSE BUFFER"x#'MS$"READING DATA":300' ******LEDGER.""YOU MUST CHANGE LINE 6 OF YOUR COMPANY":"INFORMATION TO READ 'Y' MEANING YES":"FOR THE SYSTEM TO BE READY FOR "INTERFACING.:"HIT TO RUN THE INITIALIZATION":"PROGRAM";A$:MS$"LOADING":300:D$;"RUN INIT.PR(#UR PAYROLL DISK INTO THE ":"DRIVE. PRESS WHEN READY.":YMF$:MF$""5550nMF$(13)5550x9000~p GET INTERFACE RESPONSEz(CD$,1)"Y"ı :10:"YOU HAVE NOT SPECIFIED THAT YOU WILL":"BE INTERFACING WITH THE VERSALE%JD$:D$;"OPEN "PF$AF$",L65"1TI1MN<Y45000X^D$;"READ "PF$AF$",R"S|hA(1):A$(2):A(3):A(4):A$(5)rA(3)A(3)BU(I)|D$;"WRITE "PF$AF$",R"SA(1):A$(2):A(3):A(4):A$(5)ID$;"CLOSE "PF$AF$C:"INSERT YOI1MNNTNT1:RNT1_RE$"PR":NT$(NT):NT$(" ",(4(NT$)))NT$:RE$RE$NT$|D$;"WRITE "PF$TF$",R"RBU(I):DT$:P$:N$(I):RE$:AN(I)ID$;"WRITE "PF$TF$",R1"JE:NTD$;"CLOSE "PF$TF$ WRITE ACCOUNT FI;TF$9:10:"ENTER NAME OF ACCOUNT FILE":"==>";AF$U READ TRANSACTION FILEyMS$"WRITING LEDGER FILES":300 FIND LOF(D$:D$;"OPEN "PF$TF$",L81"2D$;"READ "PF$TF$",R1"<JE,NTF JE=NEXT REC NT=LOFP WRITE TRANS FILE "/PROFILE/LED/":5016"PF$A$j:"INSERT LEDGER DISK INTO DRIVE. (PRESS":" WHEN READY":MF$:MF$""5017MF$(13)501747000:48000P$"V/PAYROLL"15000 GET DT$:10:"ENTER NAME OF TRANSACTION FILE":"==>""-";:  I1MN* L$(AN(I))Y AN(I);20(L$))N$(I);20(N$(I)))BU$(I)` Ik (12)z D$;"PR#0"   POST TO VERSALEDGER :"ENTER PREFIX FOR VERSALEDGER II FILES":"(PRESS IF /PROFILE/LED/)"A$:A$""PF$TENTS";A$ D$;"PR#";C(4); (C(1))C(2)ĺ(9);"K";W A$"VERSAPAYROLL":4000}  A$"LEDGER BUFFER CONTENTS":4000  A$DT$:4000  4010 26((A$)2));A$: I15:: "ACCT. NUMBER";:8)"DESCRIPTION";:9)"VALUE" I160::"4. RETURN TO MAIN MENU"- :"5. QUIT"T 15:"ENTER NUMBER OF CHOICE=>";PTr PT5PT1Ģ15:BF$:2040 PT5000,3000,9000,200,250:120 PRINT BUFFER 15000 GET DT$ :"ALIGN PRINTER AND PRESS " "TO PRINT BUFFER CON000 MENU6 :MS$"LOADING":300:D$;"RUN MAIN.PR> :X ,:(20(MS$).5):12m 6"** "MS$" **"s @ $:"HIT TO CONTINUE";A$ :"1. POST TO VERSALEDGER" :"2. PRINT BUFFER CONTENTS" :"3. CLEAR BUFFER CONTENTS" D$;"CLOSE BUFFER"(H::15:"PLEASE ENTER THE DATE AS MM/DD/YY"s:DT$""ĺ:"(PRESS IF "DT$")::" =>";N$:(DT$"")(N$"")ı:DT$N$:15120:NGDT$"":15000::******:**:** CHECK OUT DATE:** ;******;NG1=;(DT$,3,1)"/"(DT$,6,1)"/"ıN$;(DT$)8ı_.;MM$(DT$,2)r8;DD$(DT$,4,2)B;YY$(DT$,2)L;(MM$)1(MM$)12ıV;(DD$)1(DD$)MM((MM$))ı`;(YY$)1(YY$)99ıj;NG0~;0u DATE DATA":u 31,NN$(2)7R:"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$NN$(1)"E"A$"1"NN$(1)" "3A$ NN$(I)'D$;"CLOSE CTA"12100\*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"J"FOR ITEMIZED DEDUCTIONS";30);"=>";:"ENTER STANDARD DEDUCTION AMOUNT"<"FROM TABLE 3 "J"==>";SDq:"ENTER TAX CREDIT AMOUNT FROM ""TABLE 4 ""==>";TC2090RE1:1000:RE0:NE$"Q"ıD$:D$;"OPEN CTA,L42"RNE:B0D$;"READ CTA,R"RI14EMPT FROM STATE"9 ="WITHHOLDING. CORRECT";:Q$:5000H ?NN$(1)"E"^ BQ1095,1050,1075 GNN$(1)"E":NN$(2)" ":NN$(3)" ":NN$(4)" ":2100 L V"ENTER ESTIMATED DEDUCTION AMOUNT FROM" `"TABLE 2 FOR ANNUAL PAYROLL PERIOD" t"==>";ID'~ "ENTER EMPLOYEE NUMBER"< "(Q TO RETURN TO MENU)"V "==>";NE$:NE$"Q"ıu NE(NE$):NE1NEEN1040 REı :"WILL EMPLOYEE'S GROSS ANNUAL" "SALARY BE UNDER ";LI;:Q$ $5000 .Q1080,1100,1075 3 8:"EMPLOYEE IS EX" **":2 MS$"LOADING":170:D$;"RUN MAIN.PR: ,:F D$(4)T CR$(13)k D$;"OPEN PARAM.PR D$;"READ PARAM.PR" EN D$;"CLOSE PARAM.PR" LI5640 &BY(1)2:BY(2)10:BY(3)10:BY(4)10 X  ENTER EMPL DATA 1ST TIME NUE":A$:A$(13)808 Z:"1. ENTER EMPLOYEE DATA"W d"2. CHANGE EMPLOYEE DATA"u n"3. RETURN TO MAIN MENU" x"4. QUIT" :"ENTER NUMBER OF SELECTION=>";A A1A4130 A1000,1500,200,300:90 :(20(MS$).5):12 "** "MS$z|}~RMATION FOR ALL EMPLOYEES"I 2"IT MUST BE USED BEFORE ANY CHECKS CAN"p <"BE ISSUED. INFORMATION MUST BE" F"ENTERED FOR EVERY EMPLOYEE." H:"USE THE EXACT CALCULATION TABLES":"(METHOD B) FOR THE VALUES REQUESTED" P:"HIT TO CONTI CALTAX, ENTERS TAX WITHHOLDING O FOR CALC OF STATE INCOME TAXe WRITTEN 1/20/83 PRODOS MODIFICATIONS 11/8420000 MS$"INITIALIZING":170500:I15::"THIS PROGRAM IS USED TO ENTER STATE" ("TAX INFO:D$;"OPEN"PF$"GLACCT.IDX":D$;"READ"PF$"GLACCT.IDX=I1A$:(A$,3)"ZZZ"A$"END"X(I)((A$,6)):Y(I)((A$,(A$)6)):II1:48010NAI1D$;"CLOSE"POSTING IS NOT VALID. YOU MUSTIij"ENTER THE NUMBER "KEY" IN YOURdγ"LEDGER ACCOUNT FILE.jسpD$:D$;"OPEN"PF$"GLPARAM.DAT":D$;"READ"PF$"GLPARAM.DATA$:A$:A$W9999ĆX((A$)1),Y((A$)1):W9999ʷD$;"CLOSE":5D$28,31,30,31,30,31,31,30,31,30,31?ȯL81:T8NA:S0:KEYAN(I)^үKEYX(L8)KEYX(T8)46000ܯMID((L8T8)2):MID046000毭KEYX(MID)T8MID1:45020KEYX(MID)L8MID1:45020SY(MID):D$::(7)"ACCOUNT NUMBER IS NOT ON FILE"$"1"NV$"E"āI24:NN$(I)" ":I:NN$(1)"E":2200FNN$((A$))NV$P2100k D$:D$;"OPEN CTA,L42"x RNE:B0 D$;"WRITE CTA,R"R I14 NN$(I) I D$;"CLOSE CTA" I14:NN$(I)" ":I  Y/N/QQ$(Q$,1) Q$"Y"Q1:Q$"N"Q2:1Q$"Q"Q3:P:"PLEASE ENTER ";^Q$:5000k NY(222)q%N{'N(7)*NY5ĺ:(7);"EMPLOYEE NOT ENTERED YET==>RETRY":"HIT RETURN TO CONTINUE";A$:90/NX(218)(219)256 4N"ERROR # ";Y;" AT LI):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 NUM+ x:"2. CHANGE/VIEW DEDUCTION AMOUNT"K :"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 :10:"ENTER EMPLOYEE NUMBER =>";:" ";N$:N(N$ MOSTATE3 PRODOS VERSION COPYRIGHT 1984?20000K D$(4)bD$;"OPEN PARAM.PRzD$;"READ PARAM.PR"(EN2D$;"CLOSE PARAM.PR"<:A$"PERSONAL AND DEPENDENT EXEMPTION":20(A$)2)A$d:: n"1. ENTER DEDUCTION AMOUNT"20) ";EX$:3000  GET ENJ :"ENTER EMPLOYEE # (0 TO RETURN) ";ENX EN1ġ:^  : "MS$8 :"2. WITHHOLDING EXEMPTION : $"(EX$)w :"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-4READ FILE& D$:D$;"OPEN MISS,L20> D$;"READ MISS,R"ENL MS$:EX$` D$;"CLOSE MISSf w  WRITE FILE D$:D$;"OPEN MISS,L20 D$;"WRITE MISS,R"EN MS$:EX$ D$;"CLOSE MISS  DISPLAY :"1. MARITAL STATUS :"4. QUIT> :"ENTER NUMBER OF CHOICE ";N:N1N4100U N300,400,500,160^ 100f :z ,MS$" ":EX$" " 64000 GET EN @3000 DISPLAY J 4000 GET EN 1000 GET INFO 3000 DISPLAY  D$;"RUN MAIN.PR   MISS.STATE6 PRODOS VERSION COPYRIGHT 1984Q H&E COMPUTRONICS INCg 50 N PASCACK RD SPRING VALLEY, NY 10977 D$(4)d:"1. ENTER EMPLOYEE INFORMATIONn:"2. CHANGE EMPLOYEE INFORMATIONx:"3. RETURN TO MAIN MENU NE # ";XBER "N" IS $";AE3 >:"CORRECT? (Y/N)";:" ";A$B CA$(A$,1)V HA$"Y"İ4000:h RA$"N"2100r \1510 D$:D$;"OPEN SPECIAL,L10" D$;"READ SPECIAL,R"N AE D$;"CLOSE SPECIAL": D$;"OPEN SPECIAL,L10" D$;"WRITE SPECIAL,R"N AE# D$;"CLOSE SPECIAL") J NX(222):Y(218)(219)256P !N *NX5ĺ"YOU MUST ENTER EMPLOYEE DATA BEFORE":"YOU CAN CHANGE IT"::"HIT TO RECOVER";:"";A$::0 4N"ERROR # ";X;" AT LINE # ";YT D$;"OPEN YTD,L95" 11520 PRINT D$;"READ YTD,R" VAL (NN$(1))" 11525 MD = 0 11530 FOR I = 1 TO P1 11540 INPUT A$:YT(I) = FN TR( VAL (A$)) 11550 IF TD(N) < 0 THEN TD(N) = 0 11555 IF TD(N) < 0 THEN TD(N) = 0 11560 NEXT I 11570 PRINT D$;"CLOSE YTD" 115POKE33,1:POKE34,23 LOAD MAIN.PR 10430 N = 7:TX = 7: GOSUB 11300 10440 N = 9:TX = 3: GOSUB 11000 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500: RETURN 11500 REM MA STATE TAX 11505 IF GP * DV < 8000 AND D > 0 THEN TD(N) = 0: RETURN 11510 PRINT D$: PRINRETURN SAVE MAIN.PR POKE 33,40:POKE 34,0 RUN INIT.PR POKE 33,1:POKE 34,23 LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500: GOTO 11040 11066 IF TX = 3 OR TX = 4 THEN TD(N) = TD(N) - (D * (DD(TX) / DV)) 11500 REM KY STATE TAX 11510 AW = GP - TD(8) 11520 AW = AW - (650 / DV) 11530 RETURN 63999 D$;"READ NCD,R"EN:PE$:D$:ION FOR ":"EMPLOYEE # "EN" : $"PE? :"CHANGE? (Y/N) ";Q$c (Q$,1)"Y"(Q$,1)"N"2030z (Q$,1)"Y"2000 :"ENTER NEW VALUE ";PE PE$(PE):4000 :5:2020 D$;"OPEN NCD,L10" D$;"WRITE NCD,R"EN PE$:D$: :"ENTER ANNUAL PERSONAL EXEMPTION FROM":"WITHHOLDING EXEMPTION CERTIFICATE":"FORM NC-4: $";PE PE$(PE):4000:1000 :5:"ENTER EMPLOYEE NUMBER (0 TO RETURN) ";:"";EN EN0ĺD$;"CLOSE": 3000:5000:PE(PE$)$ :"PERSONAL EXEMPT:"ENTER NUMBER OF CHOICE ";:"";N:N1N4100R N1000,2000,160,170:100x :"LOADING ...":D$;"RUN MAIN.PR :"TO RECOVER PROGRAM":"TYPE: RUN": :5:"ENTER EMPLOYEE NUMBER (0 TO RETURN) ";:"";EN EN0ĺD$;"CLOSE": 3000e  NCTAX1 PRODOS VERSION COPYRIGHT 1984H H&E COMPUTRONICS^ 50 N PASCACK RD| SPRING VALLEY, NY 10977 D$(4)d:5:"1. ENTER EMPLOYEE DEDUCTIONSn"2. CHANGE EMPLOYEE DEDUCTIONSx"3. RETURN TO MAIN MENU"4. QUIT4 80 IF TD(7) + YT(7) < 2000 THEN AW = GP - TD(7): GOTO 11600 11590 AW = GP 11600 IF D = 0 THEN DA = 0: GOTO 11620 11605 DA = (D * 1000) + 1200 11610 AW = AW - (DA / DV) 11620 TD(N) = AW * .05: RETURN 63999 RETURN SAVE MAIN.PR POKE33,40:POKE34,0 RUN INIPOKE 33,1:POKE 34,23 LOAD MAIN.PR 11032 IF TX = 3 THEN D = D - 1: IF D < 0 THEN D = 0 11033 IF TX = 4 THEN D = D - 2: IF D < 0 THEN D = 0 11037 IF TX = 3 OR TX = 4 THEN GOSUB 11500 11500 IF TX = 3 THEN AW = AW - 4500 / DV: GOTO 11520 11510 AW = AW - 1700 11032 IF ZZ THEN GOSUB 11500 11036 IF ZZ THEN AW = AW - DA 11038 IF AW > 17000 AND (TX = 5 OR TX = 6) THEN GOSUB 11800: RETURN 11066 IF TX < > 5 AND TX < > 6 THEN RETURN 11067 IF GP * DV > 15000 AND GP * DV < 20000 THEN TD(N) = TD(N) + (TDPOKE 33,1:POKE34,23 LOAD MAIN.PR 11001 ZZ = 0 11005 IF TX = 3 OR TX = 4 OR TX = 5 OR TX = 6 THEN ZZ = 1 11010 IF (TX = 5 OR TX = 6) AND LEFT$ (NN$(6),1) = "0" THEN TD(N) = 0: RETURN 11027 IF (TX = 5 OR TX = 6) AND LEFT$ (NN$(6),1) = "N" THEN GOTO 13,40: POKE 34,0 RUN INIT.PR GP - WA: RETURN 11600 IF D = 0 THEN TC = 0: RETURN 11605 IF TX = 4 THEN 11630 11610 TC = 17.5: RETURN 11630 IF D = 1 THEN TC = 17.5: RETURN 11640 IF D = 2 THEN TC = 35: RETURN 11650 TC = 35 + (D - 2) * 6: RETURN 63999 RETURN SAVE MAIN.PR POKE 3 4 THEN 11520 11510 WA = 1000 / DV: IF .1 * GP < (WA) THEN WA = .1 * GP 11515 AW = GP - WA: RETURN 11520 WA = 500 / DV: IF D = 1 THEN IF .1 * GP < (WA) THEN WA = .1 * GP 11530 IF D > 1 THEN WA = 1000 / DV: IF .1 * GP < (WA) THEN WA = .1 * GP 11540 AW = POKE 33,1: POKE 34,23 LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500: GOTO 11040 11070 IF TX = 3 OR TX = 4 THEN GOSUB 11600:TD(N) = TD(N) - (TC / DV) 11080 RETURN 11500 REM ARKANSAS TAX 11502 IF D = 0 THEN AW = GP: RETURN 11505 IF TX =DA 11535 RETURN 11540 REM MARRIED 11550 DA = GP * .16: IF DA > (2900 / DV) THEN DA = (2900 / DV) 11570 AW = GP - DA 11580 RETURN 63999 RETURN SAVE MAIN.PR POKE 33,40: POKE 34,0 RUN INIT.PR POKE 33,1: POKE 34,23 LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500:AW = AW - D * (DD(TX) / DV): GOTO 11040 11500 REM MAINE STATE TAX 11505 IF TX = 4 THEN 11540 11520 DA = GP * .16: IF DA > (2500 / DV) THEN DA = (2500 / DV) 11530 AW = GP - / DV 11540 RETURN 63999 RETURN SAVE MAIN.PR POKE 33,40:POKE34,0 RUN INIT.PR POKE 33,1:POKE34,23 LOAD MAIN.PR 11001 ZZ = 0 11005 IF TX = 3 OR TX = 4 THEN ZZ = 1 11032 IF ZZ THEN GOSUB 11500 11036 IF ZZ THEN AW = AW - DA 11500 REM STATE STUFF 11510 IF TX = 3 THEN DA = 2000 / DV: GOTO 11540 11520 IF TX = 4 THEN DA = 3000 T.PR 9000 / DV 11520 IF AW = 0 THEN TD(9) = 0: POP 11530 RETURN 63999 RETURN SAVE MAIN.PR POKE 33,40:POKE 34,0 RUN INIT.PR 80 RETURN 63999 RETURN SAVE MAIN.PR POKE 33,40:POKE 34,0 RUN INIT.PR 00 / DV) 11525 IF DA > (2400 / DV) THEN DA = (2400 / DV) 11530 AW = AW - DA 11535 RETURN 11540 AW = GP - (TD(8) * .92) 11550 DA = GP * .16: IF DA < (2100 / DV) THEN DA = (2100 / DV) 11560 IF DA > (2400 / DV) THEN DA = (2400 / DV) 11570 AW = AW - DA 115LOAD MAIN.PR POKE 33,1:POKE34,23 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500:AW = AW - D * (DD(TX) / DV): GOTO 11040 11500 REM STATE TAX 11505 IF TX = 4 THEN 11540 11510 AW = GP - (TD(8) * .87) 11520 DA = GP * .16: IF DA < (1700 / DV) THEN DA = (17POKE 33,1:POKE 34,23 LOAD MAIN.PR 11005 IF TX = 3 THEN TD(N) = TD(8) * .265: RETURN SAVE MAIN.PR POKE 33,40:POKE 34,0 RUN INIT.PR POKE33,1:POKE34,23 LOAD MAIN.PR 11015 IF TX = 3 OR TX = 4 THEN TD(N) = TD(8) * .21: RETURN 63999 RETURN SAVE MAIN.PR POKE33,40:POKE34,0 RUN INIT.PR (2) = .035:FV(3) = .038:FV(4) = .04:FV(5) = .043 11840 FOR I = 1 TO 5 11850 IF AW > CV(I) THEN NEXT 11860 I = I - 1:TD(N) = (EV(I) / DV) + (FV(I) * AW) 11870 RETURN 63999 RETURN SAVE MAIN.PR POKE33,40:POKE34,0 RUN INIT.PR GOTO 11760 11760 TD(N) = (AA * P8) / DV 11770 RETURN 11800 REM EXTENDED CITY TAX TABLES 11810 CV(1) = 17000:CV(2) = 19000:CV(3) = 21000:CV(4) = 23000:CV(5) = 25000 11820 EV(1) = 383:EV(2) = 449:EV(3) = 519:EV(4) = 595:EV(5) = 675 11830 FV(1) = .033:FVM NON RESIDENT 11710 AA = GP * DV 11715 AE = 4000:P8 = .0045 11720 IF AA - AE < 0 THEN TD(N) = 0: RETURN 11730 IF AA < 10000 THEN AA = AA - 3000: GOTO 11760 11740 IF AA < 20000 THEN AA = AA - 2000: GOTO 11760 11750 IF AA < 30000 THEN AA = AA - 1000: (N) * .05): RETURN 11068 IF GP * DV > 20000 THEN TD(N) = TD(N) + (TD(N) * .1) 11500 REM STATE AND CITY STUFF 11510 IF TX = 3 THEN DA = 2000 / DV: GOTO 11540 11520 IF TX = 4 THEN DA = 3000 / DV: GOTO 11540 11530 DA = 2500 / DV 11540 RETURN 11700 REPOKE33,1:POKE34,23 LOAD MAIN.PR 110 ON PT GOSUB 2000,3000,4000,5400,5000,8000,8600,120,130,130,135,140: GOTO 100 5002 TE = 0: GOSUB 5700 6444 IF YY THEN PRINT LL$:X$ = STR$ ( FN TR(TE)): GOSUB 7500:TE$ = X$: PRINT "EMPLOYER'S SUI CONTRIBUTION=>";TE$: URN 11805 IF AW > 30690 / DV THEN 11810 11807 TD(N) = (AW - (25575 / DV)) * .10:TD(N) = TD(N) + 1657.27 / DV: RETURN 11810 IF AW > 40920 / DV THEN 11830 11820 TD(N) = (AW - (30690 / DV)) * .11:TD(N) = TD(N) + 2168.77 / DV: RETURN 11830 IF AW > 76725 1750 REM EMPLOYER SUI 11760 IF YT(1) + YT(2) + YT(3) > SU(2) THEN ES = 0: RETURN 11770 ES = FN TR(GP * SU(1)): RETURN 11800 REM EVEN MORE 11803 IF AW > 25575 / DV THEN 11805 11804 TD(N) = (AW - (20460 / DV)) * .09:TD(N) = TD(N) + 1196.92 / DV: RETAD SUI" 11664 INPUT SU(1): INPUT SU(2) 11665 PRINT D$;"CLOSE SUI" 11667 TD(N) = 0: RETURN 11700 REM MORE TAX 11710 IF D < 3 THEN DD = 20 / DV: GOTO 11730 11720 TD(N) = TD(N) - (40 + (D - 2) * 15) / DV: RETURN 11730 TD(N) = TD(N) - D * DD: RETURN 1REM ** SUI ** 11652 BY = 0: PRINT D$: PRINT D$;"OPEN YTD,L95" 11653 PRINT D$;"READ YTD,R" VAL (NN$(1)) 11654 FOR I = 1 TO 3 11657 INPUT YT(I):YT(I) = YT(I) + TD(I) 11658 NEXT I 11659 PRINT D$;"CLOSE YTD" 11660 PRINT D$;"OPEN SUI" 11662 PRINT D$;"RE = 3000 / DV 11515 Q = GP - TD(8) 11520 AW = Q * .15: IF AW > M THEN AW = M 11530 AW = Q - AW 11540 RETURN 11600 REM STATE TAX 2 11610 M = 1200 / DV 11615 Q = GP - TD(8) 11620 AW = Q * .15: IF AW > M THEN AW = M 11630 AW = Q - AW 11640 RETURN 11650 OTO 11037 11033 IF ((TX = 3) OR (TX = 4)) AND D < 2 THEN GOSUB 11600: GOTO 11037 11037 IF TX = 3 OR TX = 4 THEN IF AW > 20460 / DV THEN GOSUB 11800: GOTO 11068 11068 IF TX = 3 OR TX = 4 THEN GOSUB 11700 11070 RETURN 11500 REM STATE TAX 11510 MWRITING SUI": GOSUB 150 8790 PRINT D$;"OPEN SUI" 8800 PRINT D$;"WRITE SUI" 8810 PRINT SU(1): PRINT SU(2) 8820 PRINT D$;"CLOSE SUI" 8830 RETURN 11010 IF TX = 5 THEN GOSUB 11650: RETURN 11032 IF ((TX = 3) OR (TX = 4)) AND D > 1 THEN GOSUB 11500: G 15: INPUT "ENTER NEW VALUE =>";SU(A) 8720 IF (A = 1) AND (SU(A) < 0 OR SU(A) > 1) THEN PRINT "MUST BE ENTERED AS DECIMAL": FOR I = 1 TO 1000: NEXT I: GOTO 8710 8730 IF A = 2 AND SU(A) < 0 THEN VTAB 15: PRINT BL$: GOTO 8710 8740 GOTO 8660 8780 MS$ = "MUM YTD GROSS TO BE USED FOR ": PRINT "CALCULATION =>";SU(2) 8690 VTAB 15: INPUT "ENTER LINE# TO CHANGE (0 TO RETURN)=>";A 8700 IF A < 0 OR A > 2 THEN VTAB 15: PRINT BL$: GOTO 8690 8705 IF A = 0 THEN GOTO 8780 8710 VTAB 15: PRINT BL$: PRINT BL$: VTAB0 PRINT D$;"READ SUI" 8630 INPUT SU(1): INPUT SU(2) 8640 REM SU(1)=EMPLOYER'S % 8641 REM SU(2)=MAX GROSS 8650 PRINT D$;"CLOSE SUI" 8660 HOME : PRINT "1. PERCENT OF EMPLOYER'S CONTRIBUTION": PRINT "PER EMPLOYEE =>";SU(1) 8670 PRINT : PRINT "2. MAXIE NOT ENTERED SUI INFORMATION": PRINT "THEN PRESS ELSE PRESS ";: GET A$ 8603 IF A$ < > CHR$ (13) AND A$ < > CHR$ (27) THEN 8602 8604 IF A$ = CHR$ (27) THEN 8660 8606 MS$ = "READING SUI": GOSUB 150 8610 PRINT D$: PRINT D$;"OPEN SUI 862GOTO 6446 6445 PRINT LL$: GOSUB 11750:X$ = STR$ ( FN TR(ES)): GOSUB 7500:ES$ = X$: PRINT "EMPLOYER'S SUI CONTRIBUTION=>";ES$ 6446 L = 1 6447 TE = TE + ES 6657 YY = 1 6660 GOSUB 6400 6665 YY = 0 8600 REM IOWA SUI 8602 HOME : VTAB 10: PRINT "IF YOU HAV/ DV THEN 11840 11835 TD(N) = (AW - (40920 / DV)) * .12:TD(N) = TD(N) + 3294.07 / DV: RETURN 11840 TD(N) = (AW - (76725 / DV)) * .13:TD(N) = TD(N) + 7590.67 / DV: RETURN 29820 DATA INITIALIZE NEW MONTH,ENTER IA ST. UNEMP. INS. 63999 RETURN SAVE MAIN.PR POKE33,40:POKE34,0 RUN INIT.PR POKE 33,1:POKE34,23 LOAD MAIN.PR 11032 IF TX = 3 THEN IF (GP * DV) < 3072 THEN TD(N) = 0: RETURN 11033 IF TX = 4 THEN IF (GP * DV) < 5280 THEN TD(N) = 0: RETURN 11034 IF TX = 3 OR TX = 4 THEN GOTO 11040 11067 IF TX = 3 OR TX = 4 THEN TD(N) = TD(NPR POKE 33,40:POKE 34,0 RUN INIT.PR F SD > 550 / DV THEN SD = 550 / DV 11520 PRINT D$;"OPEN NCD,L10": PRINT D$;"READ NCD,R"EM 11530 INPUT AD$:AW = GP - ( VAL (AD$)) / DV 11535 AW = AW - SD 11540 PRINT D$;"CLOSE NCD 11550 RETURN 29812 DATA ENTER NC EXEMPTIONS 63999 RETURN SAVE MAIN.POKE 33,1:POKE 34,23 LOAD MAIN.PR 110 ON PT GOSUB 2000,3000,145,4000,5400,5000,8000,120,130,130,135,140: GOTO 100 145 MS$ = L$: GOSUB 150: PRINT D$;"RUN NCTAX 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500: GOTO 11040 11500 REM NC 11510 SD = .1 * GP: I= GP / DV: IF AW < = 0 AND D = 0 THEN AW = GP * .527 11550 RETURN 63999 RETURN SAVE MAIN.PR POKE33,40:POKE34,0 RUN INIT.PR GOTO 11540 11521 IF G < 40000 THEN AW = GP - (3900 - ((GP - 750) * .12)): GOTO 11540 11530 GP = GP * DV: IF GP < 10000 THEN AW = GP - 4100: GOTO 11540 11531 IF GP < 53000 THEN AW = GP - (4100 - ((GP - 10000) * 0.09535)): GOTO 11540 11540 AW = AW / DV:GP POKE33,1:POKE34,23 LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500: GOTO 11040 11067 IF TX = 3 OR TX = 4 THEN TD(N) = TD(N) - D * (20 / DV) 11500 REM STATE TAX 11510 IF TX = 4 THEN 11530 11520 GP = GP * DV: IF GP < 7500 THEN AW = GP - 3900: ) - D * (DD(TX) / DV) 63999 RETURN SAVE MAIN.PR POKE33,40:POKE34,0 RUN INIT.PR POKE33,1:POKE34,23 LOAD MAIN.PR 11037 IF TX = 3 OR TX = 4 THEN GOSUB 11500 11500 REM SOUTH CAROLINA 11510 IF D = 0 THEN RETURN 11520 IF D = 1 THEN AW = AW - 500 / DV: RETURN 11530 AW = AW - 1000 / DV: RETURN 63999 RETURN SAVE MAIN.PR POKE33,4YEE'S ": PRINT "SALARY =>";SD(1) 8670 PRINT : PRINT "2. PERCENT OF EMPLOYER'S CONTRIBUTION": PRINT "PER EMPLOYEE =>";SD(2) 8680 PRINT : PRINT "3. MAXIMUM YTD GROSS TO BE USED FOR ": PRINT "CALCULATION =>";SD(3) 8690 VTAB 15: INPUT "ENTER LINE# TO CHANGE PRINT D$;"OPEN SDI 8620 PRINT D$;"READ SDI" 8630 INPUT SD(1): INPUT SD(2): INPUT SD(3) 8640 REM SD(1)=EMPLOYEE'S % 8641 REM SD(2)=EMPLOYER'S % 8642 REM SD(3)=MAX GROSS 8650 PRINT D$;"CLOSE SDI" 8660 HOME : PRINT "1. PERCENT DEDUCTED FROM EMPLOB 10: PRINT "IF YOU HAVE NOT ENTERED SUI INFORMATION": PRINT "THEN PRESS ELSE PRESS ";: GET A$ 8603 IF A$ < > CHR$ (13) AND A$ < > CHR$ (27) THEN 8602 8604 IF A$ = CHR$ (27) THEN 8660 8606 MS$ = "READING SUI": GOSUB 150 8610 PRINT D$: GOTO 6446 6445 PRINT LL$: GOSUB 11700:X$ = STR$ ( FN TR(ES)): GOSUB 7500:ES$ = X$: PRINT "EMPLOYER'S SUI CONTRIBUTION=>";ES$ 6446 L = 1 6447 TE = TE + ES 6657 YY = 1 6660 GOSUB 6400 REM PRINT IT 6665 YY = 0 8600 REM AL STATE DIS.INS 8602 HOME : VTAPOKE 33,1:POKE34,23 LOAD MAIN.PR 110 ON PT GOSUB 2000,3000,4000,5400,5000,8000,8600,120,130,130,135,140: GOTO 100 5002 TE = 0: GOSUB 5700 6444 IF YY THEN PRINT LL$:X$ = STR$ ( FN TR(TE)): GOSUB 7500:TE$ = X$: PRINT "EMPLOYER'S SUI CONTRIBUTION=>";TE$:/ DV 11560 RETURN 29812 DATA ENTER EMPLOYEE EXEMPTIONS 63999 RETURN SAVE MAIN.PR RUN INIT.PR T D$;"READ MISS,R" VAL (NN$(1)) 11520 INPUT MS$: INPUT EX$: PRINT D$;"CLOSE" 11530 MS$ = LEFT$ (MS$,1): IF MS$ = "S" THEN MS = 2300 / DV: GOTO 11550 11535 IF MS$ = "M" THEN MS = 3400 / DV: GOTO 11550 11540 MS = 1700 / DV 11550 AW = GP - MS - VAL (EX$) LOAD MAIN.PR 110 ON PT GOSUB 2000,3000,145,4000,5400,5000,8000,120,130,130,135,140: GOTO 100 145 PRINT D$: PRINT D$;"RUN MISS.STATE 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500: GOTO 11040 11500 REM MISS 11510 PRINT D$: PRINT D$;"OPEN MISS,L20": PRIN0:POKE34,0 RUN INIT.PR (0 TO RETURN)=>";A 8700 IF A < 0 OR A > 3 THEN VTAB 15: PRINT BL$: GOTO 8690 8705 IF A = 0 THEN GOTO 8780 8710 VTAB 15: PRINT BL$: PRINT BL$: VTAB 15: INPUT "ENTER NEW VALUE =>";SD(A) 8720 IF (A = 1 OR A = 2) AND (SD(A) < 0 OR SD(A) > 1) THEN PRINT "MUST BE ENTERED AS DECIMAL": FOR I = 1 TO 1000: NEXT I: GOTO 8710 8730 IF A = 3 AND SD(A) < 0 THEN VTAB 15: PRINT BL$: GOTO 8710 8740 GOTO 8660 8780 MS$ = "WRITING SUI": GOSUB 150 8790 PRINT D$;"OPEN SDI 8800 PRINT D$;"WRITE SDI" 8810 PRINT SD(1): SDI INFORMATION": PRINT "THEN PRESS ELSE PRESS ";: GET A$ 8603 IF A$ < > CHR$ (13) AND A$ < > CHR$ (27) THEN 8602 8604 IF A$ = CHR$ (27) THEN 8660 8606 MS$ = "READING SDI": GOSUB 150 8610 PRINT D$: PRINT D$;"OPEN SDI 8620 PRINT D$;"RGOSUB 11700:X$ = STR$ (ES): GOSUB 7500:ES$ = X$: PRINT "EMPLOYER'S SDI CONTRIBUTION=>";ES$ 6446 L = 1 6447 TE = TE + ES 6657 YY = 1 6660 GOSUB 6400 REM PRINT IT 6665 YY = 0 8600 REM NJ STATE DIS.INS 8602 HOME : VTAB 10: PRINT "IF YOU HAVE NOT ENTERED LOAD MAIN.PR 110 ON PT GOSUB 2000,3000,4000,5400,5000,8000,8600,120,130,130,135,140: GOTO 100 5002 TE = 0: GOSUB 5700 6444 IF YY THEN PRINT LL$:X$ = STR$ (TE): GOSUB 7500:TE$ = X$: PRINT "EMPLOYER'S SDI CONTRIBUTION=>";TE$: GOTO 6446 6445 PRINT LL$: POKE33,1:POKE34,23 LOAD MAIN.PR 11005 IF TX = 3 OR TX = 4 THEN IF TD(8) < > 0 THEN TD(N) = TD(8) * .45: RETURN 11006 IF TX = 3 OR TX = 4 THEN TD(N) = GP * .04: RETURN 63999 RETURN SAVE MAIN.PR POKE33,40:POKE34,0 RUN INIT.PR 31045 DATA SUI DED,8 SAVE PRINT.PR POKE33,40:POKE34,0 RUN INIT.PR LOAD PRINT.PR 31045 DATA SUI DED,8 SAVE PRINT.PR POKE33,40:POKE34,0 RUN INIT.PR LOAD PRINT.PR 31045 DATA SUI DED,8 SAVE PRINT.PR POKE33,40:POKE34,0 RUN INIT.PR = AW - 1500 / DV: GOTO 11890 11880 AW = AW - (3000 / DV + (300 * (D - 2) / DV)) 11890 RETURN 29820 DATA INITIALIZE NEW MONTH,ENTER AL ST UNEM. INS. 31045 DATA SDI DED,8 63999 RETURN SAVE MAIN.PR POKE 33,40:POKE 34,0 RUN INIT.PR LOAD PRINT.PR TATE TAX 11810 IF TX = 4 THEN 11830 11820 AW = GP * .2: IF AW > 2000 / DV THEN AW = 2000 / DV: GOTO 11840 11830 AW = GP * .2: IF AW > 4000 / DV THEN AW = 4000 / DV 11840 AW = GP - AW 11850 AW = AW - TD(8) 11860 IF D = 0 THEN 11890 11870 IF D = 1 THEN AW" 11600 IF YT(1) + YT(2) + YT(3) > SD(3) THEN TD(N) = 0.00: RETURN 11610 TD(N) = FN TR(GP * SD(1)) 11620 RETURN 11700 REM EMPLOYER SUI 11710 IF YT(1) + YT(2) + YT(3) > SD(3) THEN ES = 0: RETURN 11720 ES = FN TR(GP * SD(2)): RETURN 11800 REM SD$;"READ YTD,R" VAL (NN$(1)) 11522 FOR I = 1 TO 3 11530 INPUT YT(I):YT(I) = YT(I) + TD(I) 11540 NEXT 11550 PRINT D$;"CLOSE YTD 11560 PRINT D$;"OPEN SDI 11570 PRINT D$;"READ SDI" 11580 INPUT SD(1): INPUT SD(2): INPUT SD(3) 11590 PRINT D$;"CLOSE SDIPRINT SD(2): PRINT SD(3) 8820 PRINT D$;"CLOSE SDI" 8830 RETURN 11010 IF TX = 5 THEN GOSUB 11500: RETURN 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11800: GOTO 11040 11500 REM ** SDI ** 11505 BY = 0 11510 PRINT D$: PRINT D$;"OPEN YTD,L95" 11520 PRINT EAD SDI" 8630 INPUT SD(1): INPUT SD(2): INPUT SD(3) 8640 REM SD(1)=EMPLOYEE'S % 8641 REM SD(2)=EMPLOYER'S % 8642 REM SD(3)=MAX GROSS 8650 PRINT D$;"CLOSE SDI" 8660 HOME : PRINT "1. PERCENT DEDUCTED FROM EMPLOYEE'S ": PRINT "SALARY =>";SD(1) 8670 PRINT : PRINT "2. PERCENT OF EMPLOYER'S CONTRIBUTION": PRINT "PER EMPLOYEE =>";SD(2) 8680 PRINT : PRINT "3. MAXIMUM YTD GROSS TO BE USED FOR ": PRINT "CALCULATION =>";SD(3) 8690 VTAB 15: INPUT "ENTER LINE# TO CHANGE (0 TO RETURN)=>";A 8700 IF A < 0 ORT$(1) = "E" THEN TD(N) = 0: RETURN 11006 FM = 0 11007 IF TX = 3 AND LEFT$ (NN$(6),1) = "U" THEN FM = 1 11008 IF TX = 5 AND LEFT$ (NN$(6),1) = "U" THEN RETURN 11010 IF TX = 5 AND LEFT$ (NN$(6),1) = "0" THEN RETURN 11020 IF NN$(8) = "M" THEN TX =L (NN$(1)) 10615 BY = 0: FOR I = 1 TO 3 10625 INPUT B$:C = C + VAL (B$) 10630 NEXT 10635 PRINT D$;"CLOSE YTD 10640 IF C < VAL (UG$) THEN TD(6) = FN TR(GP * VAL (UP$)): GOTO 10650 10645 TD(6) = 0.00 10650 RETURN 11000 REM 11005 IF TX = 3 AND CINT D$;"CLOSE TAXTABLES 1890 RETURN 5013 GOSUB 20000 REM GET CTA 5402 GOSUB 1500: GOSUB 20000 10431 IF TD(N) < 0 THEN TD(N) = 0 10441 GOSUB 10600 10600 REM STATE UNEM. CALC 10605 C = 0 10610 PRINT D$;"OPEN YTD,L95" 10612 PRINT D$;"READ YTD,R" VA.60:TX(3,11,3) = .11 309 TX(4,11,1) = 54160:TX(4,11,2) = 2899.20:TX(4,11,3) = .11:TX(5,11,1) = 31460:TX(5,11,2) = 1503:TX(5,11,3) = .11 1860 BY = 0: PRINT D$;"OPEN TAXTABLES,L220" 1865 PRINT D$;"READ TAXTABLES,R"TX 1870 INPUT UP$ 1880 INPUT UG$ 1885 PRPOKE 33,1:POKE 34,23 LOAD MAIN.PR 110 ON PT GOSUB 2000,145,3000,4000,5400,5000,8000,120,130,130,135,140: GOTO 100 145 MS$ = L$: GOSUB 150: PRINT D$: PRINT D$;"RUN CALTAX 306 DIM TX(7,11,3) 307 DIM TH$(EN),NT(EN) 308 TX(3,11,1) = 27080:TX(3,11,2) = 1449 RETURN SAVE MAIN.PR RUN INIT.PR TD(N) = FN TR(GP * SD(1)) 11620 RETURN 11700 REM EMPLOYER SDI 11710 IF YT(1) + YT(2) + YT(3) > SD(3) THEN ES = 0: RETURN 11720 ES = FN TR(GP * SD(2)): RETURN 29820 DATA INITIALIZE NEW MONTH,ENTER NJ ST DIS. INS. 31045 DATA SDI DED,8 6399940 BY = BY + PL(I) + 1: NEXT I 11550 PRINT D$;"CLOSE YTD 11560 PRINT D$;"OPEN SDI 11570 PRINT D$;"READ SDI" 11580 INPUT SD(1): INPUT SD(2): INPUT SD(3) 11590 PRINT D$;"CLOSE SDI" 11600 IF YT(1) + YT(2) + YT(3) > SD(3) THEN TD(N) = 0.00: RETURN 11610D$;"CLOSE SDI" 8830 RETURN 11010 IF TX = 5 THEN GOSUB 11500: RETURN 11500 REM ** SDI ** 11505 BY = 0 11510 PRINT D$: PRINT D$;"OPEN YTD,L95 11520 PRINT D$;"READ YTD,R" VAL (NN$(1)) 11522 FOR I = 1 TO 3 11530 INPUT YT(I):YT(I) = YT(I) + TD(I) 115= 1 TO 1000: NEXT I: GOTO 8710 8730 IF A = 3 AND SD(A) < 0 THEN VTAB 15: PRINT BL$: GOTO 8710 8740 GOTO 8660 8780 MS$ = "WRITING SDI": GOSUB 150 8790 PRINT D$;"OPEN SDI 8800 PRINT D$;"WRITE SDI" 8810 PRINT SD(1): PRINT SD(2): PRINT SD(3) 8820 PRINT A > 3 THEN VTAB 15: PRINT BL$: GOTO 8690 8705 IF A = 0 THEN GOTO 8780 8710 VTAB 15: PRINT BL$: PRINT BL$: VTAB 15: INPUT "ENTER NEW VALUE =>";SD(A) 8720 IF (A = 1 OR A = 2) AND (SD(A) < 0 OR SD(A) > 1) THEN PRINT "MUST BE ENTERED AS DECIMAL": FOR I TX + 1 11025 GOSUB 11200 REM GET DV 11030 D = VAL (NN$(9)) 11032 IF TX = 3 OR TX = 4 THEN GX = GP 11033 IF TX = 3 OR TX = 4 THEN AW = GP - ( VAL (CT$(2)) / DV) - ( VAL (CT$(3)) / DV): GOTO 11037 11035 AW = GP - D * (DD(TX) / DV) 11037 IX = 10: IF TX = 3 OR TX = 4 THEN IX = 11 11038 IF FM = 1 THEN TX = 5 11040 FOR I = 1 TO IX 11045 IF TX(TX,I,1) = 0 THEN 11055 11050 IF AW > TX(TX,I,1) / DV THEN NEXT I 11055 IF I = 1 THEN TD(N) = 0: RETURN 11060 I = I - 1:TD(N) = TX(TX,I,2) / DV 11065 TD(N) = TD(NE TAX 11510 IF TX = 3 THEN DM = 2200 / DV: IF GP * .17 > DM THEN DM = GP * .17: GOTO 11530 11520 DM = 1600 / DV: IF GP * .17 > DM THEN DM = GP * .17 11530 PRINT D$: PRINT D$;"OPEN SPECIAL,L10": PRINT D$;"READ SPECIAL,R" VAL (NN$(1)) 11540 INPUT SM:SM = POKE 33,1: POKE 34,23 LOAD MAIN.PR 110 ON PT GOSUB 2000,3000,4000,137,5400,5000,8000,120,130,130,135,140: GOTO 100 137 MS$ = L$: GOSUB 150: PRINT D$: PRINT D$;"RUN MOSTATE 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500: GOTO 11040 11500 REM MISSOURI STAT(2) = .035:FV(3) = .038:FV(4) = .04:FV(5) = .043 11840 FOR I = 1 TO 5 11850 IF AW > CV(I) THEN NEXT 11860 I = I - 1:TD(N) = (EV(I) / DV) + (FV(I) * AW) 11870 RETURN 63999 RETURN SAVE MAIN.PR POKE33,40:POKE34,0 RUN INIT.PR GOTO 11760 11760 TD(N) = (AA * P8) / DV 11770 RETURN 11800 REM EXTENDED CITY TAX TABLES 11810 CV(1) = 17000:CV(2) = 19000:CV(3) = 21000:CV(4) = 23000:CV(5) = 25000 11820 EV(1) = 383:EV(2) = 449:EV(3) = 519:EV(4) = 595:EV(5) = 675 11830 FV(1) = .033:FVM NON RESIDENT 11710 AA = GP * DV 11715 AE = 4000:P8 = .0045 11720 IF AA - AE < 0 THEN TD(N) = 0: RETURN 11730 IF AA < 10000 THEN AA = AA - 3000: GOTO 11760 11740 IF AA < 20000 THEN AA = AA - 2000: GOTO 11760 11750 IF AA < 30000 THEN AA = AA - 1000: (N) * .05): RETURN 11068 IF GP * DV > 20000 THEN TD(N) = TD(N) + (TD(N) * .1) 11500 REM STATE AND CITY STUFF 11510 IF TX = 3 THEN DA = 1850 / DV: GOTO 11540 11520 IF TX = 4 THEN DA = 2250 / DV: GOTO 11540 11530 DA = 2050 / DV 11540 RETURN 11700 RE1700 11032 IF ZZ THEN GOSUB 11500 11036 IF ZZ THEN AW = AW - DA 11038 IF AW > 17000 AND (TX = 5 OR TX = 6) THEN GOSUB 11800: RETURN 11066 IF TX < > 5 AND TX < > 6 THEN RETURN 11067 IF GP * DV > 15000 AND GP * DV < 20000 THEN TD(N) = TD(N) + (TDPOKE 33,1:POKE34,23 LOAD MAIN.PR 11001 ZZ = 0 11005 IF TX = 3 OR TX = 4 OR TX = 5 OR TX = 6 THEN ZZ = 1 11010 IF (TX = 5 OR TX = 6) AND LEFT$ (NN$(6),1) = "0" THEN TD(N) = 0: RETURN 11027 IF (TX = 5 OR TX = 6) AND LEFT$ (NN$(6),1) = "N" THEN GOTO 1 ENTER EMPLOYEE TAX INFO 29824 DATA QUIT 30070 DATA ***********,7 31025 DATA SDI,8 63999 RETURN SAVE MAIN.PR EXEC INITCHANGECA READ CALTAX 20005 BX(1) = 2:BX(2) = 10:BX(3) = 10:BX(4) = 10 20010 PRINT D$: PRINT D$;"OPEN CTA,L42" 20015 B = 0 20030 PRINT D$;"READ CTA,R"EM 20035 FOR I = 1 TO 4 20040 INPUT CT$(I) 20050 NEXT 20060 PRINT D$;"CLOSE CTA" 20070 RETURN 29807 DATA) + TX(TX,I,3) * (AW - TX(TX,I,1) / DV) 11066 IF FM = 1 THEN TX = 3:FM = 0 11067 IF TX = 3 OR TX = 4 THEN TD(N) = TD(N) - VAL (CT$(4)) / DV) 11068 IF TX = 3 OR TX = 4 THEN GP = GX 11070 RETURN 11136 AR = 1:TX = 9: GOSUB 1860 11140 RETURN 20000 REMSM / DV 11550 PRINT D$;"CLOSE SPECIAL" 11560 AW = GP - DM - SM - TD(8) 11570 RETURN 29816 DATA ENTER STATE DEDUCTION AMOUNTS 63999 RETURN SAVE MAIN.PR POKE 33,40:POKE 34,0 RUN INIT.PR POKE 33,1:POKE 34,23 LOAD MAIN.PR 10441 TD(6) = GP * .001 63999 RETURN SAVE MAIN.PR POKE 33,40:POKE 34,0 RUN INIT.PR 11560 AW = AW + 544: GOTO 11580 11570 AW = AW + 368 11580 AW = AW / DV: RETURN 63999 RETURN SAVE MAIN.PR POKE 33,40:POKE 34,0 RUN INIT.PR + .06 * (GP * DV - 20160) / DV 11500 REM OKLAHOMA 11510 AW = GP * DV 11520 IF AW > 20160 THEN AW = 20160 11530 WB = 1000: IF AW * .15 > WB THEN WB = AW * .15: IF WB > 2000 THEN WB = 2000 11540 AW = (.84 * AW) - (D * 590) - WB 11550 IF TX = 3 THEN 11570POKE 33,1:POKE 34,23 LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500: GOTO 11038 11038 IF TX = 3 AND AW * DV > 15250 THEN TD(N) = (AW - 15250 / DV) * .1 + 780 / DV: GOTO 11066 11066 IF GP * DV > 20160 AND (TX = 3 OR TX = 4) THEN TD(N) = TD(N) 33,40:POKE 34,0 RUN INIT.PR .17 11520 FA(1) = 10400:FA(2) = 14300:FA(3) = 20800 11525 I5 = 1 11530 IF TX = 4 THEN I5 = 4 11540 FOR I6 = 1 TO 3 11550 IF AW > FA(I6) THEN NEXT 11560 I6 = I6 - 1:I5 = I5 + I6 11570 TD(9) = AW * PC(I5) 11580 RETURN 63999 RETURN SAVE MAIN.PR POKEPOKE 33,1:POKE 34,23 LOAD MAIN.PR 11037 IF TX = 3 OR TX = 4 THEN AW = TD(8): IF AW > = 10400 / DV THEN 11500 11068 IF TX = 3 OR TX = 4 THEN TD(N) = AW * TX(TX,I,3) 11500 REM NM 11510 PC(1) = .17:PC(2) = .18:PC(3) = .19:PC(4) = .15:PC(5) = .16:PC(6) =POKE33,1:POKE34,23 LOADMAIN.PR 63999 RETURN SAVEMAIN.PR POKE 33,40:POKE 34,0 RUN LOAD INIT.PR 115 ON PT - 6 GOSUB 4000,4000,4000,5000,35000,130,120: GOTO 100 29845 DATA FUTA,SDI SAVE INIT.PR EXEC PRINTCHANGECA LOAD PRINT.PR 30070 DATA SDI,7 31025 DATA SDI,8 SAVE PRINT.PR POKE33,40:POKE34,0:POKE35,24 RUN INIT.PR LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500: GOTO 11040 11500 REM ILLINOIS TAX 11540 AW = .025 * ((GP * DV) - (D * 1000 / DV)) 11545 RETURN 63999 RETURN SAVE MAIN.PR RUN INIT.PR RETURN 63999 RETURN SAVE MAIN.PR RUN INIT.PR THEN DA = (2300 / DV) 11530 AW = AW - DA 11535 AW = AW - (D * 700) / DV 11540 RETURN 11550 DA = GP * .18: IF DA < (1700 / DV) THEN DA = (1700 / DV) 11560 IF DA > (3000 / DV) THEN DA = (3000 / DV) 11570 AW = AW - DA 11580 AW = AW - (D * 700) / DV 11590 LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500:AW = AW - D * (DD(TX) / DV): GOTO 11040 11500 REM GA STATE TAX 11505 AW = GP 11510 IF TX = 4 THEN 11550 11520 DA = GP * .15: IF DA < (1500 / DV) THEN DA = (1500 / DV) 11525 IF DA > (2300 / DV) POKE 33,1: POKE 34,23 LOAD MAIN.PR 11005 IF TX = 3 THEN TD(N) = TD(8) * .20: RETURN SAVE MAIN.PR POKE 33,40: POKE 34,0 RUN INIT.PR POKE 33,1: POKE 34,23 LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500:AW = AW - D * (DD(TX) / DV): GOTO 11040 11500 REM MARYLAND STATE TAX 11520 DA = GP * .13: IF DA > (1500 / DV) THEN DA = (1500 / DV) 11530 AW = GP - DA 11535 RETURN 63999 640 0 .11 2440 198 .15 17440 2448 .20 999 RETURN SAVE MAIN.PR POKE 33,40: POKE 34,0 RUN INIT.PR POKE 33,1: POKE 34,23 LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500:AW = AW - D * (DD(TX) / DV): GOTO 11040 11500 REM WEST VIRGINIA STATE TAX 11520 DA = GP * .10: IF DA > (1000 / DV) THEN DA = (1000 / DV) 11530 AW = GP - DA 11535 RETURN 63POKE 33,1: POKE 34,23 LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN AW = GP - D * (DD(TX) / DV): GOSUB 11500: GOTO 11040 11500 REM VIRGINIA STATE TAX 11505 AW = AW - (650 / DV) 11510 RETURN 63999 RETURN SAVE MAIN.PR POKE 33,40: POKE 34,0 RUN INIT.PR 555 AW = (GP * DV) - (AA * DV) 11561 AW = AW / DV 11562 RETURN 63999 RETURN SAVE MAIN.PR POKE 33,40: POKE 34,0 RUN INIT.PR N AA = 7000 / DV: GOTO 11525 11521 AW = (GP * DV) - (TD(8) * DV): GOTO 11531 11525 AW = (GP * DV) - (AA * DV) 11531 AW = AW / DV 11535 RETURN 11545 IF TD(8) > (7000 / DV) THEN AA = 7000 / DV: GOTO 11555 11550 AW = (GP * DV) - (TD(8) * DV): GOTO 11561 11POKE 33,1: POKE 34,23 LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN AW = TD(8): GOSUB 11500: GOTO 11040 11067 IF TX = 3 OR TX = 4 THEN TD(N) = TD(N) - D * (85 / DV) 11500 REM OREGON TAX 11510 IF TX = 4 THEN GOTO 11545 11520 IF TD(8) > (7000 / DV) THERETURN SAVE MAIN.PR POKE 33,40: POKE 34,0 RUN INIT.PR 8 27640 5304 .35 54640 14754 .385 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 8098.6 .37 0 0 0 0 0 0 0 0 0 1860 0 .11 4860 330 .15 29860 4080 .28 46860 8840 .35 91860 24590 .385 00 0 0 1 0 0 0 0 16 LVATEC 6 GARRETSON RD HITE PLAINS NY 10604 14-425-1697 23123 N EEP 1900 1900 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 .0715 43800 .0715 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 8E-03 7000 0 0 0 0 0 0 0 0 0 0 00 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 428 .100 0 0 0 0 0 0 0 0 .034 4500 136 .052 8500 344 .070 12500 624 .082 16500 952 .087 20500 1300 .091 27100 1901 .095 53700 4428 .10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 544 .37 0 0 0 0 0 0 0 0 0 .01 0 .034 4000 136 .052 8000 344 .070 12000 624 .082 16000 952 .087 20000 1300 .091 26600 1901 .095 53200 4NEW 5 BY=0: BL(1)=8: BL(2)=8: BL(3)=8: DIM TX$(11,3) 10 D$=CHR$(4) 20 FOR J= 1 TO 11: FOR K = 1 TO 3: READ TX$(J,K): NEXT K: NEXT J 25 FOR I = 1 TO 2 30 BY=0: PRINT D$: PRINT D$;"OPEN OHIOTAX,L288" 40 PRINT D$;"WRITE OHIOTAX,R"I: FOR J = 1 TO 10: FOR K = 1OR J = 1 TO 3 11530 INPUT A$:TX(3,I,J) = VAL (A$):TX(4,I,J) = VAL (A$) 11540 HO = HO + HO(J) + 1: NEXT J 11550 NEXT I 11552 PRINT D$;"CLOSE OHIOTAX" 11555 DD(3) = 650:DD(4) = 650 11560 RETURN 63999 RETURN SAVE MAIN.PR RUN INIT.PR RUN LOAD MAIN.PR 11032 IF TX = 3 OR TX = 4 THEN GOSUB 11500 11500 IF OH THEN RETURN 11505 OH = 1:HO = 0 11507 HO(1) = 8:HO(2) = 8:HO(3) = 8 11510 PRINT D$: PRINT D$;"OPEN OHIOTAX,L288" 11515 PRINT D$;"READ OHIOTAX,R"TX - 2 11520 FOR I = 1 TO 10: F TO 3 50 PRINT TX$(J,K): NEXTK: NEXT J: PRINT D$;"CLOSE OHIOTAX" 60 NEXT I 70 DATA .01,0,.00808,5000,40.40,.01615,10000,121.15,.0323,15000,282.65,.04038,20000,484.55,.04845,40000,1453.55,.05653,80000,3714.75,.0646,100000,5006.75,.08075,0,0,0,0,0,0,650,0,0