Markup Calculation

Gallery

Source Code

   3 REM %M%A%R%K%U%P
   4 PRINT TAB (5);"MARKUP CALCULATION"
   5 PRINT 
  10 PRINT "ENTER COST"
  20 INPUT C
  21 PRINT C
  30 PRINT "ENTER MARKUP DESIRED (PCT.)"
  40 INPUT R
  41 PRINT R
  50 IF R<1 THEN GOTO 120
  60 LET R=R/100
 120 PRINT "DESIRE M/U ON COST(C) OR SELL (S) PRICES"
 130 INPUT A$
 131 PRINT A$
 140 IF A$="C" THEN GOTO 180
 150 IF A$="S" THEN GOTO 220
 160 PRINT "INVALID CODE--TRY AGAIN"
 170 GOTO 120
 180 LET S=C+(C*R)
 190 LET S=INT (S*100+.5)/100
 200 LET B$="COST"
 210 GOTO 245
 220 LET S=C/(1-R)
 230 LET S=INT (S*100+.5)/100
 240 LET B$="SALES"
 245 PRINT 
 250 PRINT TAB (5);"WHEN COST IS $ ";C;" A MARKUP OF ";R*100;" PCT. ON "
 255 PRINT TAB (5);B$;" GIVES SALES OF $ ";S
 258 PRINT 
 260 PRINT "ANOTHER CALCULATION? Y/N"
 270 INPUT Q$
 280 IF Q$="Y" THEN GOTO 10
 290 STOP 
 300 SAVE "1011%7"
 310 LIST