CRAW_PTDV1.0 4-NOV-2021 11:21 VSI C V7.4-002 ( $READONLY$i$CODE$ PTDCLIENTPAGES: $LITERAL$p$LINK$H$DATA$$BSS$  CONNECTEDCOUNT0CONNECTEDCOUNT  USAGECOUNT0 USAGECOUNT0 PTDCLIENTPAGES CHARBUF( CHARBUF0JP0 ADDCLIENT(J@PTDOPEN0JpPTDCLOSE0Jp  PTDREADCLIENT0J@PTDREMOVECLIENT0J PTDREADAST0JPTDREADWRITEAST0JH PTDXOFFAST0J   PTDXONAST0Jp PTDWRITE0J  PTDWRITEAST0J SYSTRNLNM0J` TELNETCOMMAND0JTELNETLINEMODE(J@MAIN(J__MAIN q6= = LNM$FILE_DEV =#G8^~ _#0"@^4GHcGG#]("0[8b "G@Zk(=0pb#@`BG4Ghb@ZkcG8]@]HP#k///#"P;"{"~^G[^~ GGZ[b@Zk"BGb@Zk8pBP?$?& &G%! 1"s"4Gxb  `@Zk0B"4G8b@Zk@BGHb@Zk/! b//BG4Gb@Zkb#0@"@B4G4Gb@ZkBGb@Zk0B4G8b"/@Zk@BGHb@ZkPB"TG`Bhb2"@ZkB4G4Gb@Zk/# (^[~TG>"0^8GGb@ZkHBx`?"TGU/@ZkBb"@Zk=pBTG=" xbt`/@ZkN7B4Gbt`@Zk b#Q//@=BTG$Tbt`G@ZkPB_"""@XbGb"t`/@ZkBG""bGt`@Zk`B _"Gbhbt`,@ "@Zk( 0 @ G(]0]8@#k///0BG"""tG8b@ZkB4Gb/@Zk0B"""_"tG8b/@ZkB4Gb@Zk0B" _"""tG8b@ZkB 4Gb@Zk0B"_"""tG8b@ZkB$4Gb@Zk//#4G^[~ ^(GGb@Zk4G$@ B(b1v J $@0vH@ZkB0="TGb@Zk8 / !1 @ G] ](0#k///@B3_""""tGHb@ZkB4Gb/@Zk///#8[G?0"^~GG^ ~G(GG#]# =G^G@[Hb$@"@Zk//4$@# BGGG(b0"G0v H@Zk B($@#GGTG(bp"G0v H@Zk B c"G4GGbGFF $@#0v JG@Zk@$@CGG`BGhb "G0@1v@JPB@@ZkG]] }(0#/k///@PGG`4G@@#~^^GG t`hb^ #k///$@1 G4G(b]] #0v Jk/$@1 4G(s0v Jk//@0#G~^^GG 11 B@0.J`G/"KGPt`GXb]3" b]G #Gk/G]Gb#] #.V JF7/Y 7KG#4G~^[^~ (GGGb@Zk(BGG4G0b/@Zk@$$@DGbGG"G0 @1v@JB@$G]]} (0#k/G]Gb]4G} (0#/k///ߞ#4G ^~0[ ^ ~( 0 8 ޴@ GGG8b@Zk BG4G(b@Zk\@BG4GHb@Zk`BGG4Ghb@ZkPBG4GXb@Zk= @@///@.GGb#@J_F @2@o@ӡ@// .JF@.@J"BABF"zFJ .J&/Y&K  :G&?&,qFJ A&H 1D&<@G}"="2@@b#/@ //Bt` _",@$"@bbG/@Zk@0@@G ] ] }( 0 8 ݤ@ P #k//G#C "~^@U# BG#F$ 0G P?`//.. F21@B DJWJ1"xJ! C21@BF>:@F*/.KC1"21@BtJWJ! :@C21@BFG>`./CJ1"sJXK! G:@F?/ `..J1"sJVJ! F:@F>@$@բ8[!0@G0B @5CG@0vJGG ;@{@ZkG] #k/@0#~^^~ GGG 11 B@0 c" .JS`G #/#K @(@âQ`GbB @#3B @@C @c(@òD:DB3 2_" "0b" t`G""@Zk@# /G]]} 0#k/B "" b"t`6_"Gb@Zk @@#? @CGb#@(@#M_Bt` _",@#"PbbG/@Zk//GG]b#]} 0#///.U JF ,@ H G#G {";"^CS_"X[t`~G`{@Zk=4G@G] #k/#d_" ;" {"~^G[^~ GGGt`b@Zk@Ghb# @C@/@(@#G]]} 0#///G]]} 0#k/t` =G,@#"bb _"G]]} 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{Gk/# 4G~^^~ (0GGGGT0[8b @Zk vH0JF`$d/// B $b@B 3"S"GGHb"G@ZkVHD`.PJ>G "G11v J@q.SqJq>G]]} (0@#k4/HGd DECC$MAIN40Lb# DECC$MAIN4/`@d DECC$MAIN4tG DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4-G DECC$FREOPEN4.b#@ DECC$FREOPEN4-@ DECC$FREOPEN4G  RAWLIBINIT4 b#@ RAWLIBINIT4@  RAWLIBINIT<+GHRAWLIBSETLIFESECS<,4b#@RAWLIBSETLIFESECS<+D@HRAWLIBSETLIFESECS4%HG\ RAWLIBCGIVAR4&Tb#@ RAWLIBCGIVAR4%X@\ RAWLIBCGIVAR4'\GlRAWLIBISCGIPLUS4(db#@RAWLIBISCGIPLUS4'h@lRAWLIBISCGIPLUS4#G SYS$SETAST4$b#@ SYS$SETAST4#@ SYS$SETAST4#G SYS$SETAST4$b#@ SYS$SETAST4#@ SYS$SETAST<!GRAWLIBCGIPLUSEOF<"b#@RAWLIBCGIPLUSEOF<!@RAWLIBCGIPLUSEOF4%G RAWLIBCGIVAR4&b#@ RAWLIBCGIVAR4%@ RAWLIBCGIVAR4'GRAWLIBISCGIPLUS4(b#@RAWLIBISCGIPLUS4'@RAWLIBISCGIPLUS4)GDECC$GXFPRINTF4*b#@DECC$GXFPRINTF4)@DECC$GXFPRINTF4G, DECC$EXIT4$b#@ DECC$EXIT4(@, DECC$EXIT4<GdLIB$GET_VM_PAGE4\b#PLIB$GET_VM_PAGE4`@dLIB$GET_VM_PAGE4dGOTS$ZERO4@OTS$ZERO4 G RAWLIBCREATE4b#P RAWLIBCREATE4 @ RAWLIBCREATE<GLIB$FREE_VM_PAGE<b#PLIB$FREE_VM_PAGE<@LIB$FREE_VM_PAGE4 G RAWLIBOPEN4 b#P RAWLIBOPEN4 @ RAWLIBOPEN<G(RAWLIBSETIDLESECS<b#PRAWLIBSETIDLESECS<$@(RAWLIBSETIDLESECS<,GTRAWLIBWATCHSCRIPT<<b#PRAWLIBWATCHSCRIPT <P@TRAWLIBWATCHSCRIPT4XGx RAWLIBWRITE4hb#P RAWLIBWRITE4t@x RAWLIBWRITE4|G RAWLIBREAD4b#P RAWLIBREAD4@ RAWLIBREAD4G DECC$GXPRINTF4b#P DECC$GXPRINTF4@ DECC$GXPRINTF4G DECC$EXIT4b#P DECC$EXIT4@ DECC$EXIT4G$ DECC$GXPRINTF4b#P DECC$GXPRINTF4 @$ DECC$GXPRINTF4$G8 DECC$EXIT40b#P DECC$EXIT44@8 DECC$EXIT48GT DECC$GXPRINTF4Lb#P DECC$GXPRINTF4P@T DECC$GXPRINTF4TGh DECC$EXIT4`b#P DECC$EXIT4d@h DECC$EXIT4hG DECC$GXPRINTF4|b#P DECC$GXPRINTF4@ DECC$GXPRINTF4G DECC$EXIT4b#P DECC$EXIT4@ DECC$EXIT<9GRAWLIBGETUSERDATA<:b#@RAWLIBGETUSERDATA<9@RAWLIBGETUSERDATA4CG PTD$DELETE4Db#@ PTD$DELETE4C@ PTD$DELETE<G LIB$FREE_VM_PAGE<b#@LIB$FREE_VM_PAGE<@ LIB$FREE_VM_PAGE4PGl DECC$GXPRINTF4db#@ DECC$GXPRINTF4h@l DECC$GXPRINTF4lG DECC$EXIT4xb#@ DECC$EXIT4@ DECC$EXIT4G PTD$CREATE4b#@ PTD$CREATE4@ PTD$CREATEDG,PTD$SET_EVENT_NOTIFICATIONDb#@PTD$SET_EVENT_NOTIFICATIOND(@,PTD$SET_EVENT_NOTIFICATIOND,GXPTD$SET_EVENT_NOTIFICATIONDDb#@PTD$SET_EVENT_NOTIFICATIONDT@XPTD$SET_EVENT_NOTIFICATION4 `G PTD$WRITE4 tb#@ PTD$WRITE4 @ PTD$WRITE4GPTD$READ4b#@PTD$READ4@PTD$READ45 GT RAWLIBCLOSE46Db#p RAWLIBCLOSE45PT RAWLIBCLOSE4?dG PTD$CANCEL4@pb#p PTD$CANCEL4? PTD$CANCEL4?G PTD$CANCEL4@s#p PTD$CANCEL4? PTD$CANCEL4G< RAWLIBWRITE4b# RAWLIBWRITE48< RAWLIBWRITE<9GRAWLIBGETUSERDATA<:b#RAWLIBGETUSERDATA  <9@RAWLIBGETUSERDATA<AGRAWLIBWRITESTATUS<Bb#RAWLIBWRITESTATUS<A@RAWLIBWRITESTATUS4G, PTD$READ4b#PTD$READ4( , PTD$READ450 Gd RAWLIBCLOSE46@ b# RAWLIBCLOSE45` d RAWLIBCLOSE<7 G RAWLIBREADSTATUS<8 b#RAWLIBREADSTATUS<7 @ RAWLIBREADSTATUS45 G RAWLIBCLOSE46 b# RAWLIBCLOSE45 @ RAWLIBCLOSE<9 G RAWLIBGETUSERDATA<: b#RAWLIBGETUSERDATA<9 @ RAWLIBGETUSERDATA4= G RAWLIBREADCOUNT4> b#RAWLIBREADCOUNT4= @ RAWLIBREADCOUNT4; G RAWLIBREADDATA4< b#RAWLIBREADDATA4; @ RAWLIBREADDATA4 G4 RAWLIBREAD4$ b# RAWLIBREAD40 @4 RAWLIBREAD4  G PTD$WRITE4  {# PTD$WRITE4  @ PTD$WRITE<p b#RAWLIBWATCHSCRIPT< G RAWLIBWATCHSCRIPT< @ RAWLIBWATCHSCRIPT< GRAWLIBWATCHSCRIPT<b#RAWLIBWATCHSCRIPT<@RAWLIBWATCHSCRIPT4@Gd RAWLIBREAD4Tb# RAWLIBREAD4`@d RAWLIBREAD<GRAWLIBWATCHSCRIPT<{#HRAWLIBWATCHSCRIPT<@RAWLIBWATCHSCRIPT<<GdRAWLIBWATCHSCRIPT<\b# RAWLIBWATCHSCRIPT<`@dRAWLIBWATCHSCRIPT4G RAWLIBREAD4b#  RAWLIBREAD4 RAWLIBREAD4pb#` RAWLIBWRITE4G RAWLIBWRITE4@ RAWLIBWRITE4G RAWLIBWRITE4{# RAWLIBWRITE4 RAWLIBWRITE41G DECC$STRLEN42b# DECC$STRLEN41@ DECC$STRLEN43@Gh SYS$TRNLNM44Xb# SYS$TRNLNM43d@h SYS$TRNLNM $= 1 v= RAW_PTD AXP-1.0.0=*"Status: 500 Must be CGIplus! =0; ;=0 RAWLIBWRITE=0";=04 (PTD$SET_EVENT_NOTIFICATION ;7CHARBUF PTD$CREATE;PTD$READH; PTD$WRITE RAWLIBOPEN RAWLIBCREATE;=!AZ LIB$GET_VM_PAGE@;= [%s:%d]0 DECC$EXIT= RAW_PTDP=0( 0;=@( ;7CONNECTEDCOUNT DECC$GXPRINTF;8OTS$ZERO RAWLIBWATCHSCRIPT RAWLIBREAD LIB$FREE_VM_PAGE RAWLIBSETIDLESECS RAWLIBINIT !RAWLIBCGIPLUSEOF= SYS$OUTPUT= ctx=bin # SYS$SETAST=87DECC$GA_STDOUT=0";=00 7 USAGECOUNTp% RAWLIBCGIVAR 'RAWLIBISCGIPLUS=w)DECC$GXFPRINTF +RAWLIBSETLIFESECS- DECC$FREOPEN=08";=P0 7DECC$$SHELL_HANDLER=/ DECC$MAIN=0";=@,< ;@1 DECC$STRLEN3 SYS$TRNLNM=0";= @,| =0 p ;= , ;=0 p ;=P 4| 5 RAWLIBCLOSE 7RAWLIBREADSTATUS 9RAWLIBGETUSERDATA;RAWLIBREADDATA =RAWLIBREADCOUNT=0  ;= 00 XONH=0 ;=  4 XOFFp=0 ;= 4 ? PTD$CANCEL=0  ;=(0 DATALOST= DATAOVERUN=0 ;=  ;=0 ;=0( 0 ARAWLIBWRITESTATUS=0 ;=0  C PTD$DELETE ="= 4=4=4=4=64 6  ==-%$RAW_PTDVSI C V7.4-002 ?= @4=TRANSFER$BREAK$GO = 4@4= main4= a;  a;  a;  m; r; r; r; ; ; }; =  = 04P4= AddClient04= ;  ;  ;  ;  ; ; ; ; ;$ ;8 :=  X4= ; =  = p = 4@4=PtdRemoveClient4=80/ ;  ;  ; $ ;@ =  = 4@4= PtdOpen4= ; ; ; ; ; ; ; ; ; ; ; < <, = p = 4p4=PtdClose4=SKJ < <  < < < < < < <, =  = 44= PtdReadAst4=c[Z -< #<  4< 2< 4< 4< 7< 7< /< =  = 44=PtdReadWriteAst4=h`_ @<  @<  @<  J< P< P< Q< V< V< V< =  = p 44= PtdReadClientp 4= ^<  ^<  ^<  j< q< s< v< z< < < < x<* x< < <0 =  g= p 44=PtdWritep 4= < < < < < <  < < < < < < < < <y < < < < < < < < < < < < < =  2=  44= PtdWriteAst 4= < < < < <  < < < < < < <  < < <? < < < < < < =  = 4H4= PtdXoffAst4=+#" < < < = ` =  4 4= PtdXonAst 4=d\[ = = = = = = = = = =  = 4`4= TelnetCommand4= = = = 0= 0= 2= 3= 4= 6= ;= == J= 0= 4 =  {= 44=TelnetLineMode4= g= =  = 44= SysTrnLnm4=]UT s=  s=% s=  = = = =$ = $ s= 44= __main4= a; =  Le4 =  DECC$GA_STDOUTDECC$GXFPRINTF DECC$GXPRINTF DECC$FREOPEN DECC$EXIT DECC$STRLEN RAWLIBCREATE RAWLIBGETUSERDATA RAWLIBOPEN RAWLIBCLOSE RAWLIBREADRAWLIBREADDATARAWLIBREADCOUNT RAWLIBREADSTATUS RAWLIBWRITE RAWLIBWRITESTATUS RAWLIBSETIDLESECS RAWLIBSETLIFESECS RAWLIBCGIVAR RAWLIBCGIPLUSEOFRAWLIBISCGIPLUS RAWLIBWATCHSCRIPT RAWLIBINIT SYS$SETASTLIB$GET_VM_PAGE LIB$FREE_VM_PAGE PTD$DELETE PTD$CREATE(PTD$SET_EVENT_NOTIFICATION PTD$WRITEPTD$READ PTD$CANCEL SYS$TRNLNM DECC$MAIN DECC$$SHELL_HANDLEROTS$ZERO "C$GA