Directory of image this file is from
This file as a plain text file
`(+/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
20H@p@(Y]Ib7b,0lZ+d(#&0@3-Y2sIb2,mZ22{J60*,@)P RN Ib#b/0lZ+(#&,@@**J( @@@@ N MPAI"A HHHHQB$m!< 2! B2 *!'EQEQEQ'M ,PQ$!!'(b)b
l5[ Q 0 ,M )F!QM! P , $AbW`MXFnX\"Z[&],[|`8!<! B ! BcQ"$(hQ"$(m!"M
Q$! "MM M M $! )>!BC ,> QM ,P# B$M
Hr W! $^!FM! ,MhF 3MPAI"AHr 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&cKlh0&mK[z}&}Crk8 +3r!1b/1r)1r-5r7,r(G} &IAfK('H @n&0@498;8 n hKbJn k
0@-bn,F.+b'` <<CE] $$ ((DT]IK]RK]QS]RS]IM]LM]Q4RL4R@hj"jngi"i@ni.dzHifRkRkipbjkk"EL2f@0<;-,Z FnG&c F@b n D`" $KhCa.fF&EF.Gb/n <&OH/"/d/@. "~'" 0?DlD "
I0.(Zz}H/Z|"H_z{b"O2[ h/rz"@rzx@/uy"@rz"(aKCbow"o@ $ 0pspH0 0f20 ,>9/( :="? l9;"@Ho,6I
?8788B!@b@@o'<"89dA:/*0k08 T8 .08 R0.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&2l/B))t+)')&B)|J4C{ 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 8qU|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"GNANANANANA@!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"RR)'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 (I3JD 0
dT0YBCL0YBCPYSCPHRQ@TR0TC@@XAT YBCB3RXSSTSTTURA B@INASG"0MN@MN@@I03I13MX@MX@@A06A16 @DM"LGXX3ICO@SICODSICOHSQDSNCSTNMDO1FXFX"IN%AP@E@5S@ED0XPCE@EI G0N@ @X@@NLADN"PD
GGp@NS0@@RPLE@N@G@L@GLM`ARPWPESRPLGSNCSER EC ECL@IA@O @CDCBCCQCLCCCED X 2E EEEIERHR@@HRGTPTNI4NB4PUE@RPD@
TCTC@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,&SY@ 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 2B9f:;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 HAMF2T._[a;A@#e@xdEUcBR1Be+Jv+w+?&@HpVGx0P RN > )@6 g, p 05);)2) @@
@@``P@@`_,HHHQB$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
@20^@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. xxpR/AHHBZ~NCT.R@A e^%LJxbTbpT`J8.AG BRrApHAHAHA@A\
@llbBTSbtNANANANANA@!AA @S%L1 g/'A& BLq"*BHq u/'&@ "(%|
S{"/\"_"V"#$%Rre[rBrS'( [BBrS'(D@3z Y %}/Re/./A#C"BO%pB/*Rs/*,O./&*|/}RrWpB<.rWEpA/@@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&+ 2CI2L#$"St!@G/CY"BS O CY"BS a CY"<VA#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 BEb],PbU
?!#,!#EL?!??![H'<!b%I ^ @,B#BL `Av%y y y [!}8@$( "t!"
dTC2K" {! zu0@@`p{wtP@`@{"90RCK"At!St!NNSbC,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!NNPRS"t@`0BS"tNA@#~1s#(A=@A, C"@LL"St!sB"+200R2ApHAHAHA@BRq @e`-MPK1CT.F#TM#
A@iqM@l#tT+B}0aLKXC+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[!oXN%p%Xx?&8[yAcx &q8d @?i&C`"q?f?H&Hp!^i0# H!^ix0 O%C`/H!DN%t?if? ?&?h8&_& v? 't$eCtxcP^?C?g"$8Ig [&M\'?dL A"fY
.8uvM%sYtepxdEUhIBHOcHB?&@HpVGx086 /N% Nq%y[!(`c`Hp!hD&!pbXhN!%F%PO[!(B`DN!%yHp!^i1doT582I?BT582 ?BC$?cN%y8Xft$_CH!\taRuh q$`t?D"e$ A?d8h ?$Dd?DI[& xf@.x)"p$8`N$ A?T"?"$N8?dNxC$?dNxIfo P`&&bb%aP`&P+b(`*&P5b2`4&P?3b<`>&PI+bF`H&dVf6A@d`}V6A@+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