Topspeed_JPI/TS/REP16/TESTNUMB.MOD

MODULE TestNumberInput;
(*
System:
Last Edit:  March 19, 1990 7:38 PM
Author:     Mike Carter
Language:   Logitech Modula-2/86 Version 3

Description:
  Drives a test frame to allow convenient testing of the new
  numeric input routines.

Revision History:
  Created March 10, 1990 - mbc.

*)
FROM ControlUtils IMPORT Input;
FROM DspFiles IMPORT MainFrame, OpenDisplayFile, CloseDisplayFile;
FROM ScrnTypes IMPORT DisplayFrame, AFrameName, DisplayFile;

VAR
  testFile : DisplayFile;
  nextFrame : AFrameName;

BEGIN (* module TestNumberInput *)
  IF OpenDisplayFile( testFile, "testnumb.dsp" ) THEN
    nextFrame := "TestFrame";
    Input( MainFrame, nextFrame );
    CloseDisplayFile( testFile );
  END; (* if OpenDisplayFile *)
END TestNumberInput.