home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / REFEXAMP / SNOCHCK1.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  821 b   |  37 lines
  1. %====================== snowcheck/1           ===============================
  2. PREDICATES
  3.   checksnow(STRING)
  4.   setsnow(CHAR)
  5.   testwrite(INTEGER)
  6.  
  7. CLAUSES
  8.   checksnow(on):-!,
  9.     snowcheck(off),
  10.     testwrite(1000),
  11.     write("\nDid you saw any snow on your screen ?"),
  12.     readchar(ANS),
  13.     setsnow(ANS).
  14.  
  15.   checksnow(off):-!,
  16.     testwrite(1000),
  17.     write("\nDid you saw any snow on your screen ?"),
  18.     readchar(ANS),
  19.     setsnow(ANS).
  20.  
  21.   setsnow('y'):-snowcheck(on).
  22.   setsnow('Y'):-snowcheck(on).
  23.   setsnow(_).
  24.  
  25.   testwrite(0):-!.
  26.   testwrite(N):-
  27.     makewindow(_,_,_,_,_,_,ROWS,COLS),
  28.     RR=ROWS-1, CC=COLS-1,
  29.     random(RR,X),random(CC,Y),
  30.     scr_char(X,Y,CH), scr_char(X,Y,CH),
  31.     N1=N-1,
  32.     testwrite(N1).
  33.  
  34. GOAL    snowcheck(OLDSTATUS),
  35.     write("\nYour snowcheck status is set to :",OLDSTATUS),
  36.     checksnow(OLDSTATUS).
  37.