Source Code
5 REM MINTAX(INCORP--Y/N)
6 PRINT TAB (5);"MINTAX//INCORPORATE Y/N"
7 PRINT
10 PRINT "ENTER NET INCOME BEFORE SALARY AND TAXES"
20 INPUT A
21 PRINT A
22 PRINT "ENTER OWNER SALARY"
23 INPUT B
24 PRINT B
30 IF B>A THEN GOTO 400
40 IF A<1000 THEN GOTO 500
45 PRINT
50 PRINT ,,"CORP."
60 PRINT "NET INCOME BEFORE SALARY AND TAXES",A
70 PRINT "SALARY",,B
80 LET C=A-B
90 PRINT "NET INCOME BEFORE TAX",C
100 IF C>100000 THEN GOTO 104
101 IF C>75000 THEN GOTO 106
102 IF C>50000 THEN GOTO 108
103 IF C>25000 THEN GOTO 110
104 LET D=26750+INT (.46*(C-100000))
105 GOTO 140
106 LET D=16750+INT (.40*(C-75000))
107 GOTO 140
108 LET D=9250+INT (.30*(C-50000))
109 GOTO 140
110 LET D=4250+INT (.20*(C-25000))
140 PRINT "CORPORATE INCOME TAX",D
150 LET E=C-D
160 PRINT "CORP.NET INCOME",E
162 PRINT
164 PRINT ,,"OWNER"
166 PRINT "SALARY FROM ABOVE",B
168 PRINT "CORP NET INCOME, FROM ABOVE",E
170 LET F=B+E
174 PRINT "TOTAL INCOME",,F
180 GOSUB 600
190 PRINT "PERSONAL INCOME TAX",G
200 LET H=F-G
210 PRINT "EFFECTIVE NET INCOME",H;"**"
220 PRINT
280 PRINT ,,,"PROP."
290 PRINT "PROP. PROFIT SAME"
300 PRINT " AS NET INCOME BEFORE"
310 PRINT " SAL AND TAXES ABOVE",,A
320 LET F=A
330 GOSUB 600
340 PRINT "PERSONAL INCOME TAX",,G
350 LET H=A-G
360 PRINT "EFFECTIVE NET INCOME",,H;"**"
370 GOTO 800
400 PRINT "SALARY > NET INCOME--TRY AGAIN"
410 GOTO 10
500 PRINT "NET INCOME TOO LOW TO ACCEPT RISK OF ENTERING BUSINESS"
510 GOTO 800
600 IF F>108300 THEN GOTO 650
610 IF F>55300 THEN GOTO 670
620 IF F>23500 THEN GOTO 690
630 LET G=INT (.34*F)
640 GOTO 700
650 LET G=55697+INT (.7*(F-108300))
660 GOTO 700
670 LET G=20982+INT (.63*(F-55300))
680 GOTO 700
690 LET G=5367+INT (.39*(F-23500))
700 RETURN
800 STOP
810 SAVE "1011%9"
820 RUN
