CWSLIBCLV1.0 4-NOV-2021 11:21 VSI C V7.4-002  $READONLY$i$CODE$ WSLIBCLBREAKEVERY$DATA$ $BSS$> $LITERAL$5$LINK$0J0WSLIBCLBREAKNOW0JWSLIBCLCONNECT8JWSLIBCLSOCKETSTATUS8JWSLIBCLSETSOCKETMRS8 WSLIBCLBREAKEVERY  WSLIBCLBREAKCOUNT8WSLIBCLBREAKCOUNT 6= = UCX$DEVICE(=GET !AZ HTTP/1.1 Host: !AZ!AZ Upgrade: websocket Connection: Upgrade Sec-WebSocket-Key: !AZ Sec-WebSocket-Version: !UL =#4G^[~^ ~(08޴@HGGG#GGx"b= /@Zk4G# ¤BGGGbbGG&C G@Zk8B""G_"GG@b@Zk& &G &H!$HH'H@@A!@0&J?F%F!@@@J@@"` B0FD FFB4Gb @Zk8BG""_"GG@b@Zk B4Gb"/@Zk8BG""_"GG@b@ZkB4GDb/@Zk(BGG0b//@Zk/BG4GG#TGb/@Zk(BG0bp//@Zk/B? 4G?"#TGb/@Zk(BG0bt//@Zk/BG4GG #TGb/@Zk(BG0bx//@Zk~/BG4GG#TGb/@Zk(BG0b|//@Zkj/B? 4G?"#TGb/@Zk(BG0b//@ZkV/. '.4GcBbJQ 'JF3J0vHaFc@Zk`SHG"xBTGb0vJFG.g.GJS gJSFC1..JV JF#',.'HP J0DCG@Zk/.'.JQ 'JFC=|c".tB41BJtBCG/<///,gJ D! `F@Hs"tBD<.J! C`J6G&S/ZSK@GS?,Hs"tB! CvHqG/ 3/Y3K6Gs"tB3?,H! CqHG s/[sKqGs?,HCs"tBFS/ZSKGS?.C@CJJC'G=///.sH D! GPJ#CF>A/AK! CgHF'8/Y8K'G8?.J#C! CzJD/.VJF#C>!.!J! Cy8JF X.RXJYFX>.JC#CDG.BVJG#"G>G bG@ZkHBxC@$ ">(c" GG1v@J(tGPbGG/@ZkG//(%vH/ #B0v J4Gb@ZkàG&HðQCHBG8 GGG1v@J (tGPb@ZkG/(%vH/ #B0v H4Gb@ZkàG&Hð- =hBGc"XpbG# C~G1v@J TG(@Zk//CHBG GG1v@J (TGPbX@Zk( vHG]] }(08ݤ@HP#/k///#4G^~ ^(~08GGG#(0[b P0v@J/@Zk#GGBbG1?J#G@Zk/B4Gb "D@Zk0G(B0ba@a @a!@A @a @` @`@0@p@pBpBPBpBpBpB0BqBq0Bq1BQ0Bq0Bq0Bq1B0 Br1B8=40rQBrRBRQBrQBrQBH="rRB0@BD<] #H=0]"xG@ZkBx#TGP"b@ZkXXBP"TG`b "/@ZkHB4G"Pb@Zk8BP"4G@b@ZkBG"P="tGb@ZkxB"4Gb@ZkBG""N_""G b/@ZkB"="TGb@Zk(BH="]"0bGGHp@Zk#*Dp!"?F F //BG """tGb@ZktG "hBpb$#" T" t1v J3JqF@=" txâ޶|c@ZkB""Ge_"GG b@Zk@Bn_"""bGb" @4vHGt@Zk@G(c"HBPbGt#C0vJ>1v@JG (/@Zk//CtG(c"@=(BG0b1v@JG!v H >(/@ZkGb#\@G] ](}08@#/k///#4G~^^~ GGG#(0 [(b/ P0v@J/@Zk#GGPBXbG1?J#:G@Zk6/TG(c"BbtC41B> GG1v@J(4G /@Zk//CTG(c""t#GGBb2v@J01B !>G4G (G/@ZkG]]} 0#/k///#_"G({"~^^~ GG#G0[ (x;"b4vJ@Zk(XB4G`b#0v H@Zk#GGBbG1?J#G~@Zk{(t#RH @ .Q J = >t`.G`J/E`.J/BUBFG)T/"TKCACUAC0D:D 4."4JC!BFU!BqF/ ."JCBUBGF t/"tKCBAGUB0D T."TJt.tJ!BB1/1KUC8B.JaFT/"TKXaF/?"¦CB4B1v@J(c" (4GGGb @ZkC4B(c"BGbG1v@J4G ( @ZkG]]} 0#k//0#_"{"^~G ^(~08@޴HP[PGGG (0;"Xb4vJ/@Zk(B4Gb#0v H@Zk#GG@BHbG1?J#G@Zk/(t#GGPBGG_"GXbRH @ .Q J >ctà`0""Gpb"@ZkBGG""tGb@Zk&,@ &H& /$@!@U!@D2F!F/ . JCBBUBFGF/&/ &KC$C!CU!CpGDF/F. FJ?&.&J$F*///!BU!BDG! . JBBUByG4G. J@@aFU@ D/F. FJDBABUABFF@/ K$F_`BG4Ghb/@Zk&,&H) ///!@U!@DAF . JCBUBFF/ KCC[GUCXG/ , HC@U@3F FF. FJ?&/&KY&K &?f/fKC/@/0B"4G8bXKK@ZkBxDG""jtGtGb@Zk//c &, B "4G(b A0H'H@Zk/&, B4Gf"(b&H!@U!@!F F.RSJGJ@Zk /ð.J)///BUBDPF . JCBUBFF/ KCC[GUCXG/ , HC@U@3F FF. FJ&/&KY&K &?BTG""b@ZkBx""TGb@Zk4DD/4GA//&,0B4G"8bA0H'H/@ZkBx DG"^bGtG@Zk//W&, B"4G(b A0H'H@Zk/&, B4Gf"(b&H!@U!@!F F.RSJGJ@Zk /ð.J)///BUBDPF . JCBUBFF/ KCC[GUCXG/ , HC@U@3F FF. FJ&/&KY&K &?Bp#b@Zk4D//0B4G& 8bXKK/@ZkBx DG""ZGtGb@Zk//S&, B"4G(b A0H'H@Zk/&, B4Gf"(b&H!@U!@!F F.RSJGJ@Zk /ð.J)///BUBDPF . JCBUBFF/ KCC[GUCXG/ , HC@U@3F FF. FJ&/&KrY&K &?n///f/4GF#[zK0BgK8b/@ZkB DG""]GtGb@Zk//V&, B "4G(b A0H'H@Zk/&, B4Gf"(b&H!@U!@!F F.RSJGJ@Zk /ð.J)///BUBDPF . JCBUBFF/ KCC[GUCXG/ , HC@U@3F FF. FJ&/&KY&K &?BTGp""b@Zk4D&,&H( //!@U!@D!F f. fJCaBUaBFF`. JCB:GUB7G/ f/ fKC@U@FF&. &J?.JB@f.fJUaB@F.FJFJ .P JCX!GPF" ?4G ==,B?@B1D4D (8Kt "G( /Dt "4G(DD0J2v@JF((/Cà:v^KfSHFGCR@KC4JF ///#B4Gb0v H@Zk$H@BGGGGHb@ZkGb#@G] ](}08@ݤHP`#k///( vHk/&\\0"805B 8\k// ;#G4G(^x0[1~0^0"8~@G5 G8bp  ///@Zk a@a @a!@A @Bp"a @` @`@0@=@D[[FFtF`/`X[  }N6@@B(b =LDGHb4G@Zk0@4GG(]0]8}@P#k4 Gd DECC$GETENV4Pb# DECC$GETENV4`@d DECC$GETENV4tG SYS$GETSYIW4b# SYS$GETSYIW4@ SYS$GETSYIW4G WSLIBEXIT4b# WSLIBEXIT4@ WSLIBEXIT4 0GD LIB$GET_EF4 8b# LIB$GET_EF4 @@D LIB$GET_EF4DGh WSLIBEXIT4`b# WSLIBEXIT4d@h WSLIBEXIT4 lG LIB$GET_EF4 tb# LIB$GET_EF4 @ LIB$GET_EF4G WSLIBEXIT4b# WSLIBEXIT4@ WSLIBEXIT<GDECC$GETHOSTBYNAME<b#DECC$GETHOSTBYNAME<@DECC$GETHOSTBYNAMEDGCMA$TIS_VMSERRNO_GET_ADDRDb#CMA$TIS_VMSERRNO_GET_ADDRD@CMA$TIS_VMSERRNO_GET_ADDR4 G DECC$CALLOC4b# DECC$CALLOC4 @ DECC$CALLOCDG4CMA$TIS_VMSERRNO_GET_ADDRDb#CMA$TIS_VMSERRNO_GET_ADDRD0@4CMA$TIS_VMSERRNO_GET_ADDR4 @Gd DECC$CALLOC4Xb# DECC$CALLOC4 `@d DECC$CALLOCDdGCMA$TIS_VMSERRNO_GET_ADDRDlb#CMA$TIS_VMSERRNO_GET_ADDRD@CMA$TIS_VMSERRNO_GET_ADDR4 G DECC$CALLOC4b# DECC$CALLOC4 @ DECC$CALLOCDGCMA$TIS_VMSERRNO_GET_ADDRDb#CMA$TIS_VMSERRNO_GET_ADDRD@CMA$TIS_VMSERRNO_GET_ADDR4 G DECC$CALLOC4b# DECC$CALLOC4 @ DECC$CALLOCDG$CMA$TIS_VMSERRNO_GET_ADDRD b#CMA$TIS_VMSERRNO_GET_ADDRD @$CMA$TIS_VMSERRNO_GET_ADDR4 0GT DECC$CALLOC4Hb# DECC$CALLOC4 P@T DECC$CALLOCDTGtCMA$TIS_VMSERRNO_GET_ADDRD\b#CMA$TIS_VMSERRNO_GET_ADDRDp@tCMA$TIS_VMSERRNO_GET_ADDR4G DECC$HTONS4b# DECC$HTONS4@ DECC$HTONS4G< DECC$STRCHR4b# DECC$STRCHR48@< DECC$STRCHR4G SYS$ASSIGN4b# SYS$ASSIGN4@ SYS$ASSIGN4GDSYS$QIOW40b#SYS$QIOW4@@DSYS$QIOW4 hG| SYS$DASSGN 4 tb# SYS$DASSGN4 x@| SYS$DASSGN4GSYS$QIOW4b#SYS$QIOW4@SYS$QIOW4 G  SYS$DASSGN4 b# SYS$DASSGN4 @  SYS$DASSGN,$GtSYS$QIO,4b#SYS$QIO,p@tSYS$QIO4GSYS$QIOW4b#SYS$QIOW4@SYS$QIOW4 H Gd SYS$DASSGN4 L b# SYS$DASSGN4 ` @d SYS$DASSGN4+t G SYS$DCLAST4,x b# SYS$DCLAST4+ @ SYS$DCLAST4 G SYS$GETTIM4 b# SYS$GETTIM4 @ SYS$GETTIM49 G BASE64_ENCODE4: b# BASE64_ENCODE49 @ BASE64_ENCODE45 G DECC$STRCPY46 b# DECC$STRCPY45 @ DECC$STRCPY4? G DECC$STRCAT4@ b# DECC$STRCAT4? @ DECC$STRCAT4= G SHA1RESET4> b# SHA1RESET4= @ SHA1RESET4; G DECC$STRLEN4< b# DECC$STRLEN4; @ DECC$STRLEN47 G SHA1INPUT48 b# SHA1INPUT47 @ SHA1INPUT4C G SHA1RESULT4D b# SHA1RESULT4C @ SHA1RESULT4 GD WSLIBEXIT48 b# WSLIBEXIT4@ @D WSLIBEXIT41D G\ SHA1LITEND42T b# SHA1LITEND41X @\ SHA1LITEND49` G BASE64_ENCODE4:l b# BASE64_ENCODE49 @ BASE64_ENCODE43 G DECC$GXSPRINTF44 b#DECC$GXSPRINTF43 @ DECC$GXSPRINTF,A G( SYS$FAO,B b#SYS$FAO,A$ @( SYS$FAO4( GL WSLIBEXIT4D b# WSLIBEXIT4H @L WSLIBEXIT<-P G WSLIBWATCHSCRIPT<.\ b#WSLIBWATCHSCRIPT<- @ WSLIBWATCHSCRIPT, G SYS$QIO, b#SYS$QIO, @ SYS$QIO4 GD SYS$QIOW4 b#SYS$QIOW4@ @D SYS$QIOW4  G SYS$DASSGN4  b#  SYS$DASSGN4  @ SYS$DASSGN4+ G SYS$DCLAST4, b#  SYS$DCLAST4+@ SYS$DCLAST, GtSYS$QIO,$b# SYS$QIO ,p@tSYS$QIO4GSYS$QIOW4b# SYS$QIOW4@SYS$QIOW<-LGhWSLIBWATCHSCRIPT<.\b#WSLIBWATCHSCRIPT<-d@hWSLIBWATCHSCRIPT4 lG SYS$DASSGN4 tb# SYS$DASSGN4 @ SYS$DASSGN4+G SYS$DCLAST4,b# SYS$DCLAST4+@ SYS$DCLAST,G\SYS$QIO,Pb#SYS$QIO,X@\SYS$QIO4pGSYS$QIOW4xb#SYS$QIOW4@SYS$QIOW<-G4WSLIBWATCHSCRIPT<.$b#0WSLIBWATCHSCRIPT<-0@4WSLIBWATCHSCRIPT4 8GT SYS$DASSGN4 @b#0 SYS$DASSGN4 P@T SYS$DASSGN4+dG SYS$DCLAST4,hb#0 SYS$DCLAST4+@ SYS$DCLAST<-GWSLIBWATCHSCRIPT<.b#0WSLIBWATCHSCRIPT<-@WSLIBWATCHSCRIPT4!G DECC$MEMCMP4"b#0 DECC$MEMCMP4!@ DECC$MEMCMP4/lG DECC$ATOI40xb#0 DECC$ATOI4/@ DECC$ATOI4)hG DECC$TOUPPER4*tb#0 DECC$TOUPPER4)@ DECC$TOUPPER4%G DECC$STRNCMP4&b#0 DECC$STRNCMP4%@ DECC$STRNCMP4'G DECC$ISSPACE4(b#0 DECC$ISSPACE4'@ DECC$ISSPACE4'G DECC$ISSPACE4(b#0 DECC$ISSPACE4'@ DECC$ISSPACE4#G DECC$STRSTR4$b#0 DECC$STRSTR4#@ DECC$STRSTR4#G$ DECC$STRSTR4$b#0 DECC$STRSTR4# @$ DECC$STRSTR4)DGd DECC$TOUPPER4*Pb#0 DECC$TOUPPER4)`@d DECC$TOUPPER4%dG DECC$STRNCMP4&xb#0 DECC$STRNCMP4%@ DECC$STRNCMP4'G DECC$ISSPACE4(b#0 DECC$ISSPACE4'@ DECC$ISSPACE4'G DECC$ISSPACE4(b#0 DECC$ISSPACE4'@ DECC$ISSPACE4G DECC$STRCMP4 b#0 DECC$STRCMP4@ DECC$STRCMP4)G DECC$TOUPPER4*b#0 DECC$TOUPPER4)@ DECC$TOUPPER4%G8 DECC$STRNCMP4&0b#0 DECC$STRNCMP4%4@8 DECC$STRNCMP4'HGh DECC$ISSPACE l4(Tb#0 DECC$ISSPACE4'd@h DECC$ISSPACE4'tG DECC$ISSPACE4(b#0 DECC$ISSPACE4'@ DECC$ISSPACE4)G DECC$TOUPPER4*b#0 DECC$TOUPPER4)@ DECC$TOUPPER4%G DECC$STRNCMP4&b#0 DECC$STRNCMP4%@ DECC$STRNCMP4'G DECC$ISSPACE4(b#0 DECC$ISSPACE4'@ DECC$ISSPACE4'GH DECC$ISSPACE4( b#0 DECC$ISSPACE4'D@H DECC$ISSPACE4# G8 DECC$STRSTR4$0b#0 DECC$STRSTR4#4@8 DECC$STRSTR4 G SYS$DASSGN4 b#0 SYS$DASSGN4 @ SYS$DASSGN4+G8 SYS$DCLAST4,0b#0 SYS$DCLAST4+4@8 SYS$DCLAST4G$ SYS$GETTIM4b#0 SYS$GETTIM4 @$ SYS$GETTIM,GSHUT,b#0SHUT,@SHUT $=  L= 4=H4= H4=H4=4=4=4=P4=H=P=H4= H4=46=(4=4 z= Sec-WebSocket-Accept:=.&258EAFA5-E914-47DA-95CA-C5AB0DC85B11 Q DECC$STRCHR DECC$GETHOSTBYNAME DECC$GETENV SYS$ASSIGN SYS$DASSGN LIB$GET_EF= WSLIBCLp DECC$CALLOC`;=0";=P4 ;(CMA$TIS_VMSERRNO_GET_ADDR WSLIBEXITSYS$QIOW;SYS$QIO=WATCH_SCRIPT DECC$HTONS SYS$GETSYIW=0(";=P@ ;7WSLIBCLBREAKCOUNT SYS$GETTIMSHUT=0;=0;= websocket= Upgrade DECC$STRCMP= HTTP/1.1= READ %X!8XL! DECC$MEMCMP;# DECC$STRSTR% DECC$STRNCMP=0 ;=`@ ' DECC$ISSPACE) DECC$TOUPPER+ SYS$DCLAST -WSLIBWATCHSCRIPT/ DECC$ATOI=!AZ= upgrade= Server:= Connection:= Upgrade:=0 ;=0( 0;= PEEK %X!8XL =0  ;=0 ;P1 SHA1LITEND=!#AZp3DECC$GXSPRINTF5 DECC$STRCPY7 SHA1INPUT ;=0  ;=@$ 9 BASE64_ENCODE; DECC$STRLEN= SHA1RESET? DECC$STRCATASYS$FAOC SHA1RESULT= :%d ==-%$WSLIBCLVSI C V7.4-002 o= 44=WsLibClConnect4= VG VG VG VG) I I I I I I I mG kG mG qG qG rG uG uG vG yG yG zG }G }G ~G G G G G G G G G G G G G  G G Gt G G G G G G G G G< :=  p4= jG = 8 =  =  44=WsLibCl__ConnAst 4= G$ G G G G G G H H H H H H &H /H /H .H /H /H 3H 3H 3H 0 = p = ! 4 4="WsLibCl__ConnRequAst 4= ?H  ?H HH LH LH WH VH WH WH \H \H \H \H, =  = "44=#WsLibCl__ConnResp1Ast4= kH  kH  wH ~H ~H H H H H H H H H$ =  = "404=#WsLibCl__ConnResp2Ast4= H H H H H H H H H H H H H H H H H H H H H H H H H I I I I I I +I8 =  =  44=!WsLibClSocketStatus4= @I =  =  44=!WsLibClSetSocketMrs4= UI TI = 0 = 404=WsLibClBreakNow4=phg kI aI  aI  kI aI  aI  aI  mI mI mI$ mI nI = 4 '=# WsLibCl__Init =  LV e4 =  @DECC$GXSPRINTF DECC$ATOI DECC$GETENV DECC$CALLOC DECC$STRCAT DECC$STRCHR DECC$STRCPY DECC$STRSTR DECC$MEMCMP DECC$STRCMP DECC$STRNCMP DECC$STRLEN(CMA$TIS_VMSERRNO_GET_ADDR DECC$HTONS DECC$GETHOSTBYNAME BASE64_ENCODE SHA1RESET SHA1RESULT SHA1INPUT SHA1LITENDSHUT WSLIBWATCHSCRIPT WSLIBEXIT SYS$ASSIGNSYS$QIOW SYS$DASSGNSYS$QIO SYS$DCLAST SYS$GETTIMSYS$FAO DECC$TOUPPER DECC$ISSPACE SYS$GETSYIW LIB$GET_EF "C$GX