Mintax // Incorporate

Gallery

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