DRAW_ECHOV1.0 3-MAR-2018 06:36 HP C V7.3-009 @ $READONLY$i<$CODE$  UNUSEDTIMEOUTh $LITERAL$p$LINK$($DATA$  CONNECTEDCOUNT0CONNECTEDCOUNT0  UNUSEDTIMEOUT  USAGECOUNT0 USAGECOUNT0J ADDCLIENT0JECHOTHIS0JP@ NEXTREQUEST8JxP OUTPUTCLIENTSTATUS0J`  OUTPUTLINE0J0 REMOVECLIENT0JP  TELNETCOMMAND0J TELNETLINEMODE(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 =D<#8^8[~ "0#@^4GHcGG#  (#ݶ@b@Zk`b#@BG4Gb@ZkcG8]@]HP#k///#H";"~^GX{"[^~ GG@b@Zk"8BG@b@ZkBG4Gb/@ZkBGb@ZkB4G3b"/@ZkB 4Gb@Zk/hBGpb/@Zk// b///B4Gb"@Zk(BG4G0b@ZkGb#0@4@xBGb/@Zk(B4G4G0b@Zk/""TGBb81"/@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/@ZkBG4Gb$G@ZkR//BGTGb@Zk@B$4GHb@Zk0B "G" G\0 $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$0@"2v@J4JF]"0B`"@ZkG="BbtG0J vHF/@ZkG@]H]P`#k/#G^[~^ ~(0GG#b/@Zk(B4G 0b@Zk0 ? G0 1?J!F0 / B â c "@"#8B#" b"FFG$""5B0pCb^TG1!B>G">/@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{Gk45G\ DECC$MAIN46Lb# DECC$MAIN45X@\ DECC$MAIN4dGx DECC$EXIT4pb# DECC$EXIT4t@x DECC$EXIT4)G DECC$FREOPEN 4*b#h DECC$FREOPEN4)@ DECC$FREOPEN4-G RAWLIBINIT4.b#h RAWLIBINIT4-@ RAWLIBINIT<'GRAWLIBSETLIFESECS<(b#hRAWLIBSETLIFESECS<'@RAWLIBSETLIFESECS4%G$RAWLIBISCGIPLUS4&b#hRAWLIBISCGIPLUS4% @$RAWLIBISCGIPLUS4!(GD DECC$GETENV4"4b#h DECC$GETENV4!@@D DECC$GETENV<#DG\RAWLIBONNEXTREQUEST<$Pb#hRAWLIBONNEXTREQUEST<#X@\RAWLIBONNEXTREQUEST4/`Gt SYS$HIBER40hb#h SYS$HIBER4/p@t 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$SETAST43 G$DECC$GXFPRINTF44b#hDECC$GXFPRINTF43 @$DECC$GXFPRINTF4$G8 DECC$EXIT40b#h DECC$EXIT44@8 DECC$EXIT<1xGRAWLIBCGIPLUSEOF<2b#PRAWLIBCGIPLUSEOF<1RAWLIBCGIPLUSEOF4G RAWLIBTIME4b# RAWLIBTIME4@ RAWLIBTIME4 G DECC$CALLOC4 b# DECC$CALLOC4 @ DECC$CALLOC4G RAWLIBCGIVAR4b# RAWLIBCGIVAR4@ RAWLIBCGIVAR4 G4 DECC$STRCPY4,b# DECC$STRCPY4 0@4 DECC$STRCPY44GT RAWLIBCGIVAR4Hb# RAWLIBCGIVAR4P@T RAWLIBCGIVAR4 TGl DECC$STRCPY4db# DECC$STRCPY4 h@l DECC$STRCPY4G RAWLIBCREATE4b# RAWLIBCREATE4@ RAWLIBCREATE4G DECC$FREE4b# DECC$FREE4@ DECC$FREE< G4RAWLIBSETIDLESECS< ,b#RAWLIBSETIDLESECS<0@4RAWLIBSETIDLESECS44GH RAWLIBOPEN4@b# RAWLIBOPEN4D@H RAWLIBOPEN4HGt RAWLIBWRITE4lb# RAWLIBWRITE4p@t RAWLIBWRITE4G RAWLIBVERSION4b# RAWLIBVERSION 4@ RAWLIBVERSION, GSYS$FAO, b#SYS$FAO, @SYS$FAO4GRAWLIBWRITEDSC4b#RAWLIBWRITEDSC4@RAWLIBWRITEDSC4G RAWLIBWRITE4 b# RAWLIBWRITE4@ RAWLIBWRITE4GT RAWLIBREADDSC4(b# RAWLIBREADDSC4P@T 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<7 G<RAWLIBGETUSERDATA<84b#0RAWLIBGETUSERDATA<78@<RAWLIBGETUSERDATA4<GT DECC$FREE4Hb#0 DECC$FREE4P@T DECC$FREE<;GRAWLIBREADSTATUS<<b#RAWLIBREADSTATUS<;@RAWLIBREADSTATUS49G RAWLIBCLOSE4:b# RAWLIBCLOSE49@ RAWLIBCLOSE<7GRAWLIBGETUSERDATA<8b#RAWLIBGETUSERDATA<7@RAWLIBGETUSERDATA4G RAWLIBTIME4b# RAWLIBTIME4@ RAWLIBTIME4GD RAWLIBWRITE4,b# RAWLIBWRITE4@@D RAWLIBWRITE4PGt RAWLIBWRITE4lb# RAWLIBWRITE4p@t RAWLIBWRITE4` G RAWLIBWRITE4x b# RAWLIBWRITE4 @ RAWLIBWRITE49 G RAWLIBCLOSE4: b# RAWLIBCLOSE49 @ RAWLIBCLOSE4 G, RAWLIBREADDSC4 b# RAWLIBREADDSC4( @, RAWLIBREADDSC<7l G RAWLIBGETUSERDATA<8 b#RAWLIBGETUSERDATA<7 @ RAWLIBGETUSERDATA,  G SYS$FAO,  b#SYS$FAO,  @ SYS$FAO4 G4 RAWLIBWRITEDSC4 b#RAWLIBWRITEDSC40 @4 RAWLIBWRITEDSC4\ G RAWLIBTIME4 b#x RAWLIBTIME4 @ RAWLIBTIME<7 G RAWLIBGETUSERDATA<8 b#xRAWLIBGETUSERDATA<7 @ RAWLIBGETUSERDATA \,  b#xSYS$FAO, 8 GT SYS$FAO, P @T SYS$FAO4X G RAWLIBWRITEDSC4h b#xRAWLIBWRITEDSC4  RAWLIBWRITEDSC4 b#P RAWLIBWRITE4< GH RAWLIBWRITE4D @H RAWLIBWRITE4 G< RAWLIBWRITE40{# RAWLIBWRITE48< RAWLIBWRITE $= < = RAW_ECHO AXP-1.0.0=(RAW_ECHO_ON_NEXT_REQUEST8=80Status: 500 RawSocket needs to be CGIplus! ( =0 ; ;=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 P ;= @(  7RAWLIBGETUSERDATA=Line=Char=0@ ` ;=`( =0 ;=P4 9 RAWLIBCLOSE ;RAWLIBREADSTATUS=[Line Mode] 0=0 ;=  =0 @;=  ="=4=UH4= 84=4 ==-%$RAW_ECHO HP C V7.3-009 ?= h4=TRANSFER$BREAK$GO = 4h4= main4=wv < < < < < <  < < < =  = @4P4= NextRequest@4=5-, = = = = = = ` = 44= AddClient4=C; =  =  =  ,= .= := 3= 4= 4= 7= 4= >= >=A I=A J=; N= N= N= N= O= O= O= R=7 V= W= W= V=0 /=< :=  H4= M= }=vH4= \4= h4= , = p = 404= RemoveClient4=7/. b= b= b= k=$ =  = 44=EchoThis4=og w=  w=  w=  = = = = = = = = = == = =: = = =6 = =(  = =  = =>a = =F =P =T =.+ = = = =4 =  = ` 44= OutputLine` 4={sr = = = = = = > > > > > =  = P 4x4= OutputClientStatusP 4= > > > &> (> *> 2> 2> 0> /> ,> 2> ,> ,># ,>  7> 9> = P =  4P4= TelnetCommand 4= C> C> C> T> T> V> W> X> Z> _> a> n> T> 4 =  {=  44=TelnetLineMode 4= > =  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