home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / PROGRAMS / RANDOM.PRO < prev    next >
Encoding:
Prolog Source  |  1990-03-26  |  1.1 KB  |  33 lines
  1. /************************************************************************/
  2. /*                                                                      */
  3. /*                PDC Prolog example program                            */
  4. /*                                    */
  5. /*   Copyright (c) 1986, 90 BY Prolog Development Center                */
  6. /*                                                                      */
  7. /*            Mosaic floor generator                */
  8. /*                                    */
  9. /*        Let prolog bring new civilization and culture        */
  10. /*                 to your monitor.                */
  11. /*                                                                      */
  12. /************************************************************************/
  13.  
  14. PREDICATES
  15.   run
  16.   get(INTEGER,CHAR)
  17.  
  18. GOAL makewindow(1,116,96,"Floor generator",5,5,15,60), run.
  19.  
  20. CLAUSES
  21.   run:- keypressed, !, readchar(_),readchar(_), removewindow.
  22.   run:-
  23.     random(13,ROW),
  24.     random(58,COL),
  25.     random(10,SEL),
  26.     get(SEL,CHAR),
  27.     scr_char(ROW,COL,CHAR),
  28.     run.
  29.  
  30.   get(0,'┼').  get(1,'┤').  get(2,'├').  get(3,'┴').  get(4,'┬').
  31.   get(5,'┌').  get(6,'┐').  get(7,'┘').  get(8,'└').  get(9,'─').
  32.   get(10,'│').
  33.