home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 093.lha / Chaos / Sources / cmenu.mod < prev    next >
Encoding:
Modula Implementation  |  1986-11-21  |  880 b   |  31 lines
  1. (*
  2.         Chaos: a program that allows you to play with
  3.     "strange attractors". See "Scientific American" 
  4.     July 1987 issue.
  5.         
  6.         Created: 8/10/87 by Richie Bielak
  7.         
  8.         Copyright (c) 1987 by Richie Bielak
  9.         
  10.         This program maybe freely distributed, but please leave
  11.         my name in. Thanks.....Richie
  12.  
  13. *)
  14. IMPLEMENTATION MODULE ChaosMenu;
  15.  
  16. FROM EasyMenus  IMPORT EasyMenuStrip;
  17.  
  18. BEGIN
  19.     (* Define a simple menu *)
  20.     MenuStripPtr :=
  21.       EasyMenuStrip (0, {}, {}, {},
  22.       " Actions |@SStart   |@PPanel  |@?About |Save IFF |@QQuit ",
  23.       " Screen  |@CClear Screen  |@TToggle Title ",
  24.       " Pre-sets |Picture #1 |Picture #2 |Picture #3 |Picture #4 ",
  25.       "","","","","","","","","");      
  26.     AltMenuStripPtr :=
  27.       EasyMenuStrip (0, {}, {}, {},
  28.       " Action |@SStop ", "","","","","","","","","","","");      
  29.  
  30. END ChaosMenu.
  31.