home *** CD-ROM | disk | FTP | other *** search
/ Colossal Cookbook / ColossalCookbook.cdr / sw / recipcst / zip / recipcst.bas (.txt)
Encoding:
GW-BASIC  |  1985-10-07  |  896 b   |  35 lines
  1. 1  'RECIPe CoST
  2. 2  KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS
  3. 10   PRINT "RECIPE COST"
  4. 20   PRINT 
  5. 30   PRINT "NUMBER OF INGREDIENTS";
  6. 40   INPUT N:IF N=0 THEN 260
  7. 42  IF N<1 THEN 40
  8. 50   FOR I = 1 TO N
  9. 60   PRINT "  INGREDIENT";I;":"
  10. 70   PRINT "COST FOR BULK UNIT IN STORE";
  11. 80   INPUT C
  12. 90   PRINT "NUMBER OF UNITS IN BULK";
  13. 100   INPUT U
  14. 110   PRINT "NUMBER OF RECIPE UNITS PER BULK UNIT";
  15. 120   INPUT F
  16. 130   PRINT "NUMBER OF RECIPE UNITS CALLED FOR";
  17. 140   INPUT R
  18. 150  P = P + C / U / F * R
  19. 160   NEXT I
  20. 170   PRINT "NUMBER OF SERVINGS";
  21. 180   INPUT S:IF S=0 THEN 260
  22. 190   PRINT 
  23. 200   PRINT "TOTAL COST FOR 1 RECIPE: $"; INT (P * 100 + 0.5) / 100
  24. 210   PRINT "COST PER SERVING:        $"; INT (P/S * 100+0.5)/100
  25. 220   PRINT 
  26. 230   PRINT "CHANGE NUMBER OF SERVINGS (Y/N)";
  27. 240   INPUT A$:A$=LEFT$(A$,1):IF INSTR("YyNn",A$)=0 THEN 240
  28. 250   IF INSTR("Yy",A$) THEN 170
  29. 260  PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO RUN AGAIN";
  30. 270  LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  31. 280  K$=INKEY$:IF K$="" THEN 280
  32. 290  IF K$=" " THEN RUN
  33. 300  IF K$<>CHR$(27) THEN 280
  34. 10000  RUN"MENU
  35.