GetScreenStr


Purpose   Updates a string with the characters displayed at a specific
          location on the monitor.

Decln.    GetScreenStr(X1,X2,Y:byte;var Str:StrScreen);

Remarks   X1, X2 are the leftmost and rightmost X coordinates.
          Y is the line number.
          Str is the string variable that will be updated with the screen
          string.

Example

VAR
  S : STRING;
BEGIN
    GETSCREENSTR(30,48,1,S);
    IF S <> 'TECHNOJOCK SOFTWARE' THEN
    BEGIN
        FWRITELN('ILLEGAL COPYRIGHT NOTICE - ABORTING');
        HALT;
    END;
END;