Tax

   1 REM "TAX 1"
   2 SLOW 
   3 PRINT AT 11,9;"PLEASE WAIT"
   4 LET GI=0
   5 LET AD=0
   6 LET DE=0
   7 LET TX=0
   8 LET P=0
   9 LET TT=0
  12 DIM V$(21,20)
  13 DIM V(21)
  14 LET C$=" 1  MEDICINE:: 4A DOCTORS, ETC.: 4B TRANSPORT.: 4C OTHER MEDICAL: 8  INCOME TAXES: 9  PROPERTY:10A SALES TAXES:10B VEHICLE:11  OTHER TAXES:13A BANK MORT:13B IND. MORT:14  CREDIT CARDS:15  OTHER INTER.:17ABCASH CONT.:18  OTHER CONT.:19  PRIOR YEARS:;"
  15 LET D$="21  CASUALTY:22  DUES-UN. AND PR.:23  TAX FEE:24  OTHER DEDUC.:;"
  22 LET H$="NO"
  24 LET EX=1
  25 LET NN=0
  26 LET FS=1
  28 LET SD=2300
  30 DIM I(10)
  31 LET ND=0
  32 DIM D(10)
  33 LET NS=0
  34 LET NL=0
  35 LET IG=0
  36 DIM S(10)
  37 DIM L(10)
  38 LET IL=0
  39 DIM O(10)
  40 LET W2=0
  41 LET IN=0
  42 LET D=0
  43 LET EC=0
  44 LET CG=0
  45 LET IO=0
  47 LET MV=0
  48 LET BS=0
  49 LET IR=0
  50 LET K=0
  51 LET SP=0
  52 LET AL=0
  53 LET MP=0
  54 LET DS=0
  55 LET M=0
  56 LET T=0
  57 LET ID=0
  58 LET CO=0
  59 LET MS=0
  60 LET LO=0
  62 LET B=0
  65 LET H=0
  66 LET F$=C$
  68 CLS 
  70 FAST 
  72 GOSUB 5500
  74 LET F$=D$
  76 GOSUB 5500
  77 SLOW 
  78 GOTO 1360
  80 CLS 
  84 PRINT AT 1,0;"7.TYPE TOTAL WAGES"
  94 PRINT AT 4,0;" ";W2
 120 INPUT W2
 124 PRINT AT 4,0;" ";W2;"   "
 170 RETURN 
 180 CLS 
 184 PRINT AT 1,0;"9.TYPE DIVIDEND"
 185 PRINT "TYPE 0 TO QUIT"
 186 PRINT 
 190 IF ND=0 THEN GOTO 220
 200 FOR I=14 TO ND
 210 PRINT "  ";D(I)
 212 NEXT I
 220 LET D=0
 230 FOR I=1 TO 10
 240 INPUT D(I)
 245 PRINT D(I);"     "
 250 IF D(I)=0 THEN GOTO 280
 260 LET D=D+D(I)
 270 NEXT I
 280 LET ND=I-1
 290 RETURN 
 300 CLS 
 302 PRINT AT 1,0;"8.TYPE INTEREST"
 306 PRINT "TYPE 0 TO QUIT"
 308 PRINT 
 310 IF NN=0 THEN GOTO 350
 320 FOR I=1 TO NN
 330 PRINT " ";I(I)
 332 NEXT I
 340 PRINT AT 3,0
 350 LET IN=0
 360 FOR I=1 TO 10
 370 INPUT I(I)
 375 PRINT "  ";I(I);"     "
 380 IF I(I)=0 THEN GOTO 410
 390 LET IN=IN+I(I)
 400 NEXT I
 410 LET NN=I-1
 420 RETURN 
 430 CLS 
 432 PRINT AT 1,0;"OTHER INCOME"
 436 PRINT 
 440 PRINT "10%TAX REFUND   ";O(1)
 450 PRINT "11%ALIMONY REC. ";O(2)
 460 PRINT "12%BUSINESS INC.";O(3)
 470 PRINT "14%OTHER GAIN   ";O(4)
 480 PRINT "15%SUPP. GAIN   ";O(5)
 490 PRINT "16/17%PENSION   ";O(6)
 500 PRINT "18R%ENTS, ROYAL.";O(7)
 510 PRINT "19%FARM INCOME  ";O(8)
 520 PRINT "20%UNEMP. COM.  ";O(9)
 530 PRINT "21OTHER %INCOME ";O(10)
 531 PRINT 
 532 PRINT "  %RETURN"
 533 PRINT 
 534 PRINT "TYPE BLACK LETTER"
 535 PRINT 
 536 IF INKEY$="" THEN GOTO 536
 538 LET A$=INKEY$
 540 IF A$="R" THEN GOTO 593
 541 IF A$<>"T" THEN GOTO 546
 542 PRINT "TAX REFUND"
 543 INPUT O(1)
 544 PRINT AT 3,15;O(1);"     "
 545 GOTO 590
 546 IF A$<>"A" THEN GOTO 551
 547 PRINT "ALIMONY REC."
 548 INPUT O(2)
 549 PRINT AT 4,15;O(2);"     "
 550 GOTO 590
 551 IF A$<>"B" THEN GOTO 556
 552 PRINT "BUSINESS INC."
 553 INPUT O(3)
 554 PRINT AT 5,15;O(3);"     "
 555 GOTO 590
 556 IF A$<>"O" THEN GOTO 561
 557 PRINT "OTHER GAIN"
 558 INPUT O(4)
 559 PRINT AT 6,15;O(4);"     "
 560 GOTO 590
 561 IF A$<>"S" THEN GOTO 566
 562 PRINT "SUPP. GAIN"
 563 INPUT O(5)
 564 PRINT AT 7,15;O(5);"     "
 565 GOTO 590
 566 IF A$<>"P" THEN GOTO 571
 567 PRINT "PENSION"
 568 INPUT O(6)
 569 PRINT AT 8,15;O(6);"     "
 570 GOTO 590
 571 IF A$<>"E" THEN GOTO 576
 572 PRINT "RENTS, ROYAL."
 573 INPUT O(7)
 574 PRINT AT 9,15;O(7);"     "
 575 GOTO 590
 576 IF A$<>"F" THEN GOTO 581
 577 PRINT "FARM INC."
 578 INPUT O(8)
 579 PRINT AT 10,15;O(8);"     "
 580 GOTO 590
 581 IF A$<>"U" THEN GOTO 586
 582 PRINT "UNEMP. COM."
 583 INPUT O(9)
 584 PRINT AT 11,15;O(9);"     "
 585 GOTO 590
 586 IF A$<>"I" THEN GOTO 590
 587 PRINT "OTHER INCOME"
 588 INPUT O(10)
 589 PRINT AT 12,15;O(10);"     "
 590 PRINT AT 18,0;"             "
 591 PRINT AT 17,0
 592 GOTO 536
 593 LET IO=0
 594 FOR I=1 TO 10
 596 LET IO=IO+O(I)
 598 NEXT I
 600 RETURN 
 610 CLS 
 612 PRINT 
 614 PRINT "1983 TAX: INCOME"
 616 PRINT "TYPE BLACK LETTERS"
 620 PRINT 
 622 PRINT " 7%WAGES, SAL.",W2
 630 PRINT " 8%INTEREST",IN
 640 LET DV=D-EC
 642 IF DV<0 THEN LET DV=0
 650 PRINT " 9%DIVIDEND",DV
 660 PRINT "(";D;"-";EC;")"
 670 PRINT " (%EXCL.)",EC
 680 PRINT "13%CAP. GAIN",CG
 690 PRINT "  %OTHER INCOME",IO
 700 LET GI=W2+DV+IN+IO+CG
 710 IF GI<0  THEN LET GI=0
 720 PRINT 
 722 PRINT "22TOTAL INCOME",GI
 740 PRINT 
 742 PRINT "  %RETURN"
 750 PRINT AT 21,0;"COPR 1983 PRACTIC PROG"
 770 IF INKEY$="" THEN GOTO 770
 772 LET A$=INKEY$
 780 IF A$="R" THEN RETURN 
 790 IF A$="W" THEN GOSUB 80
 792 IF A$="D" THEN GOSUB 180
 800 IF A$="I" THEN GOSUB 300
 802 IF A$="O" THEN GOSUB 430
 804 IF A$="C" THEN GOSUB 840
 810 IF A$="E" THEN GOSUB 830
 820 GOTO 610
 830 CLS 
 832 PRINT 
 834 PRINT "EXCLUSION"
 836 INPUT EC
 837 PRINT "  ";EC
 838 RETURN 
 840 CLS 
 842 PRINT 
 844 PRINT "D.CAPITAL GAIN"
 850 PRINT 
 852 PRINT "I. %SHORT",NS
 860 PRINT 
 862 PRINT "II.%LONG",NL
 870 LET NG=NS+NL
 880 IF NG<0 THEN GOTO 910
 890 LET GG=NG
 892 IF NL<NG THEN LET GG=NL
 894 IF GG<0 THEN LET GG=0
 900 LET CG=NG-.6*GG
 902 GOTO 940
 910 IF NS>0 THEN LET CG=.5*NG
 912 GOTO 940
 920 IF NL>0 THEN LET CG=NG
 922 GOTO 940
 930 LET CG=NS+.5*NL
 940 IF CG>-3000 THEN GOTO 1010
 950 LET CF=CG+3000
 952 LET CG=-3000
 960 LET S1=NS+3000
 970 IF S1>0 THEN LET S1=0
 980 IF S1<CF THEN LET S1=CF
 990 LET S2=2*(CF-S1)
