Content
Image Gallery
Ad Profit
1 REM AD PROFIT
2 PRINT "%A%D% %C%A%M%P%A%I%G%N% %P%R%O%F%I%T"
3 PRINT "ANSWER QUESTIONS AS REQUESTED. IF YOU WISH TO KNOW HOW MANY UNITS TO SELL TO BREAK EVEN,ANSWER 0 TO NUMBER SOLD AND $ PROFIT WANTED"
4 PRINT
10 PRINT "ITEM LIST/RETAIL PRICE: ";
20 INPUT B
30 PRINT "$";B
40 PRINT "MFG OR WHOLESALE COST: ";
50 INPUT C
60 PRINT "$";C
70 PRINT "AD COST: ";
80 INPUT D
90 PRINT "$";D
100 PRINT "QUANTITY SOLD: ";
110 INPUT A
120 PRINT A
130 IF A=0 THEN GOTO 300
200 LET E=A*B-A*C-D
210 PRINT "$";E;" PROFIT"
220 GOTO 400
300 PRINT "PROFIT WANTED: $ ";
310 INPUT F
320 PRINT F
330 LET A=(F+D)/(B-C)
340 PRINT "YOU MUST SELL ";A
350 PRINT "FOR $ ";F;" PROFIT"
400 PRINT
410 PRINT
420 PRINT "FOR MORE,PRESS ANY KEY"
430 IF INKEY$="" THEN GOTO 430
440 CLS
450 GOTO 10
475 CLEAR
500 SAVE "1001%6"
600 RUN
People
No people associated with this content.