Listing:

    1  MODULE TestNumberInput;
    2  (*
    3  System:
    4  Last Edit:  March 19, 1990 7:38 PM
    5  Author:     Mike Carter
    6  Language:   Logitech Modula-2/86 Version 3
    7  
    8  Description:
    9    Drives a test frame to allow convenient testing of the new
   10    numeric input routines.
   11  
   12  Revision History:
   13    Created March 10, 1990 - mbc.
   14  
   15  *)
   16  FROM ControlUtils IMPORT Input;
   17  FROM DspFiles IMPORT MainFrame, OpenDisplayFile, CloseDisplayFile;
   18  FROM ScrnTypes IMPORT DisplayFrame, AFrameName, DisplayFile;
   19  
   20  VAR
   21    testFile : DisplayFile;
   22    nextFrame : AFrameName;
   23  
   24  BEGIN (* module TestNumberInput *)
   25    IF OpenDisplayFile( testFile, "testnumb.dsp" ) THEN
*****       ^ not supported yet
*****                        ^ not supported yet
*****                                  ^ not supported yet
   26      nextFrame := "TestFrame";
*****      ^ not supported yet
*****                   ^ not supported yet
   27      Input( MainFrame, nextFrame );
*****      ^ not supported yet
*****             ^ not supported yet
*****                        ^ not supported yet
   28      CloseDisplayFile( testFile );
*****      ^ not supported yet
*****                        ^ not supported yet
   29    END; (* if OpenDisplayFile *)
   30  END TestNumberInput.

   10 errors