0 W$="":DV=PEEK(186):IFDV<8THENDV=8
1 IFA=0THENA=1:LOAD"SCROLL 9000",DV,1
2 REMIFA=1THENA=2:LOAD"NOTEPAD C900",DV,1
3 REMIFA=2THENA=3:LOAD"TOOL BOX C000",DV,1
4 POKE55,0:POKE56,144:CLR
5 W$="":DV=PEEK(186):IFDV<8THENDV=8
6 POKE198,0:SP$="          ":MAX=62
7 DIM M1$(MAX),M2$(20),D$(MAX),CH(MAX):FL=0:F1=0:FS=2
8 FORI=0TOMAX:D$(I)="0":NEXT:D$(1)="1":D$(2)="1"
10 POKE53280,0:POKE53281,0:AD=49152
21 FORI=1TOMAX:READM1$(I):NEXT
22 FORI=1TO6:READM2$(I):NEXT
25 FORI=1TOMAX:READCH(I):NEXT
30 PRINT"[147]";:GOSUB9500
40 SYSAD+21,"[212][193][216] [193][195][195][207][213][206][212][193][206][212]: 1040",0,10,0
43 SYSAD+18,0,1,38,19,7,0:SYSAD+15,1,2,38,20,160,14
46 GOSUB9000:GOSUB9500
50 X=0:Y=1:D=62:W=38:TX=14:HI=1:BX=4:EX$=CHR$(133):MAX=19:V=0
52 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
54 POKE214,Y-1:PRINT:PRINT:POKE646,TX
56 FORI=1TOMAX:PRINTTAB(X+1)""LEFT$(M1$(I+V)+SP$,W):NEXT:R=1
57 HI=1:IFCH(R+V)=1THENHI=10
58 R=1:R1=1:POKE646,HI:POKE214,R+Y-1:PRINT:PRINTTAB(X+1)""LEFT$(M1$(R+V)+SP$,W)
62 GETK$:IFK$=""THEN62
66 IFK$=CHR$(13)THEN135
68 IFK$="[145]"THENGOSUB800
70 IFK$=""THENGOSUB850
79 IFK$="[136]"THENGOSUB1000:IFK=10ORK=1ORK=11ORK=12THEN52
88 IFK$="_"THENGOSUB7000:REM EXIT
92 POKE646,TX:POKE214,R1+Y-1:PRINT:PRINTTAB(X+1)""LEFT$(M1$(R1+V)+SP$,W)
93 HI=1:IFCH(R+V)=1THENHI=10
94 POKE646,HI:POKE214,R+Y-1:PRINT:PRINTTAB(X+1)""LEFT$(M1$(R+V)+SP$,W)
96 R1=R:GOTO62
98 :
135 IFCH(R+V)=1THEN62
136 IFR+V=31THEN4000
140 GOSUB9100:IFLEN(W$)=0THEN62
145 WW=VAL(W$):W$=STR$(WW):D$(R+V)=W$
150 IFR+V=2THENIFVAL(W$)>1THEND$(2)="1"
151 IFVAL(D$(60))>VAL(D$(58))THEND$(60)=D$(58):D$(60)="0":GOTO187
152 D$(59)=STR$(VAL(D$(58))-VAL(D$(60)))
186 REMGOSUB9500
187 M1$(R+V)=LEFT$(M1$(R+V),27):D$(R+V)=RIGHT$(SP$+D$(R+V),10)
188 M1$(R+V)=M1$(R+V)+D$(R+V)
190 GOTO92
191 :
200 GOSUB9300
210 IFVAL(W$)=0THENCLOSE2:CLOSE15:GOSUB9000:RETURN
220 OPEN15,DV,15,"IO":W$="1040."+W$
225 OPEN2,DV,2,"0:"+W$+",S,R"
230 INPUT#15,E,E$,E1,E2
234 POKE214,21:PRINT:PRINT"                                    "
235 POKE214,21:PRINT:PRINT"[196]ISK [211]TATUS:"E;E$:FORI=1TO2000:NEXT
236 POKE214,21:PRINT:PRINT"                                    "
240 IFETHENCLOSE2:CLOSE15:GOSUB9000:RETURN
250 FORI=0TO62:INPUT#2,D$(I):NEXT
270 CLOSE2:CLOSE15
275 GOSUB9000:GOSUB9500:RETURN
280 :
300 GOSUB9300:IFVAL(W$)=0THEN375
310 W$="1040."+W$:D$(0)=D$(36)
320 OPEN15,DV,15,"S0:"+W$:CLOSE15
330 OPEN15,DV,15,"IO"
335 OPEN2,8,2,"0:"+W$+",S,W"
340 INPUT#15,E,E$,E1,E2
344 POKE214,21:PRINT:PRINT"                                    "
345 POKE214,21:PRINT:PRINT"[196]ISK [211]TATUS: "E;E$:FORI=1TO2000:NEXT
346 POKE214,21:PRINT:PRINT"                                    "
350 IFETHENCLOSE2:CLOSE15:PRINT"[145][198]ILE [206]OT [211]AVED":FORI=1TO2000:NEXT:GOTO375
355 D$(0)=D$(30)
360 FORI=0TO62:PRINT#2,D$(I):NEXT
370 CLOSE2:CLOSE15
375 GOSUB9000:RETURN
390 :
400 SYSAD+3,0:GOSUB9600
401 POKE214,21:PRINT:PRINT"[195]ALCULATING..."
402 D$(4)=STR$(VAL(D$(1))+VAL(D$(2))+VAL(D$(3)))
405 TL=0:FORI=5TO20:TL=TL+VAL(D$(I)):NEXT:D$(21)=STR$(TL)
410 TL=0:FORI=22TO28:TL=TL+VAL(D$(I)):NEXT:D$(29)=STR$(TL)
415 D$(30)=STR$(VAL(D$(21))-VAL(D$(29)))
420 D$(32)=STR$(VAL(D$(30))-VAL(D$(31)))
422 D$(33)=STR$(INT(VAL(D$(4))*2300+.5))
423 IFVAL(D$(30))>78950THENGOSUB16000
425 D$(34)=STR$(VAL(D$(32))-VAL(D$(33)))
426 IFVAL(D$(34))<0THEND$(34)="0"
427 GOSUB15000
430 D$(37)=STR$(VAL(D$(35))+VAL(D$(36)))
435 TL=0:FORI=38TO41:TL=TL+VAL(D$(I)):NEXT:D$(42)=STR$(TL)
440 D$(43)=STR$(VAL(D$(37))-VAL(D$(42))):IFVAL(D$(43))<0THEND$(43)="0"
445 TL=0:FORI=43TO49:TL=TL+VAL(D$(I)):NEXT:D$(50)=STR$(TL)
450 TL=0:FORI=51TO56:TL=TL+VAL(D$(I)):NEXT:D$(57)=STR$(TL)
460 X1=VAL(D$(57)):X2=VAL(D$(50)):IFX1>X2THEN470
461 D$(59)="0":D$(60)="0"
465 D$(61)=STR$((X2-X1)+VAL(D$(62))):D$(58)="0":GOSUB9500:RETURN
470 D$(58)=STR$(X1-X2):D$(61)="0"
471 D$(59)=STR$(VAL(D$(58))-VAL(D$(60)))
475 GOSUB9500:RETURN
480 :
500 POKE781,23:SYS59903
501 POKE214,21:PRINT:PRINT"   [198]1=[204]OAD  [198]3=[211]AVE  [198]5=[208]RINT  [198]7=[197]XIT  "
502 SYSAD+15,1,2,38,20,32,14:N$="1040.N"
505 SYS51456,1,2,38,20,3,0
510 KY=PEEK(197)
515 IFKY=6THENSYSAD+3,3:GOSUB9400:SYSAD+6,3:IFW$="Y"THENSYSAD+27,1,2,38,20,7
520 IFKY=5THENOPEN15,DV,15,"S0:"+N$:CLOSE15:SYS57812N$,DV
525 IFKY=5THENPOKE193,0:POKE194,4:POKE174,0:POKE175,8:SYS62954:GOTO505
530 IFKY=4THEN POKE147,0:SYS57812N$,DV,1:SYS62631:GOTO505:REM LOAD
550 IFKY=3THENRETURN
555 GOTO505
560 :
600 SYSAD+3,1:PRINT"[147]"TAB(14)"[150]*** [200][197][204][208] ***"
601 SYSAD+18,0,1,38,21,1,0
602 H$="T.1040 HELP":SYSAD+33
605 SYSAD+21,"[208]RESS [210][197][212][213][210][206]     _ TO [197]XIT",24,13,0
606 OPEN2,DV,2,H$+",P,R":SYSAD+30,14
610 POKE198,0
611 SYSAD+21,"       [208]RESS [210][197][212][213][210][206]       ",24,10,0
615 GETK$:IFK$<>CHR$(13)THEN615
620 POKE198,0:CLOSE2:SYSAD+6,1:RETURN
625 :
800 R=R-1:IFR<>0THENRETURN
805 R=1:GOSUB875
806 V=V-1:IFV=-1THENV=0:RETURN
807 POKE646,TX:POKE214,R+Y-1:PRINT:PRINTTAB(X+1)""LEFT$(M1$(R+V+1)+SP$,W)
808 SYS36864,X+1,X+W,Y+1,Y+MAX,1
810 RETURN
815 :
850 R=R+1:IFR<=MAXTHENRETURN
855 R=R-1:IFR>D THEN RETURN
860 GOSUB875
861 V=V+1:IFV>D-MAXTHENV=V-1:RETURN
862 POKE646,TX:POKE214,R+Y-1:PRINT:PRINTTAB(X+1)""LEFT$(M1$(R+V-1)+SP$,W)
863 SYS36864,X+1,X+W,Y+1,Y+MAX,0
865 RETURN
870 :
875 POKE646,TX:POKE214,R1+Y-1:PRINT:PRINTTAB(X+1)LEFT$(M1$(R1+V)+SP$,W)
880 POKE646,TX:POKE214,R+Y-1:PRINT:PRINTTAB(X+1)LEFT$(M1$(R+V)+SP$,W)
885 RETURN
890 :
900 GOSUB9400:IFW$<>"Y"THENGOSUB9000:RETURN
905 POKE214,21:PRINT:PRINT"[208]RINTING...       ";
910 OPEN4,4,7
912 PRINT#4:PRINT#4
915 PRINT#4,SP$"1040"
920 PRINT#4,SP$"-------------------------------------"
925 FORI=1TO4:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
926 FORI=5TO21:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
927 FORI=22TO29:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
928 FORI=30TO37:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
929 FORI=38TO43:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
930 FORI=44TO50:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
931 FORI = 1TO12:PRINT#4:NEXT
932 FORI=51TO57:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
933 FORI=58TO62:PRINT#4,SP$;M1$(I):NEXT
935 PRINT#4:CLOSE4:GOSUB9000:RETURN
936 :
1000 SYSAD+3,2
1005 SYSAD+18,10,4,20,13,13,1
1010 POKE214,4:PRINT
1015 PRINTTAB(11)"[153][204]OAD [198]ILE"
1020 PRINTTAB(11)"[211]AVE [198]ILE"
1025 PRINTTAB(11)"[208]RINT [198]ILE"
1030 PRINTTAB(11)"[200]ELP"
1035 PRINTTAB(11)"[195]ALCULATOR"
1036 PRINTTAB(11)"[206]OTEPAD"
1040 PRINTTAB(11)"[196]IRECTORY"
1045 PRINTTAB(11)"[196]ISK [196]RIVE #"+STR$(DV)
1050 PRINTTAB(11)"[212]OTALS"
1055 PRINTTAB(11)"[195]ALCULATE [211]HEET"
1057 PRINTTAB(11)"[201]MPORT [211]CH [195]"
1058 PRINTTAB(11)"[201]MPORT [211]CH [211][197]"
1059 PRINTTAB(11)"[197]XIT"
1060 SYSAD+12,11,5,29,13,13,1
1065 K=PEEK(828)
1070 ONKGOSUB200,300,900,600,5000,500,6000,6100,2000,400,3000,3000
1075 SYSAD+6,2:RETURN
1080 :
2000 POKE646,TX
2005 PRINT"[153][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
2010 PRINT"[221]             1040 [212]OTALS              [221]";
2015 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
2020 PRINT"[221][197]XEMPTIONS (6E)                       [221]";
2025 PRINT"[221][201]NCOME (23)                           [221]";
2030 PRINT"[221][193]DJUSTMENTS TO [201]NCOME (30)            [221]";
2035 PRINT"[221][193]DJUSTED [199]ROSS [201]NCOME (32)            [221]";
2040 PRINT"[221][212]AXABLE [201]NCOME (37)                   [221]";
2045 PRINT"[221][195]REDITS (45)                          [221]";
2050 PRINT"[221][212]AX AFTER [195]REDITS (46)                [221]";
2055 PRINT"[221][212]OTAL [212]AX (53)                        [221]";
2060 PRINT"[221][208]AYMENTS (60)                         [221]";
2065 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
2070 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
2075 REMGOSUB9200
2080 PRINT""
2085 PRINTTAB(28)RIGHT$(SP$+D$(4),10)
2090 PRINTTAB(28)RIGHT$(SP$+D$(21),10)
2095 PRINTTAB(28)RIGHT$(SP$+D$(29),10)
2100 PRINTTAB(28)RIGHT$(SP$+D$(30),10)
2105 PRINTTAB(28)RIGHT$(SP$+D$(34),10)
2110 PRINTTAB(28)RIGHT$(SP$+D$(42),10)
2115 PRINTTAB(28)RIGHT$(SP$+D$(43),10)
2120 PRINTTAB(28)RIGHT$(SP$+D$(50),10)
2125 PRINTTAB(28)RIGHT$(SP$+D$(57),10)
2130 GETK$:IFK$<>CHR$(13)THEN2130
2135 SYSAD+6,2:RETURN
2140 :
3000 IFK=11THENF$="SCHC."
3001 IFK=12THENF$="SE."
3004 GOSUB9300
3005 IFVAL(W$)=0THENCLOSE2:CLOSE15:GOSUB9000:RETURN
3010 OPEN15,DV,15,"IO":W$=F$+W$
3015 OPEN2,DV,2,"0:"+W$+",S,R"
3020 INPUT#15,E,E$,E1,E2
3025 POKE214,21:PRINT:PRINT"                                    "
3030 POKE214,21:PRINT:PRINT"[196]ISK [211]TATUS:"E;E$:FORI=1TO2000:NEXT
3035 POKE214,21:PRINT:PRINT"                                    "
3040 IFETHENCLOSE2:CLOSE15:GOSUB9000:RETURN
3045 INPUT#2,X$
3046 IFK=11THEND$(10)=X$
3047 IFK=12THEND$(44)=X$:D$(24)=STR$(INT(VAL(X$)/2+.5))
3050 CLOSE2:CLOSE15
3055 GOSUB9000:GOSUB9500:RETURN
3060 :
4000 SYSAD+3,2
4005 SYSAD+18,6,2,28,16,13,1
4010 POKE214,2:PRINT
4015 PRINTTAB(8)"[153][211]INGLE                    "
4020 PRINTTAB(8)"[211]INGLE      65+ OR [194]LIND "
4025 PRINTTAB(8)"[211]INGLE      65+ AND [194]LIND"
4030 PRINTTAB(8)"[205][202]OINT/[209][215]                 "
4031 PRINTTAB(8)"[205][202]OINT/[209][215]   65+ OR [194]LIND"
4032 PRINTTAB(8)"[205][202]OINT/[209][215] 2 65+ OR [194]LIND "
4033 PRINTTAB(8)"[205][202]OINT/[209][215] 3 65+ OR [194]LIND "
4034 PRINTTAB(8)"[205][202]OINT/[209][215] 4 65+ OR [194]LIND "
4035 PRINTTAB(8)"[205][211]EPARATE                "
4036 PRINTTAB(8)"[205][211]EPARATE   65+ OR [194]LIND "
4037 PRINTTAB(8)"[205][211]EPARATE 2 65+ OR [194]LIND "
4038 PRINTTAB(8)"[205][211]EPARATE 3 65+ OR [194]LIND "
4039 PRINTTAB(8)"[205][211]EPARATE 4 65+ OR [194]LIND "
4040 PRINTTAB(8)"[200]EAD HOUSE               "
4041 PRINTTAB(8)"[200]EAD HOUSE  65+ OR [194]LIND "
4042 PRINTTAB(8)"[200]EAD HOUSE  65+ AND [194]LIND"
4060 SYSAD+12,7,3,34,16,13,1
4065 K=PEEK(828)
4070 IFK=1THEND$(31)="3600":FS=1
4071 IFK=2THEND$(31)="4500":FS=1
4072 IFK=3THEND$(31)="5400":FS=1
4073 IFK=4THEND$(31)="6000":FS=2
4074 IFK=5THEND$(31)="6700":FS=2
4075 IFK=6THEND$(31)="7400":FS=2
4076 IFK=7THEND$(31)="8100":FS=2
4077 IFK=8THEND$(31)="8800":FS=2
4078 IFK=9THEND$(31)="3000":FS=3
4079 IFK=10THEND$(31)="3700":FS=3
4080 IFK=11THEND$(31)="4400":FS=3
4081 IFK=12THEND$(31)="5100":FS=3
4082 IFK=13THEND$(31)="5800":FS=3
4083 IFK=14THEND$(31)="5250":FS=4
4084 IFK=15THEND$(31)="6150":FS=4
4085 IFK=16THEND$(31)="7050":FS=4
4105 SYSAD+18,8,4,28,3,1,1
4110 POKE214,4:PRINT
4115 PRINTTAB(10)"[211]TANDARD="+D$(31)
4120 PRINTTAB(10)"[201]MPORT [211]CH [193]"
4125 PRINTTAB(10)"[197]NTER [211]CH [193]"
4130 SYSAD+12,9,5,36,3,1,1
4135 K=PEEK(828):IFFS<>2THEND$(2)="0"
4140 IFK=1THENSYSAD+6,2:GOTO187
4141 TEMP$=D$(31)
4145 IFK=2THENF$="SCHA.":GOSUB3000:D$(31)=X$
4150 IFK=3THENGOSUB9100:IFW$<>""THEND$(31)=W$
4155 SYSAD+6,2:GOTO187
4160 :
5000 SYSAD+6,2:GOSUB9600
5001 SYSAD+18,11,5,18,1,5,0
5002 SYSAD+18,11,8,18,6,5,0:SYSAD+33:POKE214,8:PRINT
5003 FORI=1TO6:PRINTTAB(12)""M2$(I):NEXT
5004 AC=0:AC$="0":SYSAD+3,1
5005 AC$=RIGHT$(SP$+AC$,10):POKE646,TX
5006 SYSAD+6,1:PRINT""TAB(19)AC$
5010 SYSAD+12,12,9,29,6,1,10
5020 P=PEEK(828)
5025 IFP=6THENSYSAD+6,2:RETURN
5030 IFP=1THENAC=0:GOTO5065
5035 GOSUB9100
5040 B=VAL(W$):IFB=0THEN5005
5045 IFP=2THENAC=AC+B
5050 IFP=3THENAC=AC-B
5055 IFP=4THENAC=AC*B
5060 IFP=5THENAC=AC/B
5065 AC$=STR$(AC):GOTO5005
5070 :
6000 PRINT"[147][154]"
6005 SYSAD,DV
6007 SYSAD+21,"[208]RESS [210][197][212][213][210][206]",24,10,0
6008 GETK$:IFK$<>CHR$(13)THEN6008
6015 :RETURN
6020 :
6100 GOSUB9600:POKE646,TX
6105 POKE214,21:PRINT:PRINT"[197]NTER [196]RIVE: ";
6110 SYSAD+9,2,0,32,1
6111 IFVAL(W$)<8ORVAL(W$)>16THEN6115
6112 WW=VAL(W$):OPEN1,WW,1:CLOSE1
6113 IFST=0THENDV=WW
6114 IFST<>0THENGOSUB9200
6115 GOSUB9000:RETURN
6120 :
7000 GOSUB9600:POKE646,TX
7005 POKE214,21:PRINT:PRINT"[209]UIT? [193]RE [217]OU [211]URE? ";
7010 SYSAD+9,1,1,32,1
7015 IFW$<>"Y"THENGOSUB9000:RETURN
7020 OPEN15,DV,15,"R0:TAX BOOT=TAX BOOT":INPUT#15,ER%:CLOSE15
7025 IFER%<>63THENEND
7030 POKE646,PEEK(53281)
7035 PRINT"[147]LOAD"CHR$(34)"TAX BOOT"CHR$(34)","DV
7040 PRINT"RUN"
7045 POKE631,13:POKE632,13:POKE633,13:POKE198,3:END
9000 SYSAD+33
9001 POKE214,21:PRINT:PRINT"[153][195][210][211][210] [203]EYS/[210][197][212][213][210][206] TO [211]ELECT [198]7=[205]ENU _[197]XIT"
9015 RETURN
9020 :
9100 GOSUB9600:POKE646,TX
9105 POKE214,21:PRINT:PRINT"[197]NTER: ";
9110 SYSAD+9,9,0,32,1
9115 GOSUB9000:RETURN
9120 :
9200 SYSAD+3,3
9205 SYSAD+18,6,7,25,3,10,1
9210 SYSAD+21,"[201]NVALID [196]RIVE",9,10,1
9215 FORT=1TO1500:NEXT
9220 SYSAD+6,3:RETURN
9300 GOSUB9600:POKE646,TX
9305 POKE214,21:PRINT:PRINT"[197]NTER [217]EAR: ";
9310 SYSAD+9,4,0,32,1
9315 RETURN
9320 :
9400 GOSUB9600:POKE646,TX
9405 POKE214,21:PRINT:PRINT"[208]RINTER [210]EADY? ";
9410 SYSAD+9,1,1,32,1
9415 RETURN
9420 :
9500 FORI=1TO62
9505 M1$(I)=LEFT$(M1$(I),27):D$(I)=RIGHT$(SP$+D$(I),10)
9510 M1$(I)=M1$(I)+D$(I):NEXT
9515 RETURN
9520 :
9600 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
9602 POKE781,22:SYS59903
9603 POKE781,23:SYS59903
9605 RETURN
9610 :
10000 OPEN15,8,15,"S0:1040":CLOSE15:SAVE"0:1040",8:END
10998 :
11099 REM MENU1
11102 DATA "6A.  [217]OURSELF                       1"
11103 DATA "6B.  [217]OUR [211]POUSE                    1"
11104 DATA "6C.  [196]EPENDENTS                     0"
11105 DATA "6E.  [212][207][212][193][204] [197][216][197][205][208][212][201][207][206][211]               0"
11201 DATA " 7.  [215]AGES, SALARIES, TIPS          0"
11202 DATA "8B.  [212]AXABLE INTEREST               0"
11203 DATA " 9.  [196]IVIDEND INCOME                0"
11204 DATA "10.  [212]AX REFUNDS                    0"
11205 DATA "11.  [193]LIMONY RECEIVED               0"
11206 DATA "12.  [194]USINESS INCOME                0"
11207 DATA "13.  [195]APITAL GAIN (LOSS)            0"
11208 DATA "14.  [195]APITAL GAIN DIST.             0"
11209 DATA "15.  [207]THER GAINS (LOSSES)           0"
11251 DATA "16B. [201][210][193] DISTRIBUTIONS              0"
11252 DATA "17B. [208]ENSIONS/ANNUITIES             0"
11253 DATA "18.  [210]ENTS/ROYALTIES                0"
11254 DATA "19.  [198]ARM INCOME                    0"
11255 DATA "20.  [213]NEMPLOYMENT                   0"
11256 DATA "21B. [211]OCIAL SECURITY                0"
11257 DATA "22.  [207]THER INCOME                   0"
11258 DATA "23.  [212][207][212][193][204] [201][206][195][207][205][197]           "
11301 DATA "24A. [217]OUR [201][210][193] DEDUCTION             0"
11302 DATA "24B. [211]POUSE'S [201][210][193] DEDUCTION         0"
11303 DATA "25.  1/2 SELF-EMP. TAX              0"
11304 DATA "26.  [211]ELF-EMPL HEALTH INSUR         0"
11305 DATA "27.  [203]EOGH RETIREMENT               0"
11306 DATA "28.  [208]ENALTY EARLY WTHDRAWL         0"
11307 DATA "29.  [193]LIMONY PAID                   0"
11308 DATA "30.  [212][207][212][193][204] [193][196][202][213][211][212][205][197][206][212][211]              0"
11401 DATA "32.  [193]DJUSTED [199]ROSS [201]NCOME          0"
11402 DATA "34.  [211]TANDARD [196]EDUCTION             0"
11403 DATA "35.  [204]INE 32- LINE 34               0"
11404 DATA "36.  [208]ERSONAL DEDUCTION             0"
11405 DATA "37.  [212][193][216][193][194][204][197] [201][206][195][207][205][197]                  "
11406 DATA "38.  [193]PPROXIMATE [212][193][216]                 "
11407 DATA "39.  [193]DDITIONAL TAXES                "
11408 DATA "40.  [204]INE 38 + LINE 39               "
11501 DATA "41.  [195]REDIT FOR CHILD CARE          0"
11502 DATA "42.  [195]REDIT FOR ELDERLY             0"
11503 DATA "43.  [198]OREIGN TAX CREDIT             0"
11504 DATA "44.  [207]THER CREDITS                  0"
11505 DATA "45.  [212][207][212][193][204] [195][210][197][196][201][212][211]                   "
11506 DATA "46.  [204]INE 40 - 45                    "
11601 DATA "47.  [211]ELF-EMPLOYMENT TAX            0"
11602 DATA "48.  [193]LTERNATIVE MIN. TAX           0"
11603 DATA "49.  [210]ECAPTURE TAXES                0"
11604 DATA "50.  [211]OCIAL [211]ECURITY TAX            0"
11605 DATA "51.  [212]AX ON [201][210][193]                     0"
11606 DATA "52.  [193]DVANCE EARNED INCOME          0"
11607 DATA "53.  [212][207][212][193][204] [212][193][216]                      0"
11701 DATA "54.  [198]EDERAL TAX WITHHELD           0"
11702 DATA "55.  [197]STIMATED TAX PAYMENTS         0"
11703 DATA "56.  [197]ARNED INCOME CREDIT           0"
11704 DATA "57.  [198]ORM 4868                      0"
11705 DATA "58.  [197]XCESS [211]OCIAL [211]EC.             0"
11706 DATA "59.  [207]THER PAYMENTS                 0"
11707 DATA "60.  [212]OTAL PAYMENTS                 0"
11801 DATA "61.  [207]VERPAID                       0"
11802 DATA "62.  [210]EFUNDED                       0"
11803 DATA "63.  [193]PPLIED TO ESTIMATED           0"
11804 DATA "64.  [193]MOUNT YOU OWE                 0"
11805 DATA "65.  [197]STIMATED TAX PENALTY          0"
11813 :
11899 REM MENU9
11901 DATA "[218]ERO [193]CC.         "
11902 DATA "[193]DD TO [193]CC.       "
11903 DATA "[211]UBTRACT FROM [193]CC."
11904 DATA "[205]ULTIPLY [193]CC.     "
11905 DATA "[196]IVIDE [193]CC.       "
11906 DATA "[197]XIT              "
13000 DATA 1,0,0,1,0,0,0,0,0,0
13005 DATA 0,0,0,0,0,0,0,0,0,0
13010 DATA 1,0,0,0,0,0,0,0,1,1
13015 DATA 0,1,1,1,0,0,1,0,0,0
13020 DATA 0,1,1,0,0,0,0,0,0,1
13025 DATA 0,0,0,0,0,0,1,1,1,0
13030 DATA 1,0,0
15000 ONFSGOTO15002,15100,15200,15300
15002 IC=VAL(D$(34))
15005 IFIC<=21450THENTA=INT(IC*.15+.5):D$(35)=STR$(TA):RETURN
15010 TA=3217.5:T1=IC-21450
15015 IFIC<=51900 THENTA=INT(T1*.28+.5+TA):D$(35)=STR$(TA):RETURN
15020 TA=11743.5:T1=IC-51900:TA=INT(TA+T1*.31+.5):D$(35)=STR$(TA):RETURN
15025 :
15100 IC=VAL(D$(34))
15105 IFIC<=35800THENTA=INT(IC*.15+.5):D$(35)=STR$(TA):RETURN
15110 TA=5370:T1=IC-35800
15115 IFIC<=86500 THENTA=INT(T1*.28+.5+TA):D$(35)=STR$(TA):RETURN
15120 TA=19566:T1=IC-86500:TA=INT(TA+T1*.31+.5):D$(35)=STR$(TA):RETURN
15125 :
15200 IC=VAL(D$(34))
15205 IFIC<=17900THENTA=INT(IC*.15+.5):D$(35)=STR$(TA):RETURN
15210 TA=2685:T1=IC-17900
15215 IFIC<=43250 THENTA=INT(T1*.28+.5+TA):D$(35)=STR$(TA):RETURN
15220 TA=9783:T1=IC-43250:TA=INT(TA+T1*.31+.5):D$(35)=STR$(TA):RETURN
15225 :
15300 IC=VAL(D$(34))
15305 IFIC<=28750THENTA=INT(IC*.15+.5):D$(35)=STR$(TA):RETURN
15310 TA=4312.5:T1=IC-28750
15315 IFIC<=74150 THENTA=INT(T1*.28+.5+TA):D$(35)=STR$(TA):RETURN
15320 TA=17024.5:T1=IC-74150:TA=INT(TA+T1*.31+.5):D$(35)=STR$(TA):RETURN
15325 :
16000 ONFSGOTO16100,16200,16300,16400
16100 DF=VAL(D$(30))-105250:IFDF<1THENRETURN
16105 GOTO16500
16200 DF=VAL(D$(30))-157900:IFDF<1THENRETURN
16205 GOTO16500
16300 DF=VAL(D$(30))-78950:IFDF<1THENRETURN
16305 GOTO16500
16400 DF=VAL(D$(30))-131550:IFDF<1THENRETURN
16500 IFFS=3THENDF=INT(DF/1250+.9999):DF=DF*2/100:GOTO16502
16501 DF=INT(DF/2500+.9999):DF=DF*2/100
16502 D$(33)=STR$(INT(2300-(2300*DF)+.5))
16503 IFVAL(D$(33))<0THEND$(33)="0"
16505 D$(33)=STR$(INT(VAL(D$(4))*VAL(D$(33))+.5)):RETURN