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