home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / RANDOM2.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  473 b   |  17 lines
  1. %====================== random/2              ===============================
  2. PREDICATES
  3.   run
  4.   get(INTEGER,CHAR)
  5.  
  6. GOAL makewindow(1,116,96,"Labyrinth generator",5,5,15,60), run.
  7.  
  8. CLAUSES
  9.   run:-    not(keypressed),
  10.     random(13,ROW),    random(58,COL),    random(11,SEL),
  11.     get(SEL,CHAR), scr_char(ROW,COL,CHAR),
  12.     run.
  13.  
  14.   get(0,'┼').  get(1,'┤').  get(2,'├').  get(3,'┴').  get(4,'┬').
  15.   get(5,'┌').  get(6,'┐').  get(7,'┘').  get(8,'└').  get(9,'─').
  16.   get(10,'│').
  17.