home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / REFEXAMP / MAKWIN11.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  325 b   |  9 lines
  1. %====================== makewindow/11         ===============================
  2. GOAL    makewindow(1,7,7,"Window 1",1,1,10,40,1,0,"\176\176\176\176\176\179"),
  3.     makewindow(2,7,7,"Window 2",6,20,10,40,0,30,"******"),
  4.     readchar(_),
  5.     window_str(X), % Capture screen content
  6.     removewindow,
  7.     readchar(_),
  8.     write(X),readchar(_).
  9.