fc 126 317 600 m2   TEST PROGRAM  ANALYZE DATA (READ AND CALC.)
(24,6)	OCTAL

DA 0.44040|40|
	si700
	rd		|read in last word of PA
a6,	cac2		|shift the flexo characters in field 0,1
	clh12
	tsc2
	aoa6
	aoa6+2
	aot2
	cpa6
a7,	cac3
	clh12
	tsc3
	aoa7
	aoa7+2
	aot3
	cpa7
	sp2000

t=3000

DA 0.46000|2000|
g1,	cat2+1		|print
	si225		|instructions on
	boc2		|direct printer
	si0		|and stop
	si10		|reset ffs
a1,	si122		|start MT2 in read, forward
	rd		|pick up code word of block
	ck5		|ck 1st code word
	spa4		|if ck, read in first block
a2,	ck7		|if not, ck with 2nd code word
	spa5
	cks2		|see if there is more data on tape
	spa11
	spa1		|if not check, read next block from tape
a3,	si630		|stop tape
	spa10
a4,	cf301		|set to read 1st block into field 0
	cat1+2
	bi100
	cat1+1		|control word for other block
	cpa3		|if other has ben read in, stop tape and continue program
	cs1		|if not, set
	tst1		|control word
	spa1		|read next block from tape
a5,	cf 321		|set to read 2nd block into
	cat1+2		|field 2
	bi100
	cat1
	cpa3
	cs1
	tst1+1
	spa1
a10,	ca0		|reset control words
	tst1
	tst1+1
g2,	cat3+1		|print first instructions
	si225		|select direct printer
	boc3
	si0		|stop to follow instructions
	IN
	isc0
	icr144		|set counter to 100(base 10)
	OUT
	ca24		|pprepare to pick
	ad24		|proper variable
			|after one run, to pick new variable with same data,START OVER at g2+10 in fields 0,1

	spr1+2
r1,	OUT
	cac1		|RC(+18)
	clh20		|put +18 in BR
	abr2+1
	abr2+3
	abr2+6
	abr2+10		|modify instructions
r2,	cf321		|pick up the first
	ca100		|variable
	tst
	ca101
	ts1t
	cf301		|pick up the second
	ca100		|variable
	ts2t
	ca101
	ts3t
	cf331		|set fields to store results
	cas2+1		|see if the number
	ad3t		|is less than C(s2+1)
	cpr5+3
	IN
	ica2t
	its102+c
	isut
	idv2t
	its100+c
r3,	isus1		|store max in s1
	icpr4
	ica100+c
	itss1
	ispr5
r4,	ics100+c		|store min in s1+2
	iads1+2
	icpr5
	ica100+c
	itss1+2
r5,	ici1
	ictr1
	spr6
r5+3,	IN
	ica2t		|if number is less than
	its102+c		|C(s2+1), put the difference
	isut		|in place of the perc. dif.
	its100+c
	ispr5
r6,	cac1+1		|reset routine
	tsr2+1
	tsr2+6
	ad1
	tsr2+3
	tsr2+10
	car7		|go to program in flds 3,4
	cf734
r7,	sp750
	si0
	si10
	spg2+10		|re-enter from fld 4 for next set, same data

DA 0.46500|2500|
t1,+0	+0	+900
c1,+18	ca100
t3,-24	+25
c3,+57	+12	+10	+8	+61
+28	+30	+8	+57	+12
+24	+8	+24	+48	+20
+56	+6	+36	+8	+56
+48	+18	+2	+61	+41
DA 0.45610|1610|
c2,+41	+57	+12	+10	+8
+32	+40	+2	+8	+61
+28	+30	+57	+8	+12
+24	+10	+32	+8	+12
+24	+8	+10	+44	+2
+28	+12	+6	+36	+8
+56	+48	+18	+2	+41
+6	+20	+2	+8	+61
+26	+26	+10	+8	+11
+25	+8	+19	+25	+8
+27	+8	+57	+10	+2
+32	+61	+41
t2,-57	+58


62|s1,
2470|s2,	0.52525	0.55000

START AT 32

