Topspeed_JPI/TS-V3/MODBASE/SMARTSCR.DEF

DEFINITION MODULE SmartScreen;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/smartscr.dev   1.4   30 Dec 1990 18:04:40   coleb  $
 *
 *)


  FROM SYSTEM IMPORT ADDRESS;

  TYPE
    TextAttribute = (plain, bold, underscored,
      blinking, ReverseVideo, invisible);

    Colors = (black, blue, green, cyan, red,
      magenta, brown, lightgrey, darkgrey,
      lightblue, lightgreen, lightcyan, lightred,
      lightmagenta, yellow, brightwhite);

    ScreenModeType = (BW40x25, color40x25,
      BW80x25, color80x25, color320, BW320, BW640,
      Mono, PCjr160, PCjr320, PCjr640, EGA11,
      EGA12, EGA320, EGA640, EGAMono, EGA64color);

    AttributeSet = SET OF TextAttribute;

    VidMethodType = (ANSI, ROM, DMA);
    VideoMemChar =
      RECORD
        CASE : BOOLEAN OF
          TRUE :
          ch : CHAR;
          attr : CHAR;
        | FALSE :
          x : CARDINAL;
        END;
      END;

  VAR
    VideoMethod : VidMethodType;
    TextModeNow : AttributeSet;
    ForeGround, BackGround : Colors;
    ScreenModeNow : ScreenModeType;
    MaxCol, MaxRow : CARDINAL;
    NominalCol, NominalRow : CARDINAL;

  PROCEDURE AdrWriteAt(ColNum, RowNum : CARDINAL;
      TheAdr: ADDRESS; TheSize: CARDINAL );

  PROCEDURE ClearPart( col1, row1, col2, row2 :
      CARDINAL);

  PROCEDURE ClearScreen();

  PROCEDURE EndCol(): CARDINAL;

  PROCEDURE EndRow(): CARDINAL;

  PROCEDURE GotoXY(column, row : CARDINAL);

  PROCEDURE RealVideoMode() : ScreenModeType;

  PROCEDURE ReverseColors();

  PROCEDURE ScreenMode(TheMode : ScreenModeType);

  PROCEDURE SetAttribOrColor(forec, backc: Colors;
      atrib: TextAttribute);

  PROCEDURE SetCursorHeight(lines : CARDINAL);

  PROCEDURE SetVideoMethod( NewMethod:
      VidMethodType);

  PROCEDURE TextColor(foreground, background :
      Colors);

  PROCEDURE TextMode(attribute : TextAttribute);

  PROCEDURE WriteAt(ColNum, RowNum : CARDINAL;
      TheStr : ARRAY OF CHAR);

  PROCEDURE Init();

END SmartScreen.