\n1000 PRINT 
\n1002 PRINT "CARRYFORWARDS:"
\n1004 PRINT "30SHORT",S1
\n1006 PRINT "36LONG",S2
\n1010 LET A=22
\n1012 IF CG<0 THEN LET A=24
\n1020 LET CG=INT (CG+.5)
\n1030 PRINT 
\n1032 PRINT A;"TOTAL",CG
\n1040 PRINT 
\n1042 PRINT "%RETURN"
\n1050 PRINT "TYPE LETTER"
\n1060 IF INKEY$="" THEN GOTO 1060
\n1062 LET A$=INKEY$
\n1070 IF A$="R" THEN RETURN 
\n1072 IF A$=CHR$ 118 THEN RETURN 
\n1080 IF A$="S" THEN GOSUB 1100
\n1082 IF A$="L" THEN GOSUB 1230
\n1090 GOTO 840
\n1100 CLS 
\n1102 PRINT 
\n1104 PRINT "I.TYPE SHORT TERM CAPITAL GAINS."
\n1105 PRINT "TYPE 0 TO QUIT"
\n1106 PRINT 
\n1110 IF IG=0 THEN GOTO 1150
\n1120 FOR I=1 TO IG
\n1130 PRINT "  ";S(I)
\n1132 NEXT I
\n1150 LET NS=0
\n1152 PRINT AT 3,0
\n1160 FOR I=1 TO 10
\n1170 INPUT S(I)
\n1175 PRINT "  ";S(I);"    "
\n1180 IF S(I)=0 THEN GOTO 1210
\n1190 LET NS=NS+S(I)
\n1200 NEXT I
\n1210 LET IG=I-1
\n1220 RETURN 
\n1230 CLS 
\n1232 PRINT 
\n1234 PRINT "II.TYPE LONG TERM CAPITAL GAINS."
\n1235 PRINT "TYPE 0 TO QUIT"
\n1236 PRINT 
\n1240 IF IL=0 THEN GOTO 1280
\n1250 FOR I=1 TO IL
\n1260 PRINT "  ";L(I)
\n1262 NEXT I
\n1280 LET NL=0
\n1285 PRINT AT 3,0
\n1290 FOR I=1 TO 10
\n1300 INPUT L(I)
\n1302 PRINT "  ";L(I);"     "
\n1310 IF L(I)=0 THEN GOTO 1340
\n1320 LET NL=NL+L(I)
\n1330 NEXT I
\n1340 LET IL=I-1
\n1350 RETURN 
\n1360 CLS 
\n1362 PRINT 
\n1364 PRINT "1983 INCOME TAX COMPUTATION PROG"
\n1366 PRINT "TYPE BLACK LETTERS"
\n1370 PRINT 
\n1372 PRINT "22TOT. %INC",GI
\n1380 PRINT 
\n1382 PRINT "31%ADJUSTMENTS",AD
\n1390 LET AI=GI-AD
\n1392 IF AI<0 THEN LET AI=0
\n1400 PRINT 
\n1402 PRINT "32ADJ. INC.",AI
\n1404 PRINT 
\n1406 PRINT "34%DEDUCTIONS",DE
\n1408 PRINT 
\n1410 PRINT "  %GOTO PART 2 OF PROG."
\n1416 PRINT 
\n1418 PRINT "  %QUIT"
\n1420 PRINT AT 20,0;"COPR 1983 PRACTICAL PROGRAMS,   INC."
\n1422 SLOW 
\n1430 IF INKEY$="" THEN GOTO 1430
\n1432 LET A$=INKEY$
\n1440 IF A$="Q" THEN STOP 
\n1450 IF A$="A" THEN GOSUB 1490
\n1452 IF A$="I" THEN GOSUB 610
\n1454 IF A$="D" THEN GOSUB 1840
\n1456 IF A$="G" THEN GOSUB 3000
\n1460 GOTO 1360
\n1470 PRINT "TOTAL INC."
\n1472 INPUT GI
\n1474 PRINT AT 12,0;GI
\n1480 GOTO 1360
\n1490 CLS 
\n1491 PRINT 
\n1492 PRINT "TYPE ADJUSTMENTS TO INCOME"
\n1500 PRINT 
\n1502 PRINT "23M%OVING EXP.",MV
\n1510 PRINT "24%BUSINESS",BS
\n1520 PRINT "25%IRA PAYMENTS",IR
\n1530 PRINT "26%KEOGH PAYM.",K
\n1540 PRINT "27%SAV. PENALTY",SP
\n1550 PRINT "28%ALIMONY PAID",AL
\n1560 PRINT "29%MARRIAGE",MP
\n1570 PRINT "30%DISABILITY",DS
\n1580 LET AD=MV+BS+IR+K+SP+AL+MP+DS
\n1590 GOSUB 1740
\n1600 IF A$="R" THEN RETURN 
\n1610 IF A$="O" THEN GOTO 1650
\n1612 IF A$="B" THEN GOTO 1660
\n1614 IF A$="I" THEN GOTO 1680
\n1620 IF A$="K" THEN GOTO 1690
\n1622 IF A$="S" THEN GOTO 1700
\n1624 IF A$="A" THEN GOTO 1710
\n1630 IF A$="M" THEN GOTO 1720
\n1632 IF A$="D" THEN GOTO 1730
\n1640 GOTO 1490
\n1650 PRINT 
\n1652 PRINT "MOVING"
\n1654 INPUT MV
\n1656 GOTO 1490
\n1660 PRINT 
\n1662 PRINT "BUSINESS EXPENSE"
\n1664 INPUT BS
\n1670 GOTO 1490
\n1680 PRINT 
\n1682 PRINT "IRA CONTRIB."
\n1684 INPUT IR
\n1686 GOTO 1490
\n1690 PRINT 
\n1692 PRINT "KEOGH"
\n1694 INPUT K
\n1696 GOTO 1490
\n1700 PRINT 
\n1702 PRINT "SAVING PEN."
\n1704 INPUT SP
\n1706 GOTO 1490
\n1710 PRINT 
\n1712 PRINT "ALIMONY"
\n1714 INPUT AL
\n1716 GOTO 1490
\n1720 PRINT 
\n1722 PRINT "MARRIAGE"
\n1724 INPUT MP
\n1726 GOTO 1490
\n1730 PRINT 
\n1732 PRINT "DISIBILITY"
\n1734 INPUT DS
\n1736 GOTO 1490
\n1740 PRINT 
\n1742 PRINT "%RETURN"
\n1750 PRINT 
\n1752 PRINT "TYPE LETTER"
\n1760 IF INKEY$="" THEN GOTO 1760
\n1762 LET A$=INKEY$
\n1770 RETURN 
\n1840 CLS 
\n1842 PRINT 
\n1844 PRINT "DEDUCTIONS"
\n1850 PRINT 
\n1852 PRINT "32ADJUST. INC",AI
\n1860 PRINT 
\n1862 PRINT " 7%MEDICAL DED.",M
\n1865 PRINT "12%TAXES",T
\n1870 PRINT "16%INTEREST EXP.",ID
\n1875 PRINT "20%CONTRIBUTIONS",CO
\n1877 PRINT "21%LOSSES",LO
\n1880 PRINT "24%OTHER DEDUCT.",MS
\n1890 LET DE=M+T+ID+CO+LO+B+MS
\n1900 PRINT 
\n1902 PRINT "25TOTAL DEDUCT.",DE
\n1910 PRINT 
\n1912 PRINT "  %RETURN"
\n1914 PRINT 
\n1916 PRINT "TYPE LETTER"
\n1920 IF INKEY$="" THEN GOTO 1920
\n1922 LET A$=INKEY$
\n1930 IF A$="R" THEN RETURN 
\n1950 IF A$="M" THEN GOSUB 1980
\n1952 IF A$="T" THEN GOSUB 2280
\n1960 IF A$="I" THEN GOSUB 2430
\n1962 IF A$="C" THEN GOSUB 2570
\n1964 IF A$="O" THEN GOSUB 2700
\n1966 IF A$="L" THEN GOSUB 2691
\n1970 GOTO 1840
\n1980 CLS 
\n1981 PRINT 
\n1982 PRINT "MEDICAL DEDUCTIONS"
\n1990 LET I=1
\n1992 GOSUB 2880
\n2000 LET L2=INT (.01*AI+.5)
\n2010 PRINT " 2 1PERCENT INC.     ";L2
\n2020 LET L3=V(1)-L2
\n2022 IF L3<0 THEN LET L3=0
\n2030 PRINT " 3","     ";L3
\n2050 LET I=3
\n2052 GOSUB 2880
\n2060 LET I=4
\n2062 GOSUB 2880
\n2070 LET I=5
\n2072 GOSUB 2880
\n2080 LET L6=L3
\n2082 FOR I=2 TO 5
\n2084 LET L6=L6+V(I)
\n2086 NEXT I
\n2090 PRINT " 5","     ";L6
\n2100 LET L7=INT (.05*AI+.5)
\n2110 PRINT " 6 5PERCENT INC.     ";L7
\n2120 LET M=L6-L7
\n2122 IF M<0 THEN LET M=0
\n2170 PRINT " 7 TOTAL MEDICAL     ";M
\n2180 GOSUB 2840
\n2190 IF A$="R" THEN RETURN 
\n2200 IF A$="M" THEN LET I=1
\n2220 IF A$="D" THEN LET I=3
\n2230 IF A$="T" THEN LET I=4
\n2240 IF A$="O" THEN LET I=5
\n2250 IF I=0 THEN GOTO 1980
\n2260 GOSUB 2930
\n2270 GOTO 1980
\n2280 CLS 
\n2282 PRINT 
\n2284 PRINT "TAXES"
\n2290 LET T=0
\n2300 FOR I=6 TO 10
\n2302 GOSUB 2880
\n2310 LET T=T+V(I)
\n2312 NEXT I
\n2320 PRINT "12TOTAL TAXES        ";T
\n2330 GOSUB 2840
\n2340 IF A$="R" THEN RETURN 
\n2350 IF A$="I" THEN LET I=6
\n2360 IF A$="P" THEN LET I=7
\n2370 IF A$="S" THEN LET I=8
\n2380 IF A$="V" THEN LET I=9
\n2390 IF A$="O" THEN LET I=10
\n2400 IF I=0 THEN GOTO 2280
\n2410 GOSUB 2930
\n2420 GOTO 2280
\n2430 CLS 
\n2432 PRINT 
\n2434 PRINT "INTEREST EXPENSE"
\n2440 LET ID=0
\n2450 FOR I=11 TO 14
\n2452 GOSUB 2880
\n2460 LET ID=ID+V(I)
\n2462 NEXT I
\n2470 PRINT "16TOTAL INTEREST     ";ID
\n2480 GOSUB 2840
\n2490 IF A$="R" THEN RETURN 
\n2500 IF A$="B" THEN LET I=11
\n2510 IF A$="I" THEN LET I=12
\n2520 IF A$="C" THEN LET I=13
\n2530 IF A$="O" THEN LET I=14
\n2540 IF I=0 THEN GOTO 2430
\n2550 GOSUB 2930
\n2560 GOTO 2430
\n2570 CLS 
\n2572 PRINT 
\n2574 PRINT "CONTRIBUTIONS"
\n2580 LET CO=0
\n2590 FOR I=15 TO 17
\n2592 GOSUB 2880
\n2600 LET CO=CO+V(I)
\n2602 NEXT I
\n2610 PRINT "20TOTAL CONTRIB.     ";CO
\n2620 GOSUB 2840
\n2630 IF A$="R" THEN RETURN 
\n2640 IF A$="C" THEN LET I=15
\n2650 IF A$="O" THEN LET I=16
\n2660 IF A$="P" THEN LET I=17
\n2670 IF I=0 THEN GOTO 2570
\n2680 GOSUB 2930
\n2690 GOTO 2570
\n2691 CLS 
\n2692 PRINT "21 LOSSES ";LO
\n2693 INPUT LO
\n2694 RETURN 
\n2700 CLS 
\n2702 PRINT 
\n2704 PRINT "MISCELLANEOUS"
\n2710 LET MS=0
\n2720 FOR I=19 TO 21
\n2722 GOSUB 2880
\n2730 LET MS=MS+V(I)
\n2732 NEXT I
\n2740 PRINT "25TOTAL MISCEL.      ";MS
\n2750 GOSUB 2840
\n2760 IF A$="R" THEN RETURN 
\n2780 IF A$="D" THEN LET I=19
\n2790 IF A$="T" THEN LET I=20
\n2800 IF A$="O" THEN LET I=21
\n2810 IF I=0 THEN GOTO 2700
\n2820 GOSUB 2930
\n2830 GOTO 2700
\n2840 PRINT 
\n2842 PRINT "  %RETURN"
\n2850 PRINT 
\n2852 PRINT "TYPE LETTER"
\n2860 IF INKEY$="" THEN GOTO 2860
\n2862 LET A$=INKEY$
\n2870 LET I=0
\n2872 RETURN 
\n2880 LET L$=V$(I)( TO 4)
\n2890 LET M$=V$(I)(5 TO 5)
\n2900 LET R$=V$(I)(6 TO )
\n2902 LET ZZ=CODE M$
\n2904 LET ZZ=ZZ+128
\n2906 LET M$=CHR$ ZZ
\n2910 PRINT L$;M$;R$;" ";V(I)
\n2920 RETURN 
\n2930 PRINT 
\n2932 PRINT V$(I)
\n2934 INPUT V(I)
\n2936 RETURN 
\n3000 CLS 
\n3002 PRINT 
\n3009 PRINT "ARE YOU SURE YOU ARE"
\n3010 PRINT "COMPLETELY FINISHED WITH PART 1"
\n3020 PRINT "(Y OR N)"
\n3030 INPUT T$
\n3040 IF T$="Y" THEN GOTO 3100
\n3050 GOTO 1360
\n3100 PRINT "WRITE DOWN THE FOLLOWING VALUES"
\n3105 PRINT 
\n3110 PRINT "1. ";AI
\n3120 PRINT "2. ";DE
\n3140 PRINT 
\n3150 PRINT "THEN FLIP OVER CASSETTE AND TYPE"
\n3155 PRINT 
\n3160 PRINT " LOAD ""TAX 2"""
\n3165 PRINT 
\n3170 PRINT "PART 2 WILL ASK FOR VALUES"
\n3180 PRINT "1-2 IN ORDER"
\n4000 STOP 
\n5500 LET N=0
\n5505 LET E$=""
\n5510 LET H=H+1
\n5515 LET N=N+1
\n5520 LET G$=F$(N TO N)
\n5525 IF G$=":" THEN GOTO 5545
\n5530 IF G$=";" THEN GOTO 5565
\n5535 LET E$=E$+G$
\n5540 GOTO 5515
\n5545 LET V$(H)=E$
\n5550 LET E$=""
\n5555 GOTO 5510
\n5565 LET H=H-1
\n5570 RETURN 
\n9000 CLS 
\n9010 CLEAR 
\n9020 SAVE "TAX %1"
\n9030 RUN