Listing:

    1  DEFINITION MODULE ScreenInput;
    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/screenin.dev   1.4   30 Dec 1990 18:04:06   coleb  $
   12   *
   13   *)
   14  
   15  
   16  IMPORT GenLists;
   17  IMPORT MsColors;
   18  IMPORT ScrnTypes;
   19  
   20    PROCEDURE ReadNextInput(VAR TheFrame :
   21        ScrnTypes.DisplayFrame; VAR thestr : ARRAY
*****                  ^ not supported yet
   22        OF CHAR; VAR selected : BOOLEAN; skip :
*****           ^ not supported yet
   23        CARDINAL);
   24  
   25    PROCEDURE ReadInput(VAR TheFrame :
   26        ScrnTypes.DisplayFrame; VAR thestr : ARRAY
*****                  ^ not supported yet
   27        OF CHAR; VAR selected : BOOLEAN; FieldName :
*****           ^ not supported yet
   28        ARRAY OF CHAR);
*****                 ^ not supported yet
   29  
   30    PROCEDURE ChangeField(VAR TheFrame :
   31        ScrnTypes.DisplayFrame; thestr : ARRAY OF
*****                  ^ not supported yet
   32        CHAR; FieldName : ARRAY OF CHAR;
*****        ^ not supported yet
*****                                   ^ not supported yet
   33        PreserveLength: BOOLEAN);
   34  
   35    PROCEDURE ListToEdField( TheList:
   36        GenLists.GenList; TheFrame:
*****                 ^ not supported yet
   37        ScrnTypes.DisplayFrame; TheField: CARDINAL
*****                  ^ not supported yet
   38        ): BOOLEAN;
   39  
   40    PROCEDURE ListFromEdField( TheFrame:
   41        ScrnTypes.DisplayFrame; TheField: CARDINAL;
*****                  ^ not supported yet
   42        VAR TheList: GenLists.GenList ): BOOLEAN;
*****                              ^ not supported yet
   43  
   44    PROCEDURE AddToMenu(VAR TheFrame :
   45        ScrnTypes.DisplayFrame; ScrCol, ScrRow :
*****                  ^ not supported yet
   46        CARDINAL; ScrText : ARRAY OF CHAR; FieldType
*****                                     ^ not supported yet
   47        : CHAR; foreground, background:
   48        MsColors.AColor; MonoAttribute:
*****                 ^ not supported yet
   49        MsColors.AMonoAttribute );
*****                 ^ not supported yet
   50  
   51    PROCEDURE FrameSequence( StartFrame:
   52        ScrnTypes.FrameKey);
*****                  ^ not supported yet
   53  
   54    PROCEDURE Input( VAR FrameNum :
   55        ScrnTypes.FrameKey);
*****                  ^ not supported yet
   56  
   57    PROCEDURE Control(): ScrnTypes.FrameKey;
*****                                   ^ not supported yet
   58  
   59    PROCEDURE ControlFrame(VAR FrameRec :
   60        ScrnTypes.DisplayFrame; LandingField :
*****                  ^ not supported yet
   61        CARDINAL; message : ARRAY OF CHAR;
*****                                     ^ not supported yet
   62        showfields : BOOLEAN) : ScrnTypes.FrameKey;
*****                                          ^ not supported yet
   63  
   64    PROCEDURE Init();
   65  
   66  END ScreenInput.
*****      ^ not supported yet

   23 errors