home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / PROGRAMS.ARC / RANDOM.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  1013 b   |  29 lines
  1. /************************************************************************/
  2. /*                                                                      */
  3. /*             Turbo Prolog 2.0 example program                         */
  4. /*                                    */
  5. /*   Copyright (c) 1986, 88 by Borland International, Inc.              */
  6. /*                                                                      */
  7. /*               Labyrinth generator                              */
  8. /*                                                                      */
  9. /************************************************************************/
  10.  
  11. PREDICATES
  12.   run
  13.   get(INTEGER,CHAR)
  14.  
  15. GOAL makewindow(1,116,96,"Labyrinth generator",5,5,15,60), run.
  16.  
  17. CLAUSES
  18.   run:-    not(keypressed),
  19.     random(13,ROW),
  20.     random(58,COL),
  21.     random(10,SEL),
  22.     get(SEL,CHAR),
  23.     scr_char(ROW,COL,CHAR),
  24.     run.
  25.  
  26.   get(0,'┼').  get(1,'┤').  get(2,'├').  get(3,'┴').  get(4,'┬').
  27.   get(5,'┌').  get(6,'┐').  get(7,'┘').  get(8,'└').  get(9,'─').
  28.   get(10,'│').
  29.