0 DV=PEEK(186):IFDV<8THENDV=8
1 IFA=0THENA=1:LOAD"HELP-EIC",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)
6 DIMM9$(20):SP$="          "
7 DIMD$(36):FORI=0TO20:D$(I)="0":NEXT
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
30 READX:FORI=1TOX:READM9$(I):NEXT
33 PRINT"";
40 SYSAD,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","[197]ARNED [201]NCOME [195]REDIT"
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,9+64,11,8,M,H,TX,M0$(1),M0$(2),M0$(3),M0$(4),M0$(5),M0$(6),M0$(7),M0$(8),M0$(9)
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,700,40
95 GOTO70
100 :
200 GOSUB9300
210 IFVAL(W$)=0THEN275
220 OPEN15,DV,15,"IO":W$="EIC."+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=0TO20:INPUT#2,D$(I):NEXT
270 CLOSE2:CLOSE15
275 GOSUB9000:GOTO70
280 :
300 GOSUB9300:IFVAL(W$)=0THEN375
310 W$="EIC."+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=0TO20:PRINT#2,D$(I):NEXT
370 CLOSE2:CLOSE15
375 GOSUB9000:GOTO70
390 :
400 D$(7)=STR$(VAL(D$(4))+VAL(D$(5))+VAL(D$(6)))
405 IFVAL(D$(7))>=21250THEND$(7)="[211][212][207][208]":RETURN
410 REMD$(11)=D$(10):IFVAL(D$(10))>VAL(D$(9))THEND$(11)=D$(9)
415 D$(14)=D$(13):IFVAL(D$(13))>VAL(D$(12))THEND$(14)=D$(12)
420 REMD$(16)=D$(15):IFVAL(D$(15))>VAL(D$(14))THEND$(16)=D$(14)
425 REMD$(19)=D$(18):IFVAL(D$(18))>VAL(D$(17))THEND$(19)=D$(17)
430 D$(20)=STR$(VAL(D$(11))+VAL(D$(16))+VAL(D$(19)))
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]             [197][201][195] [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]ARNED [201]NCOME (7)                    [221]"
708 PRINT"[221][194]ASIC [195]REDIT (11)                    [221]"
710 PRINT"[221][200]EALTH [201]NSURANCE [195]REDIT (16)         [221]"
712 PRINT"[221][195]HILD [194]ORN [195]REDIT (19)               [221]"
714 PRINT"[221][212][207][212][193][204] [195][210][197][196][201][212] (20)                    [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$(7),10)
740 PRINTTAB(28)RIGHT$(SP$+D$(11),10)
745 PRINTTAB(28)RIGHT$(SP$+D$(16),10)
750 PRINTTAB(28)RIGHT$(SP$+D$(19),10)
755 PRINTTAB(28)RIGHT$(SP$+D$(20),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$;"[197]ARNED [201]NCOME [195]REDIT
920 [152]4,SP$;"-------------------------------------"
922 [129]I[178]1[164]5:[152]4,SP$;[200](M1$(I),27)[170][201](SP$[170]D$(I[170]3),10):[130]:[152]4
925 [129]I[178]1[164]3:[152]4,SP$;[200](M2$(I),27)[170][201](SP$[170]D$(I[170]8),10):[130]:[152]4
930 [129]I[178]1[164]5:[152]4,SP$;[200](M3$(I),27)[170][201](SP$[170]D$(I[170]11),10):[130]:[152]4
935 [129]I[178]1[164]3:[152]4,SP$;[200](M4$(I),27)[170][201](SP$[170]D$(I[170]16),10):[130]:[152]4
970 [152]4,SP$;"(null)(null)(null)ATN(null) LEN(null)VALSTR$RIGHT$(null)               "[170][201](SP$[170]D$(20),10):[152]4
990 [152]4:[160]4:[141]9000:[137]70
995 :
1000 [158]AD[170]3,9[170]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 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
1020 [139]K[178]9[167][158]AD[170]18:[137]70
1025 [139]K[178]8[167]H$[178]"EIC.H1":[141]600:[137]1000
1030 [139]K[178]6[167]N$[178]"EIC.N1":[141]500:[137]1000
1035 [139]K[178]7[167][141]9500:[137]1000
1045 [139]K[178]4[167]1000
1050 [141]9100:[139][195](W$)[178]0[167]1000
1055 D$(K[170]3)[178]W$
1067 [141]400
1070 [129]I[178]1[164]5:M1$(I)[178][200](M1$(I),27)[170][201](SP$[170]D$(I[170]3),10):[130]
1075 [137]1000
1080 :
2000 [158]AD[170]3,7[170]64,1,8,M,H,TX,M2$(1),M2$(2),M2$(3),M2$(4),M2$(5),M2$(6),M2$(7)
2010 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
2020 [139]K[178]7[167][158]AD[170]18:[137]70
2025 [139]K[178]6[167]H$[178]"EIC.H2":[141]600:[137]2000
2030 [139]K[178]4[167]N$[178]"EIC.N2":[141]500:[137]2000
2035 [139]K[178]5[167][141]9500:[137]2000
2040 [143]IFK=3THEN2000
2050 [141]9100:[139][195](W$)[178]0[167]2000
2055 D$(K[170]8)[178]W$:[141]400
2070 [129]I[178]1[164]3:M2$(I)[178][200](M2$(I),27)[170][201](SP$[170]D$(I[170]8),10):[130]
2087 [137]2000
2090 :
3000 [158]AD[170]3,9[170]64,1,8,M,H,TX,M3$(1),M3$(2),M3$(3),M3$(4),M3$(5),M3$(6),M3$(7),M3$(8),M3$(9)
3010 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
3020 [139]K[178]9[167][158]AD[170]18:[137]70
3025 [139]K[178]8[167]H$[178]"EIC.H3":[141]600:[137]3000
3030 [139]K[178]7[167][141]9500:[137]3000
3035 [139]K[178]6[167]N$[178]"EIC.N3":[141]500:[137]3000
3040 [139]K[178]3[167]3000
3041 [143]IFK=5THEN3000
3050 [141]9100:[139][195](W$)[178]0[167]3000
3052 D$(K[170]11)[178]W$:[141]400
3070 [129]I[178]1[164]5:M3$(I)[178][200](M3$(I),27)[170][201](SP$[170]D$(I[170]11),10):[130]
3085 [137]3000
3090 :
4000 [158]AD[170]3,7[170]64,1,8,M,H,TX,M4$(1),M4$(2),M4$(3),M4$(4),M4$(5),M4$(6),M4$(7)
4010 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
4020 [139]K[178]7[167][158]AD[170]18:[137]70
4025 [139]K[178]6[167]H$[178]"EIC.H4":[141]600:[137]4000
4030 [139]K[178]5[167][141]9500:[137]4000
4035 [139]K[178]4[167]N$[178]"EIC.N4":[141]500:[137]4000
4040 [143]IFK=3THEN4000
4050 [141]9100:[139][195](W$)[178]0[167]4000
4055 D$(K[170]16)[178]W$:[141]400
4070 [129]I[178]1[164]3:M4$(I)[178][200](M4$(I),27)[170][201](SP$[170]D$(I[170]16),10):[130]
4085 [137]4000
4090 :
9000 [151]214,21:[153]:[153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
9005 [153]"(null)  (null)SE LENURSOR (null)EYS/(null)VAL(null)(null)(null)(null) TO SELECT.   (null)";
9010 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
9015 [142]
9100 [141]9600:[151]646,TX
9105 [151]214,22:[153]:[153]"VALNTER: ";
9110 [158]49152[170]3,TX,TX,9
9115 [141]9000:[142]
9200 [151]214,21:[153]:[153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
9205 [153]"(null)             (null)RESS (null)VAL(null)(null)(null)(null)             (null)";
9210 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN";:[151]2023,125:[151]56295,1
9215 [142]
9300 [141]9600:[151]646,TX
9305 [151]214,22:[153]:[153]"VALNTER (null)EAR: ";
9310 [158]49152[170]3,TX,TX,4
9315 [142]
9320 :
9400 [141]9600:[151]646,TX
9405 [151]214,22:[153]:[153]"(null)RINTER (null)EADY? ";
9410 [158]49152,TX,TX,1
9415 [142]
9420 :
9500 [158]AD[170]18:[151]646,M
9501 [153]""[163]9)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
9502 [153][163]9)"(null)                  (null)"
9503 [153][163]9)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
9504 AC[178]0:AC$[178]"0"
9505 AC$[178][201](SP$[170]AC$,10):[151]646,TX
9506 [153]""[163]17)AC$
9510 [158]AD[170]3,6[170]64,10,9,M[170]64,H,TX,M9$(1),M9$(2),M9$(3),M9$(4),M9$(5),M9$(6)
9520 [161]K$:K$[178][196]([198](K$)[171]48):K[178][197](K$)
9525 [139]K[178]6[167][158]AD[170]18:[142]
9530 [139]K[178]1[167]AC[178]0:[137]9565
9535 [141]9100
9540 W[178][197](W$):[139]W[178]0[167]9505
9545 [139]K[178]2[167]AC[178]AC[170]W
9550 [139]K[178]3[167]AC[178]AC[171]W
9555 [139]K[178]4[167]AC[178]AC[172]W
9560 [139]K[178]5[167]AC[178]AC[173]W
9565 AC$[178][196](AC):[137]9505
9570 :
9600 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]
9602 [151]214,22:[153]:[153]"                                    "
9605 [142]
9610 :
10000 [159]15,8,15,"S0:EIC":[160]15:[148]"0:EIC",8:[128]
10998 :
10999 [143] MENU0
11000 [131] 9
11001 [131] "(null)OAD ASCILE         "
11002 [131] "(null)AVE ASCILE         "
11003 [131] "(null)RINT ASCILE        "
11004 [131] "VALARNED RIGHT$NCOME LENRED"
11005 [131] "PEEKASIC LENREDIT      "
11007 [131] "LEFT$EALTH RIGHT$NS. LENREDIT"
11008 [131] "LENHILD PEEKORN LENREDIT "
11009 [131] "(null)OTALS            "
11014 [131] "(null)AIN (null)ENU         "
11015 :
11099 [143] MENU1
11100 [131] 9
11101 [131] " 4. (null)INE 7, 1040                     "
11102 [131] " 5. (null)ONTAXABLE INCOME               0"
11103 [131] " 6. (null)ELF-VALMP. INCOME                0"
11104 [131] " 7. (null)(null)(null)ATN(null)                           0"
11105 [131] " 8. (null)INE 32, 1040                   0"
11106 [131] "(null)OTEPAD                              "
11107 [131] "LENALCULATOR                           "
11108 [131] "LEFT$ELP                                 "
11109 [131] "(null)AIN (null)ENU                            "
11113 :
11199 [143] MENU2
11200 [131] 7
11201 [131] " 9. (null)EE LEFT$VAL(null)(null) ((null)ABLE ATN)              0"
11202 [131] "10. (null)EE LEFT$VAL(null)(null)                        0"
11203 [131] "11. PEEKATN(null)RIGHT$LEN LEN(null)VALSTR$RIGHT$(null)                    0"
11210 [131] "(null)OTEPAD                              "
11211 [131] "LENALCULATOR                           "
11212 [131] "LEFT$ELP                                 "
11213 [131] "(null)AIN (null)ENU                            "
11214 :
11300 [131] 9
11301 [131] "12. LEFT$EALTH INSURANCE COST           0"
11302 [131] "13. (null)EE LEFT$VAL(null)(null) ((null)ABLE PEEK)              0"
11303 [131] "14. (null)MALLER OF 13 OR 14             0"
11304 [131] "15. (null)EE LEFT$VAL(null)(null)                        0"
11305 [131] "16. LEFT$VALATN(null)(null)LEFT$ RIGHT$(null)(null)(null)(null)ATN(null)LENVAL LEN(null)VALSTR$RIGHT$(null)         0"
11309 [131] "(null)OTEPAD                              "
11310 [131] "LENALCULATOR                           "
11311 [131] "LEFT$ELP                                 "
11312 [131] "(null)AIN (null)ENU                            "
11313 :
11399 [143] MENU4
11400 [131] 7
11401 [131] "17. (null)EE LEFT$VAL(null)(null) ((null)ABLE LEN)              0"
11402 [131] "18. (null)EE LEFT$VAL(null)(null)                        0"
11403 [131] "19. LENLEFT$RIGHT$(null)STR$ PEEK(null)(null)(null) LEN(null)VALSTR$RIGHT$(null)               0"
11409 [131] "(null)OTEPAD                              "
11410 [131] "LENALCULATOR                           "
11411 [131] "LEFT$ELP                                 "
11412 [131] "(null)AIN (null)ENU                            "
11413 :
11499 [143] MENU5
11899 [143] MENU9
11900 [131] 6
11901 [131] "(null)ERO ATNCCUMULATOR  "
11902 [131] "ATNDD TO ATNCC.       "
11903 [131] "(null)UBTRACT FROM ATNCC."
11904 [131] "(null)ULTIPLY ATNCC.     "
11905 [131] "STR$IVIDE ATNCC.       "
11906 [131] "VALXIT              "