Break Even Analysis

   5 REM BEANAL(BREAK EVEN ANALYSIS
   8 PRINT "BREAK EVEN ANALYSIS"
   9 PRINT 
  10 PRINT "DESIRE SALES OR NET PROFIT?ENTER S OR P"
  30 INPUT A$
  31 PRINT A$
  40 PRINT "ENTER FIXED COSTS"
  50 INPUT F
  51 PRINT F
  60 PRINT "VARIBLE COST RATE?ENTER AS A DECIMAL IN RELATION TO SALES"
  75 INPUT V
  76 PRINT V
  80 IF A$="P" THEN GOTO 160
  90 PRINT "DESIRED NET PROFIT? ENTER $ AMT OR DECIMAL PORTION OF SALES"
 100 INPUT N
 101 PRINT N
 110 IF N<1 THEN GOTO 130
 120 LET S=INT ((N+F)/(1.00-V))
 122 PRINT 
 124 PRINT "FOR A NET PROFIT OF ";N;"THERE MUST BE ";S;"IN SALES"
 127 GOTO 215
 130 LET S=(F/(1.00-V-N))
 135 PRINT 
 140 PRINT "FOR A NET PROFIT OF ";N*100;"PCT. THERE MUST BE";S;" IN SALES"
 150 GOTO 215
 160 PRINT "ESTIMATED SALES"
 170 INPUT L
 171 PRINT L
 190 LET E=L-(L*V)-F
 200 LET E=INT (E)
 205 PRINT 
 210 PRINT "WITH SALES OF ";L;" YOUR PROFIT WILL BE ";E
 211 PRINT 
 220 PRINT "ANOTHER CALCULATION? ENTER Y OR N"
 240 INPUT Z$
 250 IF Z$="N" THEN GOTO 270
 260 GOTO 9
 270 STOP 
 280 SAVE "1011%4"
 290 LIST