home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XLINEMNU.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  877 b   |  25 lines
  1. /****************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.         Demo of    linemenu
  7. ****************************************************************/
  8.  
  9. include "tdoms.pro"
  10. include "tpreds.pro"
  11. include "linemenu.pro"
  12. include "status.pro"
  13.  
  14. GOAL
  15.     makewindow(1,23,0,"test",0,0,24,80),
  16.     cursor(5,0),
  17.     makestatus(112," Choose a programming language    Make selection with capital letter or -> <-"),
  18.     linemenu(0,7,66,["Basic","Fortran","Pascal","APL","Lisp","Prolog"],CH1),
  19.     write("Last time you chose item number ",CH1),nl,
  20.     changestatus(" Now choose from an unframed menu  Make selection with small letter or -> <-"),
  21.     linemenu(0,66,0,[basic,fortran,pascal,apl,lisp,prolog],CHOICE),
  22.     changestatus(""),
  23.     write("This time you chose item number ",CHOICE),nl,
  24.     write("End of demo"),nl.
  25.