0 DV=PEEK(186):IFDV<8THENDV=8
1 IFA=0THENA=1:LOAD"HELP-SCHA",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$="          ":DIMW$(14)
7 DIMD$(37):FORI=0TO37:D$(I)="0":NEXT
8 D$(33)="100000":FL=0
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
23 READX:FORI=1TOX:READM3$(I):NEXT
24 READX:FORI=1TOX:READM4$(I):NEXT
25 READX:FORI=1TOX:READM5$(I):NEXT
26 READX:FORI=1TOX:READM6$(I):NEXT
27 READX:FORI=1TOX:READM7$(I):NEXT
28 READX:FORI=1TOX:READM8$(I):NEXT
29 READX:FORI=1TOX:READM9$(I):NEXT
30 READX:FORI=1TOX:READW$(I):NEXT
31 PRINT"";
40 SYSAD,"[212][160][193][160][216][160] [160][193] [195][160][195] [207] [213] [206] [212][160][193][160][206] [212]","[211]CHEDULE [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,14+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),M0$(14)
80 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
85 IFK>3THENSYSAD+18:POKE781,21:SYS59903
90 ONKGOTO 200,300,900,1075,2075,3075,4075,5080,6080,7075,8080,8560,700,40
95 GOTO70
100 :
200 GOSUB9300
210 IFVAL(W$)=0THEN275
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:PRINT"[145][198]ILE [206]OT [204]OADED":FORI=1TO2000:NEXT:GOTO275
250 FORI=0TO37:INPUT#2,D$(I):NEXT
270 CLOSE2:CLOSE15
275 GOSUB9000:GOTO70
280 :
300 GOSUB9300:IFVAL(W$)=0THEN375
310 W$="SCHA."+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
355 GOSUB400
360 FORI=0TO37:PRINT#2,D$(I):NEXT
370 CLOSE2:CLOSE15
375 GOSUB9000:GOTO70
390 :
400 TL=VAL(D$(4))+VAL(D$(8))+VAL(D$(13))+VAL(D$(17))+VAL(D$(18))+VAL(D$(19))
405 TL=TL+VAL(D$(25))+VAL(D$(26))
410 D$(27)=STR$(TL)
415 D$(28)=D$(27):D$(29)=STR$(VAL(D$(4))+VAL(D$(12))+VAL(D$(18)))
420 TL=VAL(D$(28))-VAL(D$(29)):IFTL=0THEND$(37)=D$(28):RETURN
425 D$(30)=STR$(TL)
430 D$(31)=STR$(INT(TL*.8+.5))
435 TL=VAL(D$(32))-VAL(D$(33)):IFTL<=0THEND$(37)=D$(28):RETURN
440 D$(34)=STR$(TL)
445 D$(35)=STR$(INT(TL*.03+.5))
450 D$(36)=D$(35):IFVAL(D$(31))<VAL(D$(35))THEND$(36)=D$(31)
455 D$(37)=STR$(VAL(D$(28))-VAL(D$(36)))
460 RETURN
465 :
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]        [212]OTALS FOR [211]CHEDULE [193]        [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][205]EDICAL/[196]ENTAL [197]XP.                  [221]"
708 PRINT"[221][212]AXES                                [221]"
710 PRINT"[221][201]NTEREST                             [221]"
712 PRINT"[221][195]ONTRIBUTIONS                        [221]"
714 PRINT"[221][195]ASUALTY/[212]HEFT                       [221]"
716 PRINT"[221][205]OVING [197]XPENSES                      [221]"
717 PRINT"[221][202]OB [197]XPENSES                         [221]"
718 PRINT"[221][205]ISCELLANEOUS                        [221]"
719 PRINT"[221][212]OTAL                                [221]"
720 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]"
722 PRINT"[221][193]DJUSTED [212][207][212][193][204]                       [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:GOSUB400
730 PRINT""
735 PRINTTAB(28)RIGHT$(SP$+D$(4),10)
740 PRINTTAB(28)RIGHT$(SP$+D$(8),10)
745 PRINTTAB(28)RIGHT$(SP$+D$(13),10)
750 PRINTTAB(28)RIGHT$(SP$+D$(17),10)
755 PRINTTAB(28)RIGHT$(SP$+D$(18),10)
757 PRINTTAB(28)RIGHT$(SP$+D$(19),10)
760 PRINTTAB(28)RIGHT$(SP$+D$(25),10)
762 PRINTTAB(28)RIGHT$(SP$+D$(26),10)
764 PRINTTAB(28)RIGHT$(SP$+D$(27),10)
765 PRINT
770 PRINTTAB(28)RIGHT$(SP$+D$(37),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...      "
907 GOSUB400
910 OPEN4,4,7
915 PRINT#4,SP$;"[211]CHEDULE [193] - [201]TEMIZED [196]EDUCTIONS"
920 PRINT#4,SP$;"------------------------------------"
922 FORI=1TO4:PRINT#4,SP$;LEFT$(M1$(I),27)+RIGHT$(SP$+D$(I),10):NEXT:PRINT#4
925 FORI=1TO4:PRINT#4,SP$;LEFT$(M2$(I),27)+RIGHT$(SP$+D$(I+4),10):NEXT:PRINT#4
930 FORI=1TO5:PRINT#4,SP$;LEFT$(M3$(I),27)+RIGHT$(SP$+D$(I+8),10):NEXT:PRINT#4
935 FORI=1TO4:PRINT#4,SP$;LEFT$(M4$(I),27)+RIGHT$(SP$+D$(I+13),10):NEXT:PRINT#4
955 PRINT#4,SP$;LEFT$(M5$(1),27)+RIGHT$(SP$+D$(18),10):PRINT#4
960 PRINT#4,SP$;LEFT$(M6$(1),27)+RIGHT$(SP$+D$(19),10):PRINT#4
965 FORI=1TO6:PRINT#4,SP$;LEFT$(M7$(I),27)+RIGHT$(SP$+D$(I+19),10):NEXT:PRINT#4
970 PRINT#4,SP$;LEFT$(M8$(1),27)+RIGHT$(SP$+D$(26),10):PRINT#4
972 PRINT#4,SP$;"[212]OTAL                      "+RIGHT$(SP$+D$(27),10)
975 PRINT#4,SP$;"[193]DJUSTED [212]OTAL             "+RIGHT$(SP$+D$(37),10)
990 PRINT#4:CLOSE4:GOSUB9000:GOTO70
995 :
1000 SYSAD+3,8+64,1,8,M,H,TX,M1$(1),M1$(2),M1$(3),M1$(4),M1$(5),M1$(6),M1$(7),M1$(8)
1010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
1020 IFK=8THENSYSAD+18:GOTO70
1025 IFK=7THENH$="MED.H":GOSUB600:GOTO1000
1030 IFK=5THENN$="MED.NP":GOSUB500:GOTO1000
1035 IFK=6THENGOSUB9500:GOTO1000
1040 IFK=3THEN1000
1045 IFK=4THEN1000
1050 GOSUB9100:IFLEN(W$)=0THEN1000
1055 IFK=1THEND$(1)=W$
1060 IFK=2THEND$(2)=W$
1065 D$(3)=STR$(INT(VAL(D$(2))*.075))
1070 D$(4)=STR$(VAL(D$(1))-VAL(D$(3)))
1071 IFVAL(D$(4))<0THEND$(4)="0"
1075 FORI=1TO4
1080 M1$(I)=LEFT$(M1$(I),27)+RIGHT$(SP$+D$(I),10):NEXT
1085 GOTO1000
1090 :
2000 SYSAD+3,8+64,1,8,M,H,TX,M2$(1),M2$(2),M2$(3),M2$(4),M2$(5),M2$(6),M2$(7),M2$(8)
2010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
2020 IFK=8THENSYSAD+18:GOTO70
2025 IFK=7THENH$="TAX.H":GOSUB600:GOTO2000
2030 IFK=5THENN$="TAX.NP":GOSUB500:GOTO2000
2035 IFK=6THENGOSUB9500:GOTO2000
2045 IFK=4THEN2000
2050 GOSUB9100:IFLEN(W$)=0THEN2000
2055 D$(K+4)=W$:D$(8)=STR$(VAL(D$(5))+VAL(D$(6))+VAL(D$(7)))
2075 FORI=1TO4
2080 M2$(I)=LEFT$(M2$(I),27)+RIGHT$(SP$+D$(I+4),10):NEXT
2085 GOTO2000
2090 :
3000 SYSAD+3,9+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 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
3020 IFK=9THENSYSAD+18:GOTO70
3025 IFK=8THENH$="INT.H":GOSUB600:GOTO3000
3030 IFK=7THENGOSUB9500:GOTO3000
3035 IFK=6THENN$="INT.NP":GOSUB500:GOTO3000
3040 IFK=5THEN3000
3050 GOSUB9100:IFLEN(W$)=0THEN3000
3052 D$(K+8)=W$
3060 TL=VAL(D$(9))+VAL(D$(10))+VAL(D$(11))+VAL(D$(12))
3065 D$(13)=STR$(TL)
3075 FORI=1TO5
3080 M3$(I)=LEFT$(M3$(I),27)+RIGHT$(SP$+D$(I+8),10):NEXT
3085 GOTO3000
3090 :
4000 SYSAD+3,8+64,1,8,M,H,TX,M4$(1),M4$(2),M4$(3),M4$(4),M4$(5),M4$(6),M4$(7),M4$(8)
4010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
4020 IFK=8THENSYSAD+18:GOTO70
4025 IFK=7THENH$="CON.H":GOSUB600:GOTO4000
4030 IFK=6THENGOSUB9500:GOTO4000
4035 IFK=5THENN$="CON.NP":GOSUB500:GOTO4000
4050 GOSUB9100:IFLEN(W$)=0THEN4000
4055 D$(K+13)=W$:D$(17)=STR$(VAL(D$(14))+VAL(D$(15))+VAL(D$(16)))
4075 FORI=1TO4
4080 M4$(I)=LEFT$(M4$(I),27)+RIGHT$(SP$+D$(I+13),10):NEXT
4085 GOTO4000
4090 :
5000 SYSAD+3,5+64,1,8,M,H,TX,M5$(1),M5$(2),M5$(3),M5$(4),M5$(5)
5010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
5020 IFK=5THENSYSAD+18:GOTO70
5025 IFK=4THENH$="CAS.H":GOSUB600:GOTO5000
5030 IFK=3THENGOSUB9500:GOTO5000
5035 IFK=2THENN$="CAS.NP":GOSUB500:GOTO5000
5050 GOSUB9100:IFLEN(W$)=0THEN5000
5055 D$(18)=W$
5080 M5$(1)=LEFT$(M5$(1),27)+RIGHT$(SP$+D$(18),10)
5085 GOTO5000
5090 :
6000 SYSAD+3,5+64,1,8,M,H,TX,M6$(1),M6$(2),M6$(3),M6$(4),M6$(5)
6010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
6020 IFK=5THENSYSAD+18:GOTO70
6025 IFK=4THENH$="MOV.H":GOSUB600:GOTO6000
6030 IFK=3THENGOSUB9500:GOTO6000
6035 IFK=2THENN$="MOV.NP":GOSUB500:GOTO6000
6050 GOSUB9100:IFLEN(W$)=0THEN6000
6055 D$(19)=W$
6080 M6$(1)=LEFT$(M6$(1),27)+RIGHT$(SP$+D$(19),10)
6085 GOTO6000
6090 :
7000 SYSAD+3,10+64,1,8,M,H,TX,M7$(1),M7$(2),M7$(3),M7$(4),M7$(5),M7$(6),M7$(7),M7$(8),M7$(9),M7$(10)
7010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
7020 IFK=10THENSYSAD+18:GOTO70
7025 IFK=9THENH$="JOB.H":GOSUB600:GOTO7000
7030 IFK=8THENGOSUB9500:GOTO7000
7035 IFK=7THENN$="JOB.NP":GOSUB500:GOTO7000
7040 IFK=6THEN7000
7045 IFK=5THEN7000
7050 GOSUB9100:IFLEN(W$)=0THEN7000
7051 D$(K+19)=W$
7055 D$(22)=STR$(VAL(D$(20))+VAL(D$(21)))
7060 D$(24)=STR$(INT(VAL(D$(23))*.02+.5))
7065 D$(25)="0":IFVAL(D$(22))<=VAL(D$(24))THEN7075
7070 D$(25)=STR$(VAL(D$(22))-VAL(D$(24)))
7075 FORI=1TO6
7080 M7$(I)=LEFT$(M7$(I),27)+RIGHT$(SP$+D$(I+19),10):NEXT
7085 GOTO7000
7090 :
8000 SYSAD+3,5+64,1,8,M,H,TX,M8$(1),M8$(2),M8$(3),M8$(4),M8$(5)
8010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
8020 IFK=5THENSYSAD+18:GOTO70
8025 IFK=4THENH$="MIS.H":GOSUB600:GOTO8000
8030 IFK=3THENGOSUB9500:GOTO8000
8035 IFK=2THENN$="MIS.NP":GOSUB500:GOTO8000
8050 GOSUB9100:IFLEN(W$)=0THEN8000
8055 D$(26)=W$
8080 M8$(1)=LEFT$(M8$(1),27)+RIGHT$(SP$+D$(26),10)
8085 GOTO8000
8090 :
8500 SYSAD+3,14+64,1,7,M,H,TX,W$(1),W$(2),W$(3),W$(4),W$(5),W$(6),W$(7),W$(8),W$(9),W$(10),W$(11),W$(12),W$(13),W$(14)
8510 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
8520 IFK=14THENSYSAD+18:POKE781,21:SYS59903:GOTO70
8525 IFK=13THENH$="WRK.H":GOSUB600:GOTO8500
8530 IFK=12THENGOSUB9500:GOTO8500
8535 IFK=11THENN$="WRK.NP":GOSUB500:GOTO8500
8540 IFK<5THEN8500
8545 IFK>6THEN8500
8547 IFK=6THEN8600
8550 GOSUB9100:IFLEN(W$)=0THEN8500
8555 D$(K+27)=W$
8560 GOSUB400
8597 FORI=1TO10:W$(I)=LEFT$(W$(I),27)+RIGHT$(SP$+D$(I+27),10):NEXT:GOTO8500
8599 :
8600 F1=NOTF1
8605 IFF1=0THENW$(6)=" 6. [202]OINT                      100000":D$(33)="100000"
8610 IFF1THENW$(6)=" 6. [211]EPARATE                    50000":D$(33)="50000"
8615 GOTO8560
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:SCHA":CLOSE15:SAVE"0:SCHA",8:END
10998 :
10999 REM MENU0
11000 DATA 14
11001 DATA "[204]OAD [198]ILE         "
11002 DATA "[211]AVE [198]ILE         "
11003 DATA "[208]RINT [198]ILE        "
11004 DATA "[205]EDICAL [197]XPENSES  "
11005 DATA "[212]AXES [217]OU [208]AID    "
11006 DATA "[201]NTEREST [217]OU [208]AID "
11007 DATA "[199]IFTS TO [195]HARITY  "
11008 DATA "[195]ASUALTY AND [212]HEFT"
11009 DATA "[205]OVING [197]XPENSES   "
11010 DATA "[202]OB [197]XPENSES      "
11011 DATA "[205]ISCELLANEOUS     "
11012 DATA "[215]ORKSHEET         "
11013 DATA "[212]OTALS            "
11014 DATA "[205]AIN [205]ENU         "
11015 :
11099 REM MENU1
11100 DATA 8
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]OTAL ([204]INE 1 - LINE 3)          0"
11105 DATA "[206]OTEPAD                              "
11106 DATA "[195]ALCULATOR                           "
11107 DATA "[200]ELP                                 "
11108 DATA "[205]AIN [205]ENU                            "
11113 :
11199 REM MENU2
11200 DATA 8
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]OTAL                            0"
11205 DATA "[206]OTEPAD                              "
11206 DATA "[195]ALCULATOR                           "
11207 DATA "[200]ELP                                 "
11208 DATA "[205]AIN [205]ENU                            "
11213 :
11299 REM MENU3
11300 DATA 9
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]OTAL                           0"
11308 DATA "[206]OTEPAD                              "
11309 DATA "[195]ALCULATOR                           "
11310 DATA "[200]ELP                                 "
11311 DATA "[205]AIN [205]ENU                            "
11312 :
11399 REM MENU4
11400 DATA 8
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]OTAL                           0"
11405 DATA "[206]OTEPAD                              "
11406 DATA "[195]ALCULATOR                           "
11407 DATA "[200]ELP                                 "
11408 DATA "[205]AIN [205]ENU                            "
11413 :
11499 REM MENU5
11500 DATA 5
11501 DATA "17. [195]ASUALTY/THEFT (4684)           0"
11505 DATA "[206]OTEPAD                              "
11506 DATA "[195]ALCULATOR                           "
11507 DATA "[200]ELP                                 "
11508 DATA "[205]AIN [205]ENU                            "
11513 :
11599 REM MENU6
11600 DATA 5
11601 DATA "18. [205]OVING [197]XPENSES (3903)          0"
11605 DATA "[206]OTEPAD                              "
11606 DATA "[195]ALCULATOR                           "
11607 DATA "[200]ELP                                 "
11608 DATA "[205]AIN [205]ENU                            "
11613 :
11699 REM MENU7
11700 DATA 10
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. [204]INE 21 - LINE 23               0"
11707 DATA "[206]OTEPAD                              "
11708 DATA "[195]ALCULATOR                           "
11709 DATA "[200]ELP                                 "
11710 DATA "[205]AIN [205]ENU                            "
11713 :
11799 REM MENU8
11800 DATA 5
11801 DATA "25. [207]THER                           0"
11805 DATA "[206]OTEPAD                              "
11806 DATA "[195]ALCULATOR                           "
11807 DATA "[200]ELP                                 "
11808 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 14
12001 DATA " 1. [212]OTAL [196]EDUCTIONS                0"
12002 DATA " 2. [204]INES 4+11+17 ([211]CH. [193])          0"
12003 DATA " 3. [204]INE 1 - 2                      0"
12004 DATA " 4. [204]INE 3 * 80%                    0"
12005 DATA " 5. [204]INE 32, 1040                   0"
12006 DATA " 6. [202]OINT                      100000"
12007 DATA " 7. [204]INE 5 - 6                      0"
12008 DATA " 8. [204]INE 7 * 3%                     0"
12009 DATA " 9. [211]MALLER OF LINE 4 OR 8          0"
12010 DATA "10. [204]INE 1 - 9                      0"
12011 DATA "[206]OTEPAD                              "
12012 DATA "[195]ALCULATOR                           "
12013 DATA "[200]ELP                                 "
12014 DATA "[205]AIN [205]ENU                            "
12015 :