10 REM *** 1040 TAX PROGRAM ***
20 REM *** 1982 TAX FORM ***
30 REM *** WRITTEN BY FRANK SAUCIUNAS ***
40 REM *** GREENWELL SPRINGS, LA. 70739 ***
50 CLEAR 1000
60 WIDTH 79
70 P$="$$#,###.##"
80 B$="#######"
90 PRINT CHR$(12)
100 PRINT TAB(32);"* 1040 TAX *"
110 FOR I=1 TO 7
120 PRINT
130 NEXT I
140 PRINT"1040 FEDERAL TAX PROGRAM INCLUDING SCHEDULE (A) AND"
150 PRINT"SUPPLEMENTAL SCHEDULES (B), (C), (D), (F) AND (W)."
160 PRINT
170 PRINT
180 PRINT
190 PRINT"ANSWER ALL QUESTIONS. IF IT DOES NOT APPLY, OR YOU DO NOT"
200 PRINT"HAVE INCOME OR EXEMPTIONS FOR THIS ITEM, ENTER A (0) UNLESS"
210 PRINT"THE QUESTION REQUIRES A (YES) OR (NO) ANSWER."
220 PRINT
230 PRINT
240 PRINT"THE 1040 FORM WILL BE DONE FIRST."
250 PRINT
260 PRINT
270 PRINT
280 M=0
290 J=0
300 PRINT
310 INPUT"ARE YOU MARRIED (Y/N) ";Y$
320 PRINT
330 IF LEFT$(Y$,1)="Y" THEN 360
340 IF LEFT$(Y$,1)="N" THEN 430
350 GOTO 310
360 M=1
370 PRINT
380 INPUT"ARE YOU FILLING A JOINT RETURN (Y/N) ";Y$
390 PRINT
400 IF LEFT$(Y$,1)="Y" OR LEFT$(Y$,1)="N" THEN 410 ELSE 380
410 IF LEFT$(Y$,1)="N" THEN J=0
420 IF LEFT$(Y$,1)="Y" THEN J=1
430 INPUT"HOW MANY OTHER DEPENDENTS DO YOU CLAIM ";D1
440 PRINT
450 IF J=0 THEN 480
460 D0=D1+2
470 GOTO 490
480 D0=D1+2
490 PRINT"ARE YOU OR YOUR SPOUSE (IF FILING JOINT RETURN) OVER 65 ?"
500 INPUT"     ENTER A (0), (1), OR (2) --- ";E1
510 PRINT
520 PRINT"ARE YOU OR YOUR SPOUSE (IF FILING JOINT RETURN) BLIND ?"
530 INPUT"     ENTER A (0), (1), OR (2) --- ";B5
540 PRINT
550 E1=E1+B5
560 D2=D0+E1
570 PRINT"LINE 7"
580 INPUT"WHAT ARE THE GROSS WAGES ON YOUR W-2's --- ";A1#
590 PRINT
600 PRINT"LINE 8"
610 INPUT"ENTER ALL INTERESTS RECEIVED (FROM SCHEDULE B) --- ";A2#
620 PRINT
630 PRINT"LINE 9a"
640 INPUT"ENTER ALL DIVIDENDS RECEIVED (FROM SCHEDULE B) --- ";A3#
650 PRINT
660 PRINT"LINE 9b"
670 INPUT"ENTER YOUR EXCLUSION (FROM SCHEDULE B) --- ";A4#
680 A5#=A3#-A4#
690 PRINT
700 A6#=0
710 PRINT"DID YOU ITEMIZE YOUR DEDUCTIONS ON YOUR FEDERAL"
720 INPUT"RETURN LAST YEAR (Y/N) ";Y$
730 PRINT
740 IF LEFT$(Y$,1)="N" THEN 820
750 IF LEFT$(Y$,1)="Y" THEN 770
760 GOTO 710
770 PRINT
780 PRINT"LINE 10"
790 PRINT"HOW MUCH STATE AND LOCAL TAX REFUNDS DID YOU RECEIVE"
800 INPUT"FROM LAST YEARS TAXES ";A6#
810 PRINT
820 PRINT"LINE 11"
830 INPUT"HOW HUCH ALIMONY DID YOU RECEIVE ";A7#
840 PRINT
850 PRINT"LINE 12"
860 PRINT"HOW MUCH BUSINESS INCOME (OR LOSS) DID YOU RECEIVE ?"
870 INPUT"IF A LOSS, ENTER A NEGATIVE AMOUNT. --- ";A3#
880 PRINT
890 PRINT"LINE 12"
900 PRINT"HOW MUCH DID YOU GAIN (OR LOOSE) FROM THE SALE OR EXCHANGE OF"
910 INPUT"CAPITAL ASSETS? IF A LOSS, ENTER A NEGATIVE AMOUNT. --- ";S6#
920 PRINT
930 PRINT"LINE 18"
940 INPUT"ENTER RENTS, ROYALTIES, PARTNERSHIPS, TRUSTS, ETC. --- ";B1#
950 PRINT
960 PRINT"LINE 19"
970 PRINT"DID YOU HAVE ANY FARM INCOME (OR LOSS)?  IF A LOSS,"
980 INPUT"ENTER A NEGATIVE AMOUNT. --- ";B2#
990 PRINT
1000 B4#=0
1010 PRINT"LINE 20a"
1020 INPUT"HOW MUCH UNEMPLOYMENT COMPENSATION DID YOU RECEIVE ";B3#
1030 PRINT
1040 IF B3#=0 THEN 1070
1050 PRINT"LINE 20b"
1060 INPUT"ENTER TAXABLE PART OF UNEMPLOYMENT COMPENSATION ";B4#
1070 PRINT
1080 PRINT"LINE 21"
1090 INPUT"ENTER ANY OTHER INCOME ";B5#
1100 PRINT
1110 B0#=A1#+A2#+A5#+A6#+A7#+A8#+A9#+B1#+B2#+B4#+B5#
1120 PRINT"LINE 23"
1130 INPUT"ENTER ANY MOVING EXPENSES. (ATTACH FORM 3903) ";C1#
1140 PRINT
1150 PRINT"LINE 24"
1160 PRINT"ENTER ANY EMPLOYEE BUSINESS EXPENSES."
1170 INPUT"     (ATTACH FORM 2106) --- ";C2#
1180 PRINT
1190 PRINT"LINE 25"
1200 PRINT"ENTER PAYMENTS TO AN INDIVIDUAL RETIREMENT ARRANGEMENT"
1210 INPUT"IF YOU QUALIFY --- ";C3#
1220 PRINT
1230 PRINT"LINE 27"
1240 PRINT"ENTER ANY PENALTIES PAID ON EARLY WITHDRAWAL OF"
1250 INPUT"SAVINGS --- ";C4#
1260 PRINT
1270 PRINT"LINE 28"
1280 INPUT"ENTER ANY ALIMONY PAYMENTS YOU MADE --- ";C5#
1290 PRINT
1300 PRINT"LINE 29"
1310 PRINT"ENTER DEDUCTION FOR A MARRIED COUPLE WHEN BOTH"
1320 INPUT"WORK.   (ATTACH SCHEDULE W) --- ";C6#
1330 PRINT
1340 PRINT"LINE 30"
1350 INPUT"ENTER ANY DISABILITY INCOME YOU RECEIVED --- ";C7#
1360 C0#=C1#+C2#+C3#+C4#+C5#+C6#+C7#
1370 D0#=B0#-C0#
1380 PRINT CHR$(12)
1390 PRINT
1400 PRINT
1410 PRINT
1420 PRINT"THIS COMPLETES SIDE (1) OF THE 1040 FORM. NOW WE WILL"
1430 PRINT"DO THE REVERSE SIDE."
1440 PRINT
1450 PRINT
1460 PRINT
1470 F3#=0
1480 IF D0#>10000 THEN 1770
1490 IF M=1 AND J=1 THEN 1520
1500 IF M=1 THEN 1770
1510 PRINT
1520 PRINT"DID YOU RECEIVE ANY WAGES, SALARIES, TIPS, OR OTHER"
1530 INPUT"EARNED INCOME NOT REPORTED ON LINE 7 (Y/N) ";Y$
1540 PRINT
1550 IF LEFT$(Y$,1)="N" THEN 1770
1560 IF LEFT$(Y$,1)="Y" THEN 1580
1570 GOTO 1520
1580 INPUT"DO YOU HAVE ANY DEPENDENT CHILDREN (Y/N) ";Y$
1590 PRINT
1600 IF LEFT$(Y$,1)="Y" THEN 1630
1610 IF LEFT$(Y$,1)="N" THEN 1770
1620 GOTO 1580
1630 PRINT"IF YOU ARE SELF-EMPLOYED, ENTER THE AMOUNT FROM"
1640 PRINT"FROM LINE 9 OF SCHEDULE SE. IF THE INCOME IS A"
1650 INPUT"LOSS, ENTER A NEGATIVE AMOUNT. --- ";G1#
1660 PRINT
1670 G2#=A1#+G1#
1680 IF G2#<0 THEN G2#=0
1690 IF G2#=0 THEN 1770
1700 PRINT"YOUR EARNED INCOME IS";
1710 PRINT USING P$;G2#
1720 INPUT"ENTER YOUR CREDIT FROM THE EARNED INCOME TABLE --- ";G3#
1730 IF D0#<=6000 THEN F3#=G2#
1740 IF D0#<=6000 THEN 1770
1750 IF G2#<D0# THEN F3#=G2#
1760 IF D0#<G2# THEN F3#=D0#
1770 PRINT
1780 PRINT
1790 PRINT"LINE 41"
1800 INPUT"ENTER THE AMOUNT OF CREDIT FOR THE ELDERLY --- ";E1#
1810 PRINT
1820 PRINT"LINE 43"
1830 INPUT"ENTER THE AMOUNT OF INVESTMENT CREDIT --- ";E2#
1840 PRINT
1850 PRINT"LINE 44"
1860 INPUT"ENTER PARTIAL CREDIT FOR POLITICAL CONTRIBUTIONS --- ";E3#
1870 PRINT
1880 PRINT"LINE 45"
1890 PRINT"ENTER THE AMOUNT OF CREDIT FOR CHILD CARE."
1900 INPUT"     (ATTACH FORM 2441) --- ";E4#
1910 PRINT
1920 PRINT"LINE 47"
1930 INPUT"ENTER THE AMOUNT OF ENERGY CREDIT --- ";E5#
1940 PRINT
1950 PRINT
1960 E0#=E1#+E2#+E3#+E4#+E5#
1970 PRINT"LINE 60"
1980 INPUT"WHAT ARE THE FEDERAL WITHOLDINGS ON YOUR W-2's --- ";F1#
1990 PRINT
2000 PRINT"LINE 61"
2010 INPUT"ENTER ANY ESTIMATED TAX PAYMENTS MADE LAST YEAR --- ";F2#
2020 PRINT
2030 F0#=F1#+F2#+F3#
2040 PRINT CHR$(12)
2050 FOR I=1 TO 5
2060 PRINT
2070 NEXT I
2080 PRINT"THIS COMPLETES THE 1040 QUESTION AND ANSWER SECTION."
2090 PRINT"SCHEDULE (A) WILL BE NEXT."
2100 FOR I=1 TO 6
2110 PRINT
2120 NEXT I
2130 INPUT"DO YOU WANT TO ITEMIZE YOUR TAXES (Y/N) ";Y$
2140 PRINT
2150 D2#=0
2160 IF LEFT$(Y$,1)="Y" OR LEFT$(Y$,1)="N" THEN 2170 ELSE 2130
2170 IF LEFT$(Y$,1)="Y" THEN T=1
2180 IF LEFT$(Y$,1)="N" THEN T=0
2190 IF T=1 THEN 2270
2200 PRINT
2210 INPUT"ENTER ALL CHARITABLE CONTRIBUTIONS --- ";H1#
2220 D1#=H1#*.25
2230 IF J=1 AND D1#>25 THEN D1#=25
2240 IF J=0 AND D1#>12.5 THEN D1#=12.5
2250 D2#=D0#-D1#
2260 GOTO 3590
2270 PRINT CHR$(12)
2280 PRINT
2290 PRINT"MEDICAL EXPENSES WILL BE DONE FIRST."
2300 PRINT
2310 PRINT
2320 PRINT"LINE 1"
2330 INPUT"HOW MUCH DID YOU PAY FOR PRESCRIPTIONS ";I1#
2340 I2#=D0#*.01
2350 I3#=I1#-I2#
2360 IF I2#>I1# THEN I3#=0
2370 PRINT
2380 PRINT"LINE 4"
2390 PRINT"ENTER INSURANCE PREMIUMS YOU PAID FOR MEDICAL
2400 INPUT"AND DENTAL CARE --- ";I4#
2410 PRINT
2420 PRINT"LINE 5"
2430 INPUT"ENTER ALL MISC. MEDICAL EXPENSES --- ";I5#
2440 PRINT
2450 I6#=I3#+I4#+I5#
2460 I7#=D0#*.03
2470 I8#=I6#-I7#
2480 IF I7#>I6# THEN I8#=0
2490 I9#=I4#/2
2500 IF I9#>150 THEN I9#=150
2510 IF I8#>I9# THEN I0#=I8# ELSE I0#=I9#
2520 PRINT
2530 PRINT
2540 PRINT CHR$(12)
2550 IF I0#>550 THEN GOSUB 6130
2560 PRINT
2570 PRINT"TAX EXPENSES WILL BE DONE NEXT."
2580 PRINT
2590 PRINT
2600 PRINT"LINE 11"
2610 INPUT"ENTER STATE AND LOCAL TAXES WITHELD FROM W-2s --- ";J1#
2620 PRINT
2630 PRINT"LINE 12"
2640 INPUT"ENTER THE REAL ESTATE TAXES PAID --- ";J2#
2650 PRINT
2660 PRINT"LINE 13a"
2670 PRINT"LOOK UP THE SALES TAX CREDIT FROM THE TAX TABLE AND ENTER"
2680 INPUT"THAT AMOUNT PLUS THE SALES TAX OF MAJOR PURCHASES --- ";J3#
2690 PRINT
2700 PRINT"LINE 13b"
2710 INPUT"ENTER GENERAL SALES TAX PAID ON MOTOR VEHICHELS --- ";J4
2720 PRINT
2730 PRINT"LINE 14"
2740 INPUT"ENTER ANY MISC. TAXES PAID --- ";J5#
2750 PRINT
2760 J0#=J1#+J2#+J3#+J4#+J5#
2770 PRINT CHR$(12)
2780 IF J0#>(D0#*.15) THEN GOSUB 6050
2790 PRINT
2800 PRINT
2810 PRINT"INTEREST EXPENSES WILL BE NEXT."
2820 PRINT
2830 PRINT
2840 PRINT"LINE 16a"
2850 INPUT"ENTER THE INTEREST PAID ON YOUR HOUSE MORTGAGE --- ";K1#
2860 K2#=0
2870 PRINT
2880 PRINT"LINE 17"
2890 INPUT"ENTER THE INTEREST PAID ON ALL CREDIT CARDS --- ";K3#
2900 PRINT
2910 PRINT"LINE 18"
2920 INPUT"ENTER THE INTEREST PAID ON LOANS AND ETC. --- ";K4#
2930 PRINT
2940 K0#=K1#+K2#+K3#+K4#
2950 PRINT CHR$(12)
2960 IF K0#>(D0#*.15) THEN GOSUB 6170
2970 PRINT
2980 PRINT
2990 PRINT"CONTRIBUTIONS WILL BE DONE NEXT."
3000 PRINT
3010 PRINT
3020 PRINT"LINE 20a"
3030 INPUT"ENTER ANY CASH CONTRIBUTIONS YOU MADE --- ";L1#
3040 L2#=0
3050 PRINT
3060 PRINT"LINE 21"
3070 INPUT"ENTER CASH VALUE OF OTHER CONTRIBUTIONS --- ";L3#
3080 L4#=0
3090 PRINT
3100 L0#=L1#+L2#+L3#+L4#
3110 PRINT CHR$(12)
3120 IF L0#>(D0*.1) THEN GOSUB 6210
3130 PRINT
3140 PRINT
3150 PRINT"LOSSES AND MISC. DEDUCTIONS WILL BE DONE NEXT."
3160 PRINT
3170 PRINT
3180 PRINT"LINE 24"
3190 PRINT"ENTER ALL CASUALTY OR THEFT LOSS(ES)."
3200 INPUT"      (ATTACH FORM 4684) --- ";M1
3210 PRINT
3220 PRINT"LINE 25a"
3230 INPUT"ENTER ALL UNION AND PROFESSIONAL DUES --- ";M2#
3240 PRINT
3250 PRINT"LINE 25b"
3260 INPUT"ENTER TAX RETURN PREPARATION FEE --- ";M3#
3270 PRINT
3280 PRINT"LINE 26"
3290 INPUT"ENTER ALL MISC. DEDUCTIONS --- ";M4#
3300 PRINT
3310 M0#=M1#+M2#+M3#+M4#
3320 IF M0#>300 THEN GOSUB 6250
3330 N0#=I0#+J0#+K0#+L0#+M0#
3340 IF M=0 THEN 3390
3350 IF J=1 THEN N1#=3400
3360 IF N1#=3400 THEN 3460
3370 N1#=1700
3380 GOTO 3460
3390 N1#=2300
3400 PRINT"ARE YOU A QUALIFING WIDOW OR WIDOWER WITH A"
3410 INPUT"DEPENDENT CHILD OR CHILDREN (Y/N) ";Z$
3420 IF LEFT$(Z$,1)="Y" THEN 3450
3430 IF LEFT$(Z$,1)="N" THEN 3160
3440 GOTO 3400
3450 N1#=3400
3460 G0#=N0#-N1#
3470 IF G0#<0 THEN G0#=0
3480 IF G0#>0 THEN 3580
3490 PRINT
3500 PRINT"     <<<<< WARNING >>>>>"
3510 PRINT
3520 PRINT"THE ITEMIZED DEDUCTIONS ARE LESS THAN YOUR ";
3530 PRINT USING P$;N1#
3540 PRINT"STATUS DEDUCTION. DEDUCT YOUR CHARITABLE CONTRIBUTIONS."
3550 PRINT
3560 T=0
3570 GOTO 2200
3580 D2#=D0#-G0#
3590 D3#=D2 * 1000
3600 D4#=D2#-D3#
3610 PRINT
3620 Q$=" (X), (Y), OR (Z) "
3630 IF N1#<>3400 THEN 3650
3640 Q$=" "
3650 PRINT"THE TOTAL NUMBER OF EXEMPTIONS YOU CLAIMED IS";D2;"."
3660 PRINT"YOUR TAXABLE INCOME IS ";
3670 PRINT USING P$;D4#;
3680 PRINT".  LOOK UP THIS AMOUNT"
3690 PRINT"IN THE TAX RATE TABLES";Q$;"AND"
3700 INPUT"ENTER YOUR TAX HERE. --- ";D5#
3710 PRINT CHR$(12)
3720 PRINT
3730 D6#=0
3740 H0#=D5#+D6#
3750 X1#=H0#-E0#
3760 IF X1#<0 THEN X1#=0
3770 X2#=F0#-X1#
3780 X3#=X1#-F0#
3790 IF X2#<0 THEN X2#=0
3800 IF X3#<0 THEN X3#=0
3810 IF X2#=0 THEN 3920
3820 FOR I=1 TO 4
3830 PRINT
3840 NEXT I
3850 PRINT CHR$(14);CHR$(20)
3860 PRINT" * * * R E F U N D * * * ";
3870 PRINT CHR$(15);CHR$(21);
3880 PRINT"     REFUND OF";USING P$;X2#
3890 FOR I=1 TO 5
3900 PRINT
3910 NEXT I
3920 PRINT
3930 PRINT
3940 PRINT"THIS FINISHES THE QUESTIONING SECTION OF THE 1040 TAX PROGRAM."
3950 PRINT"NOW THE PROGRAM WILL PRINT OUT THE TOTALS TO BE USED IN"
3960 PRINT"FILLING OUT YOUR FORMS.   THE 1040 FORM WILL BE FIRST."
3970 FOR I=1 TO 5
3980 PRINT
3990 NEXT I
4000 PRINT"PRESS (CR) WHEN PRINTER IS READY. ";
4010 LINE INPUT Z$
4020 LPRINT
4030 LPRINT"THE FOLLOWING ARE THE LINE NUMBERS AND AMOUNTS"
4040 LPRINT"TO BE ENTERED ON YOUR 1040 FORM."
4050 LPRINT
4060 LPRINT
4070 LPRINT"  LINE NUMBER      (1040 SIDE 1)           AMOUNT"
4080 LPRINT
4090 LPRINT"   6e  NUMBER OF EXEMPTIONS ------------- ";
4100 LPRINT USING B$;D2
4110 LPRINT"   7   WAGES, SALARIES, TIPS, ETC. ------ "; 
4120 LPRINT USING P$;A1#
4130 LPRINT"   8   INTEREST INCOME ------------------ ";
4140 LPRINT USING P$;A2#
4150 LPRINT"   9a  DIVIDENDS ------------------------ ";
4160 LPRINT USING P$;A3#
4170 LPRINT"   9b  EXCLUSION ------------------------ ";
4180 LPRINT USING P$;A4#
4190 LPRINT"   9c  TOTAL ---------------------------- "; 
4200 LPRINT USING P$;A5#
4210 LPRINT"   10  STATE & LOCAL INCOME TAX REFUND -- "; 
4220 LPRINT USING P$;A6#
4230 LPRINT"   11  ALIMONY RECEIVED ----------------- "; 
4240 LPRINT USING P$;A7#
4250 LPRINT"   12  BUSINESS INCOME ------------------ "; 
4260 LPRINT USING P$;A8#
4270 LPRINT"   13  CAPITAL GAINS -------------------- "; 
4280 LPRINT USING P$;A9#
4290 LPRINT"   18  RENTS, ROYALTIES, ETC. ----------- ";
4300 LPRINT USING P$;B1#
4310 LPRINT"   19  FARM INCOME ---------------------- "; 
4320 LPRINT USING P$;B2#
4330 LPRINT"   20a UNEMPLOYMENT COMPENSATION -------- "; 
4340 LPRINT USING P$;B3#
4350 LPRINT"   20b TAXABLE UNEMPLOYMENT ------------- "; 
4360 LPRINT USING P$;B4#
4370 LPRINT"   21  OTHER INCOME --------------------- "; 
4380 LPRINT USING P$;B5#
4390 LPRINT"   22  TOTAL INCOME --------------------- "; 
4400 LPRINT USING P$;B0#
4410 LPRINT"   23  MOVING EXPENSES ------------------ "; 
4420 LPRINT USING P$;C1#
4430 LPRINT"   24  EMPLOYEE BUSINESS EXPENSE -------- "; 
4440 LPRINT USING P$;C2#
4450 LPRINT"   25  PAYMENTS TO AN I.R.A. ------------ "; 
4460 LPRINT USING P$;C3#
4470 LPRINT"   27  INTEREST PENALTY ON SAVINGS ------ "; 
4480 LPRINT USING P$;C4#
4490 LPRINT"   28  ALIMONY PAID --------------------- "; 
4500 LPRINT USING P$;C5#
4510 LPRINT"   29  WORKING MARRIED COUPLE DEDUCTION - ";
4520 LPRINT USING P$;C6#
4530 LPRINT"   30  DISABILITY INCOME EXCLUSION ------ "; 
4540 LPRINT USING P$;C7#
4550 LPRINT"   31  TOTAL ADJUSTMENTS ---------------- "; 
4560 LPRINT USING P$;C0#
4570 LPRINT"   32  ADJUSTED GROSS INCOME (22 - 31) -- "; 
4580 LPRINT USING P$;D0#
4590 LPRINT
4600 LPRINT
4610 LPRINT"THIS IS THE END OF SIDE (1) OF THE 1040 FORM."
4620 LPRINT"NOW SIDE (2) OF THE 1040 WILL BE FILLED IN."
4630 LPRINT
4640 LPRINT
4650 LPRINT"  LINE NUMBER      (1040 SIDE 2)           AMOUNT"
4660 LPRINT
4670 LPRINT"   33  ADJUSTED GROSS INCOME ------------ "; 
4680 LPRINT USING P$;D0#
4690 LPRINT"   34a ITEMIZED DEDUCTIONS -------------- "; 
4700 LPRINT USING P$;G0#
4710 LPRINT"   34b CHARITABLE CONTRIBUTIONS --------- ";
4720 LPRINT USING P$;D1#
4730 LPRINT"   35  TOTAL (33 - 34a OR 34b) ---------- "; 
4740 LPRINT USING P$;D2#
4750 LPRINT"   36  LINE 6e TIMES $1,000 ------------- ";
4760 LPRINT USING P$;D3#
4770 LPRINT"   37  TAXABLE INCOME (36 - 35) --------- ";
4780 LPRINT USING P$;D4#
4790 LPRINT"   38  TAX RATE FROM TAX TABLE ---------- "; 
4800 LPRINT USING P$;D5#
4810 LPRINT"   40  TOTAL (38 + 39) ------------------ "; 
4820 LPRINT USING P$;H0#
4830 LPRINT"   41  CREDIT FOR THE ELDERLY ----------- "; 
4840 LPRINT USING P$;E1#
4850 LPRINT"   43  CREDIT FOR INVESTMENTS ----------- ";
4860 LPRINT USING P$;E2#
4870 LPRINT"   44  CREDIT FOR POLITICAL CONTRIBUTIONS ";
4880 LPRINT USING P$;E3#
4890 LPRINT"   45  CREDIT FOR CHILD CARE ------------ "; 
4900 LPRINT USING P$;E4#
4910 LPRINT"   47  CREDIT FOR ENERGY ---------------- "; 
4920 LPRINT USING P$;E5#
4930 LPRINT"   49  TOTAL CREDITS -------------------- "; 
4940 LPRINT USING P$;E0#
4950 LPRINT"   50  BALANCE (40 - 49) ---------------- "; 
4960 LPRINT USING P$;X1#
4970 LPRINT"   59  TOTAL TAX ------------------------ "; 
4980 LPRINT USING P$;X1#
4990 LPRINT"   60  FEDERAL INCOME TAX WITHELD ------- "; 
5000 LPRINT USING P$;F1#
5010 LPRINT"   61  ESTIMATED TAX PAYMENTS ----------- "; 
5020 LPRINT USING P$;F2#
5030 LPRINT"   62  EARNED INCOME -------------------- "; 
5040 LPRINT USING P$;F3#
5050 LPRINT"   67  TOTAL ---------------------------- "; 
5060 LPRINT USING P$;F0#
5070 LPRINT"   68  OVER PAID ------------------------ "; 
5080 LPRINT USING P$;X2#
5090 LPRINT"   69  REFUND TO YOU -------------------- "; 
5100 LPRINT USING P$;X2#
5110 LPRINT"   71  BALANCE DUE ---------------------- "; 
5120 LPRINT USING P$;X3#
5130 LPRINT
5140 LPRINT
5150 LPRINT
5160 LPRINT"THIS ENDS THE PRINT OUT OF THE 1040 TAX TOTALS."
5170 IF T=0 THEN 5950
5180 LPRINT
5190 LPRINT
5200 LPRINT
5210 LPRINT"THE FOLLOWING LINE NUMBER AMOUNTS ARE TO BE USED"
5220 LPRINT"IN FILLING OUT SCHEDULE (A)."
5230 LPRINT
5240 LPRINT
5250 LPRINT"  LINE NUMBER       (SCHEDULE A)           AMOUNT"
5260 LPRINT
5270 LPRINT"   1   MEDICINE & DRUGS ----------------- "; 
5280 LPRINT USING P$;I1#
5290 LPRINT"   2   1% OF ADJUSTED GROSS ------------- ";
5300 LPRINT USING P$;I2#
5310 LPRINT"   3   TOTAL (1 - 2) -------------------- "; 
5320 LPRINT USING P$;I3#
5330 LPRINT"   4   INSURANCE PREMIUMS PAID ---------- "; 
5340 LPRINT USING P$;I4#
5350 LPRINT"   5c  OTHER MEDICAL EXPENSES ----------- "; 
5360 LPRINT USING P$;I5#
5370 LPRINT"   6   TOTAL ---------------------------- "; 
5380 LPRINT USING P$;I6#
5390 LPRINT"   7   3% OF ADJUSTED GROSS ------------- "; 
5400 LPRINT USING P$;I7#
5410 LPRINT"   8   TOTAL ---------------------------- "; 
5420 LPRINT USING P$;I8#
5430 LPRINT"   9   1/2 THE AMOUNT OF LINE 4 --------- ";
5440 LPRINT USING P$;I9#
5450 LPRINT"   10  TOTAL MEDICAL -------------------- "; 
5460 LPRINT USING P$;I0#
5470 LPRINT"   11  STATE & LOCAL TAXES -------------- "; 
5480 LPRINT USING P$;J1#
5490 LPRINT"   12  REAL ESTATE TAX ------------------ "; 
5500 LPRINT USING P$;J2#
5510 LPRINT"   13a GENERAL SALES TAX ---------------- "; 
5520 LPRINT USING P$;J3#
5530 LPRINT"   13b SALES TAX ON MOTOR VEHICLES ------ "; 
5540 LPRINT USING P$;J4#
5550 LPRINT"   14  OTHER TAXES ---------------------- "; 
5560 LPRINT USING P$;J5#
5570 LPRINT"   15  TOTAL TAXES ---------------------- "; 
5580 LPRINT USING P$;J0#
5590 LPRINT"   16a HOME MORTGAGE INTEREST ----------- "; 
5600 LPRINT USING P$;K1#
5610 LPRINT"   17  CREDIT CARD INTEREST ------------- "; 
5620 LPRINT USING P$;K3#
5630 LPRINT"   18  OTHER INTEREST PAID -------------- "; 
5640 LPRINT USING P$;K4#
5650 LPRINT"   19  TOTAL INTEREST PAID -------------- "; 
5660 LPRINT USING P$;K0#
5670 LPRINT"   20a CASH CONTRIBUTIONS --------------- "; 
5680 LPRINT USING P$;L1#
5690 LPRINT"   21  CASH VALUE CONTRIBUTIONS --------- "; 
5700 LPRINT USING P$;L3#
5710 LPRINT"   22  CARRYOVER FROM PRIOR YEARS ------- ";
5720 LPRINT USING P$;L4#
5730 LPRINT"   23  TOTAL CONTRIBUTIONS -------------- "; 
5740 LPRINT USING P$;L0#
5750 LPRINT"   24  CASUALTY OR THEFT LOSS ----------- "; 
5760 LPRINT USING P$;MI#
5770 LPRINT"   25a UNION AND PROFESSIONAL DUES ------ ";
5780 LPRINT USING P$;M2#
5790 LPRINT"   25b TAX RETURN PREPARATION FEE ------- ";
5800 LPRINT USING P$;M3#
5810 LPRINT"   26  OTHER MISCELLANEOUS DEDUCTIONS --- ";
5820 LPRINT USING P$;M4#
5830 LPRINT"   27  TOTAL MISCELLANEOUS DEDUCTIONS --- "; 
5840 LPRINT USING P$;M0#
5850 LPRINT"   28  TOTAL DEDUCTIONS ----------------- "; 
5860 LPRINT USING P$;N0#
5870 LPRINT"   29  STATUS DEDUCTION ----------------- "; 
5880 LPRINT USING P$;N1#
5890 LPRINT"   30  TOTAL ---------------------------- "; 
5900 LPRINT USING P$;G0#
5910 LPRINT
5920 LPRINT
5930 LPRINT
5940 LPRINT
5950 LPRINT
5960 LPRINT"THIS FINISHES THE 1040 TAX PROGRAM.  NOW YOU MUST"
5970 LPRINT"FILL IN THE BLANKS ON THE APPROPRIATE FORMS AND"
5980 LPRINT"THEN SIGN THEM IN THE CORRECT PLACES.  BE SURE"
5990 LPRINT"TO INCLUDE ANY AND ALL SUPPORTING FORMS, AND A"
6000 LPRINT"CHECK IF YOU OWE THE GOVERNMENT ANY TAXES."
6010 LPRINT
6020 LPRINT
6030 LPRINT CHR$(12)
6040 GOTO 6310
6050 PRINT
6060 PRINT
6070 PRINT"YOUR TAXES ";
6080 PRINT"ARE GREATER THAN WOULD BE EXPECTED FOR"
6090 PRINT"YOUR INCOME.  THIS MAY CAUSE YOUR RETURN TO BE AUDITED."
6100 PRINT
6110 PRINT
6120 RETURN
6130 PRINT
6140 PRINT
6150 PRINT"YOUR MEDICAL EXPENSES ";
6160 GOTO 6080
6170 PRINT
6180 PRINT
6190 PRINT"YOUR INTEREST ";
6200 GOTO 6080
6210 PRINT
6220 PRINT
6230 PRINT"YOUR CONTRIBUTIONS ";
6240 GOTO 6080
6250 PRINT
6260 PRINT
6270 PRINT"YOUR LOSSES MAY CAUSE YOUR RETURN TO BE AUDITED."
6280 PRINT
6290 PRINT
6300 RETURN
6310 PRINT
6320 PRINT"DO YOU WANT TO DO YOUR LA. INCOME TAX (Y/N)";
6330 INPUT X$
6340 IF LEFT$(X$,1)="Y" THEN 6370
6350 IF LEFT$(X$,1)="N" THEN 6420
6360 GOTO 6310
6370 Z0$="TAX.DAT"
6380 OPEN "O",1,Z0$
6390 PRINT #1,D2#,H0#,D2
6400 CLOSE 1
6410 RUN "LATAX"
6420 PRINT
6430 PRINT"THE END"
6440 SYSTEM
6450 END
N "O",1,Z0$
6390 PRINT #1,D2#,H0#,D2
6400 CLOSE 1
6410 RUN "LATAX"
