Ad Profit

Gallery

Source Code

   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