home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / DIET / ADDFOOD.BAS next >
BASIC Source File  |  2020-08-13  |  1KB  |  38 lines
  1. 5 D$ =  CHR$(4)
  2. 7 F$ = "FOODLIST.TXT"
  3. 10  PRINT D$"OPEN "F$
  4. 100  HOME : PRINT "*** ADD FOOD ***": PRINT 
  5. 105 Q =  FRE(0)
  6. 110  INPUT "FOOD CODE:";FC$
  7. 120  INPUT "FOOD DESC:";FD$
  8. 130  INPUT "PORTION:";PO$
  9. 140  INPUT "CALORIES:";CA
  10. 150  INPUT "FAT CALORIES:";FC
  11. 160  INPUT "TOTAL FAT GRAMS:";FA
  12. 170  INPUT "SATURATED FAT GRAMS:";SF
  13. 180  INPUT "CHOLESTEROL MG:";CH
  14. 190  INPUT "SODIUM MG:";SO
  15. 200  INPUT "TOTAL CARB GRAMS:";CB
  16. 210  INPUT "DIETARY FIBER:";FI
  17. 220  INPUT "SUGARS:";SU
  18. 230  INPUT "PROTEIN (GRAMS):";PR
  19. 240  PRINT 
  20. 250  PRINT "YOU ENTERED:  FOOD CODE:"FC$
  21. 255  PRINT "----------------------------------------";
  22. 260  PRINT PO$;" "FD$;" HAS "CA" CALORIES": PRINT FC" CALORIES FROM COME FROM FAT."
  23. 270  PRINT FA" GRAMS FAT, "SF" GRAMS SATURATED FAT"
  24. 280  PRINT CH" MG CHOLESTEROL, "SO" MG SODIUM"
  25. 290  PRINT CB" G CARBOHYDRATES ("FI" FIBER "SU" SUGAR)": PRINT "AND "PR" G PROTEIN"
  26. 295  PRINT 
  27. 300  INPUT "IS THIS CORRECT? (Y/N):";YN$
  28. 310  IF  LEFT$(YN$,1) < >"Y"  THEN 100
  29. 320  PRINT D$"APPEND "F$
  30. 325  PRINT D$"WRITE "F$
  31. 330  PRINT FC$","FD$","PO$","CA","FC","FA","SF","CH","SO","CB","FI","SU","PR
  32. 340  PRINT D$
  33. 350  INPUT "ADD MORE FOODS? (Y/N):";YN$
  34. 360  IF  LEFT$(YN$,1) = "Y"  THEN 100
  35. 370  PRINT D$"CLOSE "F$
  36. 380  INPUT "RUN FOOD DIARY NOW? (Y/N):";YN$
  37. 390  IF  LEFT$(YN$,1) = "Y"  THEN  PRINT D$"RUN DIARY.BAS"
  38. 400  END