Listing:

    1  DEFINITION MODULE ScreenDisplay;
    2  (*
    3   *  REPERTOIRE
    4   *  Release 1.6
    5   *  By Charles Bradford and Cole Brecheen
    6   *  (c) Copyright 1985-1992 PMI
    7   *  Green Bay, Wisconsin
    8   *  All rights reserved
    9   *  (414) 468-6040
   10   *
   11   *  $Header:   D:/logfiles/defs/screendi.dev   1.4   30 Dec 1990 18:04:00   coleb  $
   12   *
   13   *)
   14  
   15  
   16    FROM ScrnTypes IMPORT DisplayFile, DisplayFrame,
   17         FrameKey;
   18  
   19    PROCEDURE CloseDisplayFile(VAR dfile :
   20        DisplayFile);
   21  
   22    PROCEDURE OpenDisplayFile(VAR dfile :
   23        DisplayFile; fname : ARRAY OF CHAR);
*****                                      ^ not supported yet
   24  
   25    PROCEDURE ReadDisplayFrame(VAR dfile :
   26        DisplayFile; VAR FrameRec : DisplayFrame;
   27        FrameNum : FrameKey);
   28  
   29    PROCEDURE ReadFrame(VAR dfile : DisplayFile; VAR
   30        FrameRec : DisplayFrame; FrameNum :
   31        FrameKey);
   32  
   33    PROCEDURE ShowDisplayFrame(VAR FrameRec :
   34        DisplayFrame; Col1, Row1, ColX, RowX :
   35        CARDINAL);
   36  
   37    PROCEDURE WriteToFrame( FrameRec: DisplayFrame;
   38        col, row: CARDINAL; text: ARRAY OF CHAR );
*****                                           ^ not supported yet
   39  
   40    PROCEDURE Display( FrameNum : FrameKey);
   41  
   42    PROCEDURE CloseDisplayFrame(VAR FrameRec :
   43        DisplayFrame);
   44  
   45    PROCEDURE PushFrame(VAR FrameRec :
   46        DisplayFrame);
   47  
   48    PROCEDURE PopFrame(VAR FrameRec : DisplayFrame);
   49  
   50    PROCEDURE PopZapFrame(VAR FrameRec :
   51        DisplayFrame);
   52  
   53    PROCEDURE ClearFrameStack(VAR FrameRec :
   54        DisplayFrame);
   55  
   56    PROCEDURE RedrawArea( TheFrame: DisplayFrame;
   57        col1, row1, col2, row2: CARDINAL );
   58  
   59    PROCEDURE Init();
   60  
   61  END ScreenDisplay.
*****      ^ not supported yet

    3 errors