home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XSTATUS.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  3.1 KB  |  71 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.         Demo of    statusline
  7. ****************************************************************/
  8.  
  9. include "tdoms.pro"
  10. include "tpreds.pro"
  11. include "status.pro"
  12.  
  13. GOAL
  14.     makewindow(2,7,0,"",0,0,25,80),
  15.     makewindow(1,23,7,"",0,0,24,80),
  16.     cursor(20,0),
  17.     makestatus(66,"  Press any key (first status line)."),
  18.     write("A status line can be created easily with the makestatus"),
  19.     write(" tool predicate."),nl,nl,
  20.     readkey(_),
  21.         write("****************************************************************\n"),
  22.         write("\nThe contents of the status line can later be changed by the "),
  23.     write("\nchangestatus command."),
  24.     write("\n\nPress the space bar to see the effect of \n\n"),
  25.     write("\tchangestatus(\"A new status line: please press the spacebar\".)\n\n"),
  26.     readkey(_),
  27.     changestatus("A new status line: please press the spacebar."),
  28.     readkey(_),
  29.     changestatus("A new status line"),
  30.     write("****************************************************************\n"),
  31.         write("\nA status line can be removed by the removestatus predicate."),
  32.     write("\n\nPress the spacebar to see the effect of removestatus. When"),
  33.     write("\nyou are ready to continue press the spacebar once again.\n\n"),
  34.     readkey(_),
  35.     removestatus,
  36.     readkey(_),
  37.     write("****************************************************************\n"),
  38.         write("\nAnd they can overlap. Press the space bar again."),nl,nl,
  39.     readkey(_),
  40.     write("We will create two status lines, one on top of another,"),nl,
  41.     write("using:\n\n\tmakestatus(7,\"First of two overlapping status lines.\"),"),nl,
  42.     write("\tmakestatus(151,\"Second of two overlapping status lines.\"),"),nl,nl,nl,
  43.     makestatus(36,"First of two overlapping status lines."),
  44.     makestatus(151,"Second of two overlapping status lines."),
  45.     write("Below is the second status line. Press the space bar to see the first"),
  46.     write("\nand then press the space bar once again to remove this also.\n"),
  47.     readkey(_),
  48.     removestatus,
  49.     readkey(_),
  50.     removestatus,
  51.     tempstatus(112," This status line is done by tempstatus."),
  52.         write("\n****************************************************************\n"),
  53.     write("\nSometimes the statusline can disappear because another window"),
  54.     write("\nis placed on the top of it."),
  55.     write("\n\nPress any key and the statusline will disappear"),
  56.     write("\nbecause of: \"shiftwindow(2),shiftwindow(1)\"\n"),
  57.     readkey(_),
  58.     shiftwindow(2),shiftwindow(1),
  59.     write("\n\nNow press any key to see the effect of refreshstatus.\n"),
  60.     readkey(_),
  61.     refreshstatus,
  62.         write("\n****************************************************************\n"),
  63.         write("\nIf you want the statusline to disappear automatically "),nl,
  64.     write("during fail, then you should use tempstatus instead of makestatus."),nl,
  65.     readkey(_),
  66.     write("\n****************************************************************\n"),
  67.     write("\n\nNow the program will fail. Notice that tempstatus"),
  68.     write("\nremoves the status line."),
  69.     readkey(_),
  70.     fail.
  71.