(+/n3.7@?  GN K((@&&U-U&&UB^U4eU&&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&&U&&U&&U\$XY[ W GEb0oK .P(jE
6EO,E
aLoEd,xPJ	K0O0&,{FNDMbl2{:lD
2
0Hp
_`\d%`_d\j6_]5jYl2aa(
+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{nKl
ll*ll*l i	
u.kkmAN2 AIjljplloj ! mmkpllon	p
@@`PP Px	@	l	xp	|
0@
x
zP
|
@`

33S
0@&!hPZ)flOh{plsgtpljzpjo|pfzoirg
ny
cvpnitpfoy
pcsphldpx
cxpphlpeoy
pd~=n;np=~<hp:k<cp:e<fp:Q9Zp:O
7[p;n8Vp8n8gp8j8gp8f8jp7f7jp7n6cp6p6lp6r6pp6m5
p6j4fp5f4Yp4l4gp4h4np3l2yp3v35p33|3wp3z3sp3p2qp2p3pp2s2tp1t3t
p2y2yp2x1vp3|2p2~1yp2}1zp0v1|p1l0tp0s0pp0k0cp0h0np/s0|p0p00p01p01p#0p11
1}p0p11p11p12p12	p22p2~p1r1pp1s1up1x
12p12p22p22p24p
3#4%p43#p44p65p55p
36pC	PROGRAM TO DISPLAY 2 BLOCK SEGMENTS OF DATA TAKEN BY SAMP3.SV
	INTEGER ARRAY
	COMMON ARRAY(411),DUMI(90)
	DIMENSION PLTBUF(900),XBUF(900),BUFFER(700)
	DEFINE FILE 5(730,85,U,IBLK)
	DO 53
8'# 383)#x

(/%} x x #& %#x#%'8n3)) 1% 
13
3
#) k
(/  .1%3
#. 13
3
#3 . 8'#8 #> % 3#C>3#%I. 1
 '+E4=lYt1+'KCS }lt1+'K3g	{)P/N% & % %NX'8s3)AX 
AX 
13
3
#%S 1X 
1X 
13
3
#&X1n
1n
13
3
#A3
A3
13
3
#13
3#%\ a 3#f 22 
2%f. 1
 '+`0lr3,6ITR lt3,6IN lt@*k !#!#o !#x 8 (
3)nx#x(3#0
} 8 
3)a0
30%
kk3
#k 	(/0kk

(/_k2/d%k
J}
#a'#/s%03
#}

J}
#a8#/s%0o o 3
#o
J}
#a3#%s&}&x%0038
3)

2
#}0
}0
7#

<
#%#.01
 	+,X\' 5l732;,Qi'n,\ KP'n=)@%&-038C3)11-
#61-3

#;0A-0
#@012;2062%@.01
 '+A#g	{,X]'M2Dg	,=X'[ZD!g	{)PE613
#J;
1
#P0;0103
#U060;03
#Z0P0U
03#`
P#f0U0#l1
#ql#
!
#w;
#|w#Pu

(/0-2r2 P2%.0)1
1'+# U0gA	,<`FTHl	r +`SRE NPMNIND1 
3E3'	ko@Z/d%@
18;03)V@103
#%.01
 '+(AR}:l735;,Vi	E#)gn=i@
%A B@INASG"0MN@MN@@I03I13MX@MX@@A06A16	@DM"LGLGp@XX3ICO@
SICOD
SICOH
SQDSNCSTNMDO1FXFX"IN%AP@E@5S@ED0XPCE@EI 
G0N@@X@@NLADN"PDGGp@N
S

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


20TN@HEF0APC0L@PDpOP$O*O-O0O2P8O
;O>O?O}?PtCpOlDNjApNbENdCpOkHNmJpNnSNyRpN
VNXN
ZN	ZNZNYO\N^N_N_N^O`N`N`N_N_OaNcNcNcNbOdNeNeNdNbOcNbNaN^N\O]N\N\NZNXOZN[N[NZN[O^N_N_O_N_OcOeOdOcN`O`O^O]O\NZO\O]O]O\OZO\O[OYOX
OVOXOXOWOVOTPVOTOSO
QOOOOOLOJOHOFOFODOCOBO@PBO
AO
?O
<O9P9O
8O
8O6O
5P7O6O5O3O2P3O
3O2O
2O1P3O3O4O4O
5P8O:O:O:pO:P<O<O)O:O9P
<O~<pO:O8O8P8O9O8O8O8P:O;O:O:O9P;O<O
:O:O9P:O
:O9O8O8P8O9O8O8@Lx
t
#&t}@k[
P0;8603)@@;03
#%@k@
@
z@
#
@}
k[|
U=(/@
|(/[@
#/@%[
['
[

#[@
#%@'(/$@[

#/)%$@=(/.@
|(/)8(/3@[
[3
[|
#/)@%3=8603)A@=@@3
#%8@kA@
=@
#&=@F63
#}
kKF[@
[3
[|0
K
#/)@%.18;
3) 
(/V@[#%Q&%V@f@;8063)f

	(/jo@f#@%a&@f@%jz;8o@3)~@z@;03
#P	Pz@10;0%uk~
z
	#&zPo@;03
#}@kPP[
[3
#P180[3)!13
#&1;%Pk!P
	PP
#&P+[13
#}
k0+[@
['
0P#%
[8
[3
['

#[=
[
[|0

#[5
[
[

#[:P
[
['
[

#[?P
[|0
[3
[

#[DP
[:P
[3

[

#[IP
[?P
['

[

#[L
[:P
[?P

#[a
[D
[I

#SP38a3)X[S
J#]PbPSP8#gP]P3
#%k.1 "'O3g	{)Pg0puUzP%pXZ#/N
P%uX`#/NP%zXf#%NP8PS2[SP
2&SP%.1 "	,<X[.)l%(&0-0r8(/d
r r 3
#38 3) # 3 
(/P%
33
#&%P #  3# r 8(/P>8n3)) 1P
1> 
3
#) k
(/P
13
1> 
3
#"P. 
3#3 "P8'#8 #'PP3#-'>#/3P%&%P18P
8 3
#%3P> s(/=PB1C3

#GPAC 3

#X>3
8s
3)QX>3
#VX#r8(VVC#AQP
AVP
BP3
#%LP1QP
1VP
BP3
#&X%=P8Pn> 3
#C 8P3#18
1n

B3
#r
8(18
1[
B3
#A3
GB3
#13
3#r8(/\> '#PC -#P[P8#P/\ %_
.11"'2 ;VR1WMNINn4lX	)=%d+$AC 3

#X>3
8s
3)QX>3
#VX#r8(VVC#AQP	EXTERN	LINE
	EXTERN	LINEV
	EXTERN	MOD
	EXTERN	QTFE
	EXTERN	TRANS
	JA	#ST
#XR,	ORG	.+10
	TEXT	+MAIN  +
#RET,	SETX	#XR
	SETB	#BASE
	JA	.+3
#BASE,	ORG	.+6
	ORG	#BASE+30
	FNOP
	JA	#RET
	FNOP
#GOBAK,	0;0
AB,	ORG	.+0003
AD,	ORG	.+0003
ADCBA,	ORG	.+0003
BC,	ORG	.+0003
BR,	ORG	.+0003
CASE,	ORG	.+0003
CLAC,	ORG	.+0003
CLEAR,	ORG	.+0003
CLUB,	ORG	.+0003
DELTAA,	ORG	.+0003
DELTAB,	ORG	.+0003
DELTAC,	ORG	.+0003
DELTAD,	ORG	.+0003
DEPTH,	ORG	.+0003
DYC,	ORG	.+0003
DYE,	ORG	.+0003
ENDA,	ORG	.+0003
HV,	ORG	.+0003
IA,	ORG	.+0003
IALF,	ORG	.+0003
IAM,	ORG	.+0003
IBA,	ORG	.+0003
IBL,	ORG	.+0003
IC,	ORG	.+0003
ICASE,	ORG	.+0003
ICHECK,	ORG	.+0003
ICUR,	ORG	.+0003
ID,	ORG	.+0003
IDEA,	ORG	.+0003
IDER,	ORG	.+0003
IDO,	ORG	.+0003
I"F6 N$6%FQ%J$:$ N%$c

n
|`(!z{| {K(Q( 	~G}
&06z
|0b!{if>f;<"
FnziQ@pSCSc&!LM.K0yK(xK(Q0
zI
]AyY4TMAR0 X
  ES3   z
lb"H~Fna	#'
)W3K<_lra&N,[_b(ze[
^6	^Cx(w_e`Fnx`cVdW6Ca.^	L^0?/.E"`9z^c(:z f[&V VbJ
n
VbV n^d	^C`Xc'LU,~(/y]9c
@0`v9=	_B}]&]]6] /e|2v_b

L
w	v]&e3
&o}?x"""Bu(~""ts"&x0 t$k;CM(&"@"z6"bc70~"0CjMG
0r }0&@/3~"66&C|%{q)~0"
~p'&@>uo %u&sr&4H/Cz)< hhC(M{<<b!;f@/zMM0yh&h<6<!.;xbwgv[{@A"?X"rJA6)b6mgfD}
LG(*A	C

n
|`
&
(?4
.fnb""cac 0z"DJ"Cx$
"bt"

n~}'cx!"n0"{4z
	:
7
'"&ff"7"D<$&Dn"Mh/v)8d"
"b#Nkn&M"@T{ ?TTK>>|9>>4| bm)m`U((/g;2_Ugu.!xJ&NW?
(?R})
<Gi#x	~~rb!g
'}(&|+&f,f{=&z2&yx)wx)(6 /T($+&J6J +f(/&.>&.v"W/utxsrbq= py
oCPc
IG
w		Kn' b

n
aha(W0| {| {)am7vF*
:&3 0N)C0C`7$n^t`FA,&d=b=fn,h==t==2D 8%=&2&0.fo =;
}`	 0V>b
VbnVVbn`~)
-J})	ff	}9>J	!6	j8W!|{
l	<}!Hzr{)d: >f!.)d>!by`)Wxwdnv})>&	)8jS0T0
@
c
W0)
8ZX

,$
CD/	@)%
@@*
(
8=Z


&D
2Uq@+X2
n/
2
i#
2]
@,
2Pa@-
2}	q1 "N`b_)@.
/ r@*@/
2	q1 "	`b/)@0
/ r@*@1X2



















	JSR	#EXITXIT0503,7i)&.6'6
L~T/r}]	Bt.B{G(.|91!. /=2"({{zi"A
lTb	,c]{2e0(G{|d6
TIq	L	6	c),r)		Ci
r	i(]	y){b4lgg"&
<osi1H@
@>_`5$n@
SFV,	ORG	.+0003
SR,	ORG	.+0003
TIDVOL,	ORG	.+0003
TLIT,	ORG	.+0003
TLMIN,	ORG	.+0003
TOUP,	ORG	.+0003
UPTO,	ORG	.+0003
VCHECK,	ORG	.+0003
#TMP,	ORG	.+0011
#LIT,	0000
	0000
	0000
	0001
	2000
	0000
	0002
	2000
	0000
	0002
	3000
	0000
	0003
	2000
	0000
	0003
	2400
	0000
	0003
	3000
	0000
	0003
	3400
	0000
	0004
	2000
	0000
	0004
	2200
	0000
	0004
	2400
	0000
	0004
	2600
	0000
	0004
	3000
	0000
	0004
	3200
	0000
	0004
	3400
	0000
	0004
	3600
	0000
	0005
	2000
	0000
	0005
	2400
	0000
	0007
	2200
	0000
	0007
	2640
	0000
	0010
	3770
	0000
	0011
	3154
	0000
	0011
	3560
	0000
	0011
	3564
	0000
	0011
	3724
	0000
	0013
	2525
	0000
	0000
	0000
	0000
	0000
	2000
	0000
	0001
	2000
	0000
	0002
	2000
	0000
	0005
	3600
	0000
	0000
	JA	ARRAY-0003
	0000
	JA	DIF-0003
	0000
	JA	DUMI-0003
	0000
	JA	DYCO-0003
	0000
	JA	DYCOE-0003
	0000
	JA	NAME-0003
	0000
	JA	NONEDO-0003
	0000
	JA	NONEUP-0003
	0000
	JA	P-0003
	0000
	JA	PROUT-0003
	0000
	JA	Q-0003
	0000
	JA	V-0003
DIF,	ORG	.+0330
DYCOE,	ORG	.+0330
NAME,	ORG	.+0006
NONEDO,	ORG	.+0074
NONEUP,	ORG	.+0074
PROUT,	ORG	.+0055
	#LBL=.
	COMMON
ARRAY,	ORG	.+2321
DUMI,	ORG	.+0416
MANU,	ORG	.+0003
BLNO,	ORG	.+0003
	COMMON	DC
Q,	ORG	.+2627
V,	ORG	.+2627
P,	ORG	.+2627
	ORG	ARRAY+0000-0000
DYCO,	ORG	.+2737
	ORG	#LBL
#ST,	BASE	#BASE
	SETB	#BASE
	SETX	#XR
	LDX	0002,0
	LDX	0003,0
	LDX	0004,0
	LDX	0005,0
	LDX	0006,0
	LDX	0007,0
	LDX	0010,0
	EXTERN	#W
^6q~&$}"H|r~H. f0!b{b

l
	<&Jnk56g08f))f))f
n;"<=&
0b,dz0'
y2ti%'xy
0ki?Neimi?ki?mi?mi?m)?EiFf~w ?v|3H td"fuP"
(ZU#8CVR1R@VR	A@18I<kr+PU	p>vy!fn$(/]"@zr0!f0r (z(/$X!f$"k><*]#*|y\Z*X0"r(]g#fc
@n#
2f~"2gr"
r#r
'gp'&0b*0r (<z'h9 'bfn(?<"(bz@&c##7%cn"":z]J]JB
'g~'&$!"iy'c}"@Oi .F."c%#s&v{lqz;%q*a:jGOt)~}|N(/{2bziz)m&Ykf+(f#	"y	xin$J /P("fnl		< (o
. ?$)x) bwc(rvs+'1Bk~i0}is"kbld{+
$r dz
}IzEY!.k&u$^o&Yk&on& Xb		lPV5X
pgek%@/|zLerP&[R(/"q~tBFg~lif.H>(}
 ..r|/r{/r@ubo./F
2fzy'x&
gw' .bH/bnf
g'2"2yevV$qW}!>cnFd72'5'5$R;*&lui%j(Z"&"J.x"btt)#@>&&7%cn"%Zzm X(@*d0;)9#.'/~',(/0&
}C<	lv_|q)zvn /&
{Cz	|Cytx7 w'
vC}2FXon~v
<g	u22P3b8<zvi2t's&v	<x2'2'
}IcH
`	rB	qbjbc66bJnn	6o 	s	s	tUJp6& fk4	c
lnbd&iCA
n5T32=Fn x(/	 .({j&
h	9j(&&l(# zi&~ &}y."hzvdwxi&oD%>5f&@>/>&/&'>/&%c.>&>j  &z.%'>.&)L2g02fsgrtphU#"wGR9"a>% ?^##a&cU{
%7#&7U67	C	(Oe6(+"+b(ekly|I2A@@@@Xga4@
@@
+l@*/*@	
:f
@
,&B@p
Uv@U
`@@
N/X @`U! `@`U! `F@[ybory)@B+@p2B+@p@@X4

@;h
P
,Bv@@
@@
;
,)9-Z

,B!@p3B1@X4

@;h
P
,BAv@@
@@
,@
3,)b9ZY

DW/@3B @`X!4!

`;hU

D~/`@ `@!
@" 
@@#
3
,)9-Z

,B@$S@%
@@&
)9ZY

 D3 @'!
@(
)9Z

,$BD@)%
@@*
(9ZY

&DU @+[&n !i$])@,P/@-} 1 "N`b_)@. 
r@*@/ 1 "	`b/)@0 
r@*@1X 24
	4004
	0124
	0554
	4004
	0124
	0540
	0116
	0114
	3132
	0504
	4054
	2325
	0212
	0503
	2440
	1601
	1505
	5447
	5747
	4004
	0520
	2410
	4001
	1604
	4024
	1005
	4011
	1605
	2224
	4007
	0123
	5647
	5740
	4740
	5062
	1166
	5462
	0166
	5406
	6656
	6054
	0166
	5147
	5100
	LDX	0020,0
	EXTERN	#READO
	TRAP3	#READO
	JA	#LIT+0014
	JA	#6+2
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IDEA
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	IDER
	FLDA	#LIT+0003
	ATX	7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	NAME-0003,7
	FLDA	#LIT+0006
	ATX	6
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	NAME-0003,6
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	DEPTH
	EXTERN	#RSVO
	TRAP3	#RSVO
	FSTA	INGAS
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0021,0
	EXTERN	#WRITO
	TRAP3	#WRITO
	JA	#LIT+0011
	JA	#7+2
	FLDA	IDEA
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	IDER
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	#LIT+0003
	ATX	7
	FLDA	NAME-0003,7
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	#LIT+0006
	ATX	6
	FLDA	NAME-0003,6
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	DEPTH
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	INGAS
	EXTERN	#RSVO
	TRAP3	#RSVO
	FLDA	MANU
	EXTERN	#RSVO
	TRAP3	#RSVO
	EXTERN	#RENDO
	TRAP3	#RENDO
	LDX	0022,0
	FLDA	#LIT+0113
	FSTA	MAXNO
	LDX	0023,0
	FLDA	#LIT+0102
	FSTA	NMAX
	LDX	0024,0
	FLDA	#LIT+0066
	FSTA	LITDY
O7O8O8O7O6O4P5O5O
2O1O0P0O0O/O
.O-P.O.O,O+O*P+O+O
(O
'O&P'O&O$O
#O
"P
"O#O!pO~ O O
!O!O OOOOOOOOO
OO~pO~OpO}OpOO
O
O OOpOO O!OO O O
!O#O"O"O"O$O
%O
#O$O$O'O
(O
'O
(O(O)O+O)O*O*O,O
,
,O,O,O.O0O0O
1O2O4O
6O
5O
6O7O8O:O:O<O=O@OBOBOCOCODOEOCOAOAOAO@O>O=O<O<O<O9O8O8O9O8O
6O4O3O3O2O-O*O&O$O O
OOOOpO}
O|pOOOOpO
ONO
O
O
OOO
OOO
O
OO
O
OO
OOOoOPOOOO
OO|pO|O~pOOOOO~O|pO|O|pOzO|pO~OpO~O~pOOOOpP~O|pO|O~pO}N|pNzO|pN|N|pNzN{pNSnD`A

HA
MF
2/&C&TC 	x
x &/	` `	xpx
`SnA`

HA
HA@B[tYC`r/Ra
@@`%LP
KSF/&n&/VKAbGn&Sn&A
H
HH

BR@A
@V-M
Kr/SbnA`


HAHAHA@
A\
@l
lbB/apL'I'KrSrYqpS'_r\p^'irfph's3rppr'}+rzp|'
M	NQOONO.PN$T1P#Q.S$N T#R R!VM!SSTWRX!SS)XRX!V"V W!T!Z)VW)[V

Note: Lines longer than 256 characters were wrapped