World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/GENERAL/USDA_NDB.ZIP/USDAPROC.PRG

Text File | 1991-11-17 | 3KB | 93 lines

* these are some external procedures used by Clipper for the USDA Nutrient
* Database program during compilation. (not used by .EXE file)

PROCEDURE askmore
        SET CONFIRM OFF
          some_more = "N"
          @23,0 TO 23,79 DOUBLE
          @ 24,0 SAY "OPTIONS - (N)ext - (P)revious - (J)ump to another food - e(X)it " GET some_more PICTURE "@!"
          READ
        SET CONFIRM ON
RETURN



PROCEDURE showone
CLEAR
@  0,  0  SAY "Item"
@  0, 15  SAY "Description"
@  2,  0  SAY "Water(%)"
@  2, 16  SAY "Food energy (kilocalories)"
@  2, 50  SAY "Total dietary fiber (gm)"
@  3,  0  SAY "Protein(gm)"
@  3, 19  SAY "Carbohydate (gm)"
@  5,  0  SAY "Total polyunsaturated fatty acids (gm)"
@  5, 48  SAY "Total fat (gm)"
@  6,  0  SAY "Total monounsaturated fatty acids (gm)"
@  6, 48  SAY "Cholesterol(mg)"
@  7,  0  SAY "Total saturated fatty acids (gm)"
@  9,  0  SAY "Vitamin A (IU)"
@  9, 20  SAY "Vitamin A (RE)"
@  9, 40  SAY "Vitamin B-6 (mg)"
@ 10,  0  SAY "Vitamin B-12 (mcg)"
@ 10, 24  SAY "Vitamin E (Alpha-tocopherol equivalents in mg)"
@ 11,  0  SAY "Carotenes(RE)"
@ 11, 19  SAY "Ascorbic acid(mg)"
@ 11, 42  SAY "Thiamin(mg)"
@ 11, 59  SAY "Riboflavin(mg)"
@ 12,  0  SAY "Niacin(mg)"
@ 12, 16  SAY "Folate(mcg)"
@ 14,  0  SAY "Calcium(mg)"
@ 14, 17  SAY "Phosphorus(mg)"
@ 14, 37  SAY "Magnesium(mg)"
@ 14, 56  SAY "Iron(mg)"
@ 15,  0  SAY "Zinc(mg)"
@ 15, 14  SAY "Copper(mg)"
@ 15, 30  SAY "Potassium (mg)"
@ 15, 50  SAY "Alcohol(gm)"
@ 17,  0  SAY "Sodium - Default value (mg)"
@ 19,  0  SAY "Sodium (mg) - Salt not added (For items not calculated"
@ 20,  0  SAY "from recipes and those recipes where salt is not an"
@ 21,  0  SAY "ingredient the two sodium values are identical.)"
set color to r+/b,r+/b,b,b
@  0, 27  SAY  USDA->DESC
set color to rb+/b,rb+/b,b,b
@  0,  5  SAY  USDA->ITEM
set color to g+/b,g+/b,b,b
@1,20 SAY "NUTRIENTS BASED ON 100g EDIBLE PORTION "
set color to w+/b,w+/b,b,b
@  2,  9  SAY  USDA->WATER
@  2, 43  SAY  USDA->ENERGY
@  2, 75  SAY  USDA->TOT_FIBRE
@  3, 12  SAY  USDA->PROTEIN
@  3, 36  SAY  USDA->CHARBOHYD
@  5, 39  SAY  USDA->POLYUNSAT
@  5, 64  SAY  USDA->TOT_FAT
@  6, 39  SAY  USDA->MONOSATS
@  6, 64  SAY  USDA->CHOLESTERL
@  7, 33  SAY  USDA->SAT_FAT_AC
@  9, 15  SAY  USDA->VIT_A_IU
@  9, 35  SAY  USDA->VIT_A_RE
@  9, 57  SAY  USDA->VIT_B6
@ 10, 19  SAY  USDA->VIT_B12
@ 10, 71  SAY  USDA->VIT_E
@ 11, 14  SAY  USDA->CAROTENES
@ 11, 37  SAY  USDA->ASCOR_ACID
@ 11, 54  SAY  USDA->THIAMIN
@ 11, 74  SAY  USDA->RIBOFLAVIN
@ 12, 11  SAY  USDA->NIACIN
@ 12, 28  SAY  USDA->FOLATE
@ 14, 12  SAY  USDA->CALCIUM
@ 14, 32  SAY  USDA->PHOSPHORUS
@ 14, 51  SAY  USDA->MAGNESIUM
@ 14, 65  SAY  USDA->IRON
@ 15,  9  SAY  USDA->ZINC
@ 15, 25  SAY  USDA->COPPER
@ 15, 45  SAY  USDA->POTASSIUM
@ 15, 62  SAY  USDA->ALCOHOL
@ 17, 28  SAY  USDA->SODIUM_DEF
@ 20, 59  SAY  USDA->SODIUM_ADD
set color to gr+/b,gr+/b,b,b
RETURN