`

(+/n3.7;N? C GN K((@&&U&ZV&lUaze-^U)0f&eU&&U&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U&&U3
[@
9
,
3
@GEb0oK .P(jE6EO,E
aLoEd,xPJ	K0O0&,{FNDMbl2{:lD
2
0H@p
@(Y]Ib7b,0lZ+d(#&0@3-Y2sIb2,mZ22{J60*,@)P RN  Ib#b/0lZ+(#&,@@**J(	@
@

@

@
 N 
MPAI"A HHHH

QB$
m!
<

2!

B2

*!
'
EQEQEQ
'M

 	,PQ$!!'(b)bl
5[	Q	0

	,
M 	)F!QM!
	P	,
$AbW
`
MXFnX\"Z[&]
,[|`
8!
<!

B

!

B
cQ"$

(hQ"$

(m
!"M	Q$!
		"MM 	M	M $!	)>!
BC	,
>	QM	,P
#	 
B$M
Hr 	W!	$^!
FM!	,MhF 3
MPAI"AH

r 	M !!@@G}l}|0[

}f
}C{}9l0;6}}D}}C7&}$}|2&
L~8|#0[}
}C~}d}}C{;;V}d}}D}	2WlR&
L~8|F0bFn|"[0&cK
lh0&mK[z}&}Crk8 +3r!1b/1r)1r-5r7,r(G}
&IA
fK
('H 
@n&
0@
4
9
8
;
8





n
	hKbJn 	k	0@-bn,F.+b'`	<
<CE] $$ ((DT]IK]RK]QS]RS]IM]LM]Q4RL4R@hj"jngi"i@ni.dzHif
RkRkipbjkk"EL2f@0<;
-
,Z
 FnG&c	F@b

