home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e050 / 1.ddi / MB.OPS < prev    next >
Encoding:
Text File  |  1986-08-08  |  610 b   |  34 lines
  1.  
  2. module mb (start)
  3. {
  4.  
  5. use shell;
  6.  
  7. use mbdef;
  8.  
  9. use mbp1;
  10.  
  11. use mbp2;
  12.  
  13. rule task1
  14.   {
  15.     &1    (start);
  16.     -->
  17.     remove &1;
  18.         make (monkey    X=5;    Y=7;    on=couch;    holds=nil);
  19.         make (object    name=couch;    X=5;    Y=7;     weight=heavy);
  20.         make (object    name=bananas;    on=ceiling;    X=2;    Y=2);
  21.         make (object    name=ladder;    on=floor;    X=9;    Y=5;
  22.               weight=light);
  23.         make (goal    status=active;    type=holds; 
  24.           object=bananas);
  25.   };
  26.  
  27. procedure start ()
  28.   {
  29.     call shellinit();
  30.     call toplev(0);
  31.   };
  32.  
  33. };
  34.