&anchor = 1
	digit = '1234567890'
	digit2 = digit '.'
	digit3 = digit '/'
	last1 = 0
	last2 = 0
	last3 = 0
	last = 0
	max = 600
	INPUT('nutr',5,80,'nut_out.txt')	
	INPUT('rest2',8,80,'rest_out.txt')	
	INPUT('glu',9,80,'glu_out.txt')
	DEFINE('pad(str,sz)','pad_lab')
	DEFINE('padz(str,sz)','padz_lab')
	output = 'calories, fat, protein, carb-fib, sugar, and miles (walked ar biked) from day before'
	output = pad('day',5) ' ' pad('date',10) ' ' pad('calories',8) ' ' pad('fat',6) ' ' pad('protein',7) ' ' pad('carb-fib',8) ' ' pad('sugar',6)  ' ' pad('miles',8) ' ' pad('weight',6) ' ' pad('glucose',8)	
	min = 2622
	date_ar = ARRAY(max)
	day_ar = ARRAY(max)
	calories_ar = ARRAY(max)
	glucose_ar = ARRAY(max)
	fat_ar = ARRAY(max)
	sugar_ar = ARRAY(max)
	carb_ar = ARRAY(max)
	prot_ar = ARRAY(max)
	weight_ar = ARRAY(max)
	miles_ar = ARRAY(max)
	day_rel = 0
loop1	line = nutr		:f(loop2)
	line span(digit3) . date_in span(' ') =
	line span(digit) . day_rel span(' ') =
	day_rel = day_rel - 2622
	lt(day_rel,1)			:s(loop1)
	gt(day_rel,max)			:s(loop1)
	last1 = gt(day_rel,last1) day_rel
*	date_ar[day_rel] = date_in
	line span(digit2) . calories_ar[day_rel] span(' ') =
	line span(digit2) . sugar_ar[day_rel] span(' ') =
	line span(digit2) . fat_ar[day_rel] span(' ') =
	line span(digit2) . carb_ar[day_rel] span(' ') =
	line span(digit2) . prot_ar[day_rel] rpos(0) =  :(loop1)
loop2   line = rest2	        :f(loop3)
	line span(digit3) . date_in span(' ') =
	line span(digit) . day_rel span(' ') =
	day_rel = day_rel - 2622
	lt(day_rel,1)			:s(loop2)
	gt(day_rel,max)			:s(loop1)
	last2 = gt(day_rel,last2) day_rel
	line span(digit2) . miles_ar[day_rel] ' miles' rpos(0) =   :(loop2)
loop3   line = glu	        :f(skip)
	line span(digit3) . date_in span(' ') =
	date_ar[day_rel] = date_in
	line span(digit) . day_rel span(' ') =
	day_rel = day_rel - 2622
	lt(day_rel,1)			:s(loop3)
	gt(day_rel,max)			:s(loop1)
	last3 = gt(day_rel,last3) day_rel
	line span(digit2) . glucose_ar[day_rel] span(' ') =
	line span(digit2) . weight_ar[day_rel] rpos(0) =   :(loop3)
skip
	i = 2
	last = last1 + 1
	last = le(last2,last + 1) last2
	last = le(last3,last) last3
loop4	
*	OUTPUT = weight_ar[i - 1]
*	OUTPUT = weight_ar[i]
*	OUTPUT = glucose_ar[i - 1]
*	OUTPUT = glucose_ar[i]
*	OUTPUT = weight_ar[i] - weight_ar[i - 1]
*	OUTPUT =  - glucose_ar[i - 1]
	LT(glucose_ar[i],1)	 :S(skloop4)
	LT(glucose_ar[i - 1],1)	 :S(skloop4)
	delta_wgt = weight_ar[i] - weight_ar[i - 1]
	delta_glu = glucose_ar[i] - glucose_ar[i - 1]
	output = gt(glucose_ar[i] , 0.0) pad(i,5) ' ' pad(date_ar[i - 1] , 10) ' ' pad(calories_ar[i - 1] , 8) ' ' padz(fat_ar[i - 1],6) ' ' padz(prot_ar[i - 1],7) ' ' padz(carb_ar[i - 1] ,8) ' ' padz(sugar_ar[i - 1] , 6)  ' ' padz(miles_ar[i - 1] , 8) ' ' padz(weight_ar[i] , 6) ' ' pad(glucose_ar[i] , 8)  ' ' delta_wgt ' ' delta_glu
skloop4	i = le(i , last )  i + 1  :s(loop4)f(end)
pad_lab		   str = '              ' str
		   str = reverse(str)
		   str len(sz) . str
		   pad = reverse(str)		   :(return)
padz_lab	   str break('.')          		  :s(skpdz)
		   str = str '.0'                
skpdz		   str = '              ' str
		   str = reverse(str)
		   str len(sz) . str
		   padz = reverse(str)		   :(return)


end