B TERM_LOCK 11-NOV-1992 11:37DEC Fortran T3.3-249 hBRDCST$LINK$i$CODE$t$IODATA$$BSS$$DATA$0J( TERM_LOCK LIB$DISABLE_CTRL SYS$GETJPI LIB$SIGNAL(JLENSTR LIB$GETDVI SYS$GETUAI SMG$CREATE_PASTEBOARD(SMG$SET_BROADCAST_TRAPPING(JCHKMSG(SMG$CREATE_VIRTUAL_DISPLAY SMG$LABEL_BORDER(SMG$PASTE_VIRTUAL_DISPLAY(SMG$CREATE_VIRTUAL_KEYBOARD SMG$SET_KEYPAD_MODE SMG$PUT_CHARS SMG$REPAINT_SCREEN SMG$SET_CURSOR_ABSSMG$READ_STRING SYS$HASH_PASSWORD SMG$RING_BELL(SMG$DELETE_VIRTUAL_KEYBOARD(SMG$DELETE_VIRTUAL_DISPLAY SMG$DELETE_PASTEBOARDLIB$ENABLE_CTRL DFOR$EXIT SYS$DELPRC SYS$GETMSG DFOR$HANDLER DFOR$WRITE_SEQ_LIS DFOR$WRITE_SEQ_FMT DFOR$WRITE_SEQ_LIS_XMIT DFOR$READ_SEQ_FMT(SMG$GET_BROADCAST_MESSAGE SMG$CANCEL_INPUT SMG$PUT_LINEOTS$STRCMP_EQLP OTS$INDEX OTS$MOVEMOTS$FILL c =0;=0hw 8OTS$STRCMP_EQLP=  0= @ SMG$LABEL_BORDER SMG$SET_KEYPAD_MODE= TTh=E=ABORTING!! NO SECURITY OVER A LAT-CONNECTED TERMINAL;(DFOR$WRITE_SEQ_LIS_XMIT=  SYS$GETMSG LIB$ENABLE_CTRL= = RT=?7ABORTING!! NO SECURITY OVER A NETWORK TERMINAL@= NTHH; SMG$PUT_CHARS SYS$GETJPI SMG$SET_CURSOR_ABS SYS$HASH_PASSWORD(SMG$PASTE_VIRTUAL_DISPLAY=  LIB$SIGNAL DFOR$READ_SEQ_FMT= LIB$GETDVI DFOR$WRITE_SEQ_FMT8 OTS$INDEX= LO=8;=0p;= 7 DFOR$HANDLER=8;;p !SMG$DELETE_PASTEBOARD #DFOR$WRITE_SEQ_LIS=LOGOUT8 OTS$MOVEM('SMG$DELETE_VIRTUAL_DISPLAY) SMG$RING_BELL +SMG$CREATE_PASTEBOARD8OTS$FILL= = (/SMG$CREATE_VIRTUAL_DISPLAY=  1SMG$READ_STRING3 SYS$DELPRC(5SMG$DELETE_VIRTUAL_KEYBOARD=Enter Password: ` 7LIB$DISABLE_CTRL= LTx=6. WARNING!! NO SECURITY OVER A REMOTE TERMINAL= VT= : 9SMG$REPAINT_SCREEN=&L O C K E D T E R M I N A L=USER: ; DFOR$EXIT=!PROCESS DELETION FAILURE0= password failures.P= SYS$GETUAI(?SMG$SET_BROADCAST_TRAPPING= Messages (ASMG$CREATE_VIRTUAL_KEYBOARD= =0;=@Pw (CSMG$GET_BROADCAST_MESSAGE ESMG$CANCEL_INPUTG SMG$PUT_LINE=0; =#GTG~p^x^~޴>^~޵`GG8  88B@&L@bL"@Zk?$0! 0&P " 0¤C0%' C #eBGGG G$>C8BG@bGG@ZkbGB4G@ZkGtG4G _BG4G@GB"G@Zk4G@BGB"G@Zk71 C"!1 @G0"(&HI(1X* 0B820b8s!`G0&0¦"G<|GBŲG0"G >C8BG@b<1"G@ZkbGB4G@Zk0b8s00"<(GG4G"GB@G4GGB"G@Zk4GB@GB"G@Zkh81 @"71BG_BTGGGB"@Zk)K0@&I_%=9!I?&0b9!K0 1"B9v Kbk!*C`="d`]"h=Gl}Gh""G@Zk04GB"B G!&H&HG HH01@1@pA@ZkG7JJ71B!J&HGpB8K!&HK&HG GGGGG@ZkGB@ZkBTGGGB"@Zk0@-P"#h=GXB`="`b?"_"b"`"G@Zk"8b?"b_"Bb"GGG@Zk04"b"B?" `_"xb"`"G@Zk0|+gIgI G+gIgI`BTGGGB"@Zk0@-GXB#h`="`b?"_"b"`"G@Zk"8b?"b_"Bb"GGG@Zk04"b"B?" `_"xb"`"G@Zk0|+gIgI G+gIgI`BTGGGHB"@Zk0@-GXBH#h`="`b?"_"b"`"G@Zk"8b?"b_"Bb"GGG@Zk04"b"B?" `_"xb"`"G@Zk0|+gIgI G+gIgI`)!I0bBH")!IbG)v I`]" *A`=,s"dG@ZkG0@"0bGB`]",|G04s"b `A D+qaA0|`=d@Zk%0k!e$ ?&0B1"0b0B%2DB&EbB0¦'e" {#$B(Ų?$, ! 0eG0bG(B`]"G;fC4eG8G<G`=dݰ>C0b@ZkGb4GB@ZkG"GBGbG)!GGGG@Zkb "GBGGGGG@Zk"G@bTG8B@Zk0GbGBG@"GGG@Zk"0"G0BGBGb41"DR"G@ZkI"0G0"GBGb0"41"G@Zk% k!`} b "BP d`="xB"tG@ZkB"0b"0"GhBGpbD"@1"@Zkpb ")"hBB"b"GG@Zk$ `pb "hB8 d`="GG"G@Zk "0b""TG(B@Zk$0 " 0(B`="4B"`D"d=h}"+@0b AG @+cA7`Ih}>C"G@ZkX G0¤B"pBG$@X%@ hA<CGCG @GGG@ZkGGpB@ZkGB@Zk<C@GpB%@CG7HGGGG@ZkGB@Zk!v H G0*@`=d}'h>C(B#D"0b`="B"h}"G"G@Zk@!0¥ 000x!X!H}! !GG_G_04GBb@"@Zk0¤4G%b & $. <k!0""HBB"PbtGD"@Zk`} "d`="hݰh]"l}>C0bH"GBGs"~G (b0@Zk G<8 D?GGG-8 4G0¤%%\b k!!_0""HBB"PbtGD"@Zk` "dݰ`="h}h]"l}>C0bH"GBGs"~G (b0@Zk G<8 D?GG0B2.R"Q2JG'J%F`X]0`"0h}"XBGG."`b5JVJJG5J7J5J7J5vJ7vJB`}JdBhGl@Zk0¤l hER`Ơ Dt- 00."Q0JG'J%F@X0J00h}"0JXBT."0vJ`}!d BhRTJ`bl`"FJGG@Zkm̠ Du`m D`0GBTGGb#( SYS$GETUAI4=@ SYS$GETUAI4b#( LIB$SIGNAL4G LIB$SIGNAL4@ LIB$SIGNAL<+GSMG$CREATE_PASTEBOARD<,b#(SMG$CREATE_PASTEBOARD<+@SMG$CREATE_PASTEBOARD<,b#(SMG$CREATE_PASTEBOARD<+$G@SMG$CREATE_PASTEBOARD<+<@@SMG$CREATE_PASTEBOARDD@Hb#(SMG$SET_BROADCAST_TRAPPINGD?PGXSMG$SET_BROADCAST_TRAPPINGD?T@XSMG$SET_BROADCAST_TRAPPING<,`b#(SMG$CREATE_PASTEBOARD<+hGSMG$CREATE_PASTEBOARD<+@SMG$CREATE_PASTEBOARDD/GSMG$CREATE_VIRTUAL_DISPLAYD0b#(SMG$CREATE_VIRTUAL_DISPLAYD/@SMG$CREATE_VIRTUAL_DISPLAYD/GSMG$CREATE_VIRTUAL_DISPLAYD0b#(SMG$CREATE_VIRTUAL_DISPLAYD/@SMG$CREATE_VIRTUAL_DISPLAY<b#(SMG$LABEL_BORDER<G SMG$LABEL_BORDER< @ SMG$LABEL_BORDERD( G@ SMG$PASTE_VIRTUAL_DISPLAYD0 b#(SMG$PASTE_VIRTUAL_DISPLAYD< @@ SMG$PASTE_VIRTUAL_DISPLAYD@ b#(SMG$PASTE_VIRTUAL_DISPLAYDL Gd SMG$PASTE_VIRTUAL_DISPLAYD` @d SMG$PASTE_VIRTUAL_DISPLAYDBp b#(SMG$CREATE_VIRTUAL_KEYBOARDDAx G SMG$CREATE_VIRTUAL_KEYBOARDDA @ SMG$CREATE_VIRTUAL_KEYBOARD< b#(SMG$SET_KEYPAD_MODE< G SMG$SET_KEYPAD_MODE< @ SMG$SET_KEYPAD_MODE4  G SMG$PUT_CHARS4 b#( SMG$PUT_CHARS4  @ SMG$PUT_CHARS4%0 Gp OTS$MOVEM4%l @p OTS$MOVEM4%x G OTS$MOVEM4%| @ OTS$MOVEM4- G OTS$FILL4- @ OTS$FILL4% G OTS$MOVEM4% @ OTS$MOVEM4- G OTS$FILL4- @ OTS$FILL4  G$ SMG$PUT_CHARS4 b#( SMG$PUT_CHARS4  @$ SMG$PUT_CHARS<9p G SMG$REPAINT_SCREEN<:t b#(SMG$REPAINT_SCREEN<9| @ SMG$REPAINT_SCREEN< G SMG$SET_CURSOR_ABS< b#(SMG$SET_CURSOR_ABS< @ SMG$SET_CURSOR_ABS41 G8 SMG$READ_STRING42, b#(SMG$READ_STRING414 @8 SMG$READ_STRING< G SMG$SET_CURSOR_ABS< b#(SMG$SET_CURSOR_ABS< @ SMG$SET_CURSOR_ABS41 G( SMG$READ_STRING42 b#(SMG$READ_STRING41$ @( SMG$READ_STRING< G SYS$HASH_PASSWORD< b#(SYS$HASH_PASSWORD< @ SYS$HASH_PASSWORD<`GSYS$HASH_PASSWORD<b#(SYS$HASH_PASSWORD<@SYS$HASH_PASSWORD4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4G OTS$STRCMP_EQLP4@ OTS$STRCMP_EQLP4),G@ SMG$RING_BELL4*4b#( SMG$RING_BELL4)<@@ SMG$RING_BELL4hGOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4)G SMG$RING_BELL4*b#( SMG$RING_BELL4)@ SMG$RING_BELL4G$OTS$STRCMP_EQLP4 @$OTS$STRCMP_EQLP40GPOTS$STRCMP_EQLP4L@POTS$STRCMP_EQLP4)`Gp SMG$RING_BELL4*db#( SMG$RING_BELL4)l@p SMG$RING_BELL4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4GOTS$STRCMP_EQLP4@OTS$STRCMP_EQLP4)G SMG$RING_BELL4*b#( SMG$RING_BELL4)@ SMG$RING_BELLD5 G4SMG$DELETE_VIRTUAL_KEYBOARDD6$b#(SMG$DELETE_VIRTUAL_KEYBOARDD50@4SMG$DELETE_VIRTUAL_KEYBOARDD(<b#(SMG$DELETE_VIRTUAL_DISPLAYD'@GLSMG$DELETE_VIRTUAL_DISPLAYD'H@LSMG$DELETE_VIRTUAL_DISPLAY<"Xb#(SMG$DELETE_PASTEBOARD<!\GhSMG$DELETE_PASTEBOARD<!d@hSMG$DELETE_PASTEBOARDD(pb#(SMG$DELETE_VIRTUAL_DISPLAYD'tGSMG$DELETE_VIRTUAL_DISPLAY D'|@SMG$DELETE_VIRTUAL_DISPLAY<"b#(SMG$DELETE_PASTEBOARD<!GSMG$DELETE_PASTEBOARD<!@SMG$DELETE_PASTEBOARD<"b#(SMG$DELETE_PASTEBOARD<!GSMG$DELETE_PASTEBOARD<!@SMG$DELETE_PASTEBOARD4 b#(LIB$ENABLE_CTRL4 GLIB$ENABLE_CTRL4 @LIB$ENABLE_CTRL<#GDFOR$WRITE_SEQ_LIS<$b#(DFOR$WRITE_SEQ_LIS<#@DFOR$WRITE_SEQ_LIS< b#(DFOR$WRITE_SEQ_LIS_XMIT<G,DFOR$WRITE_SEQ_LIS_XMIT<(@,DFOR$WRITE_SEQ_LIS_XMIT4;,G@ DFOR$EXIT4<4b#( DFOR$EXIT4;<@@ DFOR$EXITD5HG\SMG$DELETE_VIRTUAL_KEYBOARDD6Lb#(SMG$DELETE_VIRTUAL_KEYBOARDD5X@\SMG$DELETE_VIRTUAL_KEYBOARDD(db#(SMG$DELETE_VIRTUAL_DISPLAYD'hGtSMG$DELETE_VIRTUAL_DISPLAYD'p@tSMG$DELETE_VIRTUAL_DISPLAY<"b#(SMG$DELETE_PASTEBOARD<!GSMG$DELETE_PASTEBOARD<!@SMG$DELETE_PASTEBOARDD(b#(SMG$DELETE_VIRTUAL_DISPLAYD'GSMG$DELETE_VIRTUAL_DISPLAYD'@SMG$DELETE_VIRTUAL_DISPLAY<"b#(SMG$DELETE_PASTEBOARD<!GSMG$DELETE_PASTEBOARD<!@SMG$DELETE_PASTEBOARD<"b#(SMG$DELETE_PASTEBOARD<!GSMG$DELETE_PASTEBOARD<!@SMG$DELETE_PASTEBOARD43G  SYS$DELPRC44b#( SYS$DELPRC43@  SYS$DELPRC4  GT SYS$GETMSG4 0b#( SYS$GETMSG4 P@T SYS$GETMSG<hGDFOR$WRITE_SEQ_FMT<xb#(DFOR$WRITE_SEQ_FMT<@DFOR$WRITE_SEQ_FMT<$b#(DFOR$WRITE_SEQ_LIS<#GDFOR$WRITE_SEQ_LIS<#@DFOR$WRITE_SEQ_LISDC$GDSMG$GET_BROADCAST_MESSAGEDD,b#SMG$GET_BROADCAST_MESSAGEDC@@DSMG$GET_BROADCAST_MESSAGE<EXGhSMG$CANCEL_INPUT<F`b#SMG$CANCEL_INPUT<Ed@hSMG$CANCEL_INPUT4G|G SMG$PUT_LINE4Hb# SMG$PUT_LINE4G@ SMG$PUT_LINE<:b#SMG$REPAINT_SCREEN<9GSMG$REPAINT_SCREEN<9@SMG$REPAINT_SCREEN4@G`OTS$STRCMP_EQLP4\@`OTS$STRCMP_EQLP4lGOTS$STRCMP_EQLP4|@OTS$STRCMP_EQLP =|t6# Do you wish to continue? (Y or N) E76Q76 %LOCK-I- 7 I=910 TERM_LOCKDEC Fortran T3.3-249248T ?= 4(4= TERM_LOCK4=                 $& O D O  + ) ) 0 . 3 - T O  > = = ? ? ? ? B B B I I K J J L J  J  L  _ _ b a a b a h j o i  o i o u v  z  |      $          &     .                                              <     $= `4 z= 44= $VFE_000000004=  =  .=  h4=  =  .=  <4=  = l =  = 44= CHKMSG4=F>= ! ! ! !$ $= 4 =  = 44= LENSTR4=4,+ D   D  T O $ R  D  =  =  $(