home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume8 / kurses / kshtest < prev    next >
Encoding:
Korn shell script  |  1987-02-08  |  1.7 KB  |  99 lines
  1. #!/bin/ksh
  2. trap 'kurses -cl;exit' 1 2 3 15
  3. function main_menu
  4. {
  5.  kurses \
  6.  -cm 0 1 \
  7.  -ce \
  8.  '*********************************** M E N U ************************************' \
  9.  -cm 0 2 -ce \
  10.  -cm 0 3 \
  11.  -ce \
  12.  '         1   Display Modules A thru P' \
  13.  -cm 0 4 \
  14.  -ce \
  15.  '         2   Display Modules Q thru Z' \
  16.  -cm 0 5 \
  17.  -ce \
  18.  '         3   Display Sub-Modules A thru Z' \
  19.  -cm 0 6 \
  20.  -ce \
  21.  '         4   Display HELP information' \
  22.  -cm 0 7 \
  23.  -ce \
  24.  '         5   Exit.' \
  25.  -cm 0 8 \
  26.  -ce \
  27.  -cm 0 9 \
  28.  -ce \
  29.  '             Enter Option: ' \
  30.  -cm 0 10 \
  31.  -ce \
  32.  -cm 0 22 \
  33.  '****************************  Default is Option 1  *****************************' \
  34.  -cm 27 9
  35.  ;
  36. }
  37. #
  38. function help_menu
  39. {
  40. kurses -cm 0 11
  41. cat  <<+ENDCAT
  42. ******************************  HELP INFORMATION  ******************************
  43. Option 1 - Help information for Option 1
  44.            
  45.            
  46.            
  47. Option 2 - Help information for Option 2
  48.            
  49.            
  50. Option 3 - Help information for Option 3
  51.            
  52. Option 5 - Exit this program.
  53. +ENDCAT
  54. }
  55. #
  56. function clrlwin
  57. {
  58.     kurses \
  59.     -cm 0 11 \
  60.     '*****************************************' \
  61.     '***************************************' \
  62.     -cm 0 12 -ce \
  63.     -cm 0 13 -ce \
  64.     -cm 0 14 -ce \
  65.     -cm 0 15 -ce \
  66.     -cm 0 16 -ce \
  67.     -cm 0 17 -ce \
  68.     -cm 0 18 -ce \
  69.     -cm 0 19 -ce \
  70.     -cm 0 20 -ce \
  71.     -cm 0 21 -ce \
  72.     -cm 0 22  \
  73.     '*************************************************************'
  74.         ;
  75. }
  76. # 
  77. kurses -cl
  78. status=loop
  79. while test $status = "loop"
  80. do
  81.  main_menu
  82.  read response
  83.  case "$response" in
  84.     4)  help_menu
  85.         status=loop
  86.         ;;
  87.     5)  kurses -cl
  88.         status=exit
  89.         exit
  90.         ;;
  91.     *)  clrlwin 
  92.         kurses \
  93.         -cm 13 9 -ce \
  94.         'Enter Option: '
  95.         status=loop
  96.         ;;
  97.  esac
  98. done
  99.