Shoppers Friend

   5 REM %S%H%O%P%P%E%R%S% %F%R%I%E%N%D
  10 PRINT "SHOPPERS FRIEND"
  20 FOR L=1 TO 15
  30 PRINT "*";
  40 NEXT L
  50 PRINT 
 100 PRINT "FIRST BRAND NAME:"
 110 INPUT X$
 120 PRINT X$
 130 PRINT "QUANTITY: ";
 140 INPUT M
 150 PRINT M
 160 PRINT "PRICE: $";
 170 INPUT N
 180 PRINT N
 200 PRINT "SECOND BRAND NAME:"
 210 INPUT Y$
 220 PRINT Y$
 230 PRINT "QUANTITY: ";
 240 INPUT Q
 250 PRINT Q
 260 PRINT "PRICE: ";
 270 INPUT R
 280 PRINT R
 300 IF N/M=R/Q THEN GOTO 600
 310 IF N/M<R/Q THEN GOTO 400
 320 PRINT Y$;" IS BCST BUY"
 330 GOTO 500
 400 PRINT X$;" IS BEST BUY"
 500 PRINT X$;" UNIT = $";N/M
 510 PRINT Y$;" UNIT = $";R/Q
 520 PRINT 
 530 STOP 
 600 PRINT X$;" = ";Y$
 610 GOTO 500
 700 PRINT "FOR MORE,PRESS ANY KEY"
 710 IF INKEY$="" THEN GOTO 700
 720 GOTO 10
 800 SAVE "1003%5"
 900 RUN