home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / DIET / FOODRPT.BAS < prev    next >
BASIC Source File  |  2020-08-13  |  1KB  |  29 lines
  1. 1  DIM FC$(500),FD$(500),PO$(500),CA(500),FC(500),FA(500),SF(500),CH(500),SO(500),CB(500),FI(500),SU(500),PR(500)
  2. 5 D$ =  CHR$(4)
  3. 7 F$ = "FOODLIST.TXT"
  4. 8  PRINT "READING FOOD LIST..."
  5. 9 O$ = "FOODRPT.TXT"
  6. 10  PRINT D$"OPEN "F$
  7. 20  PRINT D$"READ "F$
  8. 90 I = 0
  9. 100  ONERR  GOTO 150
  10. 110  INPUT FC$(I),FD$(I),PO$(I),CA(I),FC(I),FA(I),SF(I),CH(I),SO(I),CB(I),FI(I),SU(I),PR(I)
  11. 115 I = I +1
  12. 120  GOTO 110
  13. 150  PRINT D$"CLOSE"F$
  14. 160 MX = I -1
  15. 200  INPUT "SAVE TO FILE (Y/N):";PF$
  16. 210  IF  LEFT$(PF$,1) = "Y"  THEN  PRINT D$"OPEN"O$: PRINT D$"WRITE"O$
  17. 250  PRINT "FOOD REPORT: LISTING OF FOODLIST.TXT"
  18. 255  PRINT "---------------------------------------"
  19. 257  FOR I = 0 TO MX
  20. 260  PRINT FC$(I)": "PO$(I);" "FD$(I)
  21. 265  PRINT CA(I)" CALORIES, "FC(I)" FROM FAT."
  22. 270  PRINT FA(I)" GRAMS FAT, "SF(I)" GRAMS SATURATED FAT"
  23. 280  PRINT CH(I)" MG CHOLESTEROL, "SO(I)" MG SODIUM"
  24. 290  PRINT CB(I)" G CARBOHYDRATES ("FI(I)" FIBER "SU(I)" SUGAR)": PRINT "AND "PR(I)" G PROTEIN"
  25. 295  PRINT "---------------------------------------"
  26. 300  NEXT I
  27. 310  PRINT 
  28. 340  IF  LEFT$(PF$,1) = "Y"  THEN  PRINT D$"CLOSE"O$
  29. 350  END