I POLICY_PLAINTEXT 11-NOV-1992 15:25DEC Fortran T3.3-249  $LINK$i0U$CODE$$IODATA$$BSS$$DATA$8JPOLICY_PLAINTEXT(JLENSTR SYS$GETUAI DFOR$OPEN DFOR$HANDLER DFOR$CLOSE STR$CASE_BLIND_COMPARE STR$FIND_FIRST_IN_SETLIB$LOCC(JxINVERT(J8CYCLESTR$TRIM DFOR$READ_KEY0J POLICY_HASH OTS$MOVEMOTS$FILLOTS$STRCMP_EQLPOTS$MOVE =0x;= h ;8 OTS$MOVEM8OTS$FILL=0;=P ` STR$CASE_BLIND_COMPARE;= $= _= $_$= _$_= $_= _$=0;=0 8OTS$STRCMP_EQLP=  = =0Q;= = 8 LIB$LOCC=3+SYS$LIBRARY:VMS$PASSWORD-POLICY-WORDS.DATAP=(     8  DFOR$OPEN=  =0;=0P 7 DFOR$HANDLER=8OTS$MOVE STR$FIND_FIRST_IN_SET=8 SYS$GETUAI DFOR$CLOSESTR$TRIM DFOR$READ_KEY =#~^^~޴>^~޵ `G#0,G0H~,pH !!H$ !!H@!v HGHݰ'@X_&PR"HݠP"(b#Tݰu@ GbG4G 4Gk! GG4G_G0BGGBGGGTB@Zk.8"x.0B BPJSxJJ0@FtJtFx>#0 Az# $`zA"1"K"k"/,""1#@H<.@CVJ>/XK?q/1" 2B[yKy? 3BG.0@CUJ>1" 3B '# $H"XBp!Cw !C$HG$H@ݥ`bG$vHPݱ@`Pݡ`]"GGdݱGG@Zk% !`d`"(b#@``"d(b#@h"`(b#hlݱ@G<4Gh]TGp"x=TG="=_"b"Bh"ݶG=Gb@ZkBGHB)!IB"J!p]hGx}xb"=h"}x"]_"bG@Zk G/ GhB"pbG_"pb"GG@Zk hh"Bp="l]TGpbt}@Zkz ?%8B)!h="$l4c p}h"@b()!t=p="TG@Zk$ G4G!!G! /1@AhGB5Bl5Jb?'5JG5vJABph"tp="TG@Zk 1@0@A0BB5B!HG!$@BG"GTBG@ZkGB@Zk"G81B@b98C8B9!K?$9!KA9v KG!Ch=lh"p}p="t=TG@Zk@*1@! @0@?4GTGGG_# 2H"G2EB @4GGp9#GHB'CG!1B1B@"GG@Zk# 0@7!?C@$!G #_&8Bh"@bTG1!I1!J1v J2Bh]p="lpt@Zk 8D@0B!1 A"F"G@Zk4GGB@Zk#?hG"^ @\ G8#; *@5@IA@5BJMA@"|"J! $0B"GG@ZkGV"G0B@Zk "V"0BG@Zk"V"0BG@ZkC "***J! GA*_ AA `G0B" GG@ZkJ! AA0C " GBG#GF")7AG'1@GTBGG@ZkGB@ZkG"F"BGG@ZkGB@Zk9 C## 0A 0@c U GG_ 0@A" BY@A 4G/5@4G5A4GG GBGBGR"@ZkGB@ZkGGXD BG0B4GR"@ZkGGB@Zk4G 0BGB"4G@ZkGGB@ZkGGCBGG/AG%@BG'R"GGXEGBCG6BGG0ABG'R"4GB@ZkGB@Zk=`@y@ADM*#$ 8`D GCBGG8CGABGFR"G/X`DGBCG @GG0BBGFR"4GB@ZkGB@ZkGC$?' 9#h=l}h"Xp="BTGbpHt@Zk?% !hh"l}8="8xb#*@h"hp="l}TGXBbpt@Zk,0`@!a0A!\0@ WGy@bG-GBGc GG@ZkGB@Zk&8= "hݲh"l8="X=p]"b#p=Ht@@8Dz z z U GGBC"GG@ZkGB@Zk%8 !hlh"Xݠ8="p]"b#pݰt@8Dz xG*!6 GBG>C"GG@ZkGB@Zkh"88="hp]"lb#pݰt@8Dz \GJ!@ GBG]C"GG@ZkGB@Zkh"88="hp]"lb#pݰt@8Dz @G0BG<ݡB"4G8ݱ@ZkGGB@ZkG@]GGBG@ZkGB@Zk$ c h}lh"X=p="BTGbp=Ht@Zkz h}h"l8="xb#n@h}h"lp="BTGp=bt@Zkz G@&QA0B/A/1A4G AGB"4G@ZkGGB@ZkGGB"HBGG@Zk 4G@]GHBB"G FAG@Zk BG@]GGG@ZkGB@Zk G/@]4GBG(1AGGTBGG@ZkGB@Zk Gh}h"Bp="lTGp=bt@Zkz h}h"l8="8xb#@h"h}p="lTGBp=bt@Zkz @G0BB"4G-!IE@ZkGGB@ZkE@] TGBGGGTBGG@ZkGB@Zk GBG$1A@]GGG@ZkGB@ZkG@}@"Bh="DTGh=bl@Zkz nG@}@"D8="8ݰxb#@@"@}h="DTGBh=bl@Zkz Y.I@}%D.IxBb@".vIh="AhP<]"tGl@Zk@"<]8="P]"b#8]@}DP=T@8Dz 90BGB"4G@ZkGGB@ZkGG`}GB!G@ZkGB@Zk@"`P="bTGB8@}DP=T@Zkz @}@"D8="xb#j@@}@"DP="BTGP=bT@Zkz G4G`G]]}ݤ=]}ݥ 0#k/,@ HD,pH?q.S qJdF{G4Gk#G~^^~ G0.0J)GCG C91C0@_" AG4GBG(A"G@Zk4GB AG0A"G@Zk 91`@"81CGG]]} 0#kGG,@ HD#G~^^P.GPJ6.CТJ5 G 7J(@GJGGGG@ZkG0@@Zk4GG5B0B!1 C0 C5J:!C9JJGGG(@;1B&KBG5BG 7CTBG@ZkG0@@Zk_G]] #k0,A 0H2Dq.S qJwF#G~^^~޴>^~޵GG=.J%G¤GCBG( G]}@ZkGB@Zk,H'HH /KBG= }@ZkGB@Zk=  .6JuHp)J(BWJ0b2v IF>8K& SB8K(?&8]8vK0]1"( C C0"4@="H}TG@}PD@Zkz G C0=.J6JBG]J0}GG@ZkGB@Zk4GG9B0 CB81B9&K B0B&K7JG!1 CJBG9!CG BGTBG@ZkGB@Zk@]@"(BX="DTGX}0b\@Zkz G!0@.&H4GI@ݱXX@ݡ'1A%A0.rI¤BQ0J8"( 2F0>G= }@ZkGGBTBG@ZkGB@Zk`"8]h="0bTG(B`](dH}h}Pl@Zk .J~6JBG]J0}GG@ZkGB@Zk4G8qB8KKeG9B9&KPB&K0B0&K21 CJ2FJ0 C&1B1&JFJ:1B H.B9Q C!&H&JH(1@B9&KG&H*HB;BpBB51@,1 B&K)fJBG#1 @ @+,BG!#@&I$1 C BGTBG@ZkGB@ZkG7IGBBGJGTBG@ZkGB@ZkGGBBG 1 A9$CGTBG@ZkGB@ZkGG) ABBGGTBG@ZkGB@Zk B B`G&BB0@!1BB&H.B 0BH7fIG,1@JBG&@G BGTBG@ZkGB@Zk8`"(Bh="0b`(=d=HhP=l=TG@Zk }¥B P`@8B+fI(!fI`}G= }@ZkHB"4GB@ZkGGTBBG@ZkGB@Zk G,hlI(Bh"0bp="FHTGD<8hl=pPݢtݲ@Zk  - I (IBG]I0}GG@ZkGB@Zk 4G!qA!&H&He G6 A6JPAJ5J01B0JJJ0B0A&J,1B.1B:1A7J*B$B6QB8KJ6JGKH;ApAB91BJ)&JBG 1C7B#1@G8C&@&I/1B AGTBG@ZkGB@ZkG"-fIGBIGBGTBG@ZkGB@ZkGG71 ABBG6BGTBG@ZkGB@ZkGGBB)7AGGTBG@ZkGB@Zk A A# A0`@81AB#fH&A 0AfH-FIG,1`@IBG#l@G AGTBG@ZkGB@Zk8h"(Bp="0bTGh(=l=HpPݢtݲ@Zk bB8B(k!=G }@Zk@B"4GB@ZkGGBTBG@ZkGB@Zk`ݠ G-cH(Bh"0bp="LITG E=8hl=pP=t=@Zk ,H $HBG]H0}GG@ZkGB@Zk 4G.q@.IIeG!@!&HPA&H5J01 @0JJJ0 @0A &H&1B*1B:1A6J,B+ B!Q @7JJ!&HGJH;ApAB81B&H/&JBG91B6B#1@G7B @I)1 @AGTBG@ZkGB@ZkG-IGBI =GBGTBG@ZkGB@ZkGG61ABBG!)@GTBG@ZkGB@ZkGGBB/AGGTBG@ZkGB@Zk A A #@b0`@71AB#fH A 0AfH-IG&1`@IBG#f@G AGTBG@ZkGB@Zk_8ݢh"(Bp="0bTGhݲ(lH=p=P=t=@ZkR ݡbB pA8¤,I(k!IhG= }@Zk`B"TGB@ZkGGTBBG@ZkGB@Zk}/ `G,jI(Bp"0bx="DHTGD<8ptx=Pݢ|ݲ@Zk$ ],H @B$HBG]H0}GG@ZkGB@Zk4G!q@!&H&He G6@6JPAJ5J01B0JJJ0B0A#J*1B+1B:1A7J&B) B6QB8KJ6JGKfH;ApAB91BJ/&JBG 1C7B.1`@G8C#n@I-1B AGTBG@ZkGB@ZkG"(IGBIGBGTBG@ZkGB@ZkGG71ABBG6BGTBG@ZkGB@ZkGGBB/AGGTBG@ZkGB@Zk A A.@"0A81AB.I#A0AI(HG*1AIBG.AG AGTBG@ZkGB@Zk8p"(Bx="0bTGp(tHxPݢ|ݲ@ZkB8¤(!=G }@ZkhB"TGB@ZkGGBTBG@ZkGB@Zk=h}g GI-niH(Bp"0bx="JIITG NEI=8ptxP=|=@ZkVݥN-NIV ¥*FIBG]FI0}GG@ZkGB@Zk4G@+q@A+fIfIe`G!HA!&HPA&H5J01 @0JJJ0 @0A &H#1B&1B:1A6J.B,B!Q @7JJ!&HGJH;ApAB81B&H-&JBG91B6B)1@G7B  @I/1 @AGTBG@ZkGB@ZkG(HGBIGBGTBG@ZkGB@ZkGG61ABBG!/@GTBG@ZkGB@ZkGGBB-AGGTBG@ZkGB@Zk A A )HA 0 A71AB)&I A0A&I(IG#1 AIBG)#AG AGTBG@ZkGB@Zk8ݢp"(Bx="0bTGpݲ(tHxP=|=@Zk }B`A8b.I(!IpݱG= }@ZkPB"tGB@ZkGGTBBG@ZkGB@Zk= G,hI(Bx"0b="FHTGD<8]x]|Pݢݲ@Zk= - I "(IBG]I0}GG@ZkGB@Zk4G!qA!&H&He G6A6JP@J5J01B0JJJ0B0@&J,1B#1B:1@7J)B/B6QB8KJ6JGKH;@p@B91BJ-&JBG 1C7B+1@G8C&@I*1B@GTBG@ZkGB@ZkG"$IGBHGBGTBG@ZkGB@ZkGG71ABBG6BGTBG@ZkGB@ZkGGBB-AGGTBG@ZkGB@Zk @ @+A 0`A81@B+fI&@ 0@fI$&IG,1`AHBG+lAG @GTBG@ZkGB@Zk8x"(B="0bTGx(|H]]Pݢݲ@Zk¥B8"(!=G }@ZkXB"tGB@ZkGGBTBG@ZkGB@Zkpݠ G-kH(Bx"0b="LITG E=8}x}|]P==@Zk},H `b%HBG]H0}GG@ZkGB@Zk 4G/q@/IIeG$@$HpAH0A51@5J0@J8HPA&1B:1A(I)B$Q@*J!&H HI$HG&HKH;AB61AHBG71 @(A91C'1@G!7@8C @FI.1@ AGTBG@ZkGB@ZkG¦,fIGBIGBGTBG@ZkGB@ZkGG(1@ABBG$@GTBG@ZkGB@ZkGGBB*HAGGTBG@ZkGB@Zk A A9@"0 C!1AB9&K8A0A&K,HG'1 CIBG9'CG AGTBG@ZkGB@Zkx}x"|="HݢTG(B0bݲPݡݱ@ZkX} 0`A+fIfIX}k!1 4GX=/X=@ݠ'1 A%'A -jH8G"GH IBG E =(! TB=@Zk }GB@ZkGB@Zkx"8}="0bTG(Bx}(|HPݡݱ@Zk,Hb&HBGHxݰ]G0}G@ZkGB@Zk 4G,q@,IIfxݠp@A0@AP@A/@/I:1@AI+J51A5J0AJ9I-1B!&H.B/QA6J(I&H/IGJ&KI;ZAB71 @IBG81B!7@ 1 C#1AG6B9 C(AfI$1A@AGTBG@ZkGB@ZkG*HBGGBGFITBG@ZkGB@ZkGGBBG!1`A/AGTBG@ZkGB@ZkGG+aABBGGTBG@ZkGB@Zk LAx XAx61@A¥#VA 0@A9 @B0 C9&K*I&KG(1 CFIBG9(CG @AGTBG@ZkGB@Zk8=x"(B="0bTGx=(}|}HP@Zk9G8GBG=(!TB@ZkHB"4GB@Zk }GB@ZkGB@Zkݥ`}8-jnH(Bx"0b="HITG E=8ݠxݰ|}@ZkݥN-NI)G¥*FIBG]FI0}GG@ZkGB@Zk4G@6q@A6JJeG7AA7JP @J0J5JJJ11B0B0 @.1B-1B1&J:1 @8K#B, B7QB9&K&Jp @K7JG&K;:@B+FJ 1C/1 BJBG(1 C8C$/BG9(CfI&1B @GTBG@ZkGB@ZkG!&IGB&HGBGTBG@ZkGB@ZkGG81`ABBG7BGTBG@ZkGB@ZkGGBB+xAGGTBG@ZkGB@Zk 6@? *@.AA0A91 @B.I#9@ 0 @I!IG-1A&HBG.AG *@GTBG@ZkGB@Zk8x"(B="0bTGx(}|}HݠݰP@ZklG8GBG=(!TB@Zk@B"4GB@Zk }GB@ZkGB@Zk`}qG-ndH(Bx"0b="MITG E=8]x]|}ݰP==@ZkB,H`$HBG]H0}GG@ZkGB@Zk4G/q@/IIeG)@)&IpA&I0A51 A5J0 AJ9&IPA,1B:1A!&H(B)Q A&J6J#fH&H)&IGJ&KfH;AB71 @&IBG81B!7@ 1 C-1`@G6B9 C#m@H+1 A AGTBG@ZkGB@ZkG.FIGBIGBGTBG@ZkGB@ZkGG!1@BBG)+AGTBG@ZkGB@ZkGGBB&@GGTBG@ZkGB@Zk A_ A @0@61AB H9A0AH.fHG-1@IBG  @G AGTBG@ZkGB@Zk8=x"(B="0bTGx=(ݠ|ݰH}}P==@ZkG8GbBG=(c TB@Zk`B"TGB@Zk }GB@ZkGB@ZkhG,l I(Bx"0b="DHTGD<8ݡxݱ|ݰ}=@Zku-IG,IBG]I0}GG@ZkGB@Zk 4G!qA!&H&He G6A6JP@AJ5J01B0JJJ0B0@A$J(1B/1B:1@A7J#B)B6QB8KJ6JGKH;ZAp@AB91BJ+&JBG 1C7B-1@G8C$@fI&1B@AGTBG@ZkGB@ZkG"*IGBFIGBGTBG@ZkGB@ZkGG71`ABBG6BGTBG@ZkGB@ZkGGBB+wAGGTBG@ZkGB@Zk AA LA-A" 0A81@AB-I$XA0@AI*fHG(1AFIBG-AG LAGTBG@ZkGB@Zk8x"(B="0bTGx(}|}HݠݰPݢݲ@ZkG8¥GbBG=(c TB@ZkhB"TGB@Zk }GB@ZkGB@Zk=h G -mH(Bx"0b="H ITG E =8]x]|}ݰP==@Zk= - I "(IBG]I0}GG@ZkGB@Zk 4G,qA,IIeG/ A/IpAI0A51A5J0AJ9IPA#1B:1A!&H.B/QA&J6J$H&H/IGJ&KH;AB71 @IBG81B!7@ 1 C)1@G6B9 C$@H+1A AGTBG@ZkGB@ZkG-FIGBIGBGTBG@ZkGB@ZkGG!1@BBG/AGTBG@ZkGB@ZkGGBB&@GGTBG@ZkGB@Zk A_ A  A¥0@61AB H9A0AH-HG)1@IBG  @G AGTBG@ZkGB@Zk8=x"(B="0bTGx=(ݠ|ݰH}}P@ZkG8GBG=( TB@ZkPB"tGB@Zk }GB@ZkGB@Zk=pݡ Gi,hI(Bx"0b="CiHTGhDi<8x|ݰ}@Zk= - I  G =xp"(IBG]I0}GG@ZkGB@Zk 4G!qA!&H&He G6 A6JP@AJ5J01B0JJJ0B0@A#J.1B,1B:1@A7J$B/ B6QB8KJ6JGKfH;ZAp@AB91BJ+&JBG 1C7B)1`@G8C#i@fI&1B @AGTBG@ZkGB@ZkG"*IGBFIGBGTBG@ZkGB@ZkGG71`ABBG6BGTBG@ZkGB@ZkGGBB+wAGGTBG@ZkGB@Zk AA HA) A 0 A81@AB)&I#XA0@A&I*HG.1 AFIBG).AG HAGTBG@ZkGB@Zk8x"(B="0bTGx(}|}HݠݰPݢݲ@Zk4G8GBG=( TB@ZkXB"tGB@Zk }GB@ZkGB@Zkp}QG-ioH(Bx"0b="NITGE=8x|}ݰP==@Zk ,H@'HBG]H0}GG@ZkGB@Zk4G)q@)&I&Ie G.@b.Ip`@I 0`@0A6IP`@ 1A/I51`@.QA-J*FI8K H:u@I.IGFIJKHGB,1AIBG!1@A/A71B91C%1@G*AA6B8C @I$1A`@TBG@ZkGB@ZkG#HGBfHGBGTBG@ZkGB@ZkGG/1ABBG.AGTBG@ZkGB@ZkGGBB-AGGTBG@ZkGB@Zk i@ g@ 7@0B*1`@B7J6j@0`@J#KG91BfHBG7BG g@GTBG@ZkGB@Zkxx"|}="HTG(B0bP@ZkhXݠ0@&HHXݰ ; ]j `JA%HB( = }HG@ZkG }B@ZkGB@Zk/HI-aI(B@"0bX="NITGE=@D}X\@Zk:z z z z z z z z z z z z z z z z z z z z z z z z z z z z z },H<`"&HBG]H0}GG@ZkGB@Zk 4GG/@0AB.1A/I!A0AI-JG61AIBG/AG AGTBG@ZkGB@Zk@@"(BX="D}TGX0b\@Zkz JG0@B.I=G }I@ZkHB"4GB@ZkG }B@ZkGB@Zk,mI(B@"0bX="FHTGD<@D}X\@Zkz !-IB-IG]0}IGG@ZkGB@Zk4G6A0BB!1`@6J7a@0`@J#&KG81BfHBG6BG m@GTBG@ZkGB@Zk@@"(BX="D}TGX0b\@Zkz GBG= }@Zk@B"4GB@Zk }GB@ZkGB@Zk}`G-fI(B@"0bX="MITG E=@D}X\@Zkz ,HB&HG]0}HGG@ZkGB@Zk4G!@0 @B/1A!&H6A0A&H.KG71 @IBG!7@G AGTBG@ZkGB@Zk?@@"(BX="D}TGX0b\@Zkz GJ!@P@B/I=G }I@Zk`B"TGB@ZkG }B@ZkGB@ZkݤB-cI(B@"0bX="NITGE=@D}X\@Zkz ]ݤf,fH2B#fHG]0}fHGG@ZkGB@Zk4G`!n@0 @B-1A!&H6A0A&H.KG71 @IBG!7@G AGTBG@ZkGB@Zk?@@"(BX="D}TGX0b\@Zkz $GBG= }@ZkhB"TGB@Zk }GB@ZkGB@ZkGm,nI(B@"0bX="CmHTGnDm<@D}X\@Zkz ݥ-IB-IG]0}IGG@ZkGB@Zk4G*A 0@AB&1A*FI!A0AFI/JG61@AIBG*VAG AGTBG@ZkGB@Zk@@"(BX="D}TGX0b\@Zkz Gp@B%H=G }H@ZkPB"tGB@ZkG }B@ZkGB@ZkݤF-mH(B@"0bX="JFITG MEF=@D}X\@Zkz M-MIB*FIG]0}FIGG@ZkGB@Zk4G@.OA0AB#1A.I!A0AI/JG61AIBG.AG AGTBG@ZkGB@Zk@@"(BX="D}TGX0b\@Zkz bGBG= }@ZkXB"tGB@Zk }GB@ZkGB@Zk}?`G-jH(B"0b ="NITGE=} $@Zkz ;e,eH.B#fHG]0}fHGG@ZkGB@Zk 4G`/j@0AB.1@A/I&NA0@AI*&HG-1AFIBG/AG CAGTBG@ZkGB@Zk"(B=" }TG0b@Zkz G4GG]]}ݤ=]}ݥ#k0,A 0H6D7,A 7H'D.U JF. HW JF>0,A 0H6D0. IQ 0J2F0>X0,A 0H6D~, lIF HD<8,F HDJ- HL I E=l,C lHdD, ID HD<j,C jHdDI- iHJ II NEI=.-I .I *E, IF HD<`,F HDr- HL I E=(,G HD: - HH I E =h-K hIfE - nHH I E=-H I  E- dHM I E=m,C mHdD, ID HD OTS$MOVEM4>@> OTS$MOVEM4>G>OTS$FILL4 >@>OTS$FILL4>G<> OTS$MOVEM48>@<> OTS$MOVEM4@>GH>OTS$FILL4D>@H>OTS$FILL4l>G> OTS$MOVEM4>@> OTS$MOVEM4>G>OTS$FILL4>@>OTS$FILL<>G>STR$CASE_BLIND_COMPARE<>b#8STR$CASE_BLIND_COMPARE<>@>STR$CASE_BLIND_COMPARE4?G,? OTS$MOVEM4(?@,? OTS$MOVEM44?G