D RAW_CHATV1.0 4-NOV-2021 11:21
VSI C V7.4-002
$READONLY$ i $CODE$
UNUSEDTIMEOUT Q $LITERAL$ $LINK$ $DATA$
CONNECTEDCOUNT 0 CONNECTEDCOUNT 0
UNUSEDTIMEOUT
USAGECOUNT 0
USAGECOUNT
CURRENTTIME 0 CURRENTTIME
CURRENTBINTIME 0 CURRENTBINTIME
SERVERNAME 0
SERVERNAME 0 J ADDCLIENT 0 J 8 ECHOCHAT 0 J @ NEXTREQUEST 0 J @ 0
REMOTEHOSTNAME 0 J 0 REMOVECLIENT 0 J X UPDATECLIENT 0 J p
TELNETCOMMAND 0 J TELNETLINEMODE ( J @ MAIN ( J __MAIN
@ 6 =
= #G8 ^ ~ _#0 " @ ^4GH c GG# ] ( "8 [@ b " G @Zkxb# @HBG4GPb / @Zk c G8 ]@ ]H P # /k / / /# ;"P ;" ~ ^G@ {"0 [ ^ ~ GG A8 b @Zk "BG4Gb / @Zkp BGx b @Zk6 @B4Gb " / @ZkB
4Gb @Zk /` BGh b / @Zk / /b / / / B4G(b" @ZkBG4Gb @Zk Gb# 0 @ 4 @ӰBGb / @ZkB4G4Gb @Zk /@B "TGBb 2" / @ZkB4G4Gb @Zk / /x# ~ ^ ^ GG {# 00 B 04G
@ G(bG ] ] # k /p#[&x; (^ ~4G s"0^8~@HPX` h>p^x~ GG'#X B 2. 2J } "b } = /
/ / / @ZkBGTGb @ZkB4G?"TGb @ZkG pb#Gj@ B #" ]"GbG0 JF =G " / @Zkx TGp "0B8b 1 0Bp" G / @Zk BG4G b / @Zk /@B GTGHb @Zk B4G b @Zk`B G"$ GP"hb @Zk `B ""Ghb"G @ZkB4Gb " G @Zk
/B4Gb "0@ @Zk / / 41@(B" b""`BF5BhbB ""X " ~FG( "H y"` 9"G / @Zk ( = @B4Gb " @Zk BM 4G b @ZkD?}@X " X""FP b",@"l"` B4Gh bGF0@3FGSFG G
GG @ZkB@ GGGGtGb @Zk` BG4Gh b / @ZkB@
`A@GGtGb @Zk ,` BaHGh b4G@ H D< @ZkBG@ @AGGtGb @ @Zk - H I =ðB B GGTG* "* (= @G R" / @Zk* .`B( =""hbV J* >A ( ]!2@ @Zk Bl#" _"Pb bG @Zk h 0`A h G(]0]8}@HPݤX` h=p]x}# /k / / /BtG( """tGb @Zk BG b @Zk@ B 4GH b / @ZkB( """_"tGb / @Zk@ B$ 4GH b @ZkB( "&_"""tGb @Zk@ B "4GH b @Zk / /#4G ~ ^[ ^ ~ GGb / @ZkGೈb#G @G B@b4Gb / @Zk 1 @ G ] ] } 0 # /k / / /#4G ^( [ ~ ^( ~0 8 @ H P X GGG0 b @Zk8 BG 4G@ b / @Zk / /BG4G b @ZkH BGG4GP b @Zkl"l$" C C B =eB @ F$ / /2@Gb#G K E / @*@ ,G H?Du&H / .T JF > / .xIW J F> s"eB@ :G? ,@ H,D"k! . J /4 / / /BHB DeJ F ! /( r, @F C rH R"HBeDr< , H ! @CuHfG D 2.Q 2J5F 2> / K R"HB ! BCsJD F ` R/Z RKSG R? !/ !K R" ,@ H b# @ RAWLIBISCGIPLUS 4 = @ $ RAWLIBISCGIPLUS 4
, G D DECC$GETENV 4 4 b# @ DECC$GETENV 4
@ @ D DECC$GETENV < 3 D G \ RAWLIBONNEXTREQUEST < 4 P b# @ RAWLIBONNEXTREQUEST < 3 X @ \ RAWLIBONNEXTREQUEST 4 ; ` G t SYS$HIBER 4 < h b# @ SYS$HIBER 4 ; p @ t SYS$HIBER 4 G RAWLIBCGIVAR 4 b# @ RAWLIBCGIVAR 4 @ RAWLIBCGIVAR 4 7 G
SYS$SETAST 4 8 b# @
SYS$SETAST 4 7 @
SYS$SETAST < 1 G RAWLIBCGIPLUSEOF < 2 b# @ RAWLIBCGIPLUSEOF < 1 @ RAWLIBCGIPLUSEOF 4 7 G
SYS$SETAST 4 8 b# @
SYS$SETAST 4 7 @
SYS$SETAST 4 / G $ DECC$GXFPRINTF 4 0 b# @ DECC$GXFPRINTF 4 / @ $ DECC$GXFPRINTF 4 $ G 8 DECC$EXIT 4 0 b# @ DECC$EXIT 4 4 @ 8 DECC$EXIT < 1 x G RAWLIBCGIPLUSEOF < 2 b# RAWLIBCGIPLUSEOF < 1 RAWLIBCGIPLUSEOF 4 G D RAWLIBCGIVAR 4 b# RAWLIBCGIVAR 4 @ @ D RAWLIBCGIVAR 4 D G \ DECC$STRCPY 4 P b# DECC$STRCPY 4 X @ \ DECC$STRCPY 4 \ G t DECC$CALLOC 4 l b# DECC$CALLOC 4 p @ t DECC$CALLOC , G SYS$FAO , b# SYS$FAO , @ SYS$FAO 4 G RAWLIBCREATE 4 b# RAWLIBCREATE 4 @ RAWLIBCREATE 4 + G ( DECC$FREE 4 , b# DECC$FREE 4 + $ @ ( DECC$FREE < 0 G H RAWLIBSETIDLESECS < @ b# RAWLIBSETIDLESECS < D @ H RAWLIBSETIDLESECS 4 - H G \
RAWLIBOPEN 4 . T b#
RAWLIBOPEN 4 - X @ \
RAWLIBOPEN 4 \ G RAWLIBWRITE 4 | b# RAWLIBWRITE 4 @ RAWLIBWRITE 4 G RAWLIBWRITE 4 b# RAWLIBWRITE 4 @ RAWLIBWRITE
4 G
RAWLIBNEXT 4 b#
RAWLIBNEXT 4 @
RAWLIBNEXT 4 G
RAWLIBNEXT 4 b#
RAWLIBNEXT 4 @
RAWLIBNEXT 4 G D DECC$GXSPRINTF 4 b# DECC$GXSPRINTF 4 @ @ D DECC$GXSPRINTF 4 P G d
RAWLIBNEXT 4 X b#
RAWLIBNEXT 4 ` @ d
RAWLIBNEXT < % d G | RAWLIBGETUSERDATA < & t b# RAWLIBGETUSERDATA < % x @ | RAWLIBGETUSERDATA 4 ! G DECC$STRLEN 4 " b# DECC$STRLEN 4 ! @ DECC$STRLEN 4 G DECC$MEMCPY 4 b# DECC$MEMCPY 4 @ DECC$MEMCPY 4 ! G DECC$STRLEN 4 " b# DECC$STRLEN 4 ! @ DECC$STRLEN 4 G 8 DECC$MEMCPY 4 0 b# DECC$MEMCPY 4 4 @ 8 DECC$MEMCPY 4 ! < G d DECC$STRLEN 4 " H b# DECC$STRLEN 4 ! ` @ d DECC$STRLEN 4 d G DECC$MEMCPY 4 b# DECC$MEMCPY 4 @ DECC$MEMCPY 4 ) G OTS$MOVE 4 ) @ OTS$MOVE 4 G RAWLIBWRITE 4 b# RAWLIBWRITE 4 @ RAWLIBWRITE 4 ' G (
RAWLIBREAD 4 ( b#
RAWLIBREAD 4 ' $ @ (
RAWLIBREAD 4 G
DECC$GXPRINTF 4 b#
DECC$GXPRINTF 4 @
DECC$GXPRINTF D # G CMA$TIS_VMSERRNO_GET_ADDR D $ b# CMA$TIS_VMSERRNO_GET_ADDR D # @ CMA$TIS_VMSERRNO_GET_ADDR 4 G DECC$EXIT 4 b# DECC$EXIT 4 @ DECC$EXIT 4 G
DECC$GXPRINTF 4 b#
DECC$GXPRINTF 4 @
DECC$GXPRINTF 4 G DECC$EXIT 4 b# DECC$EXIT 4 @ DECC$EXIT 4 G
DECC$GXPRINTF 4 b#
DECC$GXPRINTF 4 @
DECC$GXPRINTF 4 G ( DECC$EXIT 4 b# DECC$EXIT 4 $ @ ( DECC$EXIT < % @ G d RAWLIBGETUSERDATA < & X b# RAWLIBGETUSERDATA < % ` @ d RAWLIBGETUSERDATA 4 + | G DECC$FREE 4 , b# DECC$FREE 4 + @ DECC$FREE < A G RAWLIBREADSTATUS < B b# X RAWLIBREADSTATUS < A @ RAWLIBREADSTATUS 4 C G 4 RAWLIBCLOSE 4 D ( b# X RAWLIBCLOSE 4 C 0 @ 4 RAWLIBCLOSE < % @ G T RAWLIBGETUSERDATA
< & L b# X RAWLIBGETUSERDATA < % P @ T RAWLIBGETUSERDATA 4 E T G l RAWLIBREADCOUNT 4 F d b# X RAWLIBREADCOUNT 4 E h @ l RAWLIBREADCOUNT 4 ' h G
RAWLIBREAD 4 ( b# X
RAWLIBREAD 4 ' @
RAWLIBREAD 4 G 4 DECC$GXSPRINTF 4 b# 8 DECC$GXSPRINTF 4 0 @ 4 DECC$GXSPRINTF 4 D G h DECC$GXSPRINTF 4 P b# 8 DECC$GXSPRINTF 4 d @ h DECC$GXSPRINTF 4 t G DECC$GXSPRINTF 4 b# 8 DECC$GXSPRINTF 4 @ DECC$GXSPRINTF 4 G
RAWLIBNEXT 4 b# 8
RAWLIBNEXT 4 @
RAWLIBNEXT 4 G RAWLIBWRITE 4 b# 8 RAWLIBWRITE 4 @ RAWLIBWRITE 4 G
RAWLIBNEXT 4 b# 8
RAWLIBNEXT 4 @
RAWLIBNEXT 4 <
G h
RAWLIBCGIVAR 4 `
b# @ RAWLIBCGIVAR 4 d
@ h
RAWLIBCGIVAR 4 h
G
DECC$STRCPY 4 x
b# @ DECC$STRCPY 4
@
DECC$STRCPY 4
G
RAWLIBCGIVAR 4
b# @ RAWLIBCGIVAR 4
@
RAWLIBCGIVAR 4
G
DECC$STRCMP 4
b# @ DECC$STRCMP 4
@
DECC$STRCMP 4
G
DECC$GETENV 4
b# @ DECC$GETENV 4
@
DECC$GETENV 4
G
DECC$INET_ADDR 4
b# @ DECC$INET_ADDR 4
@
DECC$INET_ADDR <
G DECC$GETHOSTBYADDR <
b# @ DECC$GETHOSTBYADDR < @ DECC$GETHOSTBYADDR 4 $ G D DECC$STRCPY 4 ( b# @ DECC$STRCPY 4 @ @ D DECC$STRCPY 4 b# RAWLIBWRITE 4 G RAWLIBWRITE 4 @ RAWLIBWRITE 4 G RAWLIBWRITE 4 {# RAWLIBWRITE 4 RAWLIBWRITE
$ = ,
5 = WS_CHAT_NO_LOOKUP = 8 ,
<-| Please enter your nick-name...
->| H = WS_CHAT AXP-1.0.0 ` = @ 1
<-| WASD@%s
<-| %s; %d other participant%s%s = ( WS_CHAT_ON_NEXT_REQUEST = ` W Status: 500
RawSocket needs to be CGIplus!
<-| %u {%s@%s} [disconnected]
->| = 0 "
<-| %u {%s@%s} [joining]
->| 8 = !
<-| %u {%s@%s} %s->|
= 0 ; ; = 0 RAWLIBWRITE = 0 0
; = 0 $ RAWLIBCGIVAR DECC$STRCPY ; =
REMOTE_ADDR =
REMOTE_HOST DECC$INET_ADDR DECC$GETHOSTBYADDR DECC$STRCMP
DECC$GETENV = OnNext . RAWLIBCREATE RAWLIBSETIDLESECS X ; = , 0 DECC$GXSPRINTF ; = !20%D DECC$CALLOC ; p SYS$FAO 7
SERVERNAME DECC$MEMCPY
RAWLIBNEXT
DECC$GXPRINTF = WS_CHAT = 0( ; = P 7 CONNECTEDCOUNT = [%s:%d] DECC$EXIT =
(null) 0 ! DECC$STRLEN 7 CURRENTTIME7
USAGECOUNT =
SERVER_NAME ` ( # CMA$TIS_VMSERRNO_GET_ADDR % RAWLIBGETUSERDATA = ; '
RAWLIBREAD 8 OTS$MOVE + DECC$FREE -
RAWLIBOPEN = s / DECC$GXFPRINTF 1 RAWLIBCGIPLUSEOF 3 RAWLIBONNEXTREQUEST = SYS$OUTPUT 5 RAWLIBSETLIFESECS 7
SYS$SETAST = 0 " ; = 0 4 7 DECC$GA_STDOUT p 9 DECC$FREOPEN = ctx=bin = w ; SYS$HIBER = RAWLIBISCGIPLUS ; = 08 " ; = P 0 7 DECC$$SHELL_HANDLER= ? DECC$MAIN = 0 " p ; = @ , | 8 = 0 ; = @ @ < = 0 ; = ` 8 A RAWLIBREADSTATUS C RAWLIBCLOSE E RAWLIBREADCOUNT = 0 0 ; = 0 $ = 0 @ ; =
& =
> = . & % RAW_CHATVSI C V7.4-002
? =
@ 4 = TRANSFER$BREAK$GO
=
4 @ 4 =
main 4 = s k j B B B B B B B B
=
=
@ 4 4 = NextRequest @ 4 = 5 - , C C C C C
= `
=
4 4 = AddClient 4 = $C ,C $C ,C $C $C $C $C -C ,C ,C