home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / compiler / m2mmdemo / isinst / module / menudemo.mod < prev    next >
Encoding:
Text File  |  1989-02-27  |  2.2 KB  |  55 lines
  1.  
  2. MODULE MenuDemo;
  3.   (*---------------------------------------------------------------------*)
  4.   (*                          M E N U - D E M O                          *)
  5.   (*                           M 2 P R O L I B                           *)
  6.   (*  Copyright (C) 1987    Bühlmann Computer Software   CH-8636 WALD    *)
  7.   (*                     -- All Rights Reserved --                       *)
  8.   (*---------------------------------------------------------------------*)
  9.   (*  Author: X. Bühlmann                                                *)
  10.   (*                                                                     *)
  11.   (*  Version 1.0      Date: 28/09/88                                    *)
  12.   (*---------------------------------------------------------------------*)
  13.   FROM SYSTEM IMPORT ADR, SIZE;
  14.   IMPORT Screen;
  15.   FROM SystemDef IMPORT eColor;
  16.   FROM MenuDriver IMPORT MenuData, ReadMenu;
  17.   FROM Menus IMPORT MenuColor, FrameOnOff, eExit, eExitMode, 
  18.       GetSelectedEntry, Menu;
  19.   VAR
  20.     Exit : eExit;
  21.     Selection : CARDINAL;
  22.     CursorSave : CARDINAL;
  23.   (*-----------------------------------------------------------------------*)
  24.   PROCEDURE Copyright();
  25.     BEGIN
  26.       Screen.ClearScrBound();
  27.       Screen.ScrWriteLn();
  28.       Screen.ScrPutString(
  29.           '                M E N U - D E M O    Version 1.0  ');
  30.       Screen.ScrWriteLn();
  31.       Screen.ScrPutString(
  32.           '                           1 9 8 8                 ');
  33.       Screen.ScrWriteLn();
  34.       Screen.ScrWriteLn();
  35.       Screen.ScrPutString(
  36.           '                         Copyright by           ');
  37.       Screen.ScrWriteLn();
  38.       Screen.ScrPutString(
  39.           '                 (c) Bühlmann Computer Software    ');
  40.       Screen.ScrWriteLn();
  41.       Screen.ScrPutString(
  42.           '                         CH-8636 Wald              ');
  43.       Screen.ScrWriteLn();
  44.     END Copyright;
  45.   BEGIN
  46.     Copyright();
  47.     MenuColor(ltWhite, blue, ltWhite, black);
  48.     IF ReadMenu('Demo.Men',1) THEN
  49.       WITH MenuData DO
  50.         FrameOnOff := FrameONOFF;
  51.         Exit := Menu(x,y,FrameTitle,MenuText,escAllowed,Selection);
  52.       END;
  53.     END;
  54.   END MenuDemo.
  55.