home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / FRMWND4.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  466 b   |  21 lines
  1. %====================== framewindow/4         ===============================
  2. PREDICATES
  3.   delay(INTEGER)
  4.   changeframe(INTEGER)
  5.  
  6. CLAUSES
  7.   delay(0):-!.
  8.   delay(N):-N1=N-1,delay(N1).
  9.  
  10.   changeframe(-1):-!,changeframe(50).
  11.   changeframe(N):-
  12.     not(keypressed),
  13.     framewindow(7,"PRESS THE SPACE BAR",N,"\176\176\176\176\176\179"),
  14.     delay(2000),
  15.     N1=N-1,
  16.     changeframe(N1).
  17.   changeframe(_).
  18.  
  19. GOAL    makewindow(1,23,7,"TEST",5,5,10,50),
  20.     changeframe(0).
  21.