Media Money cost of ads

Gallery

Source Code

   5 REM MEDIA MONEY
   6 REM CHOOSE LOWER COST ADS**
  10 PRINT "FIRST MEDIUM: ";
  20 INPUT N$
  30 PRINT N$
  40 PRINT "AD COST: $ ";
  50 INPUT A
  60 PRINT A
  70 PRINT "CIRCULATION: ";
  80 INPUT C
  90 PRINT C
 100 LET M=1000*(A/C)
 110 PRINT "SECOND MEDIUM: ";
 120 INPUT P$
 130 PRINT P$
 140 POKE "AD COST: $ ";
 150 INPUT Q
 160 PRINT Q
 170 PRINT "CIRCULATION: ";
 180 INPUT R
 190 PRINT R
 200 LET S=1000*(Q/R)
 210 PRINT 
 220 PRINT 
 230 PRINT N$;" CPM: $ ";M
 240 PRINT P$;" CPM: $ ";S
 250 IF S>M THEN PRINT N$;" IS LOWER"
 260 IF M>S THEN PRINT P$;" IS LOWER"
 270 IF M=S THEN PRINT "NO DIFFERENCE"
 300 PRINT 
 310 PRINT 
 320 PRINT "FOR MORE,PRESS ANY KEY"
 330 IF INKEY$="" THEN GOTO 330
 340 CLS 
 350 GOTO 10
 375 CLEAR 
 400 SAVE "1001%5"
 500 RUN