home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH09EX02.PRO < prev    next >
Encoding:
Prolog Source  |  1990-03-26  |  774 b   |  39 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.  
  5. domains
  6.    screenname, fname, type = symbol
  7.    row, col, len = integer
  8.  
  9. database
  10.    screen(symbol,dbasedom)     /* Saving different screens */
  11.  
  12. database - screen
  13.    field(fname, type, row, col, len)  /* Definitions of I/O field on screen */
  14.    txtfield(row, col, len, string)  /* Showing textfields */
  15.    windowsize(row,col)
  16.    
  17. predicates
  18.   shiftscreen(symbol)
  19.  
  20. clauses
  21.    shiftscreen(_) :- 
  22.       retract(field(_,_,_,_,_)),
  23.       fail.
  24.  
  25.    shiftscreen(_) :- 
  26.       retract(txtfield(_,_,_,_)),
  27.       fail.
  28.  
  29.    shiftscreen(_) :- 
  30.       retract(windowsize(_,_)),
  31.       fail.
  32.  
  33.    shiftscreen(Name) :-
  34.       screen(Name,Term),
  35.       assert(Term),
  36.       fail.
  37.  
  38.    shiftscreen(_).
  39.