Plan your taxes for 1983. Might be able to update for the present.
Gallery
Source Code
1 REM TAX ***PLANER***
2 REM ...COPYRIGHT..1982.....
3 REM ...BY..H.GESCHWIND.....
100 REM ***INITIALIZE***
110 DIM D$(26,18)
120 DIM S(26)
130 DIM T(26)
135 LET M$="PRESS ANY KEY TO CONTINUE"
140 LET P$="ENTER"
150 LET X$="--------------------------------"
160 LET Y$=" 1982"
170 LET Z$=" 1983"
180 LET V$="INCOME"
190 LET W$="DEDUCTIONS"
195 LET H$="---->"
200 LET S=0
210 LET M=0
220 LET N=0
225 LET F$=" ENTER FILING STATUS:-->1 FOR SINGLE,-->2 FOR MARRIED,-->3 FORMARRIED FILING SEPARATELY"
240 GO SUB 1000
499 REM ***MENU***
500 PRINT AT 3,6;" TAX PLANNER"
510 PRINT AT 6,4;"-->PRESS DESIRED FUNCTION"
520 PRINT AT 8,6;"1. ENTER VALUES"
525 PRINT AT 9,6;"2. REVIEW RESULTS"
530 PRINT AT 10,6;"3. CLEAR DATA"
570 PRINT AT 11,6;"4. SAVE DATA"
580 PRINT AT 12,6;"5. ENTER 1983 VALUES ONLY"
590 PAUSE 4E4
600 LET K$=INKEY$
610 IF K$<"1" OR K$>"5" THEN GO TO 690
620 IF K$="1" THEN GO TO 3000
622 IF K$="2" THEN GO TO 6000
624 IF K$="3" THEN GO TO 2000
626 IF K$="4" THEN GO TO 4000
627 IF K$="5" THEN GO TO 3500
690 GO TO 500
998 STOP
999 REM ***DESCRIPTIONS***
1000 CLS
1005 PRINT AT 21,5;"LOADING DESCRIPTIONS"
1020 LET D$(1)="SALARIES, WAGES"
1021 LET D$(2)="DIVIDENDS"
1022 LET D$(3)="INTEREST INCOME"
1023 LET D$(4)="NET BUS. INCOME"
1024 LET D$(5)="OTHER GAINS/LOSSES"
1025 LET D$(7)="PENSIONS,ANNUITIES"
1026 LET D$(8)="RENTS, ROYALTIES"
1027 LET D$(9)="PARTNERSJIP INC."
1028 LET D$(10)="TRUST/ESTATE INC."
1029 LET D$(11)="CHAPTER""S""CORP."
1030 LET D$(12)="OTHER INCOME"
1031 LET D$(13)="INCOME CREDITS(*)"
1032 LET D$(14)="ADJ. GROSS INCOME"
1034 LET D$(15)="MEDICAL EXPENSES"
1035 LET D$(16)="TAXES"
1036 LET D$(17)="CONTRIBUTIONS"
1037 LET D$(18)="INTEREST EXPENSES"
1038 LET D$(19)="CASUALTY LOSS,MISC."
1039 LET D$(20)="TOTAL DEDUCTIONS"
1040 LET D$(21)="ZERO BRACKET"
1041 LET D$(22)="NET DEDUCTIONS"
1042 LET D$(23)="INC.BEF.EXEMPTIONS"
1043 LET D$(24)="EXEMPTIONS"
1044 LET D$(25)="TAXABLE INCOME"
1045 LET D$(26)="INCOME TAX"
1050 CLS
1060 RETURN
1998 STOP
1999 REM ***CLEAR***
2000 CLS
2010 PRINT AT 6,4;"-->PRESS DESIRED FUNCTION"
2020 PRINT AT 8,6;"1. DELETE 1982 VALUES"
2030 PRINT AT 9,6;"2. DELETE 1983 VALUES"
2050 PAUSE 4E4
2060 LET K$=INKEY$
2070 IF K$<"1" OR K$>"2" THEN GO TO 2090
2072 IF K$="1" THEN GO TO 2100
2074 IF K$="2" THEN GO TO 2300
2090 GO TO 2010
2100 DIM S(26)
2101 LET S=0
2105 CLS
2110 GO TO 500
2300 DIM T(26)
2301 LET S=0
2305 CLS
2310 GO TO 500
2999 REM ***82 VALUES***
3000 CLS
3001 LET M=0
3002 LET N=0
3003 LET I=0
3005 PRINT F$
3006 INPUT S
3007 IF S<1 OR S>3 THEN GO TO 3005
3008 CLS
3010 FOR I=1 TO 13
3015 PRINT AT 10,(31-LEN V$)/2;V$
3016 PRINT X$
3020 PRINT P$
3025 PRINT D$(I)+" FOR "+Y$
3030 INPUT S(I)
3035 IF S(13) THEN LET S(13)=-1*S(13)
3036 PRINT H$; S(I)
3037 PAUSE 180
3038 CLS
3039 LET M=M+S(I)
3040 NEXT I
3041 LET S(14)=M
3042 LET M=0
3050 PRINT AT 10,(31-LEN W$)/2;W$
3051 PRINT X$
3052 PRINT P$+" FULL AMOUNT OF MEDICAL INSURANCE PREMIUMS"
3053 INPUT I
3054 PRINT H$;I
3055 PAUSE 180
3056 CLS
3058 LET I=I/2
3060 IF I>150 THEN LET I=150
3062 PRINT AT 10,(31-LEN W$)/2;W$
3064 PRINT X$
3066 PRINT P$
3068 PRINT D$(15)+" FOR "+Y$
3102 INPUT N
3103 PRINT H$;N
3104 LET M=INT (3/100*S(14)+.5)
3105 LET S(15)=N-M
3106 IF S(15)<=0 THEN LET S(15)=0+I
3107 LET M=0
3108 LET N=0
3109 CLS
3110 FOR I=16 TO 19
3111 PRINT AT 10,(31-LEN W$)/2;W$
3112 PRINT X$
3120 PRINT P$
3125 PRINT D$(I)+" FOR "+Y$
3130 INPUT S(I)
3140 PRINT H$;S(I)
3150 PAUSE 180
3160 CLS
3170 LET M=M+S(I)
3180 NEXT I
3185 IF S(15) AND S(16)=0 AND S(18)=0 AND S(19)=0 THEN LET S(17)=S(17)/4
3190 LET S(20)=M+S(15)
3192 IF S(15)=0 AND S(16)=0 AND S(18)=0 AND S(19)=0 THEN LET S(2)=S(17)
3195 LET M=0
3200 IF S=1 THEN LET S(21)=2300
3205 IF S=2 THEN LET S(21)=3400
3210 IF S=3 THEN LET S(21)=1700
3215 IF S=3 THEN LET S=1
3220 LET S(22)=S(20)-S(21)
3225 IF S(22)<=0 THEN LET S(22)=0
3230 LET S(23)=S(14)-S(22)
3240 PRINT "ENTER NUMBER OF EXEMPTIONS"
3250 INPUT M
3255 IF M<1 THEN LET M=1
3260 LET S(24)=M*1000
3265 LET M=0
3270 LET S(25)=S(23)-S(24)
3275 CLS
3280 GO SUB 5000
3499 REM ***83 VALUES***
3500 CLS
3501 LET M=0
3502 LET N=0
3503 LET I=0
3505 PRINT F$
3506 INPUT S
3507 IF S<1 OR S>3 THEN GO TO 3505
3508 CLS
3510 FOR I=1 TO 13
3515 PRINT AT 10,(31-LEN V$)/2;V$
3516 PRINT X$
3520 PRINT P$
3525 PRINT D$(I)+" FOR "+Z$
3538 INPUT T(I)
3539 IF T(13) THEN LET T(13)=-1*T(13)
3540 PRINT H$;T(I)
3550 PAUSE 180
3560 CLS
3570 LET N=N+T(I)
3580 NEXT I
3590 LET T(14)=N
3595 LET N=0
3596 PRINT AT 10,(31-LEN W$)/2;W$
3597 PRINT X$
3598 PRINT P$
3599 PRINT D$(15)+" FOR "+Z$
3602 INPUT N
3603 PRINT H$;N
3604 LET M=INT (5/100*T(14)+.5)
3605 LET T(15)=N-M
3606 IF T(15)<=0 THEN LET T(15)=0
3607 LET M=0
3608 LET N=0
3609 CLS
3610 FOR I=16 TO 19
3611 PRINT AT 10,(31-LEN W$)/2;W$
3612 PRINT X$
3620 PRINT P$
3625 PRINT D$(I)+" FOR "+Z$
3630 INPUT T(I)
3640 PRINT H$;T(I)
3650 PAUSE 180
3660 CLS
3670 LET N=N+T(I)
3680 NEXT I
3685 IF T(15)=0 AND T(16)=0 AND T(18)=0 AND T(19)=0 THEN LET T(17)=T(17)/4
3690 LET T(20)=N+T(15)
3692 IF T(15)=0 AND T(16)=0 AND T(18)=0 AND T(19)=0 THEN LET T(20)=T(17)
3695 LET N=0
3700 IF S=1 THEN LET T(21)=2300
3705 IF S=2 THEN LET T(21)=3400
3710 IF S=3 THEN LET T(21)=1700
3715 IF S=3 THEN LET S=1
3717 LET M=0
3718 LET N=0
3720 LET T(22)=T(20)-T(21)
3725 IF T(22)<=0 THEN LET T(22)=0
3730 LET T(23)=T(14)-T(22)
3740 PRINT "ENTER NUMBER OF EXEMPTIONS"
3750 INPUT M
3755 IF M<1 THEN LET M=1
3760 LET T(24)=M*1000
3765 LET M=0
3770 LET T(25)=T(23)-T(24)
3780 GO SUB 5500
3785 GO TO 500
3990 STOP
3999 REM ***SAVE***
4000 CLS
4020 PRINT AT 8,7;"PREPARE RECORDER"
4030 PRINT AT 10,3;M$
4040 PAUSE 4E4
4050 CLS
4060 SAVE "TAX PLANNER"
4070 GO TO 500
4999 REM ***82 TABLE***
5000 CLS
5010 IF S=1 THEN LET B=13
5011 IF S=2 THEN LET B=12
5040 DIM A(B)
5050 DIM B(B)
5060 DIM C(B)
5065 PRINT AT 21,0;"LOADING TAX TABLE"
5070 FOR I=1 TO B
5075 GO SUB 6900
5080 NEXT I
5350 GO TO 5399
5361 STOP
5399 REM ***82 CALC***
5400 LET S(26)=0
5420 IF S(25)<A(1) THEN RETURN
5430 FOR E=2 TO B
5440 IF S(25)<A(E) THEN GO TO 5460
5450 NEXT E
5460 LET E=E-1
5470 LET S(26)=INT ((B(E)+(S(25)-A(E))*C(E)/100)+.5)
5480 LET B=0
5490 RETURN
5491 STOP
5500 CLS
5510 REM ***83 TABLE***
5535 LET B=13
5540 DIM D(B)
5550 DIM E(B)
5560 DIM F(B)
5565 PRINT AT 21,0;"LOADING TAX TABLE"
5570 FOR I=1 TO B
5580 GO SUB 7400
5690 NEXT I
5770 GO TO 5800
5771 STOP
5799 REM ***83 CALC***
5800 LET T(26)=0
5810 IF T(25)<D(1) THEN RETURN
5820 FOR E=2 TO B
5830 IF T(25)<D(E) THEN GO TO 5860
5840 NEXT E
5860 LET E=E-1
5870 LET T(26)=INT ((E(E)+(T(25)-D(E))*F(E)/100)+.5)
5890 LET B=0
5895 CLS
5900 GO TO 500
5999 REM ***PRINT RESULTS***
6000 CLS
6010 PRINT V$;TAB 20;Y$;TAB 27;Z$
6015 PRINT X$
6020 FOR I=1 TO 13
6022 PRINT D$(I);
6024 LET V=S(I)
6026 LET C=24
6028 GO SUB 9500
6030 LET V=T(I)
6032 LET C=31
6034 GO SUB 9500
6035 NEXT I
6040 PRINT X$
6042 PRINT D$(14);
6044 LET V=S(14)
6046 LET C=24
6048 GO SUB 9500
6050 LET V=T(14)
6051 LET C=31
6052 GO SUB 9500
6053 PRINT AT 21,0;M$
6055 IF INKEY$="" THEN GO TO 6055
6056 IF INKEY$="Z" THEN COPY
6059 CLS
6060 PRINT W$;TAB 20;Y$;TAB 27;Z$
6062 PRINT X$
6064 FOR I=15 TO 19
6066 PRINT D$(I);
6068 LET V=S(I)
6070 LET C=24
6072 GO SUB 9500
6074 LET V=T(I)
6076 LET C=31
6078 GO SUB 9500
6080 NEXT I
6100 PRINT X$
6110 FOR I=20 TO 26
6120 PRINT D$(I);
6130 LET V=S(I)
6140 LET C=24
6150 GO SUB 9500
6160 LET V=T(I)
6170 LET C=31
6180 GO SUB 9500
6185 PRINT X$
6200 NEXT I
6890 PRINT AT 21,3;M$
6892 IF INKEY$="" THEN GO TO 6892
6894 IF INKEY$="Z" THEN COPY
6896 CLS
6897 GO TO 500
6900 REM ***82 TAX***
6910 IF S=1 THEN GO TO 7000
6920 IF S=2 THEN GO TO 7200
6925 RETURN
7000 LET A(1)=2500
7001 LET A(2)=3400
7002 LET A(3)=4400
7003 LET A(4)=6500
7004 LET A(5)=8500
7005 LET A(6)=10800
7006 LET A(7)=12900
7007 LET A(8)=15000
7008 LET A(9)=18200
7009 LET A(10)=23500
7010 LET A(11)=28800
7011 LET A(12)=34100
7012 LET A(13)=41500
7013 LET B(1)=0
7014 LET B(2)=132
7015 LET B(3)=272
7016 LET B(4)=608
7017 LET B(5)=948
7018 LET B(6)=1385
7019 LET B(7)=1847
7020 LET B(8)=2330
7021 LET B(9)=3194
7022 LET B(10)=4837
7023 LET B(11)=6692
7024 LET B(12)=8812
7025 LET B(13)=12068
7026 LET C(1)=12
7027 LET C(2)=14
7028 LET C(3)=16
7029 LET C(4)=17
7030 LET C(5)=19
7031 LET C(6)=22
7032 LET C(7)=23
7033 LET C(8)=27
7034 LET C(9)=31
7035 LET C(10)=35
7036 LET C(11)=40
7037 LET C(12)=44
7038 LET C(13)=50
7199 RETURN
7200 LET A(1)=3400
7201 LET A(2)=5500
7202 LET A(3)=7600
7203 LET A(4)=11900
7204 LET A(5)=16000
7205 LET A(6)=20200
7206 LET A(7)=24600
7207 LET A(8)=29900
7208 LET A(9)=35200
7209 LET A(10)=45800
7210 LET A(11)=60000
7212 LET A(12)=85600
7213 LET B(1)=0
7214 LET B(2)=252
7215 LET B(3)=546
7216 LET B(4)=1234
7217 LET B(5)=2013
7218 LET B(6)=2937
7219 LET B(7)=4037
7220 LET B(8)=5574
7221 LET B(9)=7323
7222 LET B(10)=11457
7223 LET B(11)=17705
7224 LET B(12)=30249
7225 LET C(1)=12
7226 LET C(2)=14
7227 LET C(3)=16
7228 LET C(4)=19
7229 LET C(5)=22
7230 LET C(6)=25
7231 LET C(7)=29
7232 LET C(8)=33
7233 LET C(9)=39
7234 LET C(10)=44
7235 LET C(11)=49
7236 LET C(12)=50
7299 RETURN
7400 REM 83 TAX
7410 IF S=1 THEN GO SUB 7500
7420 IF S=2 THEN GO SUB 7600
7425 RETURN
7500 LET D(1)=2300
7501 LET D(2)=3400
7502 LET D(3)=4400
7503 LET D(4)=8500
7504 LET D(5)=10800
7505 LET D(6)=12900
7506 LET D(7)=15000
7507 LET D(8)=18200
7508 LET D(9)=23500
7509 LET D(10)=28800
7510 LET D(11)=34100
7511 LET D(12)=41500
7512 LET D(13)=55300
7513 LET E(1)=0
7514 LET E(2)=121
7515 LET E(3)=251
7516 LET E(4)=866
7517 LET E(5)=1257
7518 LET E(6)=1656
7519 LET E(7)=2097
7520 LET E(8)=2865
7521 LET E(9)=4349
7522 LET E(10)=6045
7523 LET E(11)=7953
7524 LET E(12)=10913
7525 LET E(13)=17123
7527 LET F(1)=11
7528 LET F(2)=13
7529 LET F(3)=15
7530 LET F(4)=17
7531 LET F(5)=19
7532 LET F(6)=21
7533 LET F(7)=24
7534 LET F(8)=28
7535 LET F(9)=32
7536 LET F(10)=36
7537 LET F(11)=40
7538 LET F(12)=45
7539 LET F(13)=50
7598 RETURN
7600 LET D(1)=3400
7601 LET D(2)=5500
7602 LET D(3)=7600
7603 LET D(4)=11900
7604 LET D(5)=16000
7605 LET D(6)=20200
7606 LET D(7)=24600
7607 LET D(8)=29900
7608 LET D(9)=35200
7609 LET D(10)=45800
7610 LET D(11)=60000
7611 LET D(12)=27278
7612 LET D(13)=109400
7613 LET E(1)=0
7614 LET E(2)=231
7615 LET E(3)=504
7616 LET E(4)=1149
7617 LET E(5)=1846
7618 LET E(6)=2644
7619 LET E(7)=3656
7620 LET E(8)=5034
7621 LET E(9)=6624
7622 LET E(10)=10334
7623 LET E(11)=16014
7624 LET E(12)=27278
7625 LET E(13)=38702
7626 LET F(1)=11
7627 LET F(2)=13
7628 LET F(3)=15
7629 LET F(4)=17
7630 LET F(5)=19
7631 LET F(6)=23
7632 LET F(7)=26
7633 LET F(8)=30
7634 LET F(9)=35
7635 LET F(10)=40
7636 LET F(11)=44
7637 LET F(12)=48
7638 LET F(13)=50
7639 RETURN
7999 STOP
9500 REM ***JUSTIFY***
9510 LET XL=INT (ABS V+.005)*SGN V
9540 LET J$=STR$ XL
9550 PRINT TAB (C-LEN J$+1);J$;
9560 RETURN