home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / ide / context.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-30  |  32.3 KB  |  971 lines
  1. (* ------------------------------------------------- *)
  2. (*                    CONTEXT.PAS                    *)
  3. (*        Kontext-sensitive Hilfe für die IDE        *)
  4. (*          (c) 1992 J.Braun & DMV-Verlag            *)
  5. (* ------------------------------------------------- *)
  6. UNIT Context;
  7.  
  8. INTERFACE
  9.  
  10. USES M2help;
  11.  
  12.   FUNCTION GetContext(Ctx : STRING) : INTEGER;
  13.  
  14. IMPLEMENTATION
  15.  
  16.   FUNCTION GetContext(Ctx : STRING) : INTEGER;
  17.   BEGIN
  18.     IF Ctx = 'ADDRESS'     THEN BEGIN
  19.       GetContext := hcADDRESS;          Exit; (* 192 *)
  20.     END;
  21.     IF Ctx = 'ADR'         THEN BEGIN
  22.       GetContext := hcADR;              Exit; (* 199 *)
  23.     END;
  24.     IF Ctx = 'ALLOCATE'    THEN BEGIN
  25.       GetContext := hcALLOCATE;         Exit; (* 332 *)
  26.     END;
  27.     IF Ctx = 'Append'      THEN BEGIN
  28.       GetContext := hcAppend;           Exit; (* 343 *)
  29.     END;
  30.     IF Ctx = 'ARCHIVE'     THEN BEGIN
  31.       GetContext := hcARCHIVE;          Exit; (* 426 *)
  32.     END;
  33.     IF Ctx = 'arctan'      THEN BEGIN
  34.       GetContext := hcarctan;           Exit; (* 307 *)
  35.     END;
  36.     IF Ctx = 'ASCII'       THEN BEGIN
  37.       GetContext := hcASCII;            Exit; (* 244 *)
  38.     END;
  39.     IF Ctx = 'ASCIIZ'      THEN BEGIN
  40.       GetContext := hcASCIIZ;           Exit; (* 441 *)
  41.     END;
  42.     IF Ctx = 'ASM'         THEN BEGIN
  43.       GetContext := hcASM;              Exit; (* 190 *)
  44.     END;
  45.     IF Ctx = 'ASSEMBLER'   THEN BEGIN
  46.       GetContext := hcASSEMBLER;        Exit; (* 191 *)
  47.     END;
  48.     IF Ctx = 'Assign'      THEN BEGIN
  49.       GetContext := hcAssign;           Exit; (* 337 *)
  50.     END;
  51.     IF Ctx = 'AssignGoto'  THEN BEGIN
  52.       GetContext := hcAssignGoto;       Exit; (* 357 *)
  53.     END;
  54.     IF Ctx = 'AssignRead'  THEN BEGIN
  55.       GetContext := hcAssignRead;       Exit; (* 350 *)
  56.     END;
  57.     IF Ctx = 'AssignWrite' THEN BEGIN
  58.       GetContext := hcAssignWrite;      Exit; (* 351 *)
  59.     END;
  60.     IF Ctx = 'Available' THEN BEGIN
  61.       GetContext := hcAvailable;        Exit; (* 334 *)
  62.     END;
  63.     IF Ctx = 'AX' THEN BEGIN
  64.       GetContext := hcAX;               Exit; (* 217 *)
  65.     END;
  66.     IF Ctx = 'BASE' THEN BEGIN
  67.       GetContext := hcBASE;             Exit; (* 312 *)
  68.     END;
  69.     IF Ctx = 'BITSET' THEN BEGIN
  70.       GetContext := hcBITSET;           Exit; (* 534 *)
  71.     END;
  72.     IF Ctx = 'BOOLEAN' THEN BEGIN
  73.       GetContext := hcBOOLEAN;          Exit; (* 531 *)
  74.     END;
  75.     IF Ctx = 'BP' THEN BEGIN
  76.       GetContext := hcBP;               Exit; (* 223 *)
  77.     END;
  78.     IF Ctx = 'Break' THEN BEGIN
  79.       GetContext := hcBreak;            Exit; (* 414 *)
  80.     END;
  81.     IF Ctx = 'Buffer' THEN BEGIN
  82.       GetContext := hcBuffer;           Exit; (* 406 *)
  83.     END;
  84.     IF Ctx = 'BX' THEN BEGIN
  85.       GetContext := hcBX;               Exit; (* 218 *)
  86.     END;
  87.     IF Ctx = 'BY' THEN BEGIN
  88.       GetContext := hcBY;               Exit; (* 163 *)
  89.     END;
  90.     IF Ctx = 'BYTE' THEN BEGIN
  91.       GetContext := hcBYTE;             Exit; (* 193 *)
  92.     END;
  93.     IF Ctx = 'CARDINAL' THEN BEGIN
  94.       GetContext := hcCARDINAL;         Exit; (* 528 *)
  95.     END;
  96.     IF Ctx = 'CardToString' THEN BEGIN
  97.       GetContext := hcCardToString;     Exit; (* 316 *)
  98.     END;
  99.     IF Ctx = 'carryFlag' THEN BEGIN
  100.       GetContext := hccarryFlag;        Exit; (* 227 *)
  101.     END;
  102.     IF Ctx = 'CASE' THEN BEGIN
  103.       GetContext := hcCASE;             Exit; (* 164 *)
  104.     END;
  105.     IF Ctx = 'CHAR' THEN BEGIN
  106.       GetContext := hcCHAR;             Exit; (* 526 *)
  107.     END;
  108.     IF Ctx = 'ChDir' THEN BEGIN
  109.       GetContext := hcChDir;            Exit; (* 433 *)
  110.     END;
  111.     IF Ctx = 'Close' THEN BEGIN
  112.       GetContext := hcClose;            Exit; (* 181 *)
  113.     END;
  114.     IF Ctx = 'CloseCurWindow' THEN BEGIN
  115.       GetContext := hcCloseCurWindow;   Exit; (* 412 *)
  116.     END;
  117.     IF Ctx = 'CloseInput' THEN BEGIN
  118.       GetContext := hcCloseInput;       Exit; (* 253 *)
  119.     END;
  120.     IF Ctx = 'CloseOutput' THEN BEGIN
  121.       GetContext := hcCloseOutput;      Exit; (* 254 *)
  122.     END;
  123.     IF Ctx = 'CloseWindow' THEN BEGIN
  124.       GetContext := hcCloseWindow;      Exit; (* 411 *)
  125.     END;
  126.     IF Ctx = 'ClrEOL' THEN BEGIN
  127.       GetContext := hcClrEOL;           Exit; (* 400 *)
  128.     END;
  129.     IF Ctx = 'ClrEOS' THEN BEGIN
  130.       GetContext := hcClrEOS;           Exit; (* 401 *)
  131.     END;
  132.     IF Ctx = 'ClrScreen' THEN BEGIN
  133.       GetContext := hcClrScreen;        Exit; (* 368 *)
  134.     END;
  135.     IF Ctx = 'col0' THEN BEGIN
  136.       GetContext := hccol0;             Exit; (* 384 *)
  137.     END;
  138.     IF Ctx = 'colN' THEN BEGIN
  139.       GetContext := hccolN;             Exit; (* 386 *)
  140.     END;
  141.     IF Ctx = 'CompareStr' THEN BEGIN
  142.       GetContext := hcCompareStr;       Exit; (* 336 *)
  143.     END;
  144.     IF Ctx = 'CompLimits' THEN BEGIN
  145.       GetContext := hcCompLimits;       Exit; (* 170 *)
  146.     END;
  147.     IF Ctx = 'Concat' THEN BEGIN
  148.       GetContext := hcConcat;           Exit; (* 339 *)
  149.     END;
  150.     IF Ctx = 'Copy' THEN BEGIN
  151.       GetContext := hcCopy;             Exit; (* 342 *)
  152.     END;
  153.     IF Ctx = 'cos' THEN BEGIN
  154.       GetContext := hccos;              Exit; (* 306 *)
  155.     END;
  156.     IF Ctx = 'Create' THEN BEGIN
  157.       GetContext := hcCreate;           Exit; (* 172 *)
  158.     END;
  159.     IF Ctx = 'CreateNew' THEN BEGIN
  160.       GetContext := hcCreateNew;        Exit; (* 468 *)
  161.     END;
  162.     IF Ctx = 'CreateTemp' THEN BEGIN
  163.       GetContext := hcCreateTemp;       Exit; (* 467 *)
  164.     END;
  165.     IF Ctx = 'CX' THEN BEGIN
  166.       GetContext := hcCX;               Exit; (* 219 *)
  167.     END;
  168.     IF Ctx = 'DEALLOCATE' THEN BEGIN
  169.       GetContext := hcDEALLOCATE;       Exit; (* 333 *)
  170.     END;
  171.     IF Ctx = 'Delete' THEN BEGIN
  172.       GetContext := hcDelete;           Exit; (* 186 *)
  173.     END;
  174.     IF Ctx = 'DENYNONE' THEN BEGIN
  175.       GetContext := hcDENYNONE;         Exit; (* 462 *)
  176.     END;
  177.     IF Ctx = 'DENYREAD' THEN BEGIN
  178.       GetContext := hcDENYREAD;         Exit; (* 461 *)
  179.     END;
  180.     IF Ctx = 'DENYWRITE' THEN BEGIN
  181.       GetContext := hcDENYWRITE;        Exit; (* 460 *)
  182.     END;
  183.     IF Ctx = 'DI' THEN BEGIN
  184.       GetContext := hcDI;               Exit; (* 222 *)
  185.     END;
  186.     IF Ctx = 'Directories' THEN BEGIN
  187.       GetContext := hcDirectories;      Exit; (* 419 *)
  188.     END;
  189.     IF Ctx = 'DIRECTORY' THEN BEGIN
  190.       GetContext := hcDIRECTORY;        Exit; (* 425 *)
  191.     END;
  192.     IF Ctx = 'DirEntry' THEN BEGIN
  193.       GetContext := hcDirEntry;         Exit; (* 420 *)
  194.     END;
  195.     IF Ctx = 'DirQuery' THEN BEGIN
  196.       GetContext := hcDirQuery;         Exit; (* 430 *)
  197.     END;
  198.     IF Ctx = 'DirStatus' THEN BEGIN
  199.       GetContext := hcDirStatus;        Exit; (* 442 *)
  200.     END;
  201.     IF Ctx = 'DisableBreak' THEN BEGIN
  202.       GetContext := hcDisableBreak;     Exit; (* 415 *)
  203.     END;
  204.     IF Ctx = 'Display' THEN BEGIN
  205.       GetContext := hcDisplay;          Exit; (* 376 *)
  206.     END;
  207.     IF Ctx = 'displayAttr' THEN BEGIN
  208.       GetContext := hcdisplayAttr;      Exit; (* 379 *)
  209.     END;
  210.     IF Ctx = 'displayCols' THEN BEGIN
  211.       GetContext := hcdisplayCols;      Exit; (* 381 *)
  212.     END;
  213.     IF Ctx = 'DisplayLine' THEN BEGIN
  214.       GetContext := hcDisplayLine;      Exit; (* 403 *)
  215.     END;
  216.     IF Ctx = 'displayLines' THEN BEGIN
  217.       GetContext := hcdisplayLines;     Exit; (* 380 *)
  218.     END;
  219.     IF Ctx = 'displayMode' THEN BEGIN
  220.       GetContext := hcdisplayMode;      Exit; (* 377 *)
  221.     END;
  222.     IF Ctx = 'displayPage' THEN BEGIN
  223.       GetContext := hcdisplayPage;      Exit; (* 378 *)
  224.     END;
  225.     IF Ctx = 'displayPtr' THEN BEGIN
  226.       GetContext := hcdisplayPtr;       Exit; (* 387 *)
  227.     END;
  228.     IF Ctx = 'DisplayString' THEN BEGIN
  229.       GetContext := hcDisplayString;    Exit; (* 402 *)
  230.     END;
  231.     IF Ctx = 'DISPOSE' THEN BEGIN
  232.       GetContext := hcDISPOSE;          Exit; (* 196 *)
  233.     END;
  234.     IF Ctx = 'Done' THEN BEGIN
  235.       GetContext := hcDone;             Exit; (* 247 *)
  236.     END;
  237.     IF Ctx = 'DOSSystem' THEN BEGIN
  238.       GetContext := hcDOSSystem;        Exit; (* 209 *)
  239.     END;
  240.     IF Ctx = 'DOSVersion' THEN BEGIN
  241.       GetContext := hcDOSVersion;       Exit; (* 210 *)
  242.     END;
  243.     IF Ctx = 'DropExt' THEN BEGIN
  244.       GetContext := hcDropExt;          Exit; (* 485 *)
  245.     END;
  246.     IF Ctx = 'DS' THEN BEGIN
  247.       GetContext := hcDS;               Exit; (* 224 *)
  248.     END;
  249.     IF Ctx = 'DTA' THEN BEGIN
  250.       GetContext := hcDTA;              Exit; (* 443 *)
  251.     END;
  252.     IF Ctx = 'Dup' THEN BEGIN
  253.       GetContext := hcDup;              Exit; (* 475 *)
  254.     END;
  255.     IF Ctx = 'Dup2' THEN BEGIN
  256.       GetContext := hcDup2;             Exit; (* 476 *)
  257.     END;
  258.     IF Ctx = 'DX' THEN BEGIN
  259.       GetContext := hcDX;               Exit; (* 220 *)
  260.     END;
  261.     IF Ctx = 'ELSE' THEN BEGIN
  262.       GetContext := hcELSE;             Exit; (* 165 *)
  263.     END;
  264.     IF Ctx = 'ELSIF' THEN BEGIN
  265.       GetContext := hcELSIF;            Exit; (* 166 *)
  266.     END;
  267.     IF Ctx = 'EnableBreak' THEN BEGIN
  268.       GetContext := hcEnableBreak;      Exit; (* 416 *)
  269.     END;
  270.     IF Ctx = 'entier' THEN BEGIN
  271.       GetContext := hcentier;           Exit; (* 309 *)
  272.     END;
  273.     IF Ctx = 'Environment' THEN BEGIN
  274.       GetContext := hcEnvironment;      Exit; (* 169 *)
  275.     END;
  276.     IF Ctx = 'EOL' THEN BEGIN
  277.       GetContext := hcEOL;              Exit; (* 246 *)
  278.     END;
  279.     IF Ctx = 'ErrorLn' THEN BEGIN
  280.       GetContext := hcErrorLn;          Exit; (* 243 *)
  281.     END;
  282.     IF Ctx = 'ErrorMessage' THEN BEGIN
  283.       GetContext := hcErrorMessage;     Exit; (* 242 *)
  284.     END;
  285.     IF Ctx = 'ErrorProc' THEN BEGIN
  286.       GetContext := hcErrorProc;        Exit; (* 229 *)
  287.     END;
  288.     IF Ctx = 'ES' THEN BEGIN
  289.       GetContext := hcES;               Exit; (* 225 *)
  290.     END;
  291.     IF Ctx = 'Execute' THEN BEGIN
  292.       GetContext := hcExecute;          Exit; (* 500 *)
  293.     END;
  294.     IF Ctx = 'exp' THEN BEGIN
  295.       GetContext := hcexp;              Exit; (* 303 *)
  296.     END;
  297.     IF Ctx = 'ExtractDirPath' THEN BEGIN
  298.       GetContext := hcExtractDirPath;   Exit; (* 483 *)
  299.     END;
  300.     IF Ctx = 'ExtractFileName' THEN BEGIN
  301.       GetContext := hcExtractFileName;  Exit; (* 484 *)
  302.     END;
  303.     IF Ctx = 'FDPtr' THEN BEGIN
  304.       GetContext := hcFDPtr;            Exit; (* 279 *)
  305.     END;
  306.     IF Ctx = 'File' THEN BEGIN
  307.       GetContext := hcFile;             Exit; (* 282 *)
  308.     END;
  309.     IF Ctx = 'Files' THEN BEGIN
  310.       GetContext := hcFiles;            Exit; (* 446 *)
  311.     END;
  312.     IF Ctx = 'FileSpec' THEN BEGIN
  313.       GetContext := hcFileSpec;         Exit; (* 481 *)
  314.     END;
  315.     IF Ctx = 'FileStatus' THEN BEGIN
  316.       GetContext := hcFileStatus;       Exit; (* 464 *)
  317.     END;
  318.     IF Ctx = 'FileSystem' THEN BEGIN
  319.       GetContext := hcFileSystem;       Exit; (* 278 *)
  320.     END;
  321.     IF Ctx = 'FLAGS' THEN BEGIN
  322.       GetContext := hcFLAGS;            Exit; (* 226 *)
  323.     END;
  324.     IF Ctx = 'FLAT' THEN BEGIN
  325.       GetContext := hcFLAT;             Exit; (* 200 *)
  326.     END;
  327.     IF Ctx = 'FLOAT' THEN BEGIN
  328.       GetContext := hcFLOAT;            Exit; (* 206 *)
  329.     END;
  330.     IF Ctx = 'FOR' THEN BEGIN
  331.       GetContext := hcFOR;              Exit; (* 161 *)
  332.     END;
  333.     IF Ctx = 'GetArg' THEN BEGIN
  334.       GetContext := hcGetArg;           Exit; (* 230 *)
  335.     END;
  336.     IF Ctx = 'GetCurDir' THEN BEGIN
  337.       GetContext := hcGetCurDir;        Exit; (* 436 *)
  338.     END;
  339.     IF Ctx = 'GetCursorPosition' THEN BEGIN
  340.       GetContext := hcGetCursorPosition;      (* 391 *)
  341.       Exit;
  342.     END;
  343.     IF Ctx = 'GetDisplayMode' THEN BEGIN
  344.       GetContext := hcGetDisplayMode;   Exit; (* 388 *)
  345.     END;
  346.     IF Ctx = 'GetDTA' THEN BEGIN
  347.       GetContext := hcGetDTA;           Exit; (* 445 *)
  348.     END;
  349.     IF Ctx = 'GetEnv' THEN BEGIN
  350.       GetContext := hcGetEnv;           Exit; (* 231 *)
  351.     END;
  352.     IF Ctx = 'GetFileAttr' THEN BEGIN
  353.       GetContext := hcGetFileAttr;      Exit; (* 434 *)
  354.     END;
  355.     IF Ctx = 'GetFileTime' THEN BEGIN
  356.       GetContext := hcGetFileTime;      Exit; (* 175 *)
  357.     END;
  358.     IF Ctx = 'GetFirstDir' THEN BEGIN
  359.       GetContext := hcGetFirstDir;      Exit; (* 428 *)
  360.     END;
  361.     IF Ctx = 'GetFunKey' THEN BEGIN
  362.       GetContext := hcGetFunKey;        Exit; (* 494 *)
  363.     END;
  364.     IF Ctx = 'GetKey' THEN BEGIN
  365.       GetContext := hcGetKey;           Exit; (* 492 *)
  366.     END;
  367.     IF Ctx = 'GetKeyCh' THEN BEGIN
  368.       GetContext := hcGetKeyCh;         Exit; (* 493 *)
  369.     END;
  370.     IF Ctx = 'GetLPos' THEN BEGIN
  371.       GetContext := hcGetLPos;          Exit; (* 295 *)
  372.     END;
  373.     IF Ctx = 'GetNextDir' THEN BEGIN
  374.       GetContext := hcGetNextDir;       Exit; (* 429 *)
  375.     END;
  376.     IF Ctx = 'GetPos' THEN BEGIN
  377.       GetContext := hcGetPos;           Exit; (* 293 *)
  378.     END;
  379.     IF Ctx = 'GetShiftStatus' THEN BEGIN
  380.       GetContext := hcGetShiftStatus;   Exit; (* 495 *)
  381.     END;
  382.     IF Ctx = 'GetTime' THEN BEGIN
  383.       GetContext := hcGetTime;          Exit; (* 510 *)
  384.     END;
  385.     IF Ctx = 'GetVector' THEN BEGIN
  386.       GetContext := hcGetVector;        Exit; (* 237 *)
  387.     END;
  388.     IF Ctx = 'Goto' THEN BEGIN
  389.       GetContext := hcGoto;             Exit; (* 180 *)
  390.     END;
  391.     IF Ctx = 'GotoProcedure' THEN BEGIN
  392.       GetContext := hcGotoProcedure;    Exit; (* 349 *)
  393.     END;
  394.     IF Ctx = 'HasExt' THEN BEGIN
  395.       GetContext := hcHasExt;           Exit; (* 486 *)
  396.     END;
  397.     IF Ctx = 'HeapBase' THEN BEGIN
  398.       GetContext := hcHeapBase;         Exit; (* 213 *)
  399.     END;
  400.     IF Ctx = 'HeapTop' THEN BEGIN
  401.       GetContext := hcHeapTop;          Exit; (* 216 *)
  402.     END;
  403.     IF Ctx = 'HIDDEN' THEN BEGIN
  404.       GetContext := hcHIDDEN;           Exit; (* 423 *)
  405.     END;
  406.     IF Ctx = 'InOut' THEN BEGIN
  407.       GetContext := hcInOut;            Exit; (* 245 *)
  408.     END;
  409.     IF Ctx = 'Insert' THEN BEGIN
  410.       GetContext := hcInsert;           Exit; (* 344 *)
  411.     END;
  412.     IF Ctx = 'InstallBreakHandler' THEN BEGIN
  413.       GetContext := hcInstallBreakHandler;    (* 417 *)
  414.       Exit;
  415.     END;
  416.     IF Ctx = 'InstallRTErrorHandle' THEN BEGIN
  417.       GetContext := hcInstallRTErrorHandle;   (* 240 *)
  418.       Exit;
  419.     END;
  420.     IF Ctx = 'INTEGER' THEN BEGIN
  421.       GetContext := hcINTEGER;          Exit; (* 527 *)
  422.     END;
  423.     IF Ctx = 'IntToString' THEN BEGIN
  424.       GetContext := hcIntToString;      Exit; (* 317 *)
  425.     END;
  426.     IF Ctx = 'IO' THEN BEGIN
  427.       GetContext := hcIO;               Exit; (* 458 *)
  428.     END;
  429.     IF Ctx = 'IOMode' THEN BEGIN
  430.       GetContext := hcIOMode;           Exit; (* 281 *)
  431.     END;
  432.     IF Ctx = 'IOTRANSFER' THEN BEGIN
  433.       GetContext := hcIOTRANSFER;       Exit; (* 204 *)
  434.     END;
  435.     IF Ctx = 'JumpBuffer' THEN BEGIN
  436.       GetContext := hcJumpBuffer;       Exit; (* 275 *)
  437.     END;
  438.     IF Ctx = 'KeyBoard' THEN BEGIN
  439.       GetContext := hcKeyBoard;         Exit; (* 487 *)
  440.     END;
  441.     IF Ctx = 'KeyPressed' THEN BEGIN
  442.       GetContext := hcKeyPressed;       Exit; (* 179 *)
  443.     END;
  444.     IF Ctx = 'Length' THEN BEGIN
  445.       GetContext := hcLength;           Exit; (* 183 *)
  446.     END;
  447.     IF Ctx = 'line0' THEN BEGIN
  448.       GetContext := hcline0;            Exit; (* 383 *)
  449.     END;
  450.     IF Ctx = 'lineN' THEN BEGIN
  451.       GetContext := hclineN;            Exit; (* 385 *)
  452.     END;
  453.     IF Ctx = 'LLength' THEN BEGIN
  454.       GetContext := hcLLength;          Exit; (* 298 *)
  455.     END;
  456.     IF Ctx = 'ln' THEN BEGIN
  457.       GetContext := hcln;               Exit; (* 304 *)
  458.     END;
  459.     IF Ctx = 'Loader' THEN BEGIN
  460.       GetContext := hcLoader;           Exit; (* 499 *)
  461.     END;
  462.     IF Ctx = 'Locate' THEN BEGIN
  463.       GetContext := hcLocate;           Exit; (* 502 *)
  464.     END;
  465.     IF Ctx = 'Lock' THEN BEGIN
  466.       GetContext := hcLock;             Exit; (* 473 *)
  467.     END;
  468.     IF Ctx = 'LONG' THEN BEGIN
  469.       GetContext := hcLONG;             Exit; (* 197 *)
  470.     END;
  471.     IF Ctx = 'LONGCARD' THEN BEGIN
  472.       GetContext := hcLONGCARD;         Exit; (* 530 *)
  473.     END;
  474.     IF Ctx = 'LongCardToString' THEN BEGIN
  475.       GetContext := hcLongCardToString; Exit; (* 322 *)
  476.     END;
  477.     IF Ctx = 'LONGINT' THEN BEGIN
  478.       GetContext := hcLONGINT;          Exit; (* 529 *)
  479.     END;
  480.     IF Ctx = 'LongIntToString' THEN BEGIN
  481.       GetContext := hcLongIntToString;  Exit; (* 323 *)
  482.     END;
  483.     IF Ctx = 'LongJump' THEN BEGIN
  484.       GetContext := hcLongJump;         Exit; (* 277 *)
  485.     END;
  486.     IF Ctx = 'LongNumToString' THEN BEGIN
  487.       GetContext := hcLongNumToString;  Exit; (* 324 *)
  488.     END;
  489.     IF Ctx = 'LONGREAL' THEN BEGIN
  490.       GetContext := hcLONGREAL;         Exit; (* 533 *)
  491.     END;
  492.     IF Ctx = 'LongRealToString' THEN BEGIN
  493.       GetContext := hcLongRealToString; Exit; (* 506 *)
  494.     END;
  495.     IF Ctx = 'LookUp' THEN BEGIN
  496.       GetContext := hcLookUp;           Exit; (* 283 *)
  497.     END;
  498.     IF Ctx = 'LOOP' THEN BEGIN
  499.       GetContext := hcLOOP;             Exit; (* 160 *)
  500.     END;
  501.     IF Ctx = 'MathLib0' THEN BEGIN
  502.       GetContext := hcMathLib0;         Exit; (* 301 *)
  503.     END;
  504.     IF Ctx = 'MaxBase' THEN BEGIN
  505.       GetContext := hcMaxBase;          Exit; (* 311 *)
  506.     END;
  507.     IF Ctx = 'MemTop' THEN BEGIN
  508.       GetContext := hcMemTop;           Exit; (* 212 *)
  509.     END;
  510.     IF Ctx = 'Menu' THEN BEGIN
  511.       GetContext := hcMenu;             Exit; (* 496 *)
  512.     END;
  513.     IF Ctx = 'MkDir' THEN BEGIN
  514.       GetContext := hcMkDir;            Exit; (* 431 *)
  515.     END;
  516.     IF Ctx = 'Module' THEN BEGIN
  517.       GetContext := hcModule;           Exit; (* 153 *)
  518.     END;
  519.     IF Ctx = 'Move' THEN BEGIN
  520.       GetContext := hcMove;             Exit; (* 234 *)
  521.     END;
  522.     IF Ctx = 'MyFiles' THEN BEGIN
  523.       GetContext := hcMyFiles;          Exit; (* 106 *)
  524.     END;
  525.     IF Ctx = 'NEW' THEN BEGIN
  526.       GetContext := hcNEW;              Exit; (* 195 *)
  527.     END;
  528.     IF Ctx = 'NEWPROCESS' THEN BEGIN
  529.       GetContext := hcNEWPROCESS;       Exit; (* 202 *)
  530.     END;
  531.     IF Ctx = 'NewWindowTitle' THEN BEGIN
  532.       GetContext := hcNewWindowTitle;   Exit; (* 413 *)
  533.     END;
  534.     IF Ctx = 'NOINHERIT' THEN BEGIN
  535.       GetContext := hcNOINHERIT;        Exit; (* 459 *)
  536.     END;
  537.     IF Ctx = 'NORMAL' THEN BEGIN
  538.       GetContext := hcNORMAL;           Exit; (* 427 *)
  539.     END;
  540.     IF Ctx = 'NumberConversion' THEN BEGIN
  541.       GetContext := hcNumberConversion; Exit; (* 310 *)
  542.     END;
  543.     IF Ctx = 'NumToString' THEN BEGIN
  544.       GetContext := hcNumToString;      Exit; (* 318 *)
  545.     END;
  546.     IF Ctx = 'OFFSET' THEN BEGIN
  547.       GetContext := hcOFFSET;           Exit; (* 208 *)
  548.     END;
  549.     IF Ctx = 'OFS' THEN BEGIN
  550.       GetContext := hcOFS;              Exit; (* 189 *)
  551.     END;
  552.     IF Ctx = 'Open' THEN BEGIN
  553.       GetContext := hcOpen;             Exit; (* 465 *)
  554.     END;
  555.     IF Ctx = 'OpenInput' THEN BEGIN
  556.       GetContext := hcOpenInput;        Exit; (* 249 *)
  557.     END;
  558.     IF Ctx = 'OpenOutPut' THEN BEGIN
  559.       GetContext := hcOpenOutPut;       Exit; (* 250 *)
  560.     END;
  561.     IF Ctx = 'OpenWindow' THEN BEGIN
  562.       GetContext := hcOpenWindow;       Exit; (* 409 *)
  563.     END;
  564.     IF Ctx = 'Options' THEN BEGIN
  565.       GetContext := hcOptions;          Exit; (* 115 *)
  566.     END;
  567.     IF Ctx = 'ParseFileSpec' THEN BEGIN
  568.       GetContext := hcParseFileSpec;    Exit; (* 482 *)
  569.     END;
  570.     IF Ctx = 'Paths' THEN BEGIN
  571.       GetContext := hcPaths;            Exit; (* 501 *)
  572.     END;
  573.     IF Ctx = 'POINTER' THEN BEGIN
  574.       GetContext := hcPOINTER;          Exit; (* 536 *)
  575.     END;
  576.     IF Ctx = 'PopMenu' THEN BEGIN
  577.       GetContext := hcPopMenu;          Exit; (* 497 *)
  578.     END;
  579.     IF Ctx = 'Pos' THEN BEGIN
  580.       GetContext := hcPos;              Exit; (* 340 *)
  581.     END;
  582.     IF Ctx = 'PROCEDURE' THEN BEGIN
  583.       GetContext := hcPROCEDURE;        Exit; (* 537 *)
  584.     END;
  585.     IF Ctx = 'PSP' THEN BEGIN
  586.       GetContext := hcPSP;              Exit; (* 211 *)
  587.     END;
  588.     IF Ctx = 'PTR' THEN BEGIN
  589.       GetContext := hcPTR;              Exit; (* 201 *)
  590.     END;
  591.     IF Ctx = 'PullDownMenu' THEN BEGIN
  592.       GetContext := hcPullDownMenu;     Exit; (* 498 *)
  593.     END;
  594.     IF Ctx = 'QueryProc' THEN BEGIN
  595.       GetContext := hcQueryProc;        Exit; (* 421 *)
  596.     END;
  597.     IF Ctx = 'Read' THEN BEGIN
  598.       GetContext := hcRead;             Exit; (* 182 *)
  599.     END;
  600.     IF Ctx = 'ReadAgain' THEN BEGIN
  601.       GetContext := hcReadAgain;        Exit; (* 364 *)
  602.     END;
  603.     IF Ctx = 'ReadCard' THEN BEGIN
  604.       GetContext := hcReadCard;         Exit; (* 259 *)
  605.     END;
  606.     IF Ctx = 'ReadChar' THEN BEGIN
  607.       GetContext := hcReadChar;         Exit; (* 291 *)
  608.     END;
  609.     IF Ctx = 'ReadCharAttr' THEN BEGIN
  610.       GetContext := hcReadCharAttr;     Exit; (* 395 *)
  611.     END;
  612.     IF Ctx = 'ReadInt' THEN BEGIN
  613.       GetContext := hcReadInt;          Exit; (* 258 *)
  614.     END;
  615.     IF Ctx = 'ReadLine' THEN BEGIN
  616.       GetContext := hcReadLine;         Exit; (* 185 *)
  617.     END;
  618.     IF Ctx = 'ReadLongCard' THEN BEGIN
  619.       GetContext := hcReadLongCard;     Exit; (* 270 *)
  620.     END;
  621.     IF Ctx = 'ReadLongInt' THEN BEGIN
  622.       GetContext := hcReadLongInt;      Exit; (* 269 *)
  623.     END;
  624.     IF Ctx = 'ReadLongReal' THEN BEGIN
  625.       GetContext := hcReadLongReal;     Exit; (* 329 *)
  626.     END;
  627.     IF Ctx = 'ReadNBytes' THEN BEGIN
  628.       GetContext := hcReadNBytes;       Exit; (* 299 *)
  629.     END;
  630.     IF Ctx = 'READONLY' THEN BEGIN
  631.       GetContext := hcREADONLY;         Exit; (* 422 *)
  632.     END;
  633.     IF Ctx = 'ReadProcedure' THEN BEGIN
  634.       GetContext := hcReadProcedure;    Exit; (* 347 *)
  635.     END;
  636.     IF Ctx = 'ReadReal' THEN BEGIN
  637.       GetContext := hcReadReal;         Exit; (* 327 *)
  638.     END;
  639.     IF Ctx = 'ReadScreen' THEN BEGIN
  640.       GetContext := hcReadScreen;       Exit; (* 405 *)
  641.     END;
  642.     IF Ctx = 'ReadString' THEN BEGIN
  643.       GetContext := hcReadString;       Exit; (* 256 *)
  644.     END;
  645.     IF Ctx = 'ReadWord' THEN BEGIN
  646.       GetContext := hcReadWord;         Exit; (* 289 *)
  647.     END;
  648.     IF Ctx = 'ReadWrd' THEN BEGIN
  649.       GetContext := hcReadWrd;          Exit; (* 260 *)
  650.     END;
  651.     IF Ctx = 'real' THEN BEGIN
  652.       GetContext := hcreal;             Exit; (* 308 *)
  653.     END;
  654.     IF Ctx = 'RealConversion' THEN BEGIN
  655.       GetContext := hcRealConversion;   Exit; (* 503 *)
  656.     END;
  657.     IF Ctx = 'RealInOut' THEN BEGIN
  658.       GetContext := hcRealInOut;        Exit; (* 325 *)
  659.     END;
  660.     IF Ctx = 'RealInOut_Done' THEN BEGIN
  661.       GetContext := hcRealInOut_Done;   Exit; (* 326 *)
  662.     END;
  663.     IF Ctx = 'RealToString' THEN BEGIN
  664.       GetContext := hcRealToString;     Exit; (* 504 *)
  665.     END;
  666.     IF Ctx = 'RedirectInput' THEN BEGIN
  667.       GetContext := hcRedirectInput;    Exit; (* 251 *)
  668.     END;
  669.     IF Ctx = 'RedirectOutput' THEN BEGIN
  670.       GetContext := hcRedirectOutput;   Exit; (* 252 *)
  671.     END;
  672.     IF Ctx = 'Rename' THEN BEGIN
  673.       GetContext := hcRename;           Exit; (* 171 *)
  674.     END;
  675.     IF Ctx = 'ReservedWord' THEN BEGIN
  676.       GetContext := hcReservedWord;     Exit; (* 538 *)
  677.     END;
  678.     IF Ctx = 'Reset' THEN BEGIN
  679.       GetContext := hcReset;            Exit; (* 286 *)
  680.     END;
  681.     IF Ctx = 'ResetVector' THEN BEGIN
  682.       GetContext := hcResetVector;      Exit; (* 239 *)
  683.     END;
  684.     IF Ctx = 'Response' THEN BEGIN
  685.       GetContext := hcResponse;         Exit; (* 280 *)
  686.     END;
  687.     IF Ctx = 'Rewrite' THEN BEGIN
  688.       GetContext := hcRewrite;          Exit; (* 287 *)
  689.     END;
  690.     IF Ctx = 'RmDir' THEN BEGIN
  691.       GetContext := hcRmDir;            Exit; (* 432 *)
  692.     END;
  693.     IF Ctx = 'ScrollDown' THEN BEGIN
  694.       GetContext := hcScrollDown;       Exit; (* 394 *)
  695.     END;
  696.     IF Ctx = 'ScrollUp' THEN BEGIN
  697.       GetContext := hcScrollUp;         Exit; (* 393 *)
  698.     END;
  699.     IF Ctx = 'Search' THEN BEGIN
  700.       GetContext := hcSearch;           Exit; (* 139 *)
  701.     END;
  702.     IF Ctx = 'Seek' THEN BEGIN
  703.       GetContext := hcSeek;             Exit; (* 472 *)
  704.     END;
  705.     IF Ctx = 'SeekMode' THEN BEGIN
  706.       GetContext := hcSeekMode;         Exit; (* 463 *)
  707.     END;
  708.     IF Ctx = 'SEG' THEN BEGIN
  709.       GetContext := hcSEG;              Exit; (* 188 *)
  710.     END;
  711.     IF Ctx = 'SEGMENT' THEN BEGIN
  712.       GetContext := hcSEGMENT;          Exit; (* 207 *)
  713.     END;
  714.     IF Ctx = 'SelectWindow' THEN BEGIN
  715.       GetContext := hcSelectWindow;     Exit; (* 410 *)
  716.     END;
  717.     IF Ctx = 'SET' THEN BEGIN
  718.       GetContext := hcSET;              Exit; (* 535 *)
  719.     END;
  720.     IF Ctx = 'SetCursorPosition' THEN BEGIN
  721.       GetContext := hcSetCursorPosition;      (* 392 *)
  722.       Exit;
  723.     END;
  724.     IF Ctx = 'SetCursorType' THEN BEGIN
  725.       GetContext := hcSetCursorType;    Exit; (* 390 *)
  726.     END;
  727.     IF Ctx = 'SetDisplayMode' THEN BEGIN
  728.       GetContext := hcSetDisplayMode;   Exit; (* 389 *)
  729.     END;
  730.     IF Ctx = 'SetDTA' THEN BEGIN
  731.       GetContext := hcSetDTA;           Exit; (* 444 *)
  732.     END;
  733.     IF Ctx = 'SetFileAttr' THEN BEGIN
  734.       GetContext := hcSetFileAttr;      Exit; (* 435 *)
  735.     END;
  736.     IF Ctx = 'SetFileTime' THEN BEGIN
  737.       GetContext := hcSetFileTime;      Exit; (* 174 *)
  738.     END;
  739.     IF Ctx = 'SetJump' THEN BEGIN
  740.       GetContext := hcSetJump;          Exit; (* 276 *)
  741.     END;
  742.     IF Ctx = 'SetLPos' THEN BEGIN
  743.       GetContext := hcSetLPos;          Exit; (* 296 *)
  744.     END;
  745.     IF Ctx = 'SetPos' THEN BEGIN
  746.       GetContext := hcSetPos;           Exit; (* 294 *)
  747.     END;
  748.     IF Ctx = 'SetTime' THEN BEGIN
  749.       GetContext := hcSetTime;          Exit; (* 511 *)
  750.     END;
  751.     IF Ctx = 'SetVector' THEN BEGIN
  752.       GetContext := hcSetVector;        Exit; (* 238 *)
  753.     END;
  754.     IF Ctx = 'ShiftKeys' THEN BEGIN
  755.       GetContext := hcShiftKeys;        Exit; (* 489 *)
  756.     END;
  757.     IF Ctx = 'ShiftStatus' THEN BEGIN
  758.       GetContext := hcShiftStatus;      Exit; (* 490 *)
  759.     END;
  760.     IF Ctx = 'SHORT' THEN BEGIN
  761.       GetContext := hcSHORT;            Exit; (* 198 *)
  762.     END;
  763.     IF Ctx = 'SI' THEN BEGIN
  764.       GetContext := hcSI;               Exit; (* 221 *)
  765.     END;
  766.     IF Ctx = 'sin' THEN BEGIN
  767.       GetContext := hcsin;              Exit; (* 305 *)
  768.     END;
  769.     IF Ctx = 'snowy' THEN BEGIN
  770.       GetContext := hcsnowy;            Exit; (* 382 *)
  771.     END;
  772.     IF Ctx = 'sqrt' THEN BEGIN
  773.       GetContext := hcsqrt;             Exit; (* 302 *)
  774.     END;
  775.     IF Ctx = 'StackSeg' THEN BEGIN
  776.       GetContext := hcStackSeg;         Exit; (* 214 *)
  777.     END;
  778.     IF Ctx = 'StackSize' THEN BEGIN
  779.       GetContext := hcStackSize;        Exit; (* 215 *)
  780.     END;
  781.     IF Ctx = 'StatusProcedure' THEN BEGIN
  782.       GetContext := hcStatusProcedure;  Exit; (* 346 *)
  783.     END;
  784.     IF Ctx = 'StdCom' THEN BEGIN
  785.       GetContext := hcStdCom;           Exit; (* 450 *)
  786.     END;
  787.     IF Ctx = 'StdErr' THEN BEGIN
  788.       GetContext := hcStdErr;           Exit; (* 449 *)
  789.     END;
  790.     IF Ctx = 'StdIn' THEN BEGIN
  791.       GetContext := hcStdIn;            Exit; (* 447 *)
  792.     END;
  793.     IF Ctx = 'StdOut' THEN BEGIN
  794.       GetContext := hcStdOut;           Exit; (* 448 *)
  795.     END;
  796.     IF Ctx = 'StdPrn' THEN BEGIN
  797.       GetContext := hcStdPrn;           Exit; (* 451 *)
  798.     END;
  799.     IF Ctx = 'Storage' THEN BEGIN
  800.       GetContext := hcStorage;          Exit; (* 331 *)
  801.     END;
  802.     IF Ctx = 'Strings' THEN BEGIN
  803.       GetContext := hcStrings;          Exit; (* 335 *)
  804.     END;
  805.     IF Ctx = 'StringToCard' THEN BEGIN
  806.       GetContext := hcStringToCard;     Exit; (* 313 *)
  807.     END;
  808.     IF Ctx = 'StringToInt' THEN BEGIN
  809.       GetContext := hcStringToInt;      Exit; (* 314 *)
  810.     END;
  811.     IF Ctx = 'StringToLongCard' THEN BEGIN
  812.       GetContext := hcStringToLongCard; Exit; (* 319 *)
  813.     END;
  814.     IF Ctx = 'StringToLongInt' THEN BEGIN
  815.       GetContext := hcStringToLongInt;  Exit; (* 320 *)
  816.     END;
  817.     IF Ctx = 'StringToLongNum' THEN BEGIN
  818.       GetContext := hcStringToLongNum;  Exit; (* 321 *)
  819.     END;
  820.     IF Ctx = 'StringToLongReal' THEN BEGIN
  821.       GetContext := hcStringToLongReal; Exit; (* 507 *)
  822.     END;
  823.     IF Ctx = 'StringToNum' THEN BEGIN
  824.       GetContext := hcStringToNum;      Exit; (* 315 *)
  825.     END;
  826.     IF Ctx = 'StringToReal' THEN BEGIN
  827.       GetContext := hcStringToReal;     Exit; (* 505 *)
  828.     END;
  829.     IF Ctx = 'SYSTEM' THEN BEGIN
  830.       GetContext := hcSYSTEM;           Exit; (* 424 *)
  831.     END;
  832.     IF Ctx = 'TermBase' THEN BEGIN
  833.       GetContext := hcTermBase;         Exit; (* 345 *)
  834.     END;
  835.     IF Ctx = 'termCH' THEN BEGIN
  836.       GetContext := hctermCH;           Exit; (* 248 *)
  837.     END;
  838.     IF Ctx = 'Terminal' THEN BEGIN
  839.       GetContext := hcTerminal;         Exit; (* 360 *)
  840.     END;
  841.     IF Ctx = 'Terminate' THEN BEGIN
  842.       GetContext := hcTerminate;        Exit; (* 236 *)
  843.     END;
  844.     IF Ctx = 'TermIO' THEN BEGIN
  845.       GetContext := hcTermIO;           Exit; (* 371 *)
  846.     END;
  847.     IF Ctx = 'TermProcedure' THEN BEGIN
  848.       GetContext := hcTermProcedure;    Exit; (* 235 *)
  849.     END;
  850.     IF Ctx = 'Time' THEN BEGIN
  851.       GetContext := hcTime;             Exit; (* 509 *)
  852.     END;
  853.     IF Ctx = 'TimeDate' THEN BEGIN
  854.       GetContext := hcTimeDate;         Exit; (* 508 *)
  855.     END;
  856.     IF Ctx = 'TRANSFER' THEN BEGIN
  857.       GetContext := hcTRANSFER;         Exit; (* 203 *)
  858.     END;
  859.     IF Ctx = 'Trap' THEN BEGIN
  860.       GetContext := hcTrap;             Exit; (* 232 *)
  861.     END;
  862.     IF Ctx = 'TREAL' THEN BEGIN
  863.       GetContext := hcTREAL;            Exit; (* 532 *)
  864.     END;
  865.     IF Ctx = 'TRUNC' THEN BEGIN
  866.       GetContext := hcTRUNC;            Exit; (* 205 *)
  867.     END;
  868.     IF Ctx = 'TYPE' THEN BEGIN
  869.       GetContext := hcTypen;             Exit;
  870.     END;
  871.     IF Ctx = 'UnAssignGoto' THEN BEGIN
  872.       GetContext := hcUnAssignGoto;     Exit; (* 358 *)
  873.     END;
  874.     IF Ctx = 'UnAssignRead' THEN BEGIN
  875.       GetContext := hcUnAssignRead;     Exit; (* 352 *)
  876.     END;
  877.     IF Ctx = 'UnAssignWrite' THEN BEGIN
  878.       GetContext := hcUnAssignWrite;    Exit; (* 353 *)
  879.     END;
  880.     IF Ctx = 'UninstallBreakHandle' THEN BEGIN
  881.       GetContext := hcUninstallBreakHandle;   (* 418 *)
  882.     END;
  883.     IF Ctx = 'UninstallRTErrorHand' THEN BEGIN
  884.       GetContext := hcUninstallRTErrorHand;   (* 241 *)
  885.       Exit;
  886.     END;
  887.     IF Ctx = 'Unlock' THEN BEGIN
  888.       GetContext := hcUnlock;           Exit; (* 474 *)
  889.     END;
  890.     IF Ctx = 'WHILE' THEN BEGIN
  891.       GetContext := hcWHILE;            Exit; (* 162 *)
  892.     END;
  893.     IF Ctx = 'Window' THEN BEGIN
  894.       GetContext := hcWindow;           Exit; (* 408 *)
  895.     END;
  896.     IF Ctx = 'Windows' THEN BEGIN
  897.       GetContext := hcWindows;          Exit; (* 407 *)
  898.     END;
  899.     IF Ctx = 'WORD' THEN BEGIN
  900.       GetContext := hcWORD;             Exit; (* 194 *)
  901.     END;
  902.     IF Ctx = 'Write' THEN BEGIN
  903.       GetContext := hcWrite;            Exit; (* 177 *)
  904.     END;
  905.     IF Ctx = 'WriteCard' THEN BEGIN
  906.       GetContext := hcWriteCard;        Exit; (* 265 *)
  907.     END;
  908.     IF Ctx = 'WriteChar' THEN BEGIN
  909.       GetContext := hcWriteChar;        Exit; (* 178 *)
  910.     END;
  911.     IF Ctx = 'WriteCharAttr' THEN BEGIN
  912.       GetContext := hcWriteCharAttr;    Exit; (* 396 *)
  913.     END;
  914.     IF Ctx = 'WriteHex' THEN BEGIN
  915.       GetContext := hcWriteHex;         Exit; (* 267 *)
  916.     END;
  917.     IF Ctx = 'WriteInt' THEN BEGIN
  918.       GetContext := hcWriteInt;         Exit; (* 264 *)
  919.     END;
  920.     IF Ctx = 'WriteLine' THEN BEGIN
  921.       GetContext := hcWriteLine;        Exit; (* 173 *)
  922.     END;
  923.     IF Ctx = 'WriteLn' THEN BEGIN
  924.       GetContext := hcWriteLn;          Exit; (* 184 *)
  925.     END;
  926.     IF Ctx = 'WriteLongCard' THEN BEGIN
  927.       GetContext := hcWriteLongCard;    Exit; (* 272 *)
  928.     END;
  929.     IF Ctx = 'WriteLongInt' THEN BEGIN
  930.       GetContext := hcWriteLongInt;     Exit; (* 271 *)
  931.     END;
  932.     IF Ctx = 'WriteLongReal' THEN BEGIN
  933.       GetContext := hcWriteLongReal;    Exit; (* 330 *)
  934.     END;
  935.     IF Ctx = 'WriteNBytes' THEN BEGIN
  936.       GetContext := hcWriteNBytes;      Exit; (* 300 *)
  937.     END;
  938.     IF Ctx = 'WriteOct' THEN BEGIN
  939.       GetContext := hcWriteOct;         Exit; (* 266 *)
  940.     END;
  941.     IF Ctx = 'WriteProcedure' THEN BEGIN
  942.       GetContext := hcWriteProcedure;   Exit; (* 348 *)
  943.     END;
  944.     IF Ctx = 'WriteReal' THEN BEGIN
  945.       GetContext := hcWriteReal;        Exit; (* 328 *)
  946.     END;
  947.     IF Ctx = 'WriteScreen' THEN BEGIN
  948.       GetContext := hcWriteScreen;      Exit; (* 404 *)
  949.     END;
  950.     IF Ctx = 'WriteString' THEN BEGIN
  951.       GetContext := hcWriteString;      Exit; (* 176 *)
  952.     END;
  953.     IF Ctx = 'WriteWord' THEN BEGIN
  954.       GetContext := hcWriteWord;        Exit; (* 290 *)
  955.     END;
  956.     IF Ctx = 'WriteWrd' THEN BEGIN
  957.       GetContext := hcWriteWrd;         Exit; (* 268 *)
  958.     END;
  959.     IF Ctx = 'XTrap' THEN BEGIN
  960.       GetContext := hcXTrap;            Exit; (* 233 *)
  961.     END;
  962.     IF Ctx = 'zeroFlag' THEN BEGIN
  963.       GetContext := hczeroFlag;         Exit; (* 228 *)
  964.   END;
  965.   GetContext := hcNoContext;
  966. END;
  967.  
  968. END.
  969. (* ------------------------------------------------- *)
  970. (*            Ende von CONTEXT.PAS                   *)
  971.