0 DV=PEEK(186):IFDV<8THENDV=8
1 IFA=0THENA=1:LOAD"HELP-2441",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=0TO26:D$(I)="0":NEXT:D$(3)="1":D$(5)="2400"
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
31 DIMFS$(5):FORI=1TO2:READFS$(I):NEXT:FS=1
32 DIMSD$(5):FORI=1TO2:READSD$(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]","[198]ORM 2441"
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,8+64,10,8,M,H,TX,M0$(1),M0$(2),M0$(3),M0$(4),M0$(5),M0$(6),M0$(7),M0$(8)
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,40
95 GOTO70
100 :
200 GOSUB9300
210 IFVAL(W$)=0THEN275
220 OPEN15,DV,15,"IO":W$="2441."+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=0TO26: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$="2441."+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=0TO26:PRINT#2,D$(I):NEXT
365 INPUT#2,FS:PRINT#2,M1$(1)
370 CLOSE2:CLOSE15
375 GOSUB9000:GOTO70
390 :
400 D$(5)="2400":IFVAL(D$(3))>1THEND$(5)="4800"
402 GOSUB700
405 D$(6)=D$(25)
410 D$(7)=STR$(VAL(D$(5))-VAL(D$(6)))
415 D$(8)=D$(4):IFVAL(D$(4))>VAL(D$(7))THEND$(8)=D$(7)
420 IFFS=1THEND$(11)=D$(9):IFVAL(D$(9))>VAL(D$(10))THEND$(11)=D$(10)
425 IFFS=1THENIFVAL(D$(8))<VAL(D$(11))THEND$(11)=D$(8)
427 IFFS=1THEN435
430 D$(11)=D$(8):IFVAL(D$(8))>VAL(D$(9))THEND$(11)=D$(9)
435 D$(14)=STR$(INT(VAL(D$(11))*VAL(D$(13))/100+.5))
440 D$(16)=STR$(VAL(D$(14))+VAL(D$(15)))
441 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 D$(19)=STR$(VAL(D$(17))-VAL(D$(18)))
705 D$(21)=D$(20):IFVAL(D$(20))>VAL(D$(19))THEND$(21)=D$(19)
710 IFFS=1THEND$(24)=D$(22):IFVAL(D$(22))>VAL(D$(23))THEND$(24)=D$(23):GOTO720
715 D$(24)=D$(22)
720 A=VAL(D$(21)):B=VAL(D$(24)):C=VAL(SD$(FS)):D=0
725 IFA<=BTHEND=A:IFA<=CTHEND=A:GOTO750
730 IFA<=BTHEND=A:IFA>CTHEND=C:GOTO750
735 IFA>BTHEND=B:IFB<=CTHEND=B:GOTO750
740 IFA>BTHEND=B:IFB>CTHEND=C
750 D$(25)=STR$(D)
755 D$(26)=STR$(VAL(D$(19))-VAL(D$(25)))
760 RETURN
765 :
900 GOSUB9400:IFW$<>"Y"THENGOSUB9000:GOTO70
905 POKE214,22:PRINT:PRINT"[208]RINTING...      "
910 OPEN4,4,7
915 PRINT#4,SP$;"[198]ORM 2441"
920 PRINT#4,SP$;"-------------------------------------"
921 PRINT#4,SP$;LEFT$(M1$(1),27)
922 FORI=2TO8:PRINT#4,SP$;LEFT$(M1$(I),27)+RIGHT$(SP$+D$(I),10):NEXT:PRINT#4
925 FORI=1TO8:PRINT#4,SP$;LEFT$(M2$(I),27)+RIGHT$(SP$+D$(I+8),10):NEXT:PRINT#4
930 FORI=1TO5:PRINT#4,SP$;LEFT$(M3$(I),27)+RIGHT$(SP$+D$(I+16),10):NEXT:PRINT#4
935 FORI=1TO5:PRINT#4,SP$;LEFT$(M4$(I),27)+RIGHT$(SP$+D$(I+21),10):NEXT:PRINT#4
990 PRINT#4:CLOSE4:GOSUB9000:GOTO70
995 :
1000 SYSAD+3,12+64,1,8,M,H,TX,M1$(1),M1$(2),M1$(3),M1$(4),M1$(5),M1$(6),M1$(7),M1$(8),M1$(9),M1$(10),M1$(11),M1$(12)
1010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
1020 IFK=12THENSYSAD+18:GOTO70
1025 IFK=11THENH$="2441.H1":GOSUB600:GOTO1000
1030 IFK=9THENN$="2441.N1":GOSUB500:GOTO1000
1035 IFK=10THENGOSUB9500:GOTO1000
1045 IFK=5THEN1000
1046 IFK>6THEN1000
1047 IFK=1THENGOSUB1500:GOSUB400:GOTO1000
1050 GOSUB9100:IFLEN(W$)=0THEN1000
1055 D$(K)=W$
1060 IFK=4THEND$(20)=D$(4)
1067 GOSUB400
1070 FORI=2TO8:M1$(I)=LEFT$(M1$(I),27)+RIGHT$(SP$+D$(I),10):NEXT
1075 GOTO1000
1080 :
1500 FS=FS+1:IFFS=3THENFS=1
1505 M1$(1)=FS$(FS)
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$="2441.H2":GOSUB600:GOTO2000
2030 IFK=9THENN$="2441.N2":GOSUB500:GOTO2000
2035 IFK=10THENGOSUB9500:GOTO2000
2040 IFK=3THEN2000
2042 IFK=6THEN2000
2043 IFK=8THEN2000
2050 GOSUB9100:IFLEN(W$)=0THEN2000
2055 D$(K+8)=W$
2056 IFK=1THEND$(22)=D$(9)
2057 IFK=2THEND$(23)=D$(10)
2060 GOSUB400
2070 FORI=1TO8:M2$(I)=LEFT$(M2$(I),27)+RIGHT$(SP$+D$(I+8),10):NEXT
2087 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$="2441.H3":GOSUB600:GOTO3000
3030 IFK=7THENGOSUB9500:GOTO3000
3035 IFK=6THENN$="2441.N3":GOSUB500:GOTO3000
3040 IFK=3THEN3000
3041 IFK=5THEN3000
3050 GOSUB9100:IFLEN(W$)=0THEN3000
3052 D$(K+16)=W$
3053 IFK=4THEND$(4)=D$(20)
3060 GOSUB400
3070 FORI=1TO5:M3$(I)=LEFT$(M3$(I),27)+RIGHT$(SP$+D$(I+16),10):NEXT
3085 GOTO3000
3090 :
4000 SYSAD+3,9+64,1,8,M,H,TX,M4$(1),M4$(2),M4$(3),M4$(4),M4$(5),M4$(6),M4$(7),M4$(8),M4$(9)
4010 GETK$:K$=STR$(ASC(K$)-48):K=VAL(K$)
4020 IFK=9THENSYSAD+18:GOTO70
4025 IFK=8THENH$="2441.H3":GOSUB600:GOTO4000
4030 IFK=7THENGOSUB9500:GOTO4000
4035 IFK=6THENN$="2441.N4":GOSUB500:GOTO4000
4040 IFK>2THEN4000
4050 GOSUB9100:IFLEN(W$)=0THEN4000
4055 D$(K+21)=W$
4056 IFK=1THEND$(9)=D$(22)
4057 IFK=2THEND$(10)=D$(23)
4060 GOSUB400
4070 FORI=1TO5:M4$(I)=LEFT$(M4$(I),27)+RIGHT$(SP$+D$(I+21),10):NEXT
4085 GOTO4000
4090 :
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:2441":CLOSE15:SAVE"0:2441",8:END
10998 :
10999 REM MENU0
11000 DATA 8
11001 DATA "[204]OAD [198]ILE            "
11002 DATA "[211]AVE [198]ILE            "
11003 DATA "[208]RINT [198]ILE           "
11004 DATA "[208]ART [201][201]: [204]INES 2-8   "
11005 DATA "[208]ART [201][201]: [204]INES 9-16  "
11007 DATA "[208]ART [201][201][201]: [204]INES 17-21"
11008 DATA "[208]ART [201][201][201]: [204]INES 22-26"
11014 DATA "[205]AIN [205]ENU            "
11015 :
11099 REM MENU1
11100 DATA 12
11101 DATA "[205]ARRIED FILING JOINTLY               "
11102 DATA " 2. [193]MOUNT PAID                     0"
11103 DATA " 3. # OF PERSONS                    0"
11104 DATA " 4. [209]UALIFIED EXPENSES              0"
11105 DATA " 5. [195]ALCULATED                      0"
11106 DATA " 6. [197]XCLUDED BENEFITS               0"
11107 DATA " 7. [204]INE 5 - LINE 6                 0"
11108 DATA " 8. [211]MALLER OF LINE 4 AND 7         0"
11109 DATA "[206]OTEPAD                              "
11110 DATA "[195]ALCULATOR                           "
11111 DATA "[200]ELP                                 "
11112 DATA "[205]AIN [205]ENU                            "
11113 :
11199 REM MENU2
11200 DATA 12
11201 DATA " 9. [197]ARNED INCOME                   0"
11202 DATA "10. [211]POUSE'S EARNED INCOME          0"
11203 DATA "11. [195]ALCULATED                      0"
11204 DATA "12. [193][199][201], LINE 32, 1040              0"
11205 DATA "13. [211]EE [200][197][204][208]                        0"
11206 DATA "14. [204]INE 11 * LINE 13               0"
11207 DATA "15. 1990 EXPENSES                   0"
11208 DATA "16. [195][210][197][196][201][212]                          0"
11210 DATA "[206]OTEPAD                              "
11211 DATA "[195]ALCULATOR                           "
11212 DATA "[200]ELP                                 "
11213 DATA "[205]AIN [205]ENU                            "
11214 :
11300 DATA 9
11301 DATA "17. [197]MPLOYER BENEFITS               0"
11302 DATA "18. [193]MOUNT FORFEITED                0"
11303 DATA "19. [204]INE 17 - LINE 18               0"
11304 DATA "20. [209]UALIFIED EXPENSES              0"
11305 DATA "21. [211]MALLER OF LINE 19/20           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 9
11401 DATA "22. [197]ARNED INCOME                   0"
11402 DATA "23. [211]POUSE'S EARNED INCOME          0"
11403 DATA "24. [195]ALCULATED                      0"
11404 DATA "25. [197]XCLUDED BENEFITS               0"
11405 DATA "26. [212][193][216][193][194][204][197] [194][197][206][197][198][201][212][211]                 "
11409 DATA "[206]OTEPAD                              "
11410 DATA "[195]ALCULATOR                           "
11411 DATA "[200]ELP                                 "
11412 DATA "[205]AIN [205]ENU                            "
11413 :
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              "
12001 DATA "[205]ARRIED FILING JOINTLY               "
12002 DATA "[207]THER                                "
12005 DATA "5000","2500"