Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
Source Code
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