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=37
7 DIM M1$(MAX),M2$(20),D$(MAX),CH(MAX):FL=0:F1=0
8 FORI=0TOMAX:D$(I)="0":NEXT:D$(32)="105250"
10 POKE53280,0:POKE53281,0:AD=49152
21 READX:FORI=1TOX:READM1$(I):NEXT
22 READX:FORI=1TOX:READM2$(I):NEXT
23 READX:FORI=1TOX:READCH(I):NEXT
30 PRINT"[147]";:GOSUB9500
40 SYSAD+21,"[212][193][216] [193][195][195][207][213][206][212][193][206][212]: [211]CHEDULE [193]",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=36: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=1THEN52
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=32THEN192
140 GOSUB9100:IFLEN(W$)=0THEN62
145 WW=VAL(W$):W$=STR$(WW):D$(R+V)=W$
150 REMGOSUB400
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 :
192 F1=NOTF1
193 IFF1=0THENM1$(32)="[215]6. [202]OINT, [211]INGLE, [200][200], [209][215]     105250":D$(32)="105250"
194 IFF1THENM1$(32)="[215]6. [205]ARRIED [211]EPARATE           52625":D$(32)="52625"
195 GOTO187
200 GOSUB9300
210 IFVAL(W$)=0THENCLOSE2:CLOSE15:GOSUB9000:RETURN
220 OPEN15,DV,15,"IO":W$="SCHA."+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=0TO36:INPUT#2,D$(I):NEXT
270 CLOSE2:CLOSE15
275 GOSUB9000:GOSUB9500:RETURN
280 :
300 GOSUB9300:IFVAL(W$)=0THEN375
310 W$="SCHA."+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$(36)
360 FORI=0TO36:PRINT#2,D$(I):NEXT
370 CLOSE2:CLOSE15
375 GOSUB9000:RETURN
390 :
400 SYSAD+3,0:GOSUB9600:POKE214,21:PRINT:PRINT"[195]ALCULATING...   "
401 D$(3)=STR$(INT(VAL(D$(2))*.075)):D$(4)=STR$(VAL(D$(1))-VAL(D$(3)))
402 IFVAL(D$(4))<0THEND$(4)="0"
403 D$(8)=STR$(VAL(D$(5))+VAL(D$(6))+VAL(D$(7)))
404 D$(13)=STR$(VAL(D$(9))+VAL(D$(10))+VAL(D$(11))+VAL(D$(12)))
405 D$(17)=STR$(VAL(D$(14))+VAL(D$(15))+VAL(D$(16)))
406 D$(22)=STR$(VAL(D$(20))+VAL(D$(21)))
407 D$(24)=STR$(INT(VAL(D$(23))*.02+.5))
408 D$(25)="0":IFVAL(D$(22))<=VAL(D$(24))THEN410
409 D$(25)=STR$(VAL(D$(22))-VAL(D$(24)))
410 TL=VAL(D$(4))+VAL(D$(8))+VAL(D$(13))+VAL(D$(17))+VAL(D$(18))+VAL(D$(19))
412 TL=TL+VAL(D$(25))+VAL(D$(26))
413 D$(27)=STR$(TL)
415 D$(28)=STR$(VAL(D$(4))+VAL(D$(12))+VAL(D$(18)))
420 TL=VAL(D$(27))-VAL(D$(28)):IFTL=0THEND$(36)=D$(27):GOTO460
425 D$(29)=STR$(TL)
430 D$(30)=STR$(INT(TL*.8+.5))
435 TL=VAL(D$(31))-VAL(D$(32)):IFTL<=0THEND$(36)=D$(27):GOTO460
440 D$(33)=STR$(TL)
445 D$(34)=STR$(INT(TL*.03+.5))
450 D$(35)=D$(34):IFVAL(D$(30))<VAL(D$(34))THEND$(35)=D$(30)
455 D$(36)=STR$(VAL(D$(27))-VAL(D$(35)))
460 GOSUB9500:RETURN
465 :
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$="SCHA.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.SCHA 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
915 PRINT#4,SP$"[211][195][200][197][196][213][204][197] [193]"
920 PRINT#4,SP$"-------------------------------------"
925 FORI=1TO4:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
926 FORI=5TO8:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
927 FORI=9TO13:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
928 FORI=14TO17:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
929 PRINT#4,SP$;M1$(18):PRINT#4
930 PRINT#4,SP$;M1$(19):PRINT#4
931 FORI=20TO25:PRINT#4,SP$;M1$(I):NEXT:PRINT#4
932 PRINT#4,SP$;M1$(26):PRINT#4
933 FORI=27TO36:PRINT#4,SP$;M1$(I):NEXT
935 PRINT#4:CLOSE4:GOSUB9000:RETURN
936 :
1000 SYSAD+3,2
1005 SYSAD+18,10,5,20,12,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)
1050 PRINTTAB(11)"[212]OTALS"
1055 PRINTTAB(11)"[195]ALCULATE [211]HEET"
1056 PRINTTAB(11)"[201]MPORT 1040, LINE 32"
1057 PRINTTAB(11)"[197]XIT"
1060 SYSAD+12,11,6,30,12,13,1
1065 K=PEEK(828)
1070 ONKGOSUB200,300,900,600,5000,500,6000,6100,2000,400,3000
1075 SYSAD+6,2:RETURN
1080 :
2000 SYSAD+6,2
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]        [212]OTALS FOR [211]CHEDULE [193]         [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][205]EDICAL/[196]ENTAL [197]XP.                   [221]";
2025 PRINT"[221][212]AXES                                 [221]";
2030 PRINT"[221][201]NTEREST                              [221]";
2035 PRINT"[221][195]ONTRIBUTIONS                         [221]";
2040 PRINT"[221][195]ASUALTY/[212]HEFT                        [221]";
2045 PRINT"[221][205]OVING [197]XPENSES                       [221]";
2050 PRINT"[221][202]OB [197]XPENSES                          [221]";
2055 PRINT"[221][205]ISCELLANEOUS                         [221]";
2060 PRINT"[221][212]OTAL                                 [221]";
2065 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]";
2070 PRINT"[221][193]DJUSTED [212][207][212][193][204]                        [221]";
2075 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]";
2080 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
2085 GOSUB400
2090 PRINT""
2095 PRINTTAB(28)RIGHT$(SP$+D$(4),10)
2100 PRINTTAB(28)RIGHT$(SP$+D$(8),10)
2105 PRINTTAB(28)RIGHT$(SP$+D$(13),10)
2110 PRINTTAB(28)RIGHT$(SP$+D$(17),10)
2115 PRINTTAB(28)RIGHT$(SP$+D$(18),10)
2120 PRINTTAB(28)RIGHT$(SP$+D$(19),10)
2125 PRINTTAB(28)RIGHT$(SP$+D$(25),10)
2130 PRINTTAB(28)RIGHT$(SP$+D$(26),10)
2135 PRINTTAB(28)RIGHT$(SP$+D$(27),10)
2140 PRINT
2145 PRINTTAB(28)RIGHT$(SP$+D$(36),10)
2150 GETK$:IFK$<>CHR$(13)THEN2150
2155 SYSAD+6,2:RETURN
2160 :
3000 GOSUB9300
3005 IFVAL(W$)=0THENCLOSE2:CLOSE15:GOSUB9000:RETURN
3010 OPEN15,DV,15,"IO":W$="1040."+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,D$(2):D$(23)=D$(2):D$(31)=D$(2)
3050 CLOSE2:CLOSE15
3055 GOSUB9000:GOSUB9500:RETURN
3060 :
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: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=1TO36
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:SCHA":CLOSE15:SAVE"0:SCHA",8:END
10998 :
11099 REM MENU1
11100 DATA 36
11101 DATA " 1. [205]EDICAL AND [196]ENTAL [197]XP.         0"
11102 DATA " 2. [197]NTER LINE 32 FROM 1040         0"
11103 DATA " 3. [205]ULTIPLY LINE 2 * 7.5%          0"
11104 DATA " 4. [212][207][212][193][204] [205][197][196][201][195][193][204]                   0"
11201 DATA " 5. [211]TATE AND [204]OCAL [212]AXES           0"
11202 DATA " 6. [210]EAL [197]STATE [212]AXES               0"
11203 DATA " 7. [207]THER [212]AXES                     0"
11204 DATA " 8. [212][207][212][193][204] [212][193][216][197][211]                     0"
11301 DATA "9A. [196]EDUCTIBLE [200]OME [205]ORT.           0"
11302 DATA "9B. [207]THER [200]OME [201]NTEREST             0"
11303 DATA "10. [208]OINTS                          0"
11304 DATA "11. [201]NVESTMENT [201]NTEREST             0"
11307 DATA "12. [212][207][212][193][204] [201][206][212][197][210][197][211][212]                  0"
11401 DATA "13. [195]ONTRIBUTIONS BY CASH           0"
11402 DATA "14. [207]THER THAN CASH/CHECK           0"
11403 DATA "15. [195]ARRYOVER FROM PRIOR YR         0"
11404 DATA "16. [212][207][212][193][204] [195][207][206][212][210][201][194][213][212][201][207][206][211]             0"
11501 DATA "17. [195][193][211][213][193][204][212][217]/[212][200][197][198][212] (4684)           0"
11601 DATA "18. [205][207][214][201][206][199] [197][216][208][197][206][211][197][211] (3903)          0"
11701 DATA "19. [213]NREIMBURSED EXP.               0"
11702 DATA "20. [207]THER EXPENSES                  0"
11703 DATA "21. [212]OTAL LINES 19+20               0"
11704 DATA "22. [197]NTER LINE 32 FROM 1040         0"
11705 DATA "23. [205]ULTIPLY LINE 22 * 2%           0"
11706 DATA "24. [212][207][212][193][204] [194][213][211][201][206][197][211][211]                  0"
11801 DATA "25. [207][212][200][197][210]                           0"
12001 DATA "26. [212][207][212][193][204] [196][197][196][213][195][212][201][207][206][211]                0"
12002 DATA "[215]2. [204]INES 4 + 11 + 17               0"
12003 DATA "[215]3. [204]INE 1 - 2                      0"
12004 DATA "[215]4. [204]INE 3 * 80%                    0"
12005 DATA "[215]5. [204]INE 32, 1040                   0"
12006 DATA "[215]6. [202]OINT, [211]INGLE, [200][200], [209][215]      105250"
12007 DATA "[215]7. [204]INE 5 - 6                      0"
12008 DATA "[215]8. [204]INE 7 * 3%                     0"
12009 DATA "[215]9. [211]MALLER OF LINE 4 OR 8          0"
12010 DATA "[215]10. [193][196][202][213][211][212][197][196][160][196][197][196][213][195][212][201][207][206][211]            0"
12015 :
20000 DATA 6
20001 DATA "[218]ERO [193]CC.         "
20002 DATA "[193]DD TO [193]CC.       "
20003 DATA "[211]UBTRACT FROM [193]CC."
20004 DATA "[205]ULTIPLY [193]CC.     "
20005 DATA "[196]IVIDE [193]CC.       "
20006 DATA "[197]XIT              "
21000 DATA 37
21050 DATA 0,0,1,1,0,0,0,1,0,0
21100 DATA 0,0,1,0,0,0,1,0,0,0
21150 DATA 0,1,0,1,1,0,1,1,1,1
21200 DATA 0,0,1,1,1,1,1