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
