1       	INPUT('input',5,256)	
2       	OUTPUT('output',6,256)	
3       	DIGIT = '0123456789.-'
4       	ITEM5 = 'Correlation '
5       	ITEM1 = 'Item 1 '
6       	ITEM2 = 'Item 2 '
7       	ITEM6 = 'Count '
8       	ITEM7 = 'Min 1 '
9       	ITEM8 = 'Max 1 '
10      	ITEM9 = 'Min 2 '
11      	ITEM10 = 'Max 2 '
12      	EXTRA5 = 22 - SIZE(ITEM5)
13      	EXTRA1 = 32 - SIZE(ITEM1)
14      	EXTRA2 = 32 - SIZE(ITEM2)
15      	EXTRA6 = 10 - SIZE(ITEM6)
16      	EXTRA7 = 10 - SIZE(ITEM7)
17      	EXTRA8 = 10 - SIZE(ITEM8)
18      	EXTRA9 = 10 - SIZE(ITEM9)
19      	EXTRA10 = 10 - SIZE(ITEM10)
20        	ITEM5 = ITEM5 DUPL(' ',EXTRA5)
21      	ITEM1 = ITEM1 DUPL(' ',EXTRA1)
22      	ITEM2 = ITEM2 DUPL(' ',EXTRA2)
23      	ITEM6 = DUPL(' ',EXTRA6) ITEM6
24      	ITEM7 = DUPL(' ',EXTRA7) ITEM7
25      	ITEM8 = DUPL(' ',EXTRA8) ITEM8
26      	ITEM9 = DUPL(' ',EXTRA9) ITEM9
27      	ITEM10 = DUPL(' ',EXTRA10) ITEM10
28      	OUTPUT = '-9 ' ITEM5 '  ' ITEM1 ITEM2 ITEM6 ITEM7 ITEM8 ITEM9 ITEM10
29      LOOP	LINE1 = INPUT     :f(END)
30      	LINE2 = INPUT    :f(END)
31      	LINE3 = INPUT    :f(END)
32      	LINE4 = INPUT    :f(END)
33      	LINE5 = INPUT    :f(END)
34      	LINE6 = INPUT    :f(END)
35      	LINE7B = INPUT    :f(END)
36      	LINE7 = INPUT    :f(END)
37      	LINE8B = INPUT    :f(END)
38      	LINE8 = INPUT    :f(END)
39      	LINE9B = INPUT    :f(END)
40      	LINE9 = INPUT    :f(END)
41      	LINE10B = INPUT    :f(END)
42      	LINE10 = INPUT    :f(END)
43      	LINE1 BREAK('[') REM . ITEM1
44      	LINE2 BREAK('[') REM . ITEM2
45      	LINE4 BREAK(DIGIT) SPAN(DIGIT) . ITEM4
46      	ITEM5 = GE(ITEM4,0.0) ' ' ITEM4 :s(SKIP1)
47      	ITEM5 = ITEM4
48      SKIP1	LINE6 BREAK(DIGIT) SPAN(DIGIT) . ITEM6
49      	LINE7 BREAK(DIGIT) SPAN(DIGIT) . ITEM7
50      	LINE8 BREAK(DIGIT) SPAN(DIGIT) . ITEM8
51      	LINE9 BREAK(DIGIT) SPAN(DIGIT) . ITEM9
52      	LINE10 BREAK(DIGIT) SPAN(DIGIT) . ITEM10
53      	EXTRA5 = 22 - SIZE(ITEM5)
54      	EXTRA1 = 32 - SIZE(ITEM1)
55      	EXTRA2 = 32 - SIZE(ITEM2)
56      	EXTRA6 = 10 - SIZE(ITEM6)
57      	EXTRA7 = 10 - SIZE(ITEM7)
58      	EXTRA8 = 10 - SIZE(ITEM8)
59      	EXTRA9 = 10 - SIZE(ITEM9)
60      	EXTRA10 = 10 - SIZE(ITEM10)
61      	EXTRA5 = LT(EXTRA5, 1) 1
62      	EXTRA1 = LT(EXTRA1, 1) 1
63      	EXTRA2 = LT(EXTRA2, 1) 1
64      	EXTRA6 = LT(EXTRA6, 1) 1
65      	EXTRA7 = LT(EXTRA7, 1) 1
66      	EXTRA8 = LT(EXTRA8, 1) 1
67      	EXTRA9 = LT(EXTRA9, 1) 1
68      	EXTRA10 = LT(EXTRA10, 1) 1
69        	ITEM5 = ITEM5 DUPL('0',EXTRA5)
70      	ITEM1 = ITEM1 DUPL(' ',EXTRA1)
71      	ITEM2 = ITEM2 DUPL(' ',EXTRA2)
72      	ITEM6 = DUPL(' ',EXTRA6) ITEM6
73      	ITEM7 = DUPL(' ',EXTRA7) ITEM7
74      	ITEM8 = DUPL(' ',EXTRA8) ITEM8
75      	ITEM9 = DUPL(' ',EXTRA9) ITEM9
76      	ITEM10 = DUPL(' ',EXTRA10) ITEM10
77      	OUTPUT = ITEM5 '  ' ITEM1 ITEM2 ITEM6 ITEM7 ITEM8 ITEM9 ITEM10 :(LOOP)
78      END