BSCREENV1.027-DEC-1993 17:14DEC C V1.3-000A H $READONLY$ $BSS$$DATA$$LINK$ $LITERAL$i $CODE$ $ABS$DECC$GA___CTYPEDECC$GA_STDERR DECC$GA_STDINDECC$GA_STDOUT DECC$GFPRINTF CONT_DISPLAY CONT_PASTEKEYBOARD0Jx0 CURSOR_OFF SMG$SET_CURSOR_MODEECHECK0J CURSOR_ON0J DELETE_SCREEN(SMG$DELETE_VIRTUAL_KEYBOARD(SMG$DELETE_VIRTUAL_DISPLAY SMG$DELETE_PASTEBOARD0J` OUTPUT_INFO DECC$STRLEN SMG$PUT_CHARS0J0READ_KEY SMG$READ_KEYSTROKE0JREFRESH_SCREEN SMG$REPAINT_SCREEN0J READ_STRINGSMG$READ_STRING DECC$STRCPY8JXMAKE_MESSAGE_LINE(SMG$CREATE_VIRTUAL_DISPLAYSMG$ERASE_LINE(SMG$PASTE_VIRTUAL_DISPLAY0Jp CREATE_SCREEN SMG$CREATE_PASTEBOARD(SMG$CREATE_VIRTUAL_KEYBOARD0JPASTE_TO_SCREEN $= %s =0;7DECC$GA___CTYPE=0;=0 7 CONT_PASTE7 CONT_DISPLAYP(SMG$PASTE_VIRTUAL_DISPLAYECHECK;=00;=0  SMG$SET_CURSOR_MODE=0p;=@ SMG$CREATE_PASTEBOARD( SMG$CREATE_VIRTUAL_DISPLAY( SMG$CREATE_VIRTUAL_KEYBOARD7KEYBOARD=0xX;=| 0 DECC$STRLEN;=P7DECC$GA_STDOUT` SMG$PUT_CHARSSMG$ERASE_LINE DECC$GFPRINTF=0;=0 =08;= p<  SMG$READ_STRING DECC$STRCPY=0;=  SMG$REPAINT_SCREEN=0;=0 SMG$READ_KEYSTROKE=0p;=  O=0;=@ (SMG$DELETE_VIRTUAL_KEYBOARD(SMG$DELETE_VIRTUAL_DISPLAY !SMG$DELETE_PASTEBOARD = GkG;FapC;,;HdGk#4G~TG^^ GG(B="0b@Zk4G"GBb@ZkG]] 0#k#TG~TG^^ GGB="b@Zk4G"GBb@ZkG]] 0#k#TG~TG^^ ~(0GGb="B bG@Zk4GBGb@Zk4G(Bx0b@Zk4GBbG@Zk4G8B@b@Zk4GBGb@Zk4GHBGPb@Zk4GBbG@ZkG]] }(0@#k`#4G~p^x^~GG4GBG Gb =@ZkG`H8`D]"0J}"F==`=""GG="]"}"GBb@Zk4GBGb@ZkGp]x]}#kG#4G~G^ ^(GG="}"G="TG B(b@ZkG] ]( vH0#k#4G~^^GG B8(b@Zk4Gp"`BGhb@ZkG]] #kG#TG~8^@^H~PX`GG#GB0 ""b ="(=TG,  =G@Zk4GGBb@Zk$ 0B]"$"(="^ }"$"PG8bG4G@ZkTG@B0="Hb vHC0.PJ0>G@Zk4GTGB="bG}@Zk4GBbG@ZkG8]@]H} vHPX`p#kGP#tG~x^^~޴GG=4G@"  G=  HBxB8"Gb@Zk^G(BG0b4G }@Zk4GtGh`H="% 1?J F=0 @EE" B="bݰ@Zk4GXBG`b@ZkhB"="pb]"tG@Zk4GXBG`b@Zk4G(BG0b@ZkGG&@ @XB`b"&@0@7Hݰ="]"}""@Zk4GXBG`b@ZkGHB"ݠ]"0"}"Pbݰ@Zk4GXB`bG@ZkGx]]}ݤ#kG#4G~G^tG ^(~08GG"0B ="B8b =@Zk4GbBGb@Zk4G B(bG@Zk4GBGb@Zk4G@BHbP@Zk4GBbG@Zk4GTGB="bG@Zk4GBbG@ZkG] ](}08@#k#4G~G^^ GG 8B ]" "}"(@b@Zk4GX"HBGPb@ZkG]] 0#k<XGlSMG$SET_CURSOR_MODE<db#xSMG$SET_CURSOR_MODE<h@lSMG$SET_CURSOR_MODE,xGECHECK,|b#xECHECK,@ECHECK<GSMG$SET_CURSOR_MODE<b#SMG$SET_CURSOR_MODE<@SMG$SET_CURSOR_MODE,GECHECK,b#ECHECK,@ECHECK<HGXSMG$SET_CURSOR_MODE<Lb#SMG$SET_CURSOR_MODE<T@XSMG$SET_CURSOR_MODE,`GtECHECK,hb#ECHECK,p@tECHECKDxGSMG$DELETE_VIRTUAL_KEYBOARDDb#SMG$DELETE_VIRTUAL_KEYBOARDD@SMG$DELETE_VIRTUAL_KEYBOARD,GECHECK,b#ECHECK,@ECHECKDGSMG$DELETE_VIRTUAL_DISPLAYD b#SMG$DELETE_VIRTUAL_DISPLAYD@SMG$DELETE_VIRTUAL_DISPLAY,GECHECK,b#ECHECK,@ECHECK<!GSMG$DELETE_PASTEBOARD<"b#SMG$DELETE_PASTEBOARD <!@SMG$DELETE_PASTEBOARD,GECHECK,b#ECHECK,@ECHECK4 HGl DECC$STRLEN4Xb#` DECC$STRLEN4 h@l DECC$STRLEN4G SMG$PUT_CHARS4b#` SMG$PUT_CHARS4@ SMG$PUT_CHARS,GECHECK,b#`ECHECK,@ECHECK<\GhSMG$READ_KEYSTROKE<`b#0SMG$READ_KEYSTROKE<d@hSMG$READ_KEYSTROKE<GSMG$REPAINT_SCREEN<b#SMG$REPAINT_SCREEN<@SMG$REPAINT_SCREEN,GECHECK,b#ECHECK,@ECHECK<(G\SMG$SET_CURSOR_MODE<8b#SMG$SET_CURSOR_MODE<X@\SMG$SET_CURSOR_MODE,hGxECHECK,lb#ECHECK,t@xECHECK4GSMG$READ_STRING4b#SMG$READ_STRING4@SMG$READ_STRING4G DECC$STRCPY4b# DECC$STRCPY4@ DECC$STRCPY<GSMG$SET_CURSOR_MODE<b#SMG$SET_CURSOR_MODE< @SMG$SET_CURSOR_MODE,G(ECHECK,b#ECHECK,$@(ECHECK4G DECC$GFPRINTF4b# DECC$GFPRINTF4@ DECC$GFPRINTF4 G DECC$STRLEN4b# DECC$STRLEN4 @ DECC$STRLEND $G<SMG$CREATE_VIRTUAL_DISPLAYD 0b#SMG$CREATE_VIRTUAL_DISPLAYD 8@<SMG$CREATE_VIRTUAL_DISPLAY,@GTECHECK,Hb#ECHECK,P@TECHECK4TGxSMG$ERASE_LINE4db#SMG$ERASE_LINE4t@xSMG$ERASE_LINE,|GECHECK,b#ECHECK,@ECHECK4 G DECC$STRLEN4b# DECC$STRLEN4 @ DECC$STRLEN4G SMG$PUT_CHARS4b# SMG$PUT_CHARS4@ SMG$PUT_CHARS,GECHECK,b#ECHECK,@ECHECKDG,SMG$PASTE_VIRTUAL_DISPLAYDb#SMG$PASTE_VIRTUAL_DISPLAYD(@,SMG$PASTE_VIRTUAL_DISPLAY,0GDECHECK,4b#ECHECK,@@DECHECKD GSMG$CREATE_VIRTUAL_DISPLAYD b#SMG$CREATE_VIRTUAL_DISPLAYD @SMG$CREATE_VIRTUAL_DISPLAY,GECHECK,b#ECHECK @,@ECHECK<GSMG$CREATE_PASTEBOARD<b#SMG$CREATE_PASTEBOARD<@SMG$CREATE_PASTEBOARD,G ECHECK,b#ECHECK,@ ECHECKD G SMG$CREATE_VIRTUAL_KEYBOARDD b#SMG$CREATE_VIRTUAL_KEYBOARDD @ SMG$CREATE_VIRTUAL_KEYBOARD,$G8ECHECK,(b#ECHECK,4@8ECHECK<@GXSMG$SET_CURSOR_MODE<Hb#SMG$SET_CURSOR_MODE<T@XSMG$SET_CURSOR_MODE,\GpECHECK,`b#ECHECK,l@pECHECKDGSMG$PASTE_VIRTUAL_DISPLAYDb#SMG$PASTE_VIRTUAL_DISPLAYD@SMG$PASTE_VIRTUAL_DISPLAY,GECHECK,b#ECHECK,@ECHECK ==-%$SCREENDEC C V1.3-000A v= 44= __iscntrl4= 0 = 0 = 04x4= cursor_off04=:21 $ $ $ $ $ $= T4 = p = 44= cursor_on4=:21 #$ #$ #$ '$ '$ $= 4 = p = 44= delete_screen4=ZRQ +$ %$ '$ %$ '$ '$ .$ 0$ 2$ $= <4 .=  4=  =  =  = 4`4= output_info4=rji 6$ 6$ 6$ :$ 8$ >$ >$ >$ ?$ @$$ $= D4 =  = 404=read_key4=1)( I$ I$ I$ $= 44 = x = 44=refresh_screen4=.&% V$ V$ X$ X$ $= 4 = h = 44= read_string4= \$ '$4( '$4 '$7 '$7 %$9 %$ '$ '$< e$ h$ h$ $ $ $J0 $=  4 .=  4=  =  .=  4=  =  = h ?= X44=make_message_lineX4= n$ n$ n$ p$ z$ |$ {$ |$ {$ |$ }$ }$ ~$ $G $ $ $ $ $ $ $ $, $= 4 =  = p44= create_screenp4=vnm $ $ $ $ $ $ $ $ $ $ $ $w $= 4 .=  o4=  =  =   = 44=paste_to_screen4=?76 $ $ $ $ $ $ $= 4 = | =