home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S4.ARC / TERMDEF.LOC < prev    next >
Encoding:
Text File  |  1987-12-06  |  6.4 KB  |  138 lines
  1. (*--------------------------------------------------------------------------*)
  2. (*          Display action definitions for various terminals                *)
  3. (*--------------------------------------------------------------------------*)
  4.  
  5. CONST
  6.    MaxAdm3aChars = 8;
  7.    MaxAdm5Chars  = 11;
  8.    MaxVT52Chars  = 30;
  9.    MaxTV950Chars = 12;
  10.    MaxTV925Chars = 22;
  11.    MaxAddsVChars = 12;
  12.    MaxTI940Chars = 27;
  13.  
  14. (* STRUCTURED *) CONST
  15.    ADM3a_Chars   : ARRAY[1..MaxAdm3aChars] OF CHAR =
  16.                    ( ^K, ^J, ^L, ^H, ^^, ^Z, '=', ^U );
  17.  
  18.    ADM3a_Actions : ARRAY[1..MaxAdm3aChars] OF Display_Action =
  19.                    ( CursorUp, Index, CursorRight, CursorLeft,
  20.                      CursorHome, ClearScrH, CursorPosVT52, Index );
  21.  
  22.    ADM5_Chars    : ARRAY[1..MaxAdm5Chars] OF CHAR =
  23.                    ( ^K, ^J, ^L, ^H, ^^, ^Z , '=', 'G', ')', '(', ^U );
  24.  
  25.    ADM5_Actions  : ARRAY[1..MaxAdm5Chars] OF Display_Action =
  26.                    ( CursorUp, Index, CursorRight, CursorLeft,
  27.                      CursorHome, ClearScrH, CursorPosVT52, ReverseVideo,
  28.                      StartDim,   EndDim, Index );
  29.  
  30.    VT52_Chars    : ARRAY[1..MaxVT52Chars] OF CHAR =
  31.                    ( ^I, ^J, ^K, ^L, ^Q,
  32.                      'A', 'B', 'C', 'D', 'H', 'Y', 'I', 'K', 'J',
  33.                      'V', ']', '^', '-', 'W', 'X', 'Z', '=', '>',
  34.                      'L', 'F', 'G', '<', ']', '[', '\' );
  35.  
  36.    VT52_Actions  : ARRAY[1..MaxVT52Chars] OF Display_Action =
  37.                    ( VT52HT, VT52LF, VT52LF, VT52LF, SendMahoneyOn,
  38.                      CursorUp, CursorDown, CursorRight, CursorLeft,
  39.                      CursorHome, CursorPosVT52, ReverseIndex, ClearEOL,
  40.                      ClearEOS, PrintLine, PrintPage, StartAutoPrint,
  41.                      EndAutoPrint, StartPrintControl, EndPrintControl,
  42.                      IdentifyVT52, StartAltKey, EndAltKey, ClearScrH,
  43.                      StartGraphicsMode, EndGraphicsMode, EnterVT100,
  44.                      PrintPage, StartVT52HoldScreen, EndVT52HoldScreen
  45.                    );
  46.  
  47.    TV925_Chars   : ARRAY[1..MaxTV925Chars] OF CHAR =
  48.                    ( ^K, ^V, ^L, ^H, ^^, ^Z , '=', 'G', ')', '(',
  49.                      'T', 'Y', 'Q', 'W', 'R', 'E', '*', ';', ':',
  50.                      't', 'y', 'P' );
  51.  
  52.    TV925_Actions : ARRAY[1..MaxTV925Chars] OF Display_Action =
  53.                    ( CursorUp, CursorDown, CursorRight, CursorLeft,
  54.                      CursorHome, ClearScrH, CursorPosVT52, TV950Video,
  55.                      StartDim,   EndDim, ClearEOL, ClearEOS,
  56.                      InsertCharA, DeleteChar, DeleteLine, InsertLineA,
  57.                      ClearScrH, ClearScrH, ClearScrH, ClearEOS, ClearEOL,
  58.                      PrintPage );
  59.  
  60.    TV950_Chars   : ARRAY[1..MaxTV950Chars] OF CHAR =
  61.                    ( ^K, ^J, ^L, ^H, ^^, ^Z , '=', 'G', ')', '(',
  62.                      'T', 'Y' );
  63.  
  64.    TV950_Actions : ARRAY[1..MaxTV950Chars] OF Display_Action =
  65.                    ( CursorUp, CursorDown, CursorRight, CursorLeft,
  66.                      CursorHome, ClearScrH, CursorPosVT52, TV950Video,
  67.                      StartDim,   EndDim, ClearEOL, ClearEOS );
  68.  
  69.    AddsV_Chars   : ARRAY[1..MaxAddsVChars] OF CHAR =
  70.                    ( ^Z, ^J, ^F, ^U, ^A, ^L , ^P, ^K, 'Y', 'k', 'K', '0' );
  71.  
  72.    AddsV_Actions : ARRAY[1..MaxAddsVChars] OF Display_Action =
  73.                    ( CursorUp, CursorDown, CursorRight, CursorLeft,
  74.                      CursorHome, ClearScrH, CursorPosH, CursorPosV,
  75.                      CursorPosVT52, ClearEOS, ClearEOL, Swallow );
  76.  
  77.    TI940_Chars   : ARRAY[1..MaxTI940Chars] OF CHAR =
  78.                    ( 'A', 'B', 'C', 'D', 'H', 'Y', 'I', 'K', 'J',
  79.                      'V', ']', '^', '_', 'W', 'X', 'Z', '=', '>',
  80.                      'L', 'F', 'G', 'P', 'Q', 'm', 'r', 'O', 'N' );
  81.  
  82.    TI940_Actions : ARRAY[1..MaxTI940Chars] OF Display_Action =
  83.                    ( CursorUp, CursorDown, CursorRight, CursorLeft,
  84.                      CursorHome, CursorPosVT52, ReverseIndex, ClearEOL,
  85.                      ClearEOS, PrintLine, PrintPage, StartAutoPrint,
  86.                      EndAutoPrint, StartPrintControl, EndPrintControl,
  87.                      IdentifyVT52, StartAltKey, EndAltKey, ClearScrH,
  88.                      StartGraphicsMode, EndGraphicsMode, InsertCharA,
  89.                      DeleteChar, StartInsert, EndInsert, InsertLineA,
  90.                      DeleteLine
  91.                    );
  92.  
  93.                                    (* VT52 definitions *)
  94. (* STRUCTURED *) CONST
  95.  
  96.    Number_VT52_Tabs = 17;
  97.  
  98.    VT52_Tabs:  ARRAY[ 1 .. Number_VT52_Tabs ] OF BYTE
  99.                = (  9, 17, 25, 33, 41, 49, 57, 65, 73, 74, 75, 76, 77,
  100.                    78, 79, 80, 81);
  101.  
  102.                                    (* Long terminal names for messages *)
  103.  
  104.    Long_Terminal_Names: ARRAY[0..NumberTerminalTypes] OF STRING[12] =
  105.                         ( 'Dumb',     'VT52',      'ANSI',     'VT100',
  106.                           'Gossip',   'Host Mode', 'Tek 4010', 'ADM3a',
  107.                           'ADM5',     'TV925',     'User1',    'User2',
  108.                           'User3',    'User4',     'User5' );
  109.  
  110.                                    (* VT100 definitions *)
  111. (* STRUCTURED *) CONST
  112.  
  113.    Bold_Colors:   ARRAY[Black..White] OF BYTE
  114.                   = ( DarkGray, LightBlue,    LightGreen, LightCyan,
  115.                       LightRed, LightMagenta, Yellow,     White,
  116.                       DarkGray, LightBlue,    LightGreen, LightCyan,
  117.                       LightRed, LightMagenta, Yellow,     White );
  118.  
  119.    Normal_Colors: ARRAY[Black..White] OF BYTE
  120.                   = ( Black, Blue,    Green, Cyan,
  121.                       Red,   Magenta, Brown, LightGray,
  122.                       Black, Blue,    Green, Cyan,
  123.                       Red,   Magenta, Brown, LightGray );
  124.  
  125.    Bold_Colors_2: ARRAY[0..7] OF BYTE
  126.                   = ( DarkGray,  LightRed,     LightGreen, Yellow,
  127.                       LightBlue, LightMagenta, LightCyan,  White   );
  128.  
  129.    Normal_Colors_2: ARRAY[0..7] OF BYTE
  130.                     = ( Black, Red,     Green, Brown,
  131.                         Blue,  Magenta, Cyan,  LightGray );
  132.  
  133.    VT100_Graphics_Chars: ARRAY[ 95 .. 126 ] Of BYTE
  134.                          = (  32,   4, 177,   9,  12,  13,  10, 248, 241,
  135.                               10,  10, 217, 191, 218, 192, 197, 196, 196,
  136.                              196, 196,  95, 195, 180, 193, 194, 179, 243,
  137.                              242, 227, 168, 156, 250 );
  138.