n
D`" $KhCa.fF&EF.Gb/n	<&OH/"/d/@.	"
~'" 0?D
lD "I0
.(Zz}H/Z|"H_z{b"O2[ h/rz"@rzx@/uy"@rz"(aKCbow"o@ $
0pspH
0 0f20	,>9/( :="?
l9;"@Ho,6I
?8788B!@b@@o'<"89dA:/*0
k
08 T
8
 .
08
 R
0.4Y644B!@b@@oM<"4BmYb  VzYF-ZjY@/c.5(/56aK

LmQZZ 9H/o9&5NA .9Bmf0h9@/v="(@}sK xf
+D+G/+$+t+C-G-0 1+'-
L.K
&2

l/B))t+)')&B)
|
J

4
C{	4K2
22*22*22*22*22*22*2 X
HH4jjrj0@1h$hktHT2IHkKI&
/BfhrffGf&Bf|I 
n
@u{OnKl
ll*ll*l z$w$wFnwj"pr&
rC&kbrzbslbtybnF0bos9<rrtstD,0"&:|vk)xwF.wbpr&
rGfvb`hzdwbJ
nmu&os&mt&
sC9uGsuDt@J
(BrrtVubmq"r|rr{ruBqr'ruBrrtfrgr&Brrtrrt'r'rrGK
8
qU|r[SR576BW nWF&` n,oLYp|Y|Yp
|Z[.
lZ

]*a6&-
,Z\,Yp|Yp
|6rt6 /O .Q7"!g.Bt`/?



n`9jbpE&M?0@h
pi@/~%%@M\
&Z&E&tu.z@tb

n
o`sKt*
Mwqpb/\b1\b6Eb4`x0ot/u.Iz@/bo/t.n/ |!/2ytE q np\&rq npZ&suu.vr@ bo
@nq npE&M?0@p@oL@r(
@AN2 AIbb`@`	0PP
 @& ;`?*U Y.\id{$:@P

B[a[LYblB{B:@P 4@P!4 Ro
@nR"G
NANANANANA@!AA @
Q
@`P@@@p@	0@
P
~p@
@@@Y`@P @zu~?zN~fvfo@LtL@}'50>#B`'%p;'Y`{  /@BU
*{r	Ar/@
BU
*E	rpl @lR)HR)@ R"RR)'ABU(
RR'ABU("T'R	'
RR'L
@'R{'l'%"\|R'#
$
D@&(&@2"(C
&+0003
	JSR	XYPLOT
	JA	.+0010
	JA	#LIT+0060
	JA	#TMP+0000
	JA	#TMP+0003
	LDX	0024,0

#5,	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	ITTY
	JA	#10+2
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0025,0

#10,	JA	.+0024
	5061
	3054
	4204
	1123
	2014
	0131
	4027
	1011
	0310
	4023
	1722
	2405
	0440
	0611
	1405
	4042
	5444
	5100
	LDX	0026,0
	EXTERN	#READO
	TRAP3	#READO
	JA	ITTY
	JA	#20+2
	LDX	-0003,1
#G0005,	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	FILE-27767,1
	JXN	#G0005,1+
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0027,0

#20,	JA	.+0005
	5063
	0166
	5100
	LDX	0030,0
	JSR	USR
	JA	.+0012
	JA	IDSK
	JA	FILE
	JA	#LIT+0006
	JA	ERR
	LDX	0031,0
	FLDA	ERR
	FSUB	#LIT+0000
	JNE	#5
	LDX	0032,0
	JSR	IRAN
	JA	.+0010
	JA	IDSK
	JA	#LIT+0041
	JA	#LIT+0014
	FSTA	TOTRUN
	LDX	0033,0
	FLDA	#LIT+0000
	FSTA	TOTTRI
	LDX	0034,0
	JSR	SCALE
	JA	.+0012
	JA	#LIT+0000
	JA	#LIT+0000
	JA	#LIT+0055
	JA	#LIT+0055
	LDX	0035,0
	FLDA	#LIT+0003
	FSTA	I
	FLDA	TOTRUN
	FSTA	#DOTMP+0000

#G0006,	LDX	0036,0
	FLDA	I
	ATX	7
	FLDA	I
	FMUL	#LIT+0011
	FADD	#LIT+0041
	FSTA	#TMP+0003
	JSR	IRAN
	JA	.+0010
	JA	IDSK
	JA	#TMP+0003
	JA	#LIT+0014
	FSTA	IRUNTB-0003,7
	LDX	0037,0

#100,	FLDA	I
	ATX	7
	FLDA	TOTTRI
	FADD	IRUNTB-0003,7
	FSTA	TOTTRI
	FLDA	I
	FADD	#LIT+0003
	FSTA	I
	FSUB	#DOTMP+0000
	JLE	#G0006
	LDX	0040,0
	FLDA	#LIT+0000
	FSTA	I1
	LDX	0041,0
	FLDA	#LIT+0003
	FSTA	I01
	FLDA	TOTRUN
	FSTA	#DOTMP+0003

#G0007,	LDX	0042,0
	FLDA	#LIT+0003
	FSTA	I02
	FLDA	I01
	ATX	7
	FLDA	IRUNTB-0003,7
	FSTA	#DOTMP+0006

#G0010,	LDX	0043,0
	FLDA	I1
	FADD	#LIT+0003
	FSTA	I1
	LDX	0044,0
	FLDA	TOTRUN
	FADD	I1
	FMUL	#LIT+0011
	FADD	#LIT+0041
	FSTA	#TMP+0003
	JSR	IRAN
	JA	.+0010
	JA	IDSK
	JA	#TMP+0003
	JA	#LIT+0014
	FSTA	PTR
	LDX	0045,0
	JSR	CLRPLT
	JA	.+0006
	JA	#LIT+0052
	JA	BUFFER
	LDX	0046,0
	FLDA	PLTCNT
	FSUB	#LIT+0003
	JNE	#33
	LDX	0047,0
	FLDA	#LIT+0000
	FSTA	LINE

#G0011,	LDX	0050,0
	JSR	FLOAT
	JA	.+0004
	JA	LINE
	FSTA	#TMP+0003
	JSR	XYPLOT
	JA	.+0010
	JA	#LIT+0060
	JA	#TMP+0003
	JA	#LIT+0006
	LDX	0051,0
	JSR	FLOAT
	JA	.+0004
	JA	LINE
	FADD	#LIT+0063
	FSTA	#TMP+0003
	JSR	XYPLOT
	JA	.+0010
	JA	#LIT+0060
	JA	#TMP+0003
	JA	#LIT+0006
	LDX	0052,0
	JSR	FLOAT
	JA	.+0004
	JA	LINE
	FADD	#LIT+0003
	FSTA	#TMP+0003
	JSR	XYPLOT
	JA	.+0010
	JA	#LIT+0060
	JA	#TMP+0003
	JA	#LIT+0011
	LDX	0053,0

#44,	FLDA	LINE
	FADD	#LIT+0003
	FSTA	LINE
	FSUB	#LIT+0030
	JLE	#G0011
	LDX	0054,0
	FLDA	#LIT+0110
	FMUL	HT
	FNEG
	FADD	#LIT+0077
	FDIV	#LIT+0071
	FSTA	#TMP+0003
	JSR	SYMBOL
	JA	.+0016
	JA	#TMP+0003
	JA	#LIT+0102
	JA	HT
	JA	FILE
	JA	ANGH
	JA	#LIT+0033
	LDX	0055,0

#33,	LDX	0056,0
	JSR	IRAN
	JA	.+0010
	JA	IDSK
	JA	PTR
	JA	#LIT+0014
	FSTA	TOTCLS
	LDX	0057,0
	FLDA	TOTCLS
	FSUB	#LIT+0017
	JLE	#G0012
	FLDA	#LIT+0017
	FSTA	TOTCLS
#G0012,	LDX	0060,0
	FLDA	PLTCNT
	ATX	7
	FLDA	XPOS-0003,7
	FSUB	#LIT+0140
	FSTA	#TMP+0003
	FLDA	#LIT+0003
	FNEG
	FSTA	#TMPX+0000
	XTA	7
	FMUL	#LIT+0011
	ALN	0
	STARTD
	FADD	#LIT+0171
	FSTA	#G0013,PTR,4)
	IF(TOTCLS.GT.5)TOTCLS=5
C...	PUT OUT RUN /TRAIL ON LEFT OF EACH SECTION
	CALL NUMBER(XPOS(PLTCNT)-.3,YPOS(PLTCNT),HT,I01
     1  ,ANGV,-1)
	CALL WHERE(X,Y,Z)
	CALL SYMBOL(X,Y,HT,1H/,ANGV,1)
	CALL WHERE(X,Y,Z)
	CALL NUMBER(X,Y,HT,I02,ANGV,-1)
C...	LOOP FOR ALL THE CLASSES FOR THIS TRIAL
	IF((TOTCLS.EQ.0).OR.(PTR.EQ.0))GO TO 300
	DO 300 I2=1,TOTCLS
C...	ASSIGN THE POINTER FOR EACH CLASS
	CP=IRAN(IDSK,PTR+I2*3,4)
C...	NOW READ OUT THE TEMPLATE
	DO 400 I3=1,23
 400	SPIKE(I3)=IRAN(IDSK,CP+3+3*I3,4)
	YSCL=1.0/1024.0
C...	PLOT THIS SPIKE
	CALL XYPLOT(XPOS(PLTCNT),YPOS(PLTCNT)+SPIKE(1)*YSCL,3)
	DO 500 I3=1,23
	CALL XYPLOT(XPOS(PLTCNT)+(I3-1)/23.0,
     1  YPOS(PLTCNT)+SPIKE(I3)*YSCL,2)
 500	CALL PLOT(1,XOFF(I2)+I3*10,YOFF(I2)+SPIKE(I3)/3.0)
C...	WRITE OUT THE SPIKE NUMBER
	NUMSPK=IRAN(IDSK,CP+3,4)
	CALL NUMBER(XPOS(PLTCNT)+.2,YPOS(PLTCNT)-.25,HT,
     1  NUMSPK,ANGH,-1)
	PLTCNT=PLTCNT+1
 300	CONTINUE
C...	NOTE THE RESULT OF INTEGER ARITHMETIC
	PLTCNT=1+((PLTCNT+4)/5)*5
	IF(PLTCNT.LT.50)GO TO 200
	PLTCNT=1
C...	EJECT TO NEW PAGE
	CALL XYPLOT(8.5,0.0,-3)
 200	CONTINUE
	CALL PLEXIT
	STOP
	END
(I3
JD	0dT0YBCL0YBCPYSCPHRQ@
TR0TC@@XAT YBCB3RXSSTSTTURA B@INASG"0MN@MN@@I03I13MX@MX@@A06A16	@DM"LGXX3ICO@
SICOD
SICOH
SQDSNCSTNMDO1FXFX"IN%AP@E@5S@ED0XPCE@EI 
G0N@
@X@@NLADN"PDGGp@NS

0@@RPLE@N@
G@
L@
GLM`AR
PW
PESRPLGSNCSER EC ECL@IA@O
@CDCBCCQ
CLC
CCED X	2E	EEEIERHR@@HRGT
PTNI4NB4PUE@R
PD@TCTC@L0CL@@DS@
TN@HEF0APC0L@PDLGp@

20YCLC@ C	0	ESRN F#0p	@`
	@
`	@`

P@P
`@@`
P@P
`@@`
P@P
`@@`
P@P
`@@`
P@P
`@@`
$
$`
$
0@
0
0@	0	0@	0@`PP@@@@@ppp``PPP@@```@@
@

@

@I&A&@@@@@@@@	@
@@)@,@?@5
@B@&@[c#,(V''@<"(@#[r!>(2'y&|&@`F&L(`@^(1,&SY@	HR5 	"8$@:@`F&t(A}`ASJhH`@w(3v @@ [!Cb82r:@`%"B@@YCb#r|@%@Z!/*)''/'/'@&!@0(0#YBCCb|b:}>@0:>3@&,![1)@ %@!&$@
"&@:
>='@0#&,@$(0#YBCb|b|@%Z?+
),''@&&"q)@'%@(ZT+)X&#[Br'2r|b@p)ZT2/X6b#[Br;2r|b@p*ZT2CX&b#[BrO2r|b@p+&,-B@,=:8&#ZBEro|bDr=b821b@p-@.Y}Cbab|@/***@0:%E#L&-[(M-  Zc+**|& *=&I&4&-+@1[D#6*m&p&v&@2ZE/H*m&p&=&}
4&'@3[D#T*m&p&v&@4&-[Zc+j*m&p&=&L&4&-+@5%S&-[%S&-;"Z+@6&*@07(-[Y *C&-+'@@8&@@9(--(0-=-Y2/"Cb-2:}B`&,/B@ :7@ l@;&2B :Y}-0(KUZ[r["U"-2@p<&@@=&>F:%7-[2B :Y}0[2r}"-202@p>-:}0
2
B9f:;73[Z3.+'0+3+&/D_*@?(3[Y 0+C&3+'@@@:
%Cr3[:YDM6&09Z2c2S23262=b[b1b9@0A&,@B&E*2
@ C(*&S#*&@@D1*B@0E&@@F(9[2r2Ar2r9@0G&,'[i)&E$2_@H[@0IX@JX&?h8&_& v? 't$eCtxcP^?RBDpA


HA
MF
2T._[a;

A
@
#e@xdEUcBR1Be+Jv+w+?&@HpVGx0P RN  >	)@6 g, p 05);)2)	@
@

@
@``P@
@`_,HHH

QB$
m 
<

2 

B2

* 
'
EQEQEQ

'M

	,PQ$! 'b@@Be+Jv+A
LHHHHHH@@@@@:_\@DE,@@@	g\[VbiBgL@
S<@@@"@SF#@d*-@@@w@@2B
@`ZT2RB@L"SF<@@@*^@[h&8-&,:_\@:_"H@@,*^.-@@,@2
.@*A.@@@ :_@@
*BA@`A--@`"@@@[hbR&:M_@@ :_\@@!,-^}-@"!@@#
*B@`$:
_D*R.@%@2_:-_@@&@:_"BR@`'@ :_\"s-@(@@)

Bs@P*@:_@@+R@`,@2
_B:_\@-@@."BG@P/@@0,@1@20^@3 2
_:M_@@4,0^.@5:_@@6R@`7!@8
.@9*.@:S?&@SB5b"
.@;x^z`|^`[r .x.z.|.b,.#,@<!,@=`2,.`@>&.'(MP FCGT`$ 5myLo@@?!,
<CE] $hdT 8	xxp 8`T.	 	xxp
R/A
H
H
BZ~NCT.R@A
e^%L
JxbTbpT`J8.AG BRrAp


HAHAHA@
A\
@l
lbBTSbtNANANANANA@!AA @
S%L
1
g/'A&
BLq"*BHq
u/'&@
"(%|S{"/\"_"V"#$%Rre[rBrS'( [BBrS'(D@3z Y %}/Re/./A#C"BO%pB/*Rs/*,O./&*|/}RrWpB<.rWEp
A/@@C
(*BWreAr/@@
C
(*E@erspl @lSC"HSC"@ S"C,SC,SK"s/A0C"
R./A0C"#0 Re/
R
/L
 RW/H %#8Rs/#
$
D@&i &@3~ cC
&+ 
2C
I2L#$"St!@G/CY"BS 
O CY"BS 
a  CY"

<V
A#SC"C"{NT'(	l< b	3S5 HC# K4 5 	GLL`
E'8,A,'X
@  . @@@S 
@`p@PPC# K4 AHAHAQHH@/Ce		@

 #&!C# @
`hAq%bAPAB%dA#PC# `QjBQFw@$(C#n+Sp3S@
BlBsBG
9_Uy_U
,PASBIlS?&#"XSBIlS?&#"\[B@rF^
#B BE
b
],P
bU?!#,!#EL?!??![H'<!b%I ^ @,B#BL	`Av%
y y y [!

}8@$(	
"t!"dTC2K"  {! zu
0@
@`p{wtP@`@{"90RCK"A
t!St!NN
SbC,SC,SC"HSC"AB. SC"A("C"B< 0"
bM"C"C"K LS"BZ  3d"
h"
AoI t"IyI B
3##
SC"A/$C 3##


f0A/$C
(@&#+/#L{"+50@B @BJ B,0)A
@"St!NNPRS"t@`0BS"tNA@#~1s#(A=@A, C"
@LL"St!
sB"+200R2Ap

HA
HAHA@BRq
@e`-MP
K1CT.F#TM#
A@iqM
@l#tT
+B}0a
LKXC
+Bw1BF1GBF0tf#
@L$I C C"KB@
@
HmpHmgHm p$;tOA^y4{M}?rZU
x@;TC"KBA@

@3e$;$@;F@(D+w$@+B~@L3$;@;$H
H((((;D;BBO@` HC'$K$$ 
HmgR
	SETB	#BASE
	S  @@$@TC'KB$A@

,[$@$*$`#%y[!oX
N%p%Xx?&8[yAcx 	&q8d @?i&C`"q?f?H&Hp!^i0#	H!^ix0 O%C`/H!DN%t?i
f? ?&?h8&_& v? 't$eCtxcP^?C?g"$8Ig	[&M\'?dL
A"fY.8uvM%sYtepxdEUhIBHOcHB?&@HpVGx086 /N%
 Nq%y[!(`c`Hp!hD&!pbXh
N!%F%PO[!(B`DN!%yHp!^i1doT582I?BT582	?BC$?c
N
%y8Xft$_CH!\taRuh q$`t?D"e$ A?d8h
?$Dd?DI[& xf@.x)"p$8`N$ A?T"?"$N8?d
NxC$?dNxIfo
	

P`&&bb%aP`&P+b(`*&P5b2`4&P?3b<`>&PI+bF`H&
dVf6

A
@
d`}V6

A
@
+y`}`HR@C'K'	FSTA	IJK
	FSUB	# p$'&'$WCKrAp

HaHA@&'S&'
$'S&'
!b$O}
	TRAP3	#RSVO
	FSTA	ITYPE
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	J
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	K
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	L
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0027,0
	FLDA	#LIT+0003
	FSTA	IJK

#G0004,	LDX	0030,0
	FLDA	#LIT+0003
	FSTA	JK

Note: Lines longer than 256 characters were wrapped