home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pibsoft / terminal / showmenu.scr < prev    next >
Encoding:
Text File  |  1988-02-26  |  1.9 KB  |  47 lines
  1. ***************************************************************************
  2. *        S H O W M E N U . S C R  ---  Show script menu facility          *
  3. ***************************************************************************
  4. *                                                                         *
  5. *    Script:  ShowMenu.Scr                                                *
  6. *                                                                         *
  7. *    Purpose: Show how to use MENU script command.                        *
  8. *                                                                         *
  9. *    Invocation:                                                          *
  10. *                                                                         *
  11. *       Execute "ShowMenu"                                                *
  12. *                                                                         *
  13. ***************************************************************************
  14. *
  15. *                                  Menu item choice index
  16. Declare I1 Integer
  17. *                                  Menu displayed at column 15, row 10.
  18. *                                  Default item is 3 = quit.
  19. *                                  Menu title is 'My menu!'.
  20. *                                  There are three menu choices.
  21. *
  22. *    Index  Column  Row  Default    Title    Item 1  Item 2  Item 3
  23. *    -----  ------  ---  -------  ---------- ------- ------- -------
  24. Menu   I1     15     10     3     'My menu!' 'H)elp' 'L)ist' 'Q)uit'
  25. *
  26. DOCASE I1 OF
  27.    CASE 1
  28.       GoToXY 10 20
  29.       Message " "
  30.       Message "You selected HELP"
  31.    ENDCASE
  32.    CASE 2
  33.       GoToXY 10 20
  34.       Message " "
  35.       Message "You selected LIST"
  36.    ENDCASE
  37.    CASE 3
  38.       GoToXY 10 20
  39.       Message " "
  40.       Message "You selected QUIT"
  41.    ENDCASE
  42.    CASE ELSE
  43.       GoToXY 10 20
  44.       Message " "
  45.       Message "You selected ESCAPE"
  46.    ENDCASE
  47. ENDDOCASE