0 W$="":DV=PEEK(186):IFDV<8THENDV=8
1 REMIFA=0THENA=1:LOAD"TOOL BOX C000",DV,1
2 REMIFA=1THENA=2:LOAD"NOTEPAD C900",DV,1
3 POKE198,0:SP$="          ":MAX=12
5 DIM M1$(20),M2$(20),D$(MAX):FL=0:F1=0:F2=0:F3=0
6 FORI=2TOMAX:D$(I)="0":NEXT:D$(5)="6250"
10 POKE53280,0:POKE53281,0:AD=49152
21 READX:FORI=1TOX:READM1$(I):NEXT
22 READX:FORI=1TOX:READM2$(I):NEXT
30 PRINT"[147]";:GOSUB9500
40 SYSAD+21,"[212][193][216] [193][195][195][207][213][206][212][193][206][212]: 1040[197][218]",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=10:W=38:TX=14:HI=1:BX=4:EX$=CHR$(133)
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)+SP$,W):NEXT
58 R=1:R1=1:POKE646,HI:POKE214,R+Y-1:PRINT:PRINTTAB(X+1)""LEFT$(M1$(R)+SP$,W)
62 GETK$:IFK$=""THEN62
66 IFK$=CHR$(13)THEN135
68 IFK$="[145]"THENGOSUB891
70 IFK$=""THENGOSUB850
78 IFK$="[136]"THENGOSUB1000:IFK=1THEN52
88 IFK$="_"THENGOSUB7000:REM EXIT
90 IFR=4ORR=6THENHI=10
92 POKE646,TX:POKE214,R1+Y-1:PRINT:PRINTTAB(X+1)""LEFT$(M1$(R1+V)+SP$,W)
94 POKE646,HI:POKE214,R+Y-1:PRINT:PRINTTAB(X+1)""LEFT$(M1$(R+V)+SP$,W)
96 R1=R:HI=1:GOTO62
98 :
135 IFR=4THEN62
136 IFR=6THEN62
138 IFR=5THENGOSUB800:GOTO170
139 IF R=1THENGOSUB400:GOTO170
140 GOSUB9100:IFLEN(W$)=0THEN62
141 WW=VAL(W$):W$=STR$(WW)
145 D$(R)=W$
160 IFLEN(W$)=0THEN52
165 IFVAL(D$(3))>400THEND$(3)="[211][212][207][208]":FORI=6TO10:D$(I)="0":NEXT:GOTO186
170 D$(4)=STR$(VAL(D$(2))+VAL(D$(3)))
171 REM IFFLTHENGOSUB809
175 D$(6)=STR$(VAL(D$(4))-VAL(D$(5))):IFVAL(D$(6))<0THEND$(6)="0"
176 IFVAL(D$(6))>50000THEND$(6)="[211][212][207][208]"
177 GOSUB15000
178 D$(9)=STR$(VAL(D$(7))+VAL(D$(8)))
180 IFVAL(D$(9))>=VAL(D$(10))THEND$(11)=STR$(VAL(D$(9))-VAL(D$(10))):D$(12)="0"
185 IFVAL(D$(10))>VAL(D$(9))THEND$(12)=STR$(VAL(D$(10))-VAL(D$(9))):D$(11)="0"
186 GOSUB9500
190 GOTO52
195 :
200 GOSUB9300
210 IFVAL(W$)=0THENCLOSE2:CLOSE15:GOSUB9000:RETURN
220 OPEN15,DV,15,"IO":W$="EZ."+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=1TO12:INPUT#2,D$(I):NEXT
261 INPUT#2,M1$(1)
262 INPUT#2,M1$(5)
263 INPUT#2,FL
264 INPUT#2,F2
270 CLOSE2:CLOSE15
271 M1$(1)=" "+M1$(1):M1$(5)=" "+M1$(5)
275 GOSUB9000:GOSUB9500:RETURN
280 :
300 GOSUB9300:IFVAL(W$)=0THEN375
310 W$="EZ."+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=1TO12:PRINT#2,D$(I):NEXT
361 PRINT#2,M1$(1)
362 PRINT#2,M1$(5)
363 PRINT#2,FL
364 PRINT#2,F2
370 CLOSE2:CLOSE15
375 GOSUB9000:RETURN
390 :
400 F2=NOT F2
402 IFF2<>0THEN450
405 M1$(1)="    [211]INGLE                     ":FL=-1:F3=2
406 REM  IFFL=0THEND$(5)="6250":GOSUB9500:RETURN
407 GOSUB805:GOSUB9500:RETURN
450 M1$(1)="    [205]ARRIED [202]OINT              "
455 F3=2:FL=-1:REM      IFFL=0THEND$(5)="11250":GOSUB9500:RETURN
456 GOSUB805:GOSUB9500:RETURN
470 :
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$="EZ.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=3THENSYSAD+6,2:RETURN
555 GOTO505
560 :
600 PRINT"[147]"TAB(14)"[150]*** [200][197][204][208] ***"
601 SYSAD+18,0,1,38,21,1,0
602 H$="T.EZ 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:RETURN
625 :
800 REM FL=NOT FLR
805 IFF2<>0THEN820
806 FL=NOTFL
807 M1$(5)=" 4. [196]EPENDENT-[206]O               "
808 D$(5)="6250"
809 IFFL=0THENRETURN
810 M1$(5)=" 4. [196]EPENDENT-[217]ES              ":FF=0:GOTO830
820 F3=F3+1:IFF3=3THENF3=0
822 IFF3=0THENM1$(5)=" 4. [196]EPENDENT-[206]O               ":D$(5)="11250":RETURN
824 IFF3=1THENM1$(5)=" 4. [196]EPENDENT-[217]ES-[194]OTH         ":FF=0:GOTO830
825 IFF3=2THENM1$(5)=" 4. [196]EPENDENT-[217]ES-[207]NE          ":FF=2450
830 D=6350:IF F2=0THEND=3800
832 B=600:C=B:E=D
834 IFB<VAL(D$(2))THENC=VAL(D$(2))
836 IFC<DTHENE=C
838 E=E+FF
839 D$(5)=STR$(E):RETURN
840 :
850 R=R+1:IFR<=8THENRETURN
855 R=R-1:IFR<8THEN RETURN
860 GOSUB875
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 :
891 R=R-1:IFR<>0THENRETURN
892 R=1
893 GOSUB875
894 RETURN
895 :
900 GOSUB9400:IFW$<>"Y"THENGOSUB9000:RETURN
910 OPEN4,4,7
915 PRINT#4,SP$"1040[197][218]"
920 PRINT#4,SP$"-------------------------------------"
925 FORI=1TO6:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
926 FORI=7TO10:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
927 FORI=11TO12:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
930 PRINT#4:CLOSE4:GOSUB9000:RETURN
935 :
1000 SYSAD+3,2
1005 SYSAD+18,10,5,20,9,13,1
1010 POKE214,5: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)
1057 PRINTTAB(11)"[197]XIT"
1060 SYSAD+12,11,6,29,9,13,1
1065 K=PEEK(828)
1070 ONKGOSUB200,300,900,600,5000,500,6000,6100
1075 SYSAD+6,2:RETURN
1080 :
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 K=PEEK(828)
5025 IFK=6THENSYSAD+6,2:RETURN
5030 IFK=1THENAC=0:GOTO5065
5035 GOSUB9100
5040 P=VAL(W$):IFP=0THEN5005
5045 IFK=2THENAC=AC+P
5050 IFK=3THENAC=AC-P
5055 IFK=4THENAC=AC*P
5060 IFK=5THENAC=AC/P
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:B.TAX=B.TAX":INPUT#15,ER%:CLOSE15
7025 IFER%<>63THENEND
7030 POKE646,PEEK(53281)
7035 PRINT"[147]LOAD"CHR$(34)"B.TAX"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=1TO12
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:1040EZ":CLOSE15:SAVE"0:1040EZ",8:END
10999 :
11099 REM MENU1
11100 DATA 12
11101 DATA "    [211]INGLE                           "
11102 DATA " 1. [212]OTAL [215]AGES/[211]ALARY/[212]IPS         0"
11103 DATA " 2. [212]AXABLE [201]NTEREST [201]NCOME         0"
11104 DATA " 3. [193]DJUSTED [199]ROSS [201]NCOME           0"
11105 DATA " 4. [196]EPENDENT-[206]O                    0"
11106 DATA " 5. [212]AXABLE [201]NCOME                  0"
11107 DATA " 6. [198]EDERAL [212]AX [215]ITHHELD            0"
11108 DATA " 7. [197]ARNED [201]NCOME [195]REDIT            0"
11109 DATA " 8. [204]INE 6 + [204]INE 7                 0"
11110 DATA " 9. [193]PPROXIMATE [212][193][216]                 0"
11111 DATA "10. [210]EFUND                          0"
11112 DATA "11. [193]MOUNT YOU OWE                  0"
11114 :
11199 REM MENU2
11200 DATA 6
11201 DATA "[218]ERO [193]CC.         "
11202 DATA "[193]DD TO [193]CC.       "
11203 DATA "[211]UBTRACT FROM [193]CC."
11204 DATA "[205]ULTIPLY [193]CC.     "
11205 DATA "[196]IVIDE [193]CC.       "
11206 DATA "[197]XIT              "
15000 IFF2<>0THEN15100
15001 IC=VAL(D$(6))
15005 IFIC<=22750THENTA=INT(IC*.15+.5):D$(10)=STR$(TA):RETURN
15010 TA=3412.5:T1=IC-22750
15015 IFIC<=55100 THENTA=INT(T1*.28+.5+TA):D$(10)=STR$(TA):RETURN
15020 TA=12470.5:T1=IC-55100:TA=INT(TA+T1*.31+.5):RETURN
15025 :
15100 IC=VAL(D$(6))
15105 IFIC<=38000THENTA=INT(IC*.15+.5):D$(10)=STR$(TA):RETURN
15110 TA=5700:T1=IC-38000
15115 IFIC<=91850 THENTA=INT(T1*.28+.5+TA):D$(10)=STR$(TA):RETURN
15120 TA=20778:T1=IC-91850:TA=INT(TA+T1*.31+.5):RETURN
15125 :