home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d138 / modulatools.lha / ModulaTools / Template / Test.mod < prev    next >
Encoding:
Text File  |  1988-03-20  |  519 b   |  22 lines
  1. MODULE Test;
  2.  
  3. FROM Template IMPORT CreateScreenWindowAndMenus, DestroyScreenWindowAndMenus,
  4.                      ProcessIntuiMessages, TheScreen, TheWindow, TheMenu;
  5. FROM Storage  IMPORT DestroyHeap;
  6.  
  7.  
  8. VAR
  9.    finished : BOOLEAN;
  10.  
  11.  
  12. BEGIN
  13.    IF ( CreateScreenWindowAndMenus () ) THEN
  14.       finished := FALSE;
  15.       WHILE NOT finished DO
  16.          ProcessIntuiMessages (finished);
  17.       END; (* WHILE NOT finished *)
  18.       DestroyScreenWindowAndMenus;
  19.    END; (* IF CreateScreenWindowAndMenus *)
  20.    DestroyHeap;
  21. END Test.
  22.