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