Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-13 - bldscr.exe
There are 2 other files named bldscr.exe in the archive. Click here to see a list.
?p`?xE2&8yKb*!|u`&INXQF:ys~"?{rE@B0"c
t++*>	`: R+R98+
KeyBoard  Display   /NOS [No source generated]    File name:     .    .scr .for [End of BldScr](A)(1X,' ')H8H9H;H?HAHBHCH0H1H5+ -<$C<|,QC<|,dC<, @4C<
, @2C<,6D3+]C<,(5 ]C<
,*r7D3+bC<|,$C<,fC< $5&m D4 4/( 
4/
 J6hO H6C<,(4 n 4 D2:48&f D4 $3$2 D2 2/$ D6 $dO D6C<,'* 2/$ D6 $dO D6C<,'*C<},C<,&j,&rC<,*rC<|,&up@P@Qh@Q@6@Nh@P@6@Mp@6@Lx@Ox@Kp@O@Jh@O@7@3x@Ix@Hx@<p@$4@NFp@:Op@$2@NGx@D[BldScr - version   ]    
    H	HHHHHH:ION; \C<:,'C<9,'C<8,pC<7," @5@* $ DC<6,f /$ D $d  DC<5,fC<4,fC<3,f ,~x@x@x@x@x@ x@ p@"@p@!@IGAAAA
IRCLDM 
"Display   .         DTA  sequentialsequentialsequential.aux .    [Old version screen file! - Rebuild with Fpaint]       ,:   NORMAL    REVERSE   INTENSE   BLINK,:        Text ,:   INTEGER   REAL CHARACTER LABELDATE MENU           NONE LEFT RIGHTCENTER    ,:   SUPPRESS  SUPPRESS  NOT  ,:   NORMAL    REVERSE   INTENSE   BLINKHelp Help sequentialPackage   sequentialClearTextDsp   DataDsp        ,    Validate       ,    Edit      ,    delete    '    (/,/,'c---',/,'c  variable declarations',/,/,8X,'Integer Row, Col, CurField, TermKeys(30)',/,8X,'Integer NumberOfFields, LastKey, FieldNumber',/,8X,'Logical Next, Previous, Exit, Refresh, ValidField',/)(A)(I2,1X,I2,/)(A,/)(I3)(1X,' ')(1X,'Processing text field ',I3)(/,A)(1X,'Unknown text display attribute encountered')(A)(/,'      data (TextTable(I,',I3,'),I=1,5) /',I5,',',I2,',',I2,',',I2,',',I1,'/')(/,I3)(1X,' ')(1X,'Processing data field ',I3)(/,A)(1X,'Unknown field type encountered')(A)(8X,'integer',T25,A)(8X,'real',T25,A)(8X,'character*',I2,T25,A)(A)(A)(A)(1X,'Unknown field display attribute encountered')
(/,'      data (FldTable(I,',I5,'),I=1,7) / ',I1,',',I5,',',I1,',',I2,',',I2,',',I2,',',I1,' /')	('      data (IntArray(I,',I5,'),I=2,5) / ',/,'     1   ',I12,',',I12,',',I1,',',I12,' /')
(','c---data'(RealArray(I,',I5,'),I=2,5)k/',/,'cAimm1dia',G14.6,',',G14.6,',',F3.1,',',G14.6,'r/')('1,'1,1data,(CharTable(I,',I5,'),I=1,2)//'',I5,',',I1,'r/')(A)('s')data,(HelpTable(I,',I5,'),I=1,4)/',I5,',',I5,',',I5,',',I5,'s/')('n')data,Formats(',I5,')l/a',A1,A7,A1,'/')(/,'c---',/,'c DisplaylthesTextefields')(/,8X,'call ',A,'TextDsp(lRow,dCol,)')(/,'c---',/,'c Display)theData/fields')(/,8X,'callw',A,'DataDsp((Row, Col')(5X,'1w)',/)(/,'c---',/,'c)Editthe Data fields')(/,8X,'call ',A,'Edit(1Row,TCol,(CurField,)TermKeys')(5X,'1, Next,rPrevious,TExit,2Refresh,)LastKey))',/,/)(/,'c---',/,'caValidateIthe)Datafields')(/,8X,'call3',A,'Validate(')(5X,'1,AValidField,NFieldNumber )',/)(5X,'1LValidField,FieldNumberc)',/)('[EndCof,File]')(' FldTasubroutine ',A,//)('y, NR,parametery( NF=',I3,',NI=',I3,',NR=',I3,',NC=',I3,',NT=',I3,'t)')(','    parameter)(NdimT=',I5,',NdimC=',I5,',NdimH=',I5,')',/)(',A)integer Row,,Col,iStartField,','uTermKeys(30),LastKey',/,'lidFielogicallNext,ePrevious,Exit, Refresh',/,'   Intcharacter*80aScrHelpLine',/,' ',A4)integerFieldNumber',/,'ay(1,Flogical(ValidField',/)('(' integerl',A4)(',I3,')Real',A4)('FldTabcharacter*',I5,'',A4)(/,'all ANcharacter*1'Text(NdimT)')('able(1character*1'Char(NdimC)')('ll Vldcharacter*1(Help(NdimH)')(/,'1   NIcharacter*7 Formats(NF)')(/,'rTableintegeriTextTable(5,NT), FldTable(7,NF),',' IntArray(5,NI)',/,'mber )integerCharTable(2,NC),uHelpTable(4,NF)',/,'  entrrealARealArray(5,NR)t',/),',' TermKeys,')('     1   ',A)('     1   Next, Previous, Exit, Refresh, LastKey )')(' ')('      IntArray(1,FldTable(2,',I3,')) = ',A4)('      RealArray(1,FldTable(2,',I3,')) = ',A4)('      IEle = FldTable(2,',I3,')')('      L = FldTable(4,',I3,')')('      call ANtoA1( ',A4,', NdimC, Char, CharTable(1,IEle), L )')(/,'      call EditScrn( ',A1,A,A1,', Row, Col, StartField, ScrHelpLine,',/,'     1   TermKeys, NF, FldTable,',/,'     1   NI, IntArray, NR, RealArray, NC, CharTable,',' NdimC, Char,',/,'     1   Formats, HelpTable, NdimH, Help, ','Next, Previous, Exit,',/,'     1   Refresh, LastKey )')(' ')('      ',A4,' = IntArray(1,FldTable(2,',I3,'))')('      ',A4,' = RealArray(1,FldTable(2,',I3,'))')('      IEle = FldTable(2,',I3,')')('      L = FldTable(4,',I3,')')('      call A1toAN( NdimC, Char, CharTable(1,IEle), L, ',A4,' )')(/,'      return',/,'      end')HEHGHHHIHJHKHMHNHOHVHWHXHYH[H\H]H^HH`HaHcHdHeHfHgHhHiHjHkHlHmHoHpHqHsHtHuHvHxHyHzH{H|H~HHHHHHHHH	H
HH
HHnHpHrHtHv)H	
HH(HOHHH(H)(H3H5H<H	H	H	H HBOv8y \@ p @u p @<C<>,'C<=, @
C<8,C<7,' /$ / FAd< DAC<5,'C<4," @5@% $ DC<3,'C<2,C<0,'C</,dC<@,&fC<B,&fC<-,'9C<D,&fC<F,&j,&rC<G,&iC<I,&qC<+,(#/  @94`9 9/$ 9/ FAd DA/$ D2+9@d2 20$+<C<J,*rC<K,&iC<M,&qC<O,&iC<P,&qC<*,"0 (+MC<),".  @9 9/&( 9 F5&L D9/$ 9/ FAd DAC<(,':9; +G D9@d DsC<R,&iC<S,&qC<U,&j,&r"> $ F5&
 D9C<V,&jC<X,&qC<', RC<Y,&iC<[,&qC<", /$ / FAd
 DAC< , /$ / FAd
 DAC<,@d( $ F5&
	 D7( ~/( 
~/
 JAh
 HAC<,(4 
 7( ~/( 
~/
 JAh
+HAC<,(5 t:
 7( ~/( 
~/
 JAh
+HAC<,(5 | $.D
 7( ~/( 
~/
 JAh
 HAC<,(5 
$.D
C<,\C<\,&j,&rC<,s\$.d7;+hD7C<^,&iC<;,&qC<,C<,'D/$D/DFAdDDAC<,' 
 D?C<f,&iC<h,&qC<
, \C<i,&j,&r"N $ F5&G D9C<k,&jC<l,&qC<	, RC<n,&iC<o,&qC<,C<, /$ / FAd
 DAC<,(5 
6 $ Dq.d; D:+
_ /$ / FAd
 DAC<,(5 
= $ Dq:
 D:+
_ /$ / FAd
 DAC<,(5 
E $ Dq:? D:+
_ /$ / FAd
 DAC<},(5 
L $ Dq:? D:+
_ /$ / FAd
 DAC<|,(5 
T $ Dq:? D:+
_ /$ / FAd
 DAC<z,(5 
[ $ Dq:? D:+
_C<y, \C<q,&j,&rC<x, \ 9 q FC<r,&i(/$d DA 	 DAC<t,&qC<u,&iC<w,&qC<w," @60 +
k $ D6 6/$ DA $d
 DAC<v,LD D? 9 D;C<t,'C<s,' q0D+
zC<x,&j+9(/$d DA 	 DAC<z,&q+,&iC<,&qC<r,C<m, /$ / FAd
DAC<k,(5/ FAd
DAC<j,(5/ FAd
DAC<h,(5/ FAd
$DAC<g,(5,&iC<,&qC<f,C<a, q0D+
 DAC<_, /$ / FAd
CDAC<^,0D+
BDAC<\,(5/ FAd
fDAC<[,$D=+
 DAC<Y,L /$ / FAd
]DAC<X,L0D+
\DAC<V,(5/ FAd
fDAC<U,L!$D7+
eDAC<S,(5,&iC<	,&qC<R,C<M, /$ / FAd
 DAC<L, /$ / FAd
 DAC<J,@d6 &/7 .&( $ F5& D7( ~/( 
~/
 JAh
 HAC<I,(4  7( ~/( 
~/
 JAh
 HAC<G,(5 :6+ 7( ~/( 
~/
 JAh
 HAC<F,(5 
 $.D6+ 7( ~/( 
~/
 JAh
xHAC<D,(5  $.D6+C<C, \C<,&j,&rC<B, \ $.d7; +
,&jC<,&q q0D+C<,&jC<,&q q0D+"C<,&jC<,&q q0D1D+&0D1D+&++ $. D/$.? DC<,&jC<,&qC<!,&iC<",&qC<A," @4`3 $.% D/$. Do D%+4@d DoC<$,&iC<%,&qC<@," @N4`< $.% D:/$.N D% D%+=@d: D%C<',&jC<(,&q7d+AC<=,7d:+CC<9,C<,,&jC<-,&q:9; +
' D9C<8, \C<0,&j,&rC<2,&j,&rC<3,&jC<5,&qC<6,&j,&rC<8,&j /$ DA $d DAC<9,&qC<;,&j,&rC<<,&j /$ DA $d DAC<>,&qC<?,&j,&rC<A,&j /$ DA $d DAC<B,&q7dN+cC<6,C<D,&j,&rC<E,&j,&rC<G,&j /$ DA $d DAC<H,&q7dN+mC<3,C<J,&j,&rC<K,&j,&rC<M,&j /$ DA $d DAC<N,&q7dN+yC<1,C<P,&j,&r+zC<Q,&j,&rC<S,&j,&rC<T,&gC<U,&gC<V,&gC<W,&f $./ DA d DAC</,'C<Y,&j $./$ DA $d DAC<[,&q N D85D
 & F8 &2F;+ ( H;2F
+ ( H
2F?+ ( H?2F>+ ( H> (2hs Hs (2h H (2h% H%C<\,&jC<^,&qC<a,&jC<c,&qC<e,&j,&r"N $ H5(2 D /&f FA  FAC<-,m  0D+*C<g,&jC<h,&q+1  0D+.C<j,&jC<k,&q+1C<m,&j C<n,&q:; +! DC<p,&j,&rC<r,&j,&rC<s,&j,&rC<u,&j,&rC<v,&j,&rC<x,&jC<y,&qC<},&fC<,&iC<,&qC<,,"4`GC<,&jC<+,"/  @A $d
 DAC<,&q+=C<,&j,&r+= $./ DA d DAC<*,'C<,&j $./$ DA $d DAC<	,&qC<
,&jC<
,&q $./ DA d DAC<(,'C<,&j $./$ DA $d DAC<,&qC<,&j,&rC<,&j,&r $./ DA d DAC<',' $2$N+nC<,&j &./& FA &f FAC<,&q+sC<,&j $./$ DA $d DAC<,&q"&/N&& $ F5&! DC<%,' $ D;"$..;3dN+~ $.N//;.$ D;@d&"; $ F5& Ds &.& F.& F&. /(h HA  HA"$..s DB /$/&/ FCd
 DBC<#,m"$..s3DN+"$.& &/ FAd
 DAC<",':s; + DsC<!," @65@ $ D6C<,&j 6/$ DA $d
 DAC<,&q $.d; +w DC<,&j,&r"N $ F55&; D9C<,&j,&r /&f FA  FAC<,m 9 0D+/C< ,&jC<!,&q+: 9 0D+4C<#,&jC<%,&q+:C<',&jC<(,&qC<*,&jC<+,&qC<-,&jC<.,&q:9; 5+% D9C<0,&j,&rC<1,&j,&r $./ DA d DAC<,'C<3,&j $./$ DA $d DAC<4,&q"&/N&& $ F45&v DC<,' $ D;"$..;3dN+T $.N//;.$ D;@d&"; $ F35&l Ds &.& F.& F&. /(h HA  HA"$..s DB /$/&/ FCd
 DBC<,m"$..s3DN+j"$.& &/ FAd
 DAC<,':s; 3+W DsC<," @65@o $ D6C<6,&j 6/$ DA $d
 DAC<7,&q $.d; 4+L D7dN+zC<9,&j,&r+{C<:,&j,&r"N $ F15& D9C<<,&j,&r /&f FA  FAC<,m 9 0D+C<=,&jC<?,&q+ 9 0D+
C<A,&jC<B,&q+C<D,&jC<F,&qC<G,&jC<I,&qC<J,&jC<L,&q:9; 1+~ D9C<M,&jC<O,&qC<Q,&j,&r $./ DA d DAC<,'C<S,&j $./$ DA $d DAC<T,&q"&/N&& $ F15&M DC<,' $ D;"$..;3dN+- $.N//;.$ D;@d&"; $ F(5&B Ds &.& F.& F&. /(h HA  HA"$..s DB /$/&/ FCd
 DBC<,m"$.& &/ FAd
 DAC<,':s; (+0 DsC<," @65@F $ D6C<V,&j 6/$ DA $d
 DAC<W,&q $.d; 1+% DC<Y,&j,&r"N $ F(5&g D9C<Z,&j,&r /&f FA  FAC<
,m 9 0D+[C<\,&jC<],&q+f 9 0D+`C<_,&jC<a,&q+fC<c,&jC<d,&qC<f,&jC<g,&qC<i,&jC<j,&q:9; (+Q D9C<l,&jC<m,&q"N $ F'5& D9C<p,&j,&r /&f FA  FAC<
,m 9 0D+vC<q,&jC<s,&q+ 9 0D+{C<u,&jC<v,&q+ 9 1D+C<x,&jC<z,&qC<{,&jC<},&qC<~,&jC<,&q:9; '+l D9C<,&j,&rC<,&gC<,&g @,~h@A@9@h@A@9@x@
p@A@
}h@A@B@Bp@
@
|p@A@
{h@A@9@x@
p@A@
zh@A@B@Bp@
@
yp@A@
xh@A@9@x@
p@A@
wh@A@B@Bp@
@
vp@A@
up@A@
tp@A@
sx@
x@
h@A@@p@A@
q`@@N@@D`@@N@@C`@@N@@Cx@DP@@
o@@N@:@%P@@
n@
@@@ox@x@
x@Dx@Dp@A@
mp@A@
lp@A@
kp@A@
jp@A@8p@A@o8@
@
@@
i@@@@
p@A@
hp@A@p@A@
gp@A@p@A@&p@A@p@A@
fp@A@4p@A@r8@
@
@@
e@@@@
p@A@
dp@A@
cp@A@
bp@A@
a8@
@
@@
`@@@@
p@@
p@@
_p@A@x@
x@Dx@Dp@A@
^p@A@
]p@A@
\p@A@
[p@A@
Zp@A@
Y8@
@
@@
X@@@@
x@Dx@DP@@
W@
@@@sp@
@Ap@
@
V8@@
@@
U@@@@Dx@Dp@A@
Tp@A@
Sp@A@
Rp@A@
Qp@A@p@A@8@
@
@@
P@@@@Dp@A@
Ox@x@p@@
Nh@@
Mp@
I@	p@p@@x@p@@Ap@@
H8@<@
@@
G@@@@
Fp@@
hGDtAZu@Z
JhGDAZ	@Z
KhGDAZ@Z
Lp@$@Np@$t@N%p@:x@Pp@$t@N&h@$q@$@p@$t@N(p@:p@$t@N)p@$>p@$
@N*p@$
@N,p@$9p@$t@N0p@:
p@$
@N1p@$t@N6p@:p@$@N7H@$@$@$@$@$@$
@NBp@$
@NCp@$9p@$t@NGp@:
p@$
@NHp@$t@N%p@:Ap@$t@NMp@:
p@$@NNp@:Ap@$@NPp@:Ap@$@NSh@$?@:Ap@$t@NVp@:
p@$t@NWp@:
p@$t@NXp@:
p@$
@NYp@$@N_8@$9@$q@$:@$>@$?@$o@$8@$6p@$@NiP@$:@$r@$4@$=@$p@$@NsP@$:@(&@(@(7@(p@$@N}`@$:@$@$2p@$t@Np@:
p@$t@Np@:p@$@NP@$9@$@$@$:@$Np@$@N@N)p@$@N-p@:Ap@$@N2p@$@N6p@:Ap@$@N;p@$@N?p@:Ap@$@NDp@$@NFp@$@NJp@:Ap@$@NPp@$@NVp@$@N[p@:Ap@$@Np@$@Ncp@$@NhxGDxGDtxGDhGD'AZ<@Z
pp@$'@Njp@:Ap@$'@NnP@$8@$;@$
@$?@$>p@$'@Nv`@$s@$@$%p@$'@N}p@$'@Np@:p@$'@Np@:p@$'@Nh@$;@:p@$'@Np@$'@Np@$'@N#p@$'@N'p@$'@N+p@$'@N;H@:@:@:@:@:@:hGDAZ	@Z
rh@$AI@NIp@:
p@$'@NIp@:Ap@$'@NJp@$'@NKp@:Ap@$'@NOh@$q@$@p@$'@NWp@:Ap@$'@N\p@$'@Ndp@$'@Ngp@:Ap@$'@Nkp@:Ap@$'@Nop@:Ap@$'@Nqp@$'@Nsp@$'@Nth@$9@:p@$'@Nyh@$9@:p@$'@Np@$9p@$'@N	p@$9p@$'@N	p@:p@$'@N	p@$'@N	p@$'@N	!p@:Ap@$'@N	%p@:Ap@$'@N	'p@$'@N	+p@$'@N	0p@$'@N	1h@$9@:p@$'@N	6h@$9@:p@$'@N	<p@$9p@$'@N	@p@$9p@$'@N	Dp@:p@$'@N	K`@:@:@:p@$'@N	]p@$'@N	`p@:Ap@$'@N	fp@:Ap@$'@N	hp@$'@N	np@$'@N	oh@$9@:p@$'@N	uh@$9@:p@$'@N	zp@$9p@$'@N	~p@$9p@$'@N
p@:p@$'@N

`@:@:@:p@$'@N
'p@$'@N
(h@:@$9p@$'@N
.h@:@$9p@$'@N
3p@$9p@$'@N
7p@$9p@$'@N
;p@:p@$'@N
CxGD'pGDFz
~'    ('      data (',A,'(I),I=',I5,',',I5,') /')('     1   ',15(3A1,','))('     1   ',3A1,' /')HHgSH: \ p @p
p p @ p @ p @C<S,'C<U,&jC<V,&q 1D+L/$&$ D & F
" $5&<C<Y,&j"*.


 	5*9 H"(. 
/
Jh HC<Z,&q:; 	+3 H,&r (.H
.$8&.&D /$.d
3$LC<],&j"&.
 	5&K D"$. / Fd DC<^,&q:; 	+E D,&rC<a,&j"$. / Fd DC<b,&q ,~p@@p@$@N`@:
@$@$p@$@N`@:@:@:p@$@N`@:@:@:p@$@N`@:@:@:(I3)HgHgEVMI \h p @e p @f p @fC<,&C<,&qC<,[ $/$ Di $df DhC<~,' $/$ Di $df DhC<},' h,~p@h@kp@h@ex@jp@:j@Njp@$f     1         1    (A)HHH$oK&9 \ p @ p @
 pC@C<:,)C<9,',$CD,$2D+&+$2D+&Od+&@d $.d
+"C<A,&jC<B,&q ,~p@@`@@@@p@@P@@@
p@$@Np@:p@$@Np@:$     ,    HIHJE2&9 \H p @F p @E p @D p @DC<k," @GC<j," @G G.$.G1d$+YOdD+c@dD6 F+_ G/$ DI $dD DHC<h,'&+c G/$ DI $dD DHC<e,'& H D Ap,~`@D@H@L@E`@D@H@K@Ex@Dx@E3.01 HnO&i9 \m p @lC<t,' m,~p@l@oDISPLAY   KEYBOARD  PRINTER   ERRORELG  append    Error - system logical name [ ] is undefined![Abort]   HHHH
HH
HHyggM7 \} Z~ X~ V T R P N L J H F DpxC<Y,'C<X,C<W,(5 * $ Dv+CC<U,(5 - $ Dv+CC<T,(5 0 $1 Dv+CC<R,(5 7 $ Dv6 w+C@dwC<Q,dC<[,&f+CC<L,QC<L,dC<P,fC<O," @x5@= $ Dx x/$ D $dx DC<N,fC<M,fC<],*r v Dv }    
 
      ~ ~ v,~x@x@x@xx@p@@wp@@p@@p@@p@@x@p@@xhGDAHw@Zx@H^H^GRnP \a p @` p @_C<n,'C<m,$C<k,' a,~p@_@bp@^@^p@c@`a9  \~pyptp}pp p @sC!p @rC!p @r p @x p @yC<,({C<	,({@dy & Fs DxC<," @p0@3Ds++Oft+@dt7$t+Y6Dt+; u" $5&$ D|"(.s 
s/
 Jhy H |/( 
|/
 Jht HC<,(5 # $ Dt+X:|8& D| ~" $5&2 Dq"(.s 
s/
 Jhy H q/( 
q/
 Jh} HC<,(5 1 $ Dt+X:q8&' Dq"$.s s/ Fdy DC<,L5 9 $ Dt+X $ Dt+X t0D+@C<,C<~,- $ Dt+X t0D+E:s3dp+DOft+X@dt+X t0D+IC<|, $ Dt+X t0D+O:s3dp+M & Ft+X $ Dt+X t0D+T"$.s DC<y,-Odt+X t0D+y u" $5&c D|"(.s 
s/
 Jhy H |/( 
|/
 Jht HC<w,(5 b $ Dt+X:|8&X D| ~" $5&q Dq"(.s 
s/
 Jhy H q/( 
q/
 Jh} HC<v,(5 p $	 Dt+X:q8&f Dq"$.s s/ Fdy DC<t,L5 x $ Dt+X $ Dt+X t0D+"$.s DC<q,- $ Dt+X t0D+"$.s DC<n,- x3$s+Odt+X $ Dt+X t0D+
 x3$s+Odt+X $ Dt+X t0D+C<l,C<i,- $ Dt+X t0D+:y:s2dp+ & Ft+XOdt+X t0D+( ~" $5&& Dq"(.s 
s/
 Jhy H q/( 
q/
 Jh} HC<g,(5 % $ Dt+X:q8& Dq $ Dt+X t0D+,"$.Dy $ Dt+X t0D+0C<e, $ Dt+X t0D+6:s2dp+5 & Ft+XOdt+X t0D+G ~" $5&E Dq"(.s 
s/
 Jhy H q/( 
q/
 Jh} HC<c,(5 D $ Dt+X:q8&: Dq $ Dt+X t0D+M"$.Dy.s DC<`,- $ Dt+X t0D	+U"$.s DC<],- x3$s+T $	 Dt+X $ Dt+X t0D	+X $ DyOdt+ ~ s Ap x Ap y Ap,~X@@x@s@r@rX@@x@s@r@rp@@`@s@x@s@rp@@X@s@x@s@r@r`@s@x@s@rX@@x@s@r@rX@@x@s@r@rp@@pp@@p@@X@@x@s@r@r`@s@x@s@rX@s@x@s@r@r`@s@x@s@rp@@pp@@p@@x@y@@@}@r@|@@@{@sP@@{@r@z@@sg%i< \ p @ p @ p @C!p @C<!,({:$.  F   Ap,~@@@@@@@@@g"+R \+ p @' p @( p @'C!p @&C!p @&C<A,({C<=,({ ($).* ' F ($).* (.( .(/ H +,~@@,@*@&@*@+@,@)@'P@+@)@&@(@+@']>v98 \H FI DI p @GpEC<`,""  $ FF5&Z DH/$ H/ FJdE DJC<^,(5 Y@dF+[:H; F+S DHOdF H I I F,~p@G@Jx@E_W&= \cpa b" $ Fa5&q Db/$ b/ Fdda Dd d FcC<s,#i:b; a+j Db c,~x@cO@
6@@,~NAMold  delete    (A)HzH{H|HxO$j6 \y p @v p @w p @xC<,dC<,&fC<,&iC<,&qC<,&g@dx+
Fzp@$w@N~p@:vpGDwC:     H Yt} \ J H F Dp  D" 5&1 D /( 
/
 Jh HC<6,(5 0  D D+2>8&) D@d D     
 ,~p@@!     E    e    .    .    (G)H?H@HAHBHCH8O&)0 \=p: p @;C<," @;0 +R $ D; ;1d+T $ D;C<,' ;/$ D> $dJ D= ;/$ D? $d: D>C<},' ;/$ D> $dJ D=C<|,(# @< ;/$ D> $dJ D=C<z,(# @9 <1D0@+q ;/$ D> $dJ D=C<y,(# @<5@q $.;/; D> ;dJ D=C<w,'C<v,6C<,&~C<,&q = ; Ap,~x@Jp@=@Ip@=@Hp@=@Gp@=@Fp@=@>p@J@Ex@:h@:JA.t@NEp@(;     (I6)H
HO%Z \p p @C<)," @0 + $ D 1d+ $ DC<',' /$ D	 $d
$d@D	C<&,'C<%,6C<*,&~C<,,&q   Ap,~x@
x@h@:
p@$H3eFJZ\0p.C<Q,"@////D-4dL"//F.5&L,D0"&.-.0.-/ D1f. F1/0/$0/ F2d. D2C<O,'"$.0.0//F1d./D1C<N,'>0;.+= D0 0,~p@1@4p@1@2x@.     HXY6JZ \UpSC<y, @RC<x," @T7dR+t.$ DT"T/&.T T FR5&s DU/$/R U/R/ FVdS DV U/$ U/ FWdS DWC<w,'"$.U U/ FVdS DVC<u,':U; R+e DU U,~p@V@Yp@V@Wx@Sx@S     HYMiq \} F} D~p{ {" $ Fz5& D|/$ |/ Fd{ D~C<,(5 
HC<2,':;"+!D,~p@@x@%%&9&(*+-@ p @5+p @ 5 Ap,~C<",#iC<",#iC<",#MC<",#i+A+zS;:C"x BA \@ p @5+z @ 5 Ap,~C<"
,#iC<",#iC<"
,#i"5 $ F:5& D>C<"	,#i:>; :+ D>C<",#iC<",#iC<",#iC<",#i+A+
S;[rC" BA \@+
 @,~C<",#iC<",#iC<",#iC<",#i+A+_[>-C" BA \@+ @,~C<",#iC<!,#iC<!~,#iC<!},#i+A+IeJ7C" BA \@ p @5+ @ 5 Ap,~C<!|,#iC<!{,#iC<!z,#MC<!y,#i+A+*S;J7C"( BA \@ p @5+* @ 5 Ap,~C<!x,#iC<!w,#iC<!v,#MC<!u,#i+A+3gf3C"2 BA \@ p @=+3 @,~C<!t,#iC<!s,#i =0D+8C<!r,#i+9C<!q,#i+A+@g%|TC"? BA \@ p @: p @;+@ @,~"$.: D?"$.; D@+A+Ked<yC"H BA \@ p @< p @>+K @ < Ap > Ap,~ <.? D< >.@ D?C<!p,#iC<!o,#iC<!n,#MC<!m,#iC<!l,#MC<!k,#i+A+]GOyC"Z BA \@ p @< p @>+] @ < Ap > Ap,~C<!j,#iC<!i,#iC<!h,#MC<!g,#iC<!f,#MC<!e,#i+A+gG38yC"f BA \@+g @,~C<!d,#iC<!c,#iC<!b,#iC<!a,#iC<!`,#iC<!_,#iC<!^,#i+A+sG3J7C"r BA \@+s @,~C<!],#iC<!\,#iC<![,#iC<!Z,#i+A+{G3+vC"z BA \@+{ @,~C<!Y,#iC<!X,#iC<!W,#iC<!V,#i+A+ G3[vC"  BA \@+  @,~C<!U,#iC<!T,#iC<!S,#iC<!R,#i+A+ 
G3KxC"  BA \@+ 
 @,~C<!Q,#iC<!P,#iC<!O,#iC<!N,#i+A+ G3[xC"  BA \@+  @,~C<!M,#iC<!L,#iC<!K,#iC<!J,#i+A+ g4X:C"  BA \@+  @,~ = D8+A+ #eO$C" " BA \@+ # @,~ 8 D=C<!I,"!+A+ +O$C" ) BA \@ p @6+ + @ 6 Ap,~ = D6+A+ 3IOC" 1 BA \@ p @7+ 3 @ 7 Ap,~ 73D=+A D=C<!H,"!+A+ :E.C" 9 BA \@+ : @,~C<!G,#i+A+ BGOI3C" @ BA \@ p @5+ B @ 5 Ap,~C<!F,#iC<!E,#iC<!D,#MC<!C,#i+A+ LGO*3C" J BA \@ p @5+ L @ 5 Ap,~C<!B,#iC<!A,#iC<!@,#MC<!?,#i+A+ WGO\C" U BA \@ p @5+ W @ 5 Ap,~C<!>,#iC<!=,#iC<!<,#MC<!;,#i+A+ aGOK{C" _ BA \@ p @5+ a @ 5 Ap,~C<!:,#iC<!9,#iC<!8,#MC<!7,#i+A+ jGO8;C" i BA \@+ j @,~C<!6,#iC<!5,#i = D9+A+ qGO)9C" p BA \@+ q @,~C<!4,#iC<!3,#i 9 D=+A+ }gLRC" z BA \@ p @5 p @6+ } @ 5 Ap 6 Ap,~C<!2,#iC<!1,#iC<!0,#MC<!/,#iC<!.,#MC<!-,#i+A+!	]FHtC"! BA \@ p @;+!	 @ ; Ap,~6 8+!
+7OD;+!C<!,,t5!C<!+,"H5;CD7Od8+!Od;+A+!O$:C"!CBA,\@+p+@;+!@;@Ap,~68+!@7D;@d8+!C<!*,"H@;0D@6x@Jx@5x@Ix@Lx@Jx@Lx@Ix@Lx@Mx@5x@Ix@Lx@Lx@5x@Ix@Lx@Mx@5x@Ix@Lx@Nx@5x@Ix@Lx@Ex@7x@=x@Ax@Fx@Ix@Lx@Ax@Gx@Ix@Lx@Bx@Fx@Ix@Lx@Bx@Gx@Ix@Lx@Bx@Hx@Ix@Lx@Ax@Hx@Ix@Lx@Px@Ix@Lx@Px@>x@Jx@<x@Ix@Lx@Px@?x@Jx@<x@Ix@Lx@Gx@Fx@Ix@Lx@Cx@5x@Ix@Lx@Dx@5x@Ix@Lx@Ox@Hx@Ix@Lx@Nx@Hx@Ix@Lx@Ox@Hx@Ix@Lx@Ox@Nx@Hx@Ix@Lx@Ex@5x@Ix@Lx@Kx@Lx@Kx@Lx@Px@Fx@Ix@L-
 "C0D+#
 $J D"E "C0D+# "C0D+# $J D"E "C0D+# "C0D+# $K D"E "C0D+# "C0D+# $K D"E "C0D+# "C0D+# $L D"E "C0D+# "C0D+# $L D"E "C0D+#" "C0D+#" $M D"E "C0D+#& "C0D+#& $M D"E "C0D+#< "C0D+#< $N D"E+#< "C0D'+#<C<#?,#h "C D"E0D(+#0 &F F"E0D(+#2 &G F"E0D)+#4 &G F"E0D)+#< &H F"E+#<d"C2D"G+#9C<#>,#h "C0D
+#< $B D"E "E "E Ap,~x@"Dx@"Cx@"Dx@"Cx@"Cx@"Cx@"Fx@"Fx@"Fx@"Cx@"Fx@"Gx@"FS;%}: \#L p @#K4@#W #K&$4d#T #K&$.$ D#LC<#Z,#i #K&$ .$ D#LC<#Y,#i #L,~x@#Lx@#LKE{w \#[7 #Z+#_C<#a,#tOd#Z #[,~KE{s \#bC<#f,#m@d#Z #b,~
%pOAp,~
!p,~
;p,~ pQ"$	b+#l,~
#x+#~ $	b&+# B#| B#} " B#| B#~ $	d'+#,~
#z+#~ " B#| B#~ $	d'+#,~`iSHiSH
&$	`
&$	`@#{
?TTYSET OPEN FAILED
?TRMNO. OR TRMOP. UUO FAILED,>,>	`
&  & . (@."G(@.$G p[/&A`7@ )@(@A$G$p,^,^,~.TMPO@$P+$+$7@$P+$@@$PC#/" B$O+p7@$K+$$+$6@$Q+$"C"$`b+$$ $K,$;+$J B$P,$=O@$Q@S$PX$$$+
Q$PC>$Qa~Q>~,>$L,>C#/" B$O,(v,',',$;,&TC<$,5&dX@'@+I@$L@$M@$ODo you want to close all files? (Y or N):Can't map up section 0
7B* "$IZ1D$A,~Q"X B&Q "$AXB*,~+$6 ":x,~ $Pl" B&T " B&S $M	b2+$J,~
&$/
(
20B,1B<+$F+@&Q	b+$EC>$Qa~Q>~,>$LC<$O,&h+@&Q	`
&$3	``$QgR~ P&S$N6B'	,~ ^'	\"	b@aBg $ "&`	b+ '	 '	b+&_[dl/"&d B'	,~
&'	`ggM?t(S:NC@,'M?\G,'_B-c@,'G2~9','KbND','S8p,'_W!`,'eR`,'oR`,'K:`,'I`,']2I`,']2y`,'S>f=,'M&q`,'[R~@,'M&tC@,'KbNC@,'C2|G,'I|G,'C2G,'IG,'iJ
9','MVt=,'S;S@,'M?|,'SI`,'Sy`,'[RD\G,'C
~-,'S;
c@,'*x.'	*x,~p ?Cannot find base address of FOROTS
,~@@''Y,'?4@'5'GkGp*
p*d'+ ,~@Gkg \'#C<'#,(: '#p*
,(C L'$p*d'%+  '$p*
 d'%+ C<'#,(B '#,~x@
'$@G:'6@'),'Y,'?4@'*5',G:Gp*
5'zG:g \'6C<'6,(: '6p*
,(C L'7,'z '7p*
 d'8+ C<'6,(B '6,~x@
'7@G>t9G,(/p*
,'s,'z5(1}~~#C:'?d$:C6pRw p4&'P%&/'<. H+'KX D4"'U%"/'<.2$+'J.2d+'L..6*x'EgO,~)Fq(H}$(.(g+'D9`f+'M.'P+'B)Bq(D}$$.$g+'H`b+'R.'P+'F}~~#C:'Yd$:C6pRwp H4&'l%&/'W..
+'fX D4"'q%"/'W..3f+'f2$+'f+'g.6*x'`,~ "6@'s,) ,~)Fq(H}$(.(g+'_9`f+'i.'l+'])Bq(D}$$.$g+'c`b+'n.'l+'a ."&" `[0$Pe6pQ6 $BDX8=b'x,~ C6pRw*x'|X* 
2* 
/d(+ 4r(.6*x'|@@ 
d(+ ,~@Y	`-"(@Y:)`-"(@Y3!`-"( Y2)`-"(`Y!`-"(`Y)`-"( ((
( p*p*
4d(4j(ad~`j~+(dgO((
( ,~+(!,)?+'S:$^,(/pp<@28+(-82R=(&4X(1    
b(.=(&5(1@5(1@ Z(9 (3*:(9,~!(3*:,~(4(4G"n*g,>,>6@(y+(? *C"6@ *,(V (y Cp,^,^,~G#-mg,?p,^(y,~7@(y+(o,>.*&* 
.
(y2l(y,(a 
(y`lm,Q,A`.J(y,^,~,>,> (tab+(R (t/" F(u (t@@C&b(p (u+(U@@Q$X$.(t*$,^,^,~6@(y,~,> " B(s  B(t \(uC<(l,&{ (u6@(s+(p (t B(y B(z.(t B(y,(K,^,~ .(y3`(y,~,>.*@ J(t 
(y J(t * J(s \(uC<(l,&{ (u6@(s+(q,(K 
(t.J(y,^,~X@(s@(r@(s@(t@(t,)B+',)t+',)x+'FRS7@(y,~@@(y@@(z@@(y,~CR@,>,> p  p  Ep<b) $Ep$ E..&+(~"C%p. Ap 2D)$Ep,^,^,~?CT4',>,>p Ep Ep  p <b) $Ep$ E..&+)
"Ap,2D)$Ep,^,^,~?,&eG0!H)*,&eG!H**,&eG@!H**	,&eGx#H*	*,&eS>(1H*
4H*,&ek:x
4H*,&e]>0
5H*,&eG_(
5H*,&eG2(
6H*",&eS(
6H*&,&e]
7H**,&eCG
8H*/,&egN(8H*4,&egJ(9H*9,&ei6
9H*@,&eG
:H*C,&e[b H*G,&eo:
H*K,&e]`
H*O,&eGK
:H*S,&eGC
<H*X,&eSBp
=H*],&eg:@H*_,&eG
=H*b,&eK
>H*g,&eC3P
>H*l$I Intrinsic routine $N invoked incompatibly$I FORTRAN-10 supplied routine $N invoked$I Overlap of character assignments$JERRSET: error number out of range - ignoredDIVERT: illegal to divert to unit $DDIVERT: unit $D is not openDIVERT: unit $D is not open for FORMATTED I/ODIVERT: Can't write to unit $DConcatenation result larger than expectedIllegal length character expressionNo character stack allocated - compiler errorFirst argument to SORT must be a quoted stringSubstring range error $S($D:$D)
	on line $DSubscript range error - subscript $D of array $S = $D
	on line $DToo many arguments in call to SORTCan't get pages 600:677 for SORTMissing EXTERNAL declaration in CALL to $NWrong number of arguments in call to $NArgument to SECNDS not floating pointCan't return pages 600:677 after call to SORTCan't preallocate pages 600:677 for SORTIllegal page number $OInternal FOROTS errorNot enough memory for creating character stackNot enough memory for expanding character stack$N: Argument less than or equal to zeroa.3@O@+3+*rgR~@@@+3,>,>,>
8+ @6 w++"+30B++7@+3+*{,>C<+5,&j,^+*},>C<+8,&j,^ pl" B+0,>!" B+0!" B+1C<+0,&q,^++ p7@+3++,>C<+:,&j,^++	,>C<+<,&j,^,>C<+>++7@+3++,>C<+@,&j,^,>C<+B,&r,^7@+3++,>C<+C,&j,^,>C<+B,&r,^,>C<+F,&i,^,>C<+>,&q,^(Bqd0B,++,>C<+B,&u,^1B#++!0B*++,>C<+H,&z,^++,^,^,^,~(' Type G to Continue, X to Exit, T To Trace.'/2H *,$)(A1)(' PAUSE',/(1X,A))(1X,A)(' PAUSE ',O6)(1X,O6)(' PAUSE').ph@$+4@D+)@d+4h@$+4@D++@d+7h@$+4@D+,@d+9h@$+4@D+.@d+7p@$h@$+4@D+/@d+7h@$+4@D+#@d+B~h@$+D@D+)@d+Ex@P@+L@+L@+M@+M@+N@+P