define('rnd(in,sz),it','rnd_me')

	INPUT('INPUT',5,4096,'/cygdrive/c/Users/consu/Documents/dennisdarland/html/health3/nutrition.txt')
	OUTPUT('OUTPUT',6,4096,'/cygdrive/c/Users/consu/Documents/dennisdarland/html/health3/nutper.txt')

	numer = '0123456789.'
	numer2 = '0123456789/'
* Heading
	line  = input
	output = line
* Units
	line = input
	output = line
* PDA
	line = input
	output = line

* Break down
	line break(' ') . month break(numer) span(numer) . rcal = 
	line break(numer) span(numer) . rfat =
	line break(numer) span(numer) . rsat =
	line break(numer) span(numer) . rpoly =
	line break(numer) span(numer) . rmono =
	line break(numer) span(numer) . rchol =
	line break(numer) span(numer) . rsod =
	line break(numer) span(numer) . rpot =
	line break(numer) span(numer) . rcarb =
	line break(numer) span(numer) . rfib =
	line break(numer) span(numer) . rsugar =
	line break(numer) span(numer) . rprot =
	line break(numer) span(numer) . rwater =
*	blank line
	line = input
	output = line
* data

loop	line = input 	  :F(end)
	lt(size(line),10)	:S(end)
	line span(numer2) . month break(numer) span(numer) . cal =
	line break(numer) span(numer) . fat =
	line break(numer) span(numer) . sat =
	line break(numer) span(numer) . poly =
	line break(numer) span(numer) . mono =
	line break(numer) span(numer) . chol =
	line break(numer) span(numer) . sod =
	line break(numer) span(numer) . pot =
	line break(numer) span(numer) . carb =
	line break(numer) span(numer) . fib =
	line break(numer) span(numer) . sugar =
	line break(numer) span(numer) . prot =
	line break(numer) span(numer) . water =

	month = month '  '
	month fence len(7) . month

	pcal = ( cal * 100.0 ) / rcal
	pfat = ( fat * 100.0 ) / rfat
	psat = ( sat * 100.0 ) / rsat
	ppoly = ( poly * 100.0 ) / rpoly
	pmono = ( mono * 100.0 ) / rmono
	pchol = ( chol * 100.0 ) / rchol
	psod = ( sod * 100.0 ) / rsod
	ppot = ( pot * 100.0 ) / rpot
	pcarb = ( carb * 100.0 ) / rcarb
	pfib = ( fib * 100.0 ) / rfib
	psugar = ( sugar * 100.0 ) / rsugar
	pprot = ( prot * 100.0 ) / rprot
	pwater = ( water * 100.0 ) / rwater

	line = month ' ' rnd(pcal,5) ' '  rnd(pfat,5) ' ' rnd(psat,5) ' '  rnd(ppoly,5) ' ' rnd(pmono,5) ' '
	line = line rnd(pchol,5) ' ' rnd(psod,5) ' ' rnd(ppot,5) ' ' rnd(pcarb,5) ' ' rnd(pfib,5) ' ' rnd(psugar,5) ' '
	line = line rnd(pprot,5) ' ' rnd(pwater,5)

	output = line   :(loop)


* month    cal  Fat   Sat  Poly  Mono Chol  Sod  Pot  Carb Fib    Sugar Prot Water

rnd_me   it = in '000000'
	 it fence len(sz) . rnd	 :(return)
end