ej€ QKSH 6-Aug-1985 09:26:4601SMGDEFSVAX Pascal V3.0-2^á ]SMG$ADD_KEY_DEF`á _SMG$ALLOW_ESCAPEbá aSMG$BEGIN_DISPLAY_UPDATEdá cSMG$BEGIN_PASTEBOARD_UPDATEfá eSMG$CANCEL_INPUThá gSMG$CHANGE_PBD_CHARACTERISTICSjá iSMG$CHANGE_RENDITIONlá kSMG$CHANGE_VIRTUAL_DISPLAYná mSMG$CHECK_FOR_OCCLUSIONpá oSMG$CONTROL_MODErá qSMG$CREATE_KEY_TABLEtá sSMG$CREATE_PASTEBOARDvá uSMG$CREATE_VIRTUAL_DISPLAYxá wSMG$CREATE_VIRTUAL_KEYBOARDzá ySMG$CURSOR_COLUMN|á {SMG$CURSOR_ROWá }SMG$DEL_TERM_TABLEá ~SMG$DEFINE_KEYá €SMG$DELETE_CHARSƒá ‚SMG$DELETE_KEY_DEF…á „SMG$DELETE_LINE‡á †SMG$DELETE_PASTEBOARD‰á ˆSMG$DELETE_VIRTUAL_DISPLAY‹á ŠSMG$DELETE_VIRTUAL_KEYBOARDá ŒSMG$DISABLE_UNSOLICITED_INPUTá Ž SMG$DRAW_LINE‘á SMG$DRAW_RECTANGLE“á ’SMG$ENABLE_UNSOLICITED_INPUT•á ”SMG$END_DISPLAY_UPDATE—á –SMG$END_PASTEBOARD_UPDATE™á ˜SMG$ERASE_CHARS›á šSMG$ERASE_DISPLAYá œSMG$ERASE_LINEŸá žSMG$ERASE_PASTEBOARD¡á  SMG$FIND_CURSOR_DISPLAY£á ¢SMG$FLUSH_BUFFER¥á ¤SMG$GET_BROADCAST_MESSAGE§á ¦SMG$GET_CHAR_AT_PHYSICAL_CURSOR©á ¨SMG$GET_DISPLAY_ATTR«á ªSMG$GET_KEY_DEF­á ¬SMG$GET_PASTEBOARD_ATTRIBUTES¯á ®SMG$GET_TERM_DATA±á °SMG$HOME_CURSOR³á ²SMG$INIT_TERM_TABLEµá ´SMG$INIT_TERM_TABLE_BY_TYPE·á ¶SMG$INSERT_CHARS¹á ¸SMG$INSERT_LINE»á ºSMG$INVALIDATE_DISPLAY½á ¼SMG$LABEL_BORDER¿á ¾SMG$LIST_KEY_DEFSÁá ÀSMG$LOAD_KEY_DEFSÃá ÂSMG$MOVE_VIRTUAL_DISPLAYÅá ÄSMG$PASTE_VIRTUAL_DISPLAYÇá ÆSMG$POP_VIRTUAL_DISPLAYÉá È SMG$PUT_CHARSËá ÊSMG$PUT_CHARS_HIGHWIDEÍá ÌSMG$PUT_CHARS_WIDEÏá ÎSMG$PUT_VIRTUAL_DISPLAY_ENCODEDÑá Ð SMG$PUT_LINEÓá ÒSMG$PUT_LINE_WIDEÕá ÔSMG$PUT_WITH_SCROLL×á ÖSMG$READ_COMPOSED_LINEÙá ØSMG$READ_FROM_DISPLAYÛá  ÚSMG$READ_STRINGÝá ÜSMG$REPAINT_SCREENßá ÞSMG$REPASTE_VIRTUAL_DISPLAYáá àSMG$RESTORE_PHYSICAL_SCREENãá âSMG$RETURN_CURSOR_POSåá ä SMG$RING_BELLçá æSMG$SAVE_PHYSICAL_SCREENéá èSMG$SCROLL_DISPLAY_AREAëá êSMG$SET_BROADCAST_TRAPPINGíá ìSMG$SET_CURSOR_ABSïá îSMG$SET_CURSOR_RELñá ðSMG$SET_DEFAULT_STATEóá òSMG$SET_DISPLAY_SCROLL_REGIONõá ôSMG$SET_KEYPAD_MODE÷á öSMG$SET_OUT_OF_BAND_ASTSùá øSMG$SET_PHYSICAL_CURSORûá ú SMG$SNAPSHOTýá üSMG$UNPASTE_VIRTUAL_DISPLAY  SMG$ADD_KEY_DEF $þ  KEY_TABLE_ID  SMG$ALLOW_ESCAPE $ÿ  DISPLAY_ID  SMG$BEGIN_DISPLAY_UPDATE $  DISPLAY_ID  SMG$BEGIN_PASTEBOARD_UPDATE $  PASTEBOARD_ID  SMG$CANCEL_INPUT $  KEYBOARD_ID  SMG$CHANGE_PBD_CHARACTERISTICS $  PASTEBOARD_ID  SMG$CHANGE_RENDITION $  DISPLAY_ID  SMG$CHANGE_VIRTUAL_DISPLAY $  DISPLAY_ID  SMG$CHECK_FOR_OCCLUSION $  DISPLAY_ID  SMG$CONTROL_MODE $  PASTEBOARD_ID  SMG$CREATE_KEY_TABLE $ NEW_KEY_TABLE_ID  SMG$CREATE_PASTEBOARD $ NEW_PASTEBOARD_ID  SMG$CREATE_VIRTUAL_DISPLAY $ NUM_ROWS  SMG$CREATE_VIRTUAL_KEYBOARD $ NEW_KEYBOARD_ID  SMG$CURSOR_COLUMN $  DISPLAY_ID  SMG$CURSOR_ROW $  DISPLAY_ID  SMG$DEL_TERM_TABLE  SMG$DEFINE_KEY $  KEY_TABLE_ID  SMG$DELETE_CHARS $   DISPLAY_ID  SMG$DELETE_KEY_DEF $   KEY_TABLE_ID  SMG$DELETE_LINE $   DISPLAY_ID  !SMG$DELETE_PASTEBOARD $   PASTEBOARD_ID  "SMG$DELETE_VIRTUAL_DISPLAY $  DISPLAY_ID  #SMG$DELETE_VIRTUAL_KEYBOARD $  KEYBOARD_ID  $SMG$DISABLE_UNSOLICITED_INPUT $  PASTEBOARD_ID  % SMG$DRAW_LINE $   DISPLAY_ID  &SMG$DRAW_RECTANGLE $  DISPLAY_ID  'SMG$ENABLE_UNSOLICITED_INPUT $  PASTEBOARD_ID  (SMG$END_DISPLAY_UPDATE $  DISPLAY_ID  )SMG$END_PASTEBOARD_UPDATE $  PASTEBOARD_ID  *SMG$ERASE_CHARS $  DISPLAY_ID  +SMG$ERASE_DISPLAY $  DISPLAY_ID  ,SMG$ERASE_LINE $  DISPLAY_ID  -SMG$ERASE_PASTEBOARD $  PASTEBOARD_ID  .SMG$FIND_CURSOR_DISPLAY $  PASTEBOARD_ID  /SMG$FLUSH_BUFFER $  PASTEBOARD_ID  0SMG$GET_BROADCAST_MESSAGE $  PASTEBOARD_ID  1SMG$GET_CHAR_AT_PHYSICAL_CURSOR $  PASTEBOARD_ID  2SMG$GET_DISPLAY_ATTR $  DISPLAY_ID  3SMG$GET_KEY_DEF $  KEY_TABLE_ID  4SMG$GET_PASTEBOARD_ATTRIBUTES $  PASTEBOARD_ID  5SMG$GET_TERM_DATA $ TERMTABLE_ADDRESS  6SMG$HOME_CURSOR $  DISPLAY_ID  7SMG$INIT_TERM_TABLE $ TERMINAL_NAME  8SMG$INIT_TERM_TABLE_BY_TYPE $@ TERMINAL_TYPE  9SMG$INSERT_CHARS $  DISPLAY_ID  :SMG$INSERT_LINE $   DISPLAY_ID  ;SMG$INVALIDATE_DISPLAY $  DISPLAY_ID  <SMG$LABEL_BORDER $!  DISPLAY_ID  =SMG$LIST_KEY_DEFS $"  KEY_TABLE_ID  >SMG$LOAD_KEY_DEFS $#  KEY_TABLE_ID  ?SMG$MOVE_VIRTUAL_DISPLAY $$  DISPLAY_ID  @SMG$PASTE_VIRTUAL_DISPLAY $%  DISPLAY_ID  ASMG$POP_VIRTUAL_DISPLAY $&  DISPLAY_ID  B SMG$PUT_CHARS $'  DISPLAY_ID  CSMG$PUT_CHARS_HIGHWIDE $(  DISPLAY_ID  DSMG$PUT_CHARS_WIDE $)  DISPLAY_ID  ESMG$PUT_VIRTUAL_DISPLAY_ENCODED $*  DISPLAY_ID  F SMG$PUT_LINE $+  DISPLAY_ID  GSMG$PUT_LINE_WIDE $,  DISPLAY_ID  HSMG$PUT_WITH_SCROLL $-  DISPLAY_ID  ISMG$READ_COMPOSED_LINE $.  KEYBOARD_ID  JSMG$READ_FROM_DISPLAY $/  DISPLAY_ID  KSMG$READ_STRING $0  KEYBOARD_ID  LSMG$REPAINT_SCREEN $  PASTEBOARD_ID  MSMG$REPASTE_VIRTUAL_DISPLAY $1  DISPLAY_ID  NSMG$RESTORE_PHYSICAL_SCREEN $2  PASTEBOARD_ID  OSMG$RETURN_CURSOR_POS $3  DISPLAY_ID  P SMG$RING_BELL $4  DISPLAY_ID  QSMG$SAVE_PHYSICAL_SCREEN $5  PASTEBOARD_ID  RSMG$SCROLL_DISPLAY_AREA $6  DISPLAY_ID  SSMG$SET_BROADCAST_TRAPPING $7  PASTEBOARD_ID  TSMG$SET_CURSOR_ABS $8  DISPLAY_ID  USMG$SET_CURSOR_REL $9  DISPLAY_ID  VSMG$SET_DEFAULT_STATE $:  KEY_TABLE_ID  WSMG$SET_DISPLAY_SCROLL_REGION $;  DISPLAY_ID  XSMG$SET_KEYPAD_MODE $<  KEYBOARD_ID  YSMG$SET_OUT_OF_BAND_ASTS $=  PASTEBOARD_ID  ZSMG$SET_PHYSICAL_CURSOR $>  PASTEBOARD_ID  [ SMG$SNAPSHOT $  PASTEBOARD_ID  \SMG$UNPASTE_VIRTUAL_DISPLAY $?  DISPLAY_ID $@AKEY_NAME $ ESC_FLAG $B C DESIRED_WIDTH $D  START_ROW $E ROWS $F  PASTEBOARD_ID $G HNEW_MODE $IJK OUTPUT_DEVICE $L  NUM_COLUMNS $MNOFILESPEC $P COMMAND_LINE $Q  NUM_CHARS $RSKEY_NAME $T  START_LINE $ UCLEAR_SCREEN_FLAG $V  START_ROW $W  TOP_LEFT_ROW $X€ YZ AST_ROUTINE $[ NUMBER_OF_CHARS $\ ] START_ROW $^ _ LINE_NUMBER $ RETURNED_DISPLAY_ID $`abMESSAGE $@ CHARACTER $c HEIGHT $deKEY_NAME $fg BP_INFO_TABLE $h  REQUEST_CODE $ iPOSITION $ TERM_ENTRY_ADDRESS$ $j TERM_ENTRY_ADDRESS €ÿÿÿ $klSTRING $m  LINE_NUMBER $nop LABEL_TEXT $q CONTEXT $rsFILESPEC $t  PASTEBOARD_ID $u  PASTEBOARD_ID $  PASTEBOARD_ID $vwTXT $xyTXT $z{TXT $| ENCODED_LENGTH $}~TXT $€TXT $‚ƒTXT $„  KEY_TABLE_ID $…†RETURNED_STRING $‡ˆ RECEIVED_TEXT $‰  PASTEBOARD_ID $ SAVED_DISPLAY_ID $Š  ROW_NUMBER $ ‹NUMBER_OF_TIMES $Œ SAVED_DISPLAY_ID $ Ž STARTING_ROW $€ ‘ AST_ROUTINE $’ “ROW $” • DELTA_ROW $–—˜ NEW_STATE $™ š STARTING_LINE $ NEW_MODE $› CONTROL_CHAR_MASK $œ PB_ROW $  PASTEBOARD_ID $žŸIF_STATE$ $  ¡RESULTING_WIDTH  $¢  START_COL $£ COLUMNS $ OCCLUSION_STATE $ ¤OLD_MODE  $¥ ¦PB_ROWS$  $§ NEW_DISPLAY_ID $¨©ªDEFAULT_FILESPEC$ $ $« ROW $¬­IF_STATE$ $ ® NUMBER_LINES  $¯  START_COLUMN $° TOP_LEFT_COLUMN $@ ± AST_ARGUMENT€  AST_ROUTINE  $²  ROW_NUMBER $³ ´ START_COLUMN  $ µ COLUMN_NUMBER  $¶@·MESSAGE_LENGTH$  $¸ WIDTH $¹º»IF_STATE$ $ PB_INFO_TABLE_SIZE$@ $¼ MAX_BUFFER_LENGTH  $½¾ TERMINAL_NAME $¿ ROW$ $ÀÁÂSTRING $à ÄPOSITION$  $ÅÆÇKEY_NAME $ÈÉÊDEFAULT_FILESPEC$ $Ë PASTEBOARD_ROW $Ì PASTEBOARD_ROW $Í Î LINE_NUMBER$ $Ï Ð LINE_NUMBER$ $Ñ Ò LINE_NUMBER$ $Ó@  ENCODED_TEXT $Ô Õ LINE_ADVANCE$ $Ö × LINE_ADVANCE$ $Ø Ù DIRECTION$  $ÚÛ RECEIVED_TEXT $ÜÝTERMINATOR_STRING$ $Þßà PROMPT_STRING$ $á PB_ROW $  COLUMN_NUMBER  $â ãDESIRED_ROW_START $ä åSTARTING_COLUMN  $@ æ AST_ARGUMENT€  AST_ROUTINE  $ çCOLUMN  $ è DELTA_COLUMN  $éê OLD_STATE$  $ ë ENDING_LINE  $ì€ í AST_ROUTINE $  PB_COLUMN $î ï ATTRIBUTES$  $ð ñDESIRED_HEIGHT  $ò ROWS $ó ôDISPLAY_ATTRIBUTES  $õ ö PB_COLUMNS  $÷ øDISPLAY_ATTRIBUTES $ùúRESULTANT_FILESPEC$  $ COLUMN$   $û END_ROW $ü BOTTOM_RIGHT_ROW  $  COLUMN_NUMBER $ý þEND_ROW   €ÿÿÿ  $ÿ DISPLAY_ATTRIBUTES $  ATTRIBUTES$  $  RETURN_LENGTH$  $ COLUMN $  DIRECTION$  $ UNITS  $   IF_STATE$  $   LOGNAM_FLAG$  $ PASTEBOARD_COLUMN $ PASTEBOARD_COLUMN $   COLUMN_NUMBER  $  COLUMN_NUMBER  $  COLUMN_NUMBER  $  LINE_NUMBER $  RENDITION_SET  $  RENDITION_SET  $  RENDITION_SET  $ PROMPT_STRING$$  $  MAX_LENGTH$  $  PB_COLUMN $  DESIRED_ROW_END  $! "HEIGHT    $   $@ # AST_ARGUMENT€  AST_ROUTINE $$%& EQUIV_STRING  $' (RESULTING_HEIGHT  $) COLUMNS $* +VIDEO_ATTRIBUTES  $ ,PRESERVE_SCREEN_FLAG  $- .VIDEO_ATTRIBUTES $  $/  END_COLUMN $0 BOTTOM_RIGHT_COLUMN $ 1 END_COLUMN  $2 3VIDEO_ATRIBUTES  $456 EQUIV_STRING  $7 BUFFER_ADDRESS $8 9 RENDITION_SET $: ; RENDITION_SET  $< = RENDITION_SET  $> ? ATTRIBUTES$   $@ A ERASE_FLAG  $B C RENDITION_SET  $D E RENDITION_SET  $F G COLUMN_NUMBER  $H IRENDITION_COMPLEMENT  $J KRENDITION_COMPLEMENT  $L MRENDITION_COMPLEMENT  $N ORECEIVED_STRING_LENGTH$  $P Q MODIFIERS   $R SWIDTH   $TU STATE_STRING$  $V WDESIRED_BACKGROUND_COLOR  $X Y RENDITION_SET $ ZCHAR_SET   $ [CHAR_SET  $\ ] RENDITION_SET $^ _ RENDITION_SET  $ `CHAR_SET  $ab STATE_STRING$  $cINPUT_ARGUMENT_VECTOR $d eRENDITION_COMPLEMENT  $f gRENDITION_COMPLEMENT  $h iRENDITION_COMPLEMENT  $jkl EQUIV_STRING  $m n RENDITION_SET  $o pRENDITION_COMPLEMENT  $q rRENDITION_COMPLEMENT  $s t WRAP_FLAG  $u v WRAP_FLAG  $w x WRAP_FLAG  $y z WRAP_FLAG  $ { DISPLAY_ID  $| }TIMEOUT  $~  DIRECTION $  $ €RESULTING_BACKGROUND_COLOR  $ RENDITION_COMPLEMENT    $ ‚RENDITION_COMPLEMENT  $ ƒRENDITION_COMPLEMENT  $ $  $ „CHAR_SET  $… † WRAP_FLAG  $ ‡CHAR_SET  $ˆ‰ STATE_STRING$  $Š ‹RENDITION_COMPLEMENT  $ ŒCHAR_SET  $ CHAR_SET  $ ŽCHAR_SET  $ CHAR_SET  $ CHAR_SET  $ ‘CHAR_SET   $’“”TERMINATOR_SET  $ •COUNT       $ –CHAR_SET  $  $ —CHAR_SET        $˜™@šRECEIVED_STRING_LENGTH$     $›™@  œTERMINATOR_CODE ÿÿ  $   DISPLAY_ID  €$€J€z€¬€Ò€€2€b€€¶€â€ €>€p€˜€¾€æ€ €2€Z€€€¬€Þ€€D€h€’€Æ€ò€ €D €l €’ €¾ €ì € €@ €t €ž €Ä €ø € €D €l €œ €Â €è € €> €d €Œ €º €è € €8 €f €Ž €Ä €æ € €4€b€Œ€°€Ú€ €<€h€Œ€º€è€€B€j€”€È€ð€€L€n€ €Ä€ö€€N€~€®€à€€:€l€¢€Ô€þ€.€^€Ž€¼€î€€H€r€ª€Ô€ €>€n€ €Ô€ü€.€R€‚€ª€Î€€*€Z€‚€¶€Ü€€8€l€ž€Î€€0€d€˜€¼€î€€F€z€¬€Ú€ €8€l€€Â€è€€>€n€š€Ì€ø€,€R€„€´€è€€P€z€ª€Ð€ €4 €h € €È €ì €!€H!€|!€¬!€à!€"€6"€\"€Ž"€º"€ê"€#€B#€h#€š#€À#€ò#€"$€R$€€$€²$€à$€%€4%€f%€’%€Â%€ê%€&€P&€‚&€¦&€Ö&€ü&€.'€X'€Š'€¶'€è'€(€F(€l(€œ(€Æ(€ø(€()€Z)€Œ)€À)€ì)€*€@*€r*€¢*€Ô*€+€2+€b+€”+€¾+€î+€,€F,€p,€¢,€Ô,€-€0-€`-€Ž-€À-€ì-€ .€B.€t.€¤.€Ö.€/€6/€h/€˜/€Â/€ô/€"0€T0€„0€²0€æ0€1€B1€r1€¨1€Ø1€ 2€<2€p2€ 2€Ð2€3€43€d3€’3€Â3€ô3€&4€V4€Ž4€´4€î4€5€>5€p5€¢5€Ð5€þ5€06€d6€˜6€À6€è6€7€F7€p7€˜7€À7€ò7€(8€\8€8€Æ8€ö8€,9€b9€–9€È9€ð9€ :€P:€„:€²:€è:€;€H;€v;€œ;€Ð;€Ü;€ <€8<€l<€š<€¨<€Ô<€ø<€=€:=€r=€˜=€¤=€È=€ð=€>€D>€v>€„>€¶>€ì>€?€:?€H?€z?€®?€¼?€ð?€ü?€2@€X@€d@€@€¾@€ä@€A€DA€|A€ˆA€¼A€äA€B€6B€fB€ŒB€˜B€ÆB€þB€$C€ZC€ŽC€ÀC€äC€D€8D€hD€ŒD€¾D€òD€E€JE€pE€ E€ÄE€ÐE€F€X€LX€€X€ŒX€ÀX€ÌX€Y€ Y€FY€TY€ŽY€œY€ÖY€äY€"Z€HZ€TZ€„Z€Z€œZ€ÈZ€ÔZ€àZ€[€8[€D[€‚[€[€Ä[€ò[€\€ \€:\€H\€|\€°\€¼\€ê\€ø\€*]€P]€\]€˜]€Ò]€à]€^€(^€b^€p^€¢^€°^€ä^€ð^€*_€8_€r_€€_€°_€¼_€ì_€ø_€(`€4`€d`€p`€¢`€°`€Ü`€è`€a€$a€Ha€Ta€–a€¤a€Þa€ìa€øa€b€>b€Lb€†b€”b€ b€Äb€Ðb€ôb€"c€0c€`c€lc€šc€¨c€Úc€d€ d€Fd€Td€‚d€d€¾d€Ìd€úd€e€6e€De€re€€e€®e€¼e€Èe€þe€ f€8f€Df€Pf€\f€hf€tf€€f€®f€¼f€Èf€ìf€øf€&g€4g€@g€Lg€Xg€dg€pg€|g€ºg€àg€ìg€øg€h€h€Dh€dh€ph€¢h€°h€