>ETEX0113-MAR-1998 18:48DEC Pascal V5.1-11 x q/$BSS$$LINK$ $LITERAL$ $ABS$ LIB$INITIALIZE $DATA$i4$CODE$(J(ETEX PAS$OPEN2PAS$LINELIMIT2 PAS$REWRITE2 PAS$WRITE_STRINGPAS$WRITE_CHAR PAS$WRITELN2 PAS$WRITE_INTEGER PAS$HANDLER2PAS$NEW2 PAS$DISPOSE2 PAS$RESET2PAS$LOOK_AHEADPAS$GET PAS$STATUS PAS$CLOSE2 PAS$READ_VARYING PAS$READLN2 PAS$READ_CHARPAS$PUT PAS$DELETE_FILE2OTS$MOVE OTS$MOVEMOTS$FILL OTS$DIV_I_O OTS$DIV_ISYS$GOTO_UNWIND OTS$MOD_I OTS$EXTZVOTS$INSVOTS$STRCMP_EQLP OTS$BIT_IS_MEMBER OTS$INDEXETEX_CLI CLI$PRESENT CLI$GET_VALUE CLI$DCL_PARSELIB$GET_FOREIGNLIB$SIG_TO_RETSYS$QIOW SYS$PARSE SYS$SEARCHSYS$OPEN SYS$CONNECT SYS$CREATEPAS$FABPAS$RAB SYS$TRNLNM LIB$CALLG STR$GET1_DX STR$FREE1_DX LIB$SIGNAL LIB$FIND_IMAGE_SYMBOL LIB$SPAWN SYS$ASSIGN SYS$NUMTIMLIB$SET_SYMBOL SYS$CRELNM SYS$DELLNMSYS$EXIT ( ;= TEXINPUTS=TEXFONTS;= 3.14159-2.088 ;h;;;Ђ;`;;=INITx=ETEX7ETEX_CLI PAS$REWRITE2 PAS$OPEN2= SYS$OUTPUT=---case h; CLI$PRESENT";8; ;;8OTS$MOVE PAS$WRITE_CHAR+;=0P3;=3< 7 PAS$HANDLER2XH;;p PAS$WRITE_STRING PAS$WRITELN2SYS$EXIT CLI$GET_VALUE;;;PAS$LINELIMIT2 PAS$WRITE_INTEGERh;= EIGHT_BIT= TEXFORMATS;PAS$FABPAS$RAB;`;8;;P;pw;p;;;F;;=0H ;=0 7 PAS$HANDLER2=0!;=  7 PAS$HANDLER2SYS$QIOW;=0(!;= 7 PAS$HANDLER2Hi/; SYS$SEARCH SYS$PARSE! SYS$CONNECT#SYS$OPEN=00%;= 7 PAS$HANDLER2% SYS$CREATE=0(;= 7 PAS$HANDLER28 OTS$MOVEM=LNM$DCL_LOGICAL ) SYS$TRNLNM8OTS$FILL=0H,;=` 7 PAS$HANDLER2p- LIB$CALLG=0 d-;=` 7 PAS$HANDLER2/ LIB$SIGNAL1PAS$NEW23 STR$FREE1_DX5 STR$GET1_DX=0 1;=@ 7 PAS$HANDLER2 7 PAS$DISPOSE2=0d2;= 7 PAS$HANDLER2`9PAS$LOOK_AHEAD ;LIB$FIND_IMAGE_SYMBOL= PAS$RESET2?PAS$GETA LIB$SPAWN= CALLABLE_TECO= CALLABLE_EDT= CALLABLE_LSEC SYS$ASSIGNp,;++;P;%;=00 :;=p| 7 PAS$HANDLER2@p;;c);= SYS$COMMANDh= plain.fmCALLABLE_TPU= ETEX.POOL=0 @;=@ 7 PAS$HANDLER2=0 d;=@ 7 PAS$HANDLER2=0p;=P< 7 PAS$HANDLER2 =0(;=0 7 PAS$HANDLER2Pܙ;X$; `;hp;pܙ;xܙ;|;=0;=@ 7 PAS$HANDLER2E OTS$DIV_I_OH;; ;|;8;О;p;=0 X;=P< 7 PAS$HANDLER28=0H;=P< 7 PAS$HANDLER2h=0 L;=@ 7 PAS$HANDLER2=0((;=P 7 PAS$HANDLER2=0,;=@ 7 PAS$HANDLER2=0 ܫ;=P< 7 PAS$HANDLER20 G OTS$DIV_I=0;=@ 7 PAS$HANDLER2p =0;=@ 7 PAS$HANDLER2 =08ȳ;=` 7 PAS$HANDLER2 =0 ;=@ 7 PAS$HANDLER2 =0(D;=P 7 PAS$HANDLER20 =0 ;=@ 7 PAS$HANDLER2` =0(;=P 7 PAS$HANDLER2 =0Ƚ;=@ 7 PAS$HANDLER2  ISYS$GOTO_UNWIND;=0D;=` 7 PAS$HANDLER2  4;;p;@6;;0 ;8 ;@ ;H ;P ;X ;` ;h ;p ;x ; ; ; ; ; ; ; ; ; ; ; |; ; ; ; d; ; ; ; ; ; ;( ;0 ;8 ;@ ;H ;P ;X ;` ;h ;p p 5;;8; =0 ;=@ 7 PAS$HANDLER2  ;=0(\;=P 7 PAS$HANDLER2 =0 \;=@ 7 PAS$HANDLER2 =0 ;=@ 7 PAS$HANDLER2P K PAS$STATUS;=00;=P 7 PAS$HANDLER2  ;=0 ;=@ 7 PAS$HANDLER2 =0(;=P 7 PAS$HANDLER2=0 t;=@ 7 PAS$HANDLER20=0 ;=@ 7 PAS$HANDLER2`=0;=0 7 PAS$HANDLER2M PAS$CLOSE2=0X;=0 7 PAS$HANDLER2=0;=0 7 PAS$HANDLER2=00 ;= 7 PAS$HANDLER200$;@ OPAS$READ_VARYING;`Q PAS$READLN2=00h;=` 7 PAS$HANDLER2= COMMAND_LINE= SYS$INPUT=**H; ;=0 X;=@ 7 PAS$HANDLER2=0;= 7 PAS$HANDLER28=0;=0 7 PAS$HANDLER2h=0;= 7 PAS$HANDLER2S PAS$READ_CHAR;p;;@;;;=0 t;=@ 7 PAS$HANDLER2=0 ;=P 7 PAS$HANDLER2@=0;=` 7 PAS$HANDLER2p=0;=@ 7 PAS$HANDLER2=0;=P| 7 PAS$HANDLER2=0  ;=@ 7 PAS$HANDLER2=0 ;=0 7 PAS$HANDLER200xF;=0 ;=0 7 PAS$HANDLER2h=08 ;= 7 PAS$HANDLER2=0 ;= 7 PAS$HANDLER2=0;=P< 7 PAS$HANDLER2=08p;=P 7 PAS$HANDLER2(=0;=0 7 PAS$HANDLER2`U OTS$MOD_I=08t;=P 7 PAS$HANDLER2=0 p;=0 7 PAS$HANDLER2=0(;= 7 PAS$HANDLER2;;;; ;(;0;8;@;H;P;X;`8;h;p=0 P;=P 7 PAS$HANDLER2=0( ;=P 7 PAS$HANDLER2=0p#;=0 7 PAS$HANDLER2=00%;=p 7 PAS$HANDLER20=0 \8;=0 7 PAS$HANDLER2`=0=;=P| 7 PAS$HANDLER2=0 H;=@ 7 PAS$HANDLER2=0 pM;=@ 7 PAS$HANDLER2=0@P;=` 7 PAS$HANDLER2 =0(tT;=P 7 PAS$HANDLER2P=0 xV;=@ 7 PAS$HANDLER2=08Y;=` 7 PAS$HANDLER2=0([;=P 7 PAS$HANDLER2=00_;=P 7 PAS$HANDLER2=0(d;=P 7 PAS$HANDLER2@=0(h;=P 7 PAS$HANDLER2p=0(\k;=P 7 PAS$HANDLER2=0(tm;=P 7 PAS$HANDLER2=0o;=P< 7 PAS$HANDLER2;s;s;s; s;(s;0s;8u;@u;Hs;Pt;Xt;`s;hs;ps;x=0x;=@ 7 PAS$HANDLER2=00{;=P 7 PAS$HANDLER2=0 |;=@ 7 PAS$HANDLER2=00};=` 7 PAS$HANDLER28=00~;=`< 7 PAS$HANDLER2h=0 ;=@ 7 PAS$HANDLER2=0 t;=P 7 PAS$HANDLER2=0(;=P 7 PAS$HANDLER2N;=0 ;=@ 7 PAS$HANDLER20=0 (;=@ 7 PAS$HANDLER2`x;h;p;x̌;;; ;<;X;t;;;ȍ;;;;8;T;=08;=p< 7 PAS$HANDLER2  ;=@p;8p;@;H;P;X;`;hp;pL;x;X;H;;p;;;ܿ;ܿ;ܿ;ܿ;ܿ;ܿ;ܿ;ܿ;ܿ;;ܿ;ܿ;ܿ;ܿ; ܿ;(ܿ;0=A;@4;HУ;P;X;`T;hp;p;x;;;;;;L;P;4;;l;;<;=0 ;=@ 7 PAS$HANDLER2=0 ;=@ 7 PAS$HANDLER2@=0(;=P 7 PAS$HANDLER2p=0 <;=P< 7 PAS$HANDLER2p;h;h;;4;;4;\;H;D; ;;;;h;; ;(;0;8;@;H;P;X;`;h;p;x;;;;;;;;x;;x;=0 L;=p 7 PAS$HANDLER2;;;; ;(;0d;8@;@L;H|;P;XD;`;h;p;x; ;; ;;=0x ;=@ 7 PAS$HANDLER2=00 ;=@ 7 PAS$HANDLER2 =0 ;= 7 PAS$HANDLER20 =0(;= 7 PAS$HANDLER2` ` b;=0 4;=@ 7 PAS$HANDLER2 ; ; ; ; ; ; ,; H; d; ; ; ; ;!;! ;!( ;!D ; !` ;(!| ;0! ;8! ;@! ;H! ;P!!;X!$!;`!@!;h!\!;p!x!;x!!;!!;!!;!!;!";! ";!<";!X";!t";! ";!";!";!";!#;!#;!8#;!T#;"p#;"#;"#;"#; "#;("#;0"$;8"4$;@"P$;H"l$;P"$;X"$;`"$;h"$;p"$;x"%;"0%;"L%;"h%;"%;"=0%;=@ 7 PAS$HANDLER2"W SYS$NUMTIM=0(;=7 PAS$HANDLER2#=0 );=@ 7 PAS$HANDLER28#=0 p*;=@ 7 PAS$HANDLER2h#*;p#*;x#*;#+;#0+;#L+;#h+;#+;#+;#+;#+;#+;#,;#,,;#H,;#d,;#,;#,;#,;$,;$,;$M;$M; $M;($M;0$M;8$N;@$,N;H$HN;P$N;X$N;`$dN;h$\Z;p$xZ;x$Z;$Z;$Z;$Z;$R;$$R;$@R;$\R;$xR;$R;$7;$7;$7;$8;$08;$D7;$-;%.;%P.;%E;E; %.;(%.;0%.;8%0/;@%L/;H%/;P%/;X% :;`%(G; h%L4;p%3;x%6;%5;%W;%I;%$I;%lI;%K;%4L;%xK;%pG;% H;%H;%H;%I;%J;%5;%9;&X6;&9;&85;&p5; &9;(&T5;0&l3;8&3;@&3;H&4K;P&5;X&43;`&5;h&L;p&M;x&O;&dM;&N;&0O;&O;& 6;&6;&9;&HW;&W;&@Z;&V;&3;&4;&6;&4;&t6;'6;'4;'R;'S; 'h>;('8;0'0;8'D2;@'2;H'/;P'/;X'3;`'T;h'<=;p'|7;x',F;'=;'=;'7;';)>;)>;)>;)>; )A;()?;0),?;8)H?;@)d?;H)?;P)?;X)@;`)A;h)?;p)?;x)?;) @;)(@;)D@;)`@;)$A;)@A;)\A;)xA;)|@;)@;)@;)@;)B;)B;)C;)0C;*LC;*hC;*C;*C; *C;(*C;0*C;8*D;@*,D;H*HD;P*dD;X*D;`*D;h*D;p*D;x*,1;*H1;*d1;*1;*1;*1;*1;*1;* 2;*HF;*dF;*F;*F;*F;*F;*F;*W;+W;+W;+X;+ X; +;=0;=0 7 PAS$HANDLER2;=0;=0 7 PAS$HANDLER2;=0l;=0 7 PAS$HANDLER2<=0;=0 7 PAS$HANDLER2H<=00 ;=0 7 PAS$HANDLER2x<=0;=7 PAS$HANDLER2<=0 ;=@ 7 PAS$HANDLER2<=00;=0 7 PAS$HANDLER2==0;=@ 7 PAS$HANDLER20==0(\;=`< 7 PAS$HANDLER2`==0@ ;= 7 PAS$HANDLER2==?;(@;x;=x;=l$;=;=;=|;=;=@;=;=;=8;= ;>;>;>H;>; ><;(>\;0>;8>;@>;H>;P>P>?;l0;`>0;h>0;p>0;x>0;>0;>1;>1;>D2;>D2;>=0\D;=` 7 PAS$HANDLER2>=0XK;= 7 PAS$HANDLER2?=0(;=` 7 PAS$HANDLER28F=08 0G1tG1]0"1="1]"GtGb@? 0G1G1]0"1="1]"GtGb@@ 0G1G1]0"1="1]"GtGb@A 0G1G1]0"1="1]"GtGb@B 0G14G1]0"1="1]"GtGbԜ@C 0G1TG1]0"1="1]"GtGbǜ@D 0G1tG1]0"1="1]"GtGb@E 0G1G1]0"1="1]"GtGb@F 0tG1G1]0"1="1]"GtGb@H 0tG1G1]0"1="1]"GtGb@I 0G14G1]0"1="1]"GtGb@J 0G1G1]0"1="1]"GtGby@K 0tG1G1]0"1="1]"GtGbl@O 0TG1TG1]0"1="1]"GtGb_@v 04G14G1]0"1="1]"GtGbR@S 04G13_"1]0"1="1]"GtGbE@T 04G1G1]0"1="1]"GtGb8@U 04G1G1]0"1="1]"GtGb+@V 04G1TG1]0"1="1]"GtGb@W 04G1tG1]0"1="1]"GtGb@` 0G1TG1]0"1="1]"GtGb@b 0G14G1]0"1="1]"GtGb@ 0G14G1]0"1="1]"GtGb@c 04G14G1]0"1="1]"GtGbݛ@d 04G1TG1]0"1="1]"GtGbЛ@e 04G1tG1]0"1="1]"GtGbÛ@ 0G1G1]0"1="1]" =GtGb@k 0G14G1]0"1="1]"GtGb@l 0G1TG1]0"1="1]"GtGb@m 0G1tG1]0"1="1]"GtGb@n 0G1G1]0"1="1]"GtGb@r 0G1G1]0"1="1]"GtGbu@s 0G1G1]0"1="1]"GtGbh@t 0G1G1]0"1="1]"GtGb[@u 0G1G1]0"1="1]"GtGbN@v 0G1G1]0"1="1]"GtGbA@w 0G1G1]0"1="1]"GtGb4@x 0TG1G1]0"1="1]"GtGb'@y 0G1G1]0"1="1]"GtGb@z 0G1G1]0"1="1]"GtGb @{ 0G1G1]0"1="1]"GtGb@| 0G1G1]0"1="1]"GtGb@} 0G14G1]0"1="1]"GtGb@Ӂ 0G1TG1]0"1="1]"GtGbٚ@ӂ 0G1tG1]0"1="1]"GtGb̚@Ӄ 0G11,_"1]0"1="1]"GtGb@ӄ 0G12,_"1]0"1="1]"GtGb@Ӆ 0G13,_"1]0"1="1]"GtGb@ӆ 0G14,_"1]0"1="1]"GtGb@0L8@?$! @0"L4G0BT2_"0blS~"0pt04G0⦘ײT0HC0"L9_# :C ` OC!C!$! C0C@9$CG@ 0HGGb; @GGXbCGGhbGC8P"G4GbR1@8P"G4GbK1@0L0"P! @0L?"G Bgf`@NCTB&4 C0C@RDB2D @0L8B&" BWV0L0"T98 G (B8GtGHBPb@Zk8G4GtGBb@Zk8TG4GtGBb@Zk84GXB`b@Zk$  C@!$! CC .. JP JFC ?B_& R"CSBs&3 CC..JT JFCB8F5F 0¦P֢69B&" B0"Pٲ 0BPZ# [C @  @OC@C$ C& s"CrBR&2 CC3..3JT JFCG?B `0C@GGb@ C@!$! CC @00",1 G0bS4G0 "0"B"4GB@Zk0" 1' #1P2= 1=?$! 1=1"1="0]"tGxBb@Zk00=!v H@&" 0@0" 1_&R"2 QB"0}1]0"1="GTGb -@0 vHC@!$! CG4G@0?&1"G B`CPB&0 CGC9BBCB&0 CCO2.O2"JBNCB9'9 C0C B@0BH1p/aJ[pKaGH1p?08@?&1" @{z`0GC BGC0BGGb3@(p^xcGG=G=]@"GGGtGHBPb@Zk GGC GGGtG8B@b@Zk GGC #."4GrPJ2F0>GGGtGhBpb@Zk GGC GGtGXB`b@Zk GGC~ (#GCz GC@.R"JCSBs&3 C@T@4G%GC}֢GCB(9BGC9CCv u@CC&0 CGCq`.J0@ ,q`KA H1D <GC eCGC0`BGCa@;.;R"JCTB&4 C@U@¦4G5GCTLGCB(9 CGCO@.JGC@GCy+@ D GC$BGC9CC@`?`CC&0 CGCB:9@0B.vJUJF>GC CGC0BGC =CcG(]0]8}@HPݤX`h=p]x#k"s""