1       	&STLIMIT = 1000000000
2       	INPUT('input1',5,4096,'healthoutnum2.txt')	
3       	INPUT('input2',8,4096,'healthoutnum3.txt')	
4       	OUTPUT('output',6,8192,'healthoutnum4.txt')	
5       	DIGIT = '0123456789.-'
6       	LINE1 = INPUT1
7       LOOP	LINE1 = INPUT1 :f(END)
8       	LINE2 = INPUT2 :f(END)
9       	LINEOUT = LINE1 ' '
10      	FIELD = 1
11      LOOP2	
12      	LINE1 BREAK(DIGIT) SPAN(DIGIT) . ITEM_NEW REM . LINE1A :f(END)
13      	LINE2 BREAK(DIGIT) SPAN(DIGIT) . ITEM_OLD REM . LINE2A :f(END)
14      	LINE1 = LINE1A
15      	LINE2 = LINE2A
16      	LT(ITEM_NEW,-9998.0)     :s(SK1)	
17      	LT(ITEM_OLD,-9998.0)     :s(SK1)
18      	ITEM_DIFF = ITEM_NEW - ITEM_OLD :(SK2)
19      SK1	ITEM_DIFF = -9999.0
20      SK2	LINEOUT = LINEOUT ITEM_DIFF ' '
21      	FIELD = LE(FIELD, 89) FIELD + 1 :s(LOOP2)
22      	OUTPUT = LINEOUT :(LOOP)
23      ERR1    OUTPUT = "ERROR1" :(END)
24      ERR2    OUTPUT = "ERROR2" :(END)
25
26
27
28      END