home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / sample / mask1 < prev    next >
Encoding:
Text File  |  1989-02-27  |  805 b   |  22 lines
  1.  
  2. MODULE MaskDemo;
  3.   PROCEDURE Function(w : eDirection; VAR W : eDirection): CARDINAL;
  4.     VAR
  5.       Ch : CARDINAL;
  6.       xWdw : Windows.tWindow;
  7.     BEGIN
  8.       CASE w OF
  9.       | F5 :              <-- Taste F5 löst wärend dem Edieren diese
  10.                               Funktion aus.
  11.         RestoreFields();  <-- Zurücklesen der Felder in das MaskInterface.
  12.         MaskRead();       <-- Zurücklesen der Felder vom MaskInterface in die
  13.                               von Ihnen definierten Variablen.
  14.         IF TextDriver.CreateTxt('Demo.MSK',2,xWdw) THEN
  15.            ^ Aufruf eines Textwindows, das ebenfalls definiert wurde.
  16.  
  17.           Screen.ScrWriteString(s1); <-- Ausgabe einer Variable
  18.           REPEAT
  19.           UNTIL Key()#0;
  20.           Windows.DeleteWindow(xWdw);
  21.         END;
  22.