DRAW_ECHOV1.0 4-NOV-2021 11:21 VSI C V7.4-002 @ $READONLY$iL$CODE$  UNUSEDTIMEOUTh $LITERAL$p$LINK$($DATA$  CONNECTEDCOUNT0CONNECTEDCOUNT0  UNUSEDTIMEOUT  USAGECOUNT0 USAGECOUNT0J ADDCLIENT0JECHOTHIS0JPP NEXTREQUEST8Jx` OUTPUTCLIENTSTATUS0Jp  OUTPUTLINE0J0  REMOVECLIENT0JP  TELNETCOMMAND0J0TELNETLINEMODE(JhMAIN(J__MAIN "6= =(Hello !AZ !AZ (!AZ) at !AZ 8= !UL: !AS H=^V!AZHello !AZ; Connected: !ULS; Timeout: !ULS; Connected: !UL; Usage: !UL; Mode: !AZ =TL#G8^~ _#0"@^4GHcGG#]("8[@b "G@Zk`b#@BG4Gb/@ZkcG8]@]HP#/k///#;H";"~^GX{"[^~ GGAb@Zk"8BG@b@ZkBG4Gb/@ZkBGb@Zk6B4Gb"/@ZkB 4Gb@Zk/hBGpb/@Zk// b///B4Gb"@Zk(BG4G0b@ZkGb#0@4@xBGb/@Zk(B4G4G0b@Zk/B"TGBb82"/@ZkB4G4Gb@Zk//8#~^^GG{#00 B04G @ӐGbG]] #k/#G(^`[~0^8~@HGG#hb@ZkB4G8?"TGb@Zk@BG""4GHb@ZkBGTGb@Zk@B$c""4G}Hb/@ZkBGTGb@Zk&'?&B&TG(c3~JtFC@(c$c"G7vJF( 0c;~KqGC2v_JUF0C4cP"b/@ZkBGG4G$b@ZkR//BGGTGb@Zk@B$4GHb@Zk0B "G" \G0 $8b@Zk0 b_"G`Bhb0Js"F0 }@Zk=BGG} GGbP>@ZkB$G_"tGb @Zk0B$G"""G8b@Zk(#pB$"(#"GxbbG!?H$D (#,$@Zkd0`@dG(]0]8}@HP#/k///0BG"""tG8b@ZkpBGxb@ZkB4Gb/@Zk0B"""_"tG8b/@ZkB 4Gb@Zk//#4G~^p[^GGxb@ZkBG4Gb/@Zk / !1 @ G]] #k///#4G~^0[^~ (0޴8@GGG8b@Zk BG4G(b@ZkBG4GbTG@ZkBGGb@Zk",($1!v H@@@ @///.2@Gpb#GJF/ ///G@ӡ@G/ .JFE.EJAF""xH/@.JWJF>%/%K& dG`$// b#@ PBG@""GGGXb@  @Zk@hPBG ""GGGXb@Zk@\DGb#/  //@ӳ@Pá@U@@b#0DGA $CD  _@Ӡ@//3%,%HU!@@@8 $?B0 B@%@d.J$" @$/yJXKG$?~%/PB$G4GGGXb/@Zk,HXD @k//$0 B$ @b / BG4G(b@Zk//(B $ GGG($"bb HD(,@ZkG]]} (0ݤ8@P#k//#?&@^[~1" ~"H^PGG>C4G ~b@Zk`¦$ B="bG$6@" 2v@J4JF]" 0B` "@ZkG="BbtG0J vHF/@ZkG@]H]P`#k/#G^[~^ ~(0GG#b/@Zk(B4G 0b@Zk0 ? G0 1?J!F0 / B  â =@B#G8b#" b"F$" @F#B~99BGbGTG"@ZkG_" btGG]] }(0@#k///#2B~^^~ (0޴8G G%BC GG //,GG ""bHD/5D/  @K_G^G/.G@B4G@Zk%/X_G@/ ///.d"JFD.SJ^F@ @/// //_C_Cu_C_CFFF@@GG]]} (0ݤ8@#k///0 ;G"8{Gk45HGd DECC$MAIN46Lb# DECC$MAIN45`@d DECC$MAIN4lG DECC$EXIT4xb# DECC$EXIT4@ DECC$EXIT4)G DECC$FREOPEN 4*b#h DECC$FREOPEN4)@ DECC$FREOPEN4-G  RAWLIBINIT4.b#h RAWLIBINIT4-@  RAWLIBINIT<' G$RAWLIBSETLIFESECS<(b#hRAWLIBSETLIFESECS<' @$RAWLIBSETLIFESECS4%$G4RAWLIBISCGIPLUS4&,b#hRAWLIBISCGIPLUS4%0@4RAWLIBISCGIPLUS4!<GT DECC$GETENV4"Db#h DECC$GETENV4!P@T DECC$GETENV<#TGlRAWLIBONNEXTREQUEST<$`b#hRAWLIBONNEXTREQUEST<#h@lRAWLIBONNEXTREQUEST4/pG SYS$HIBER40xb#h SYS$HIBER4/@ SYS$HIBER4G RAWLIBCGIVAR4b#h RAWLIBCGIVAR4@ RAWLIBCGIVAR4+G SYS$SETAST4,b#h SYS$SETAST4+@ SYS$SETAST<1GRAWLIBCGIPLUSEOF<2b#hRAWLIBCGIPLUSEOF<1@RAWLIBCGIPLUSEOF4+G SYS$SETAST4,b#h SYS$SETAST4+@ SYS$SETAST43G4DECC$GXFPRINTF44 b#hDECC$GXFPRINTF430@4DECC$GXFPRINTF44GH DECC$EXIT4@b#h DECC$EXIT4D@H DECC$EXIT<1GRAWLIBCGIPLUSEOF<2b#PRAWLIBCGIPLUSEOF<1RAWLIBCGIPLUSEOF4G RAWLIBTIME4b# RAWLIBTIME4@ RAWLIBTIME4 G DECC$CALLOC4 b# DECC$CALLOC4 @ DECC$CALLOC4G, RAWLIBCGIVAR4$b# RAWLIBCGIVAR4(@, RAWLIBCGIVAR4 ,GD DECC$STRCPY4<b# DECC$STRCPY4 @@D DECC$STRCPY4DGd RAWLIBCGIVAR4Xb# RAWLIBCGIVAR4`@d RAWLIBCGIVAR4 dG| DECC$STRCPY4tb# DECC$STRCPY4 x@| DECC$STRCPY4G RAWLIBCREATE4b# RAWLIBCREATE4@ RAWLIBCREATE4G$ DECC$FREE4b# DECC$FREE4 @$ DECC$FREE<0GHRAWLIBSETIDLESECS< @b#RAWLIBSETIDLESECS<D@HRAWLIBSETIDLESECS4HG\ RAWLIBOPEN4Tb# RAWLIBOPEN4X@\ RAWLIBOPEN4\G RAWLIBWRITE4b# RAWLIBWRITE4@ RAWLIBWRITE4G RAWLIBVERSION4b# RAWLIBVERSION 4@ RAWLIBVERSION, GSYS$FAO, b#SYS$FAO, @SYS$FAO4GRAWLIBWRITEDSC4b#RAWLIBWRITEDSC4@RAWLIBWRITEDSC4G( RAWLIBWRITE4 b# RAWLIBWRITE4$@( RAWLIBWRITE4,Gd RAWLIBREADDSC4<b# RAWLIBREADDSC4`@d RAWLIBREADDSC4G DECC$GXPRINTF4b# DECC$GXPRINTF4@ DECC$GXPRINTFDGCMA$TIS_VMSERRNO_GET_ADDRDb#CMA$TIS_VMSERRNO_GET_ADDRD@CMA$TIS_VMSERRNO_GET_ADDR4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4G DECC$GXPRINTF4b# DECC$GXPRINTF4@ DECC$GXPRINTF4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT<70GLRAWLIBGETUSERDATA<8Db#0RAWLIBGETUSERDATA<7H@LRAWLIBGETUSERDATA4LGd DECC$FREE4Xb#0 DECC$FREE4`@d DECC$FREE<;GRAWLIBREADSTATUS<<b#RAWLIBREADSTATUS<;@RAWLIBREADSTATUS49G RAWLIBCLOSE4:b# RAWLIBCLOSE49@ RAWLIBCLOSE<7GRAWLIBGETUSERDATA<8 b#RAWLIBGETUSERDATA<7@RAWLIBGETUSERDATA4G, RAWLIBTIME4$b# RAWLIBTIME4(@, RAWLIBTIME4 GT RAWLIBWRITE4<b# RAWLIBWRITE4P@T RAWLIBWRITE4`G RAWLIBWRITE4|b# RAWLIBWRITE4@ RAWLIBWRITE4p G RAWLIBWRITE4 b# RAWLIBWRITE4 @ RAWLIBWRITE49 G RAWLIBCLOSE4: b# RAWLIBCLOSE49 @ RAWLIBCLOSE4 G< RAWLIBREADDSC4 b# RAWLIBREADDSC48 @< RAWLIBREADDSC<7| G RAWLIBGETUSERDATA<8 b#RAWLIBGETUSERDATA<7 @ RAWLIBGETUSERDATA,  G SYS$FAO,  b#SYS$FAO,  @ SYS$FAO4 GD RAWLIBWRITEDSC4 b#RAWLIBWRITEDSC4@ @D RAWLIBWRITEDSC4l G RAWLIBTIME4 b#x RAWLIBTIME4 @ RAWLIBTIME<7 G RAWLIBGETUSERDATA<8 b#xRAWLIBGETUSERDATA<7 @ RAWLIBGETUSERDATA \, , Gd SYS$FAO, L b#xSYS$FAO, ` @d SYS$FAO4h G RAWLIBWRITEDSC4x b#xRAWLIBWRITEDSC4  RAWLIBWRITEDSC4 b#P RAWLIBWRITE4L GX RAWLIBWRITE4T @X RAWLIBWRITE40GL RAWLIBWRITE4@{# RAWLIBWRITE4HL RAWLIBWRITE $= < = RAW_ECHO AXP-1.0.0=(RAW_ECHO_ON_NEXT_REQUEST8=80Status: 500 RawSocket needs to be CGIplus! ( =00; ;=0 RAWLIBWRITE RAWLIBOPEN0;` RAWLIBVERSION RAWLIBREADDSC SYS$FAO; DECC$CALLOC= REMOTE_HOST= [%s:%d]= RAW_ECHO DECC$STRCPY DECC$EXIT=0( ;=P( 7CONNECTEDCOUNT0 DECC$GXPRINTF RAWLIBCGIVAR;` RAWLIBTIME(CMA$TIS_VMSERRNO_GET_ADDR= SERVER_NAMERAWLIBWRITEDSC=[Char Mode] ; RAWLIBCREATE DECC$FREE RAWLIBSETIDLESECS! DECC$GETENV #RAWLIBONNEXTREQUEST=  %RAWLIBISCGIPLUS=w@ 'RAWLIBSETLIFESECS) DECC$FREOPEN7DECC$GA_STDOUT=0";=04 7 USAGECOUNT+ SYS$SETAST- RAWLIBINIT= SYS$OUTPUT= ctx=bin/ SYS$HIBER 1RAWLIBCGIPLUSEOF3DECC$GXFPRINTFP;=08";=P0 7DECC$$SHELL_HANDLER=@5 DECC$MAIN=0" ;= @,| x=0 ` ;= @(  7RAWLIBGETUSERDATA=Line=Char=0@ p ;=`( =0 ;=P4 9 RAWLIBCLOSE ;RAWLIBREADSTATUS=[Line Mode] 0=0  ;=  =0 P;=  ="=4=UH4= 84=4 >=.&%RAW_ECHOVSI C V7.4-002 ?= h4=TRANSFER$BREAK$GO = 4h4= main4=vnm = = = = =  &= *= = =  = P4P4= NextRequestP4=5-, E= >= E= I= I= = ` = 44= AddClient4=80 Q=  Q=  Q=  _= a= m= f= g= g= j= g= q= q=A |=@ =; = = = = = = = =* = = =0 b=< :=  \4= = }=v\4= t4= |4= , = p =  404= RemoveClient 4=.&% = = =$ =  = 44=EchoThis4=og =  =  =  = = = = = = = = = == = =: = = =6 = =(  = =  = =>a > =F =P =T =.+ > > > >4 =  = p 44= OutputLinep 4={sr (> (> (> (> (> 0> 9> :> :> <> >> =  = ` 4x4= OutputClientStatus` 4= H> H> H> Y> [> ]> e> _> c> b> f> e> _> _># _>  j> l> = P =  4P4= TelnetCommand 4= v> v> v> > > > > > > > > > > 4 =  {= 044=TelnetLineMode04= > =  s= 44= __main4= = =  Le4 =  HDECC$GA_STDOUTDECC$GXFPRINTF DECC$GXPRINTF DECC$FREOPEN DECC$FREE DECC$EXIT DECC$GETENV DECC$CALLOC DECC$STRCPY(CMA$TIS_VMSERRNO_GET_ADDR RAWLIBCREATE RAWLIBGETUSERDATA RAWLIBOPEN RAWLIBCLOSE RAWLIBREADDSC RAWLIBREADSTATUS RAWLIBWRITERAWLIBWRITEDSC RAWLIBSETIDLESECS RAWLIBSETLIFESECS RAWLIBCGIVAR RAWLIBCGIPLUSEOFRAWLIBISCGIPLUS RAWLIBONNEXTREQUEST RAWLIBVERSION RAWLIBINIT RAWLIBTIME SYS$HIBER SYS$SETASTSYS$FAO DECC$MAIN DECC$$SHELL_HANDLER C$GA