0 DV=PEEK(186):IFDV<8THENDV=8
1 IFA=0THENA=1:LOAD"HELP-1040A",DV,1
2 IFA=1THENA=2:LOAD"NOTEPAD",DV,1
3 POKE198,0
5 DIM M0$(20),M1$(20),M2$(20),M3$(20),M4$(20),M5$(20),M6$(20),M7$(20),M8$(20)
6 DIMM9$(20):SP$="          "
7 DIMD$(36):FORI=0TO36:D$(I)="0":NEXT:D$(1)="1":D$(2)="1"
10 POKE53280,0:POKE53281,0:AD=36864
20 READX:FORI=1TOX:READM0$(I):NEXT
21 READX:FORI=1TOX:READM1$(I):NEXT
22 READX:FORI=1TOX:READM2$(I):NEXT
24 READX:FORI=1TOX:READM3$(I):NEXT
25 READX:FORI=1TOX:READM4$(I):NEXT
26 READX:FORI=1TOX:READM5$(I):NEXT
27 READX:FORI=1TOX:READM6$(I):NEXT
28 READX:FORI=1TOX:READM7$(I):NEXT
29 READX:FORI=1TOX:READM8$(I):NEXT
30 READX:FORI=1TOX:READM9$(I):NEXT
31 DIMFS$(5):FORI=1TO5:READFS$(I):NEXT:FS=2
32 DIMSD$(5):FORI=1TO5:READSD$(I):NEXT:FS=2:D$(17)=SD$(FS)
33 PRINT"";
40 SYSAD,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","1040[193]"
50 IFPEEK(198)<>1THENEND
55 SYSAD+15:GETDV$:GETME$:GETHI$:GETTX$
56 DV=ASC(DV$):M=ASC(ME$)AND15:H=ASC(HI$)AND15:TX=ASC(TX$)AND15
60 SYSAD+18:POKE198,0:GOSUB9000
70 SYSAD+3,13+64,11,7,M,H,TX,M0$(1),M0$(2),M0$(3),M0$(4),M0$(5),M0$(6),M0$(7),M0$(8),M0$(9),M0$(10),M0$(11),M0$(12),M0$(13)
80 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
85 IFK>3THENSYSAD+18:POKE781,21:SYS59903
90 ONKGOTO 200,300,900,1070,2070,3070,4070,5070,6070,7070,8070,700,40
95 GOTO70
100 :
200 GOSUB9300
210 IFVAL(W$)=0THEN275
220 OPEN15,DV,15,"IO":W$="1040A."+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:PRINT"[145][198]ILE [206]OT [204]OADED":FORI=1TO2000:NEXT:GOTO275
250 FORI=0TO36:INPUT#2,D$(I):NEXT
255 PRINT#2,FS:PRINT#2,M1$(1)
270 CLOSE2:CLOSE15
275 GOSUB9000:GOTO70
280 :
300 GOSUB9300:IFVAL(W$)=0THEN375
310 W$="1040A."+W$
320 OPEN15,DV,15,"S0:"+W$:CLOSE15
330 OPEN15,DV,15,"IO"
335 OPEN2,DV,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
360 FORI=0TO36:PRINT#2,D$(I):NEXT
365 INPUT#2,FS:PRINT#2,M1$(1)
370 CLOSE2:CLOSE15
375 GOSUB9000:GOTO70
390 :
400 D$(4)=STR$(VAL(D$(1))+VAL(D$(2))+VAL(D$(3)))
405 TL=0:FORI=5TO11:TL=TL+VAL(D$(I)):NEXT:D$(12)=STR$(TL)
410 D$(15)=STR$(VAL(D$(13))+VAL(D$(14)))
415 D$(16)=STR$(VAL(D$(12))-VAL(D$(15)))
420 D$(18)=STR$(VAL(D$(16))-VAL(D$(17)))
425 D$(19)=STR$(VAL(D$(4))*2150)
430 D$(20)=STR$(VAL(D$(18))-VAL(D$(19)))
432 GOSUB15000
435 D$(24)=STR$(VAL(D$(22))+VAL(D$(23)))
440 D$(25)=STR$(VAL(D$(21))-VAL(D$(24))):IFVAL(D$(25))<0THEND$(25)="0"
445 D$(27)=STR$(VAL(D$(25))+VAL(D$(26)))
450 TL=0:FORI=28TO30:TL=TL+VAL(D$(I)):NEXT:D$(31)=STR$(TL)
460 X1=VAL(D$(31)):X2=VAL(D$(27)):IFX1>X2THEN470
461 D$(33)="0":D$(34)="0"
465 D$(35)=STR$((X2-X1)+VAL(D$(36))):D$(32)="0":RETURN
470 D$(32)=STR$(X1-X2):D$(35)="0":D$(36)="0"
475 RETURN
480 :
500 SYSAD+6,2:SYSAD+9,1
505 SYS50176,1,3,38,20,TX,0
510 KY=PEEK(197)
515 IFKY=3THENSYS51712,1,3,38,20,7:GOTO505
520 IFKY=6THENOPEN15,DV,15,"S0:"+N$:CLOSE15:SYSAD+12,N$,1:GOTO505
530 IFKY=5THEN POKE147,0:SYS57812N$,DV,1:SYS62631:SYSAD+9,1:GOTO505
550 SYSAD+6,1:SYSAD+9,2:RETURN
560 :
600 SYSAD+6,2:POKE646,TX:PRINT"[147]"TAB(14)"*** [200][197][204][208] ***"
601 POKE646,M
602 PRINT"[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]";
603 FORI=1TO21:PRINT"[221]                                      [221]";:NEXT
604 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]";:POKE646,TX
605 PRINT"              [208]RESS [210][197][212][213][210][206]";:POKE52346,TX
606 OPEN2,DV,2,H$+",P,R":SYS51968
610 POKE198,0
615 GETK$:IFK$<>CHR$(13)THEN615
620 CLOSE2:SYSAD+9,2:RETURN
625 :
700 POKE646,TX
701 PRINT"[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][174]"
702 PRINT"[221]             1040 [212]OTALS             [221]"
704 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][179]"
706 PRINT"[221][197]XEMPTIONS (6E)                      [221]"
708 PRINT"[221][201]NCOME (14)                          [221]"
710 PRINT"[221][193]DJUSTMENTS TO [201]NCOME (15C)          [221]"
712 PRINT"[221][193]DJUSTED [199]ROSS [201]NCOME (16)           [221]"
714 PRINT"[221][212]AXABLE [201]NCOME (22)                  [221]"
716 PRINT"[221][195]REDITS (24C)                        [221]"
719 PRINT"[221][212]OTAL [212]AX (27)                       [221]"
720 PRINT"[221][208]AYMENTS (28D)                       [221]"
724 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][189]"
725 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
726 GOSUB9200
730 PRINT""
735 PRINTTAB(28)RIGHT$(SP$+D$(4),10)
740 PRINTTAB(28)RIGHT$(SP$+D$(12),10)
745 PRINTTAB(28)RIGHT$(SP$+D$(15),10)
750 PRINTTAB(28)RIGHT$(SP$+D$(16),10)
755 PRINTTAB(28)RIGHT$(SP$+D$(20),10)
757 PRINTTAB(28)RIGHT$(SP$+D$(24),10)
760 PRINTTAB(28)RIGHT$(SP$+D$(27),10)
762 PRINTTAB(28)RIGHT$(SP$+D$(31),10)
775 GETK$:IFK$<>CHR$(13)THEN775
780 SYSAD+18:GOSUB9000:GOTO70
785 :
900 GOSUB9400:IFW$<>"Y"THENGOSUB9000:GOTO70
905 POKE214,22:PRINT:PRINT"[208]RINTING...      "
910 OPEN4,4,7
915 PRINT#4,SP$;"1040[193]"
920 PRINT#4,SP$;"-----------------------*-------------"
922 FORI=1TO5:PRINT#4,SP$;LEFT$(M1$(I),27)+RIGHT$(SP$+D$(I-1),10):NEXT:PRINT#4
925 FORI=1TO8:PRINT#4,SP$;LEFT$(M2$(I),27)+RIGHT$(SP$+D$(I+4),10):NEXT:PRINT#4
930 FORI=1TO3:PRINT#4,SP$;LEFT$(M3$(I),27)+RIGHT$(SP$+D$(I+12),10):NEXT:PRINT#4
935 FORI=1TO6:PRINT#4,SP$;LEFT$(M4$(I),27)+RIGHT$(SP$+D$(I+15),10):NEXT:PRINT#4
955 FORI=1TO3:PRINT#4,SP$;LEFT$(M5$(I),27)+RIGHT$(SP$+D$(I+21),10):NEXT:PRINT#4
960 FORI=1TO3:PRINT#4,SP$;LEFT$(M6$(I),27)+RIGHT$(SP$+D$(I+24),10):NEXT:PRINT#4
965 FORI=1TO4:PRINT#4,SP$;LEFT$(M7$(I),27)+RIGHT$(SP$+D$(I+27),10):NEXT:PRINT#4
970 FORI=1TO5:PRINT#4,SP$;LEFT$(M8$(I),27)+RIGHT$(SP$+D$(I+31),10):NEXT:PRINT#4
990 PRINT#4:CLOSE4:GOSUB9000:GOTO70
995 :
1000 SYSAD+3,9+64,1,8,M,H,TX,M1$(1),M1$(2),M1$(3),M1$(4),M1$(5),M1$(6),M1$(7),M1$(8),M1$(9)
1010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
1020 IFK=9THENSYSAD+18:GOTO70
1025 IFK=8THENH$="1040A.H1":GOSUB600:GOTO1000
1030 IFK=6THENN$="1040A.N1":GOSUB500:GOTO1000
1035 IFK=7THENGOSUB9500:GOTO1000
1045 IFK=5THEN1000
1047 IFK=1THENGOSUB1500:GOTO1067
1048 IFK<4THEN1000
1050 GOSUB9100:IFLEN(W$)=0THEN1000
1055 D$(K-1)=W$
1067 GOSUB400
1070 FORI=2TO5:M1$(I)=LEFT$(M1$(I),27)+RIGHT$(SP$+D$(I-1),10):NEXT
1075 GOTO1000
1080 :
1500 FS=FS+1:IFFS=6THENFS=1
1505 M1$(1)=FS$(FS):D$(17)=SD$(FS)
1506 D$(2)="0":IFFS=2THEND$(2)="1"
1510 RETURN
1515 :
2000 SYSAD+3,12+64,1,8,M,H,TX,M2$(1),M2$(2),M2$(3),M2$(4),M2$(5),M2$(6),M2$(7),M2$(8),M2$(9),M2$(10),M2$(11),M2$(12)
2010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
2020 IFK=12THENSYSAD+18:GOTO70
2025 IFK=11THENH$="1040A.H2":GOSUB600:GOTO2000
2030 IFK=9THENN$="1040A.N2":GOSUB500:GOTO2000
2035 IFK=10THENGOSUB9500:GOTO2000
2050 GOSUB9100:IFLEN(W$)=0THEN2000
2055 D$(K+4)=W$:GOSUB400
2070 FORI=1TO8:M2$(I)=LEFT$(M2$(I),27)+RIGHT$(SP$+D$(I+4),10):NEXT
2087 GOTO2000
2090 :
3000 SYSAD+3,7+64,1,8,M,H,TX,M3$(1),M3$(2),M3$(3),M3$(4),M3$(5),M3$(6),M3$(7)
3010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
3020 IFK=7THENSYSAD+18:GOTO70
3025 IFK=6THENH$="1040A.H3":GOSUB600:GOTO3000
3030 IFK=5THENGOSUB9500:GOTO3000
3035 IFK=4THENN$="1040A.N3":GOSUB500:GOTO3000
3040 IFK=3THEN3000
3050 GOSUB9100:IFLEN(W$)=0THEN3000
3052 D$(K+12)=W$:GOSUB400
3070 FORI=1TO3:M3$(I)=LEFT$(M3$(I),27)+RIGHT$(SP$+D$(I+12),10):NEXT
3085 GOTO3000
3090 :
4000 SYSAD+3,10+64,1,8,M,H,TX,M4$(1),M4$(2),M4$(3),M4$(4),M4$(5),M4$(6),M4$(7),M4$(8),M4$(9),M4$(10)
4010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
4020 IFK=10THENSYSAD+18:GOTO70
4025 IFK=9THENH$="1040A.H4":GOSUB600:GOTO4000
4030 IFK=8THENGOSUB9500:GOTO4000
4035 IFK=7THENN$="1040A.N4":GOSUB500:GOTO4000
4040 IFK<>2THEN4000
4050 GOSUB9100:IFLEN(W$)=0THEN4000
4055 D$(K+15)=W$:GOSUB400
4070 FORI=1TO6:M4$(I)=LEFT$(M4$(I),27)+RIGHT$(SP$+D$(I+15),10):NEXT
4085 GOTO4000
4090 :
5000 SYSAD+3,7+64,1,8,M,H,TX,M5$(1),M5$(2),M5$(3),M5$(4),M5$(5),M5$(6),M5$(7)
5010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
5020 IFK=7THENSYSAD+18:GOTO70
5025 IFK=6THENH$="1040A.H5":GOSUB600:GOTO5000
5030 IFK=5THENGOSUB9500:GOTO5000
5035 IFK=4THENN$="1040A.N5":GOSUB500:GOTO5000
5040 IFK=3THEN5000
5050 GOSUB9100:IFLEN(W$)=0THEN5000
5055 D$(K+21)=W$:GOSUB400
5070 FORI=1TO3:M5$(I)=LEFT$(M5$(I),27)+RIGHT$(SP$+D$(I+21),10):NEXT
5085 GOTO5000
5090 :
6000 SYSAD+3,7+64,1,8,M,H,TX,M6$(1),M6$(2),M6$(3),M6$(4),M6$(5),M6$(6),M6$(7)
6010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
6020 IFK=7THENSYSAD+18:GOTO70
6025 IFK=6THENH$="1040A.H6":GOSUB600:GOTO6000
6030 IFK=5THENGOSUB9500:GOTO6000
6035 IFK=4THENN$="1040A.N6":GOSUB500:GOTO6000
6040 IFK<>2THEN6000
6050 GOSUB9100:IFLEN(W$)=0THEN6000
6055 D$(K+24)=W$:GOSUB400
6070 FORI=1TO3:M6$(I)=LEFT$(M6$(I),27)+RIGHT$(SP$+D$(I+24),10):NEXT
6085 GOTO6000
6090 :
7000 SYSAD+3,8+64,1,8,M,H,TX,M7$(1),M7$(2),M7$(3),M7$(4),M7$(5),M7$(6),M7$(7),M7$(8)
7010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
7020 IFK=8THENSYSAD+18:GOTO70
7025 IFK=7THENH$="1040A.H7":GOSUB600:GOTO7000
7030 IFK=6THENGOSUB9500:GOTO7000
7035 IFK=5THENN$="1040A.N7":GOSUB500:GOTO7000
7040 IFK=4THEN7000
7050 GOSUB9100:IFLEN(W$)=0THEN7000
7051 D$(K+27)=W$:GOSUB400
7070 FORI=1TO4:M7$(I)=LEFT$(M7$(I),27)+RIGHT$(SP$+D$(I+27),10):NEXT
7085 GOTO7000
7090 :
8000 SYSAD+3,9+64,1,8,M,H,TX,M8$(1),M8$(2),M8$(3),M8$(4),M8$(5),M8$(6),M8$(7),M8$(8),M8$(9)
8010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
8020 IFK=9THENSYSAD+18:GOTO70
8025 IFK=8THENH$="1040A.H8":GOSUB600:GOTO8000
8030 IFK=7THENGOSUB9500:GOTO8000
8035 IFK=6THENN$="1040A.N8":GOSUB500:GOTO8000
8040 IFK=1THEN8000
8045 IFK=4THEN8000
8050 GOSUB9100:IFLEN(W$)=0THEN8000
8055 D$(K+31)=W$:GOSUB400
8070 FORI=1TO5:M8$(I)=LEFT$(M8$(I),27)+RIGHT$(SP$+D$(I+31),10):NEXT
8085 GOTO8000
8090 :
9000 POKE214,21:PRINT:PRINT"[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]";
9005 PRINT"[221]  [213]SE [195]URSOR [203]EYS/[210][197][212][213][210][206] TO SELECT.   [221]";
9010 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]";:POKE2023,125:POKE56295,1
9015 RETURN
9100 GOSUB9600:POKE646,TX
9105 POKE214,22:PRINT:PRINT"[197]NTER: ";
9110 SYS49152+3,TX,TX,9
9115 GOSUB9000:RETURN
9200 POKE214,21:PRINT:PRINT"[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]";
9205 PRINT"[221]             [208]RESS [210][197][212][213][210][206]             [221]";
9210 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]";:POKE2023,125:POKE56295,1
9215 RETURN
9300 GOSUB9600:POKE646,TX
9305 POKE214,22:PRINT:PRINT"[197]NTER [217]EAR: ";
9310 SYS49152+3,TX,TX,4
9315 RETURN
9320 :
9400 GOSUB9600:POKE646,TX
9405 POKE214,22:PRINT:PRINT"[208]RINTER [210]EADY? ";
9410 SYS49152,TX,TX,1
9415 RETURN
9420 :
9500 SYSAD+18:POKE646,M
9501 PRINT""TAB(9)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
9502 PRINTTAB(9)"[221]                  [221]"
9503 PRINTTAB(9)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
9504 AC=0:AC$="0"
9505 AC$=RIGHT$(SP$+AC$,10):POKE646,TX
9506 PRINT""TAB(17)AC$
9510 SYSAD+3,6+64,10,9,M+64,H,TX,M9$(1),M9$(2),M9$(3),M9$(4),M9$(5),M9$(6)
9520 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
9525 IFK=6THENSYSAD+18:RETURN
9530 IFK=1THENAC=0:GOTO9565
9535 GOSUB9100
9540 W=VAL(W$):IFW=0THEN9505
9545 IFK=2THENAC=AC+W
9550 IFK=3THENAC=AC-W
9555 IFK=4THENAC=AC*W
9560 IFK=5THENAC=AC/W
9565 AC$=STR$(AC):GOTO9505
9570 :
9600 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
9602 POKE214,22:PRINT:PRINT"                                    "
9605 RETURN
9610 :
10000 OPEN15,8,15,"S0:1040A":CLOSE15:SAVE"0:1040A",8:END
10998 :
10999 REM MENU0
11000 DATA 13
11001 DATA "[204]OAD [198]ILE         "
11002 DATA "[211]AVE [198]ILE         "
11003 DATA "[208]RINT [198]ILE        "
11004 DATA "[197]XEMPTIONS/[211]TATUS "
11005 DATA "[201]NCOME            "
11007 DATA "[193]DJUSTMENTS       "
11008 DATA "[212]AX [195]OMPUTATION   "
11009 DATA "[195]REDITS           "
11010 DATA "[193]DVANCE [197][201][195]       "
11011 DATA "[208]AYMENTS          "
11012 DATA "[210]EFUND/[193]MT YOU OWE"
11013 DATA "[212]OTALS            "
11014 DATA "[205]AIN [205]ENU         "
11015 :
11099 REM MENU1
11100 DATA 9
11101 DATA "[205]ARRIED FILING JOINTLY               "
11102 DATA "6A. [217]OURSELF                        0"
11103 DATA "6B. [217]OUR [211]POUSE                     0"
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"
11106 DATA "[206]OTEPAD                              "
11107 DATA "[195]ALCULATOR                           "
11108 DATA "[200]ELP                                 "
11109 DATA "[205]AIN [205]ENU                            "
11113 :
11199 REM MENU2
11200 DATA 12
11201 DATA " 7. [215]AGES, SALARIES, TIPS           0"
11202 DATA "8A. [212]AXABLE INTEREST                0"
11203 DATA " 9. [196]IVIDEND INCOME                 0"
11204 DATA "10. [212]AXABLE [201][210][193]                     0"
11205 DATA "11. [212]AXABLE PENSIONS                0"
11206 DATA "12. [213]NEMPLOYMENT                    0"
11207 DATA "13. [212]AXABLE [211]OCIAL [211]EC.             0"
11208 DATA "14. [212][207][212][193][204] [201][206][195][207][205][197]                    0"
11210 DATA "[206]OTEPAD                              "
11211 DATA "[195]ALCULATOR                           "
11212 DATA "[200]ELP                                 "
11213 DATA "[205]AIN [205]ENU                            "
11214 :
11300 DATA 7
11301 DATA "15A. [217]OUR [201][210][193] DEDUCTION             0"
11302 DATA "24B. [211]POUSE'S [201][210][193] DEDUCTION         0"
11303 DATA "15C. [212][207][212][193][204] [193][196][202][213][211][212][205][197][206][212][211]              0"
11309 DATA "[206]OTEPAD                              "
11310 DATA "[195]ALCULATOR                           "
11311 DATA "[200]ELP                                 "
11312 DATA "[205]AIN [205]ENU                            "
11313 :
11399 REM MENU4
11400 DATA 10
11401 DATA "17. [193]DJUSTED [199]ROSS [201]NCOME           0"
11402 DATA "19. [196]EDUCTIONS                      0"
11403 DATA "20. [204]INE 17- LINE 19                0"
11404 DATA "21. [197]XEMPTION DEDUCTION             0"
11405 DATA "22. [212][193][216][193][194][204][197] [201][206][195][207][205][197]                   "
11406 DATA "23. [193]PPROXIMATE [212][193][216]                  "
11409 DATA "[206]OTEPAD                              "
11410 DATA "[195]ALCULATOR                           "
11411 DATA "[200]ELP                                 "
11412 DATA "[205]AIN [205]ENU                            "
11413 :
11499 REM MENU5
11500 DATA 7
11501 DATA "24A. [195]REDIT FOR CHILD CARE          0"
11502 DATA "24B. [195]REDIT FOR ELDERLY             0"
11505 DATA "24C. [212][207][212][193][204] [195][210][197][196][201][212][211]                   "
11507 DATA "[206]OTEPAD                              "
11508 DATA "[195]ALCULATOR                           "
11509 DATA "[200]ELP                                 "
11510 DATA "[205]AIN [205]ENU                            "
11513 :
11599 REM MENU6
11600 DATA 7
11601 DATA "25. [204]INE 23 - 24C                   0"
11602 DATA "26. [193]DVANCE [197][201][195]                     0"
11603 DATA "27. [212][207][212][193][204] [212][193][216]                       0"
11608 DATA "[206]OTEPAD                              "
11609 DATA "[195]ALCULATOR                           "
11610 DATA "[200]ELP                                 "
11611 DATA "[205]AIN [205]ENU                            "
11613 :
11699 REM MENU7
11700 DATA 8
11701 DATA "28A. [198]EDERAL TAX WITHHELD           0"
11702 DATA "28B. [197]STIMATED TAX PAYMENTS         0"
11703 DATA "28C. [197]ARNED INCOME CREDIT           0"
11704 DATA "28D. [212][207][212][193][204] [208][193][217][205][197][206][212][211]                  0"
11708 DATA "[206]OTEPAD                              "
11709 DATA "[195]ALCULATOR                           "
11710 DATA "[200]ELP                                 "
11711 DATA "[205]AIN [205]ENU                            "
11713 :
11799 REM MENU8
11800 DATA 9
11801 DATA "29. [207]VERPAID                        0"
11802 DATA "30. [210]EFUNDED                        0"
11803 DATA "31. [193]PPLIED TO ESTIMATED            0"
11804 DATA "32. [193]MOUNT YOU OWE                  0"
11805 DATA "33. [197]STIMATED TAX PENALTY           0"
11806 DATA "[206]OTEPAD                              "
11807 DATA "[195]ALCULATOR                           "
11808 DATA "[200]ELP                                 "
11809 DATA "[205]AIN [205]ENU                            "
11813 :
11899 REM MENU9
11900 DATA 6
11901 DATA "[218]ERO [193]CCUMULATOR  "
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              "
12000 DATA "[211]INGLE                               "
12001 DATA "[205]ARRIED FILING JOINTLY               "
12002 DATA "[205]ARRIED FILING SEPARATELY            "
12003 DATA "[200]EAD OF HOUSEHOLD                    "
12004 DATA "[209]UALIFYING WIDOW                     "
12005 DATA "3400","5700","2850","5000","5700"
15000 ONFSGOTO15002,15100,15200,15300,15100
15002 IC=VAL(D$(20))
15005 IFIC<=20350THENTA=INT(IC*.15+.5):D$(21)=STR$(TA):RETURN
15010 TA=3052.5:T1=IC-20350
15015 IFIC<=49300 THENTA=INT(T1*.28+.5+TA):D$(21)=STR$(TA):RETURN
15020 TA=11158.5:T1=IC-49300:TA=INT(TA+T1*.31+.5):D$(21)=STR$(TA):RETURN
15025 :
15100 IC=VAL(D$(20))
15105 IFIC<=34000THENTA=INT(IC*.15+.5):D$(21)=STR$(TA):RETURN
15110 TA=5100:T1=IC-34000
15115 IFIC<=82150 THENTA=INT(T1*.28+.5+TA):D$(21)=STR$(TA):RETURN
15120 TA=18582:T1=IC-82150:TA=INT(TA+T1*.31+.5):D$(21)=STR$(TA):RETURN
15125 :
15200 IC=VAL(D$(20))
15205 IFIC<=17000THENTA=INT(IC*.15+.5):D$(21)=STR$(TA):RETURN
15210 TA=2550:T1=IC-17000
15215 IFIC<=41075 THENTA=INT(T1*.28+.5+TA):D$(21)=STR$(TA):RETURN
15220 TA=9291:T1=IC-41075:TA=INT(TA+T1*.31+.5):D$(21)=STR$(TA):RETURN
15225 :
15300 IC=VAL(D$(20))
15305 IFIC<=27300THENTA=INT(IC*.15+.5):D$(21)=STR$(TA):RETURN
15310 TA=4095:T1=IC-27300
15315 IFIC<=70450 THENTA=INT(T1*.28+.5+TA):D$(21)=STR$(TA):RETURN
15320 TA=16177:T1=IC-70450:TA=INT(TA+T1*.31+.5):D$(21)=STR$(TA):RETURN
15325 :