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