home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l360 / 3.ddi / ADMOUSE.@BL / ADMOUSE.CBL
Encoding:
Text File  |  1991-04-08  |  3.2 KB  |  74 lines
  1.       $set noosvs mf ans85
  2.       ************************************************************
  3.       *                                                          *
  4.       *              (C) Micro Focus Ltd. 1990                   *
  5.       *                                                          *
  6.       *                     ADMOUSE.CBL                          *
  7.       *                                                          *
  8.       *    This program demonstrates the use of a mouse in       *
  9.       *    ADIS ACCEPT statements.                               *
  10.       *                                                          *
  11.       ************************************************************
  12.        identification division.
  13.        data division.
  14.  
  15.        working-storage section.
  16.        01 filler.
  17.            04 occurs 6.
  18.             05 occurs 10.
  19.              06 ws-item    pic 999 value zero.
  20.        01 mouse-param      pic 99 comp-x.
  21.        01 use-mouse        pic 99 comp-x value 64.
  22.        01 use-panels       pic 99 comp-x value 49.
  23.  
  24.        screen section.
  25.        01 g-admouse.
  26.          02 background-color 7 foreground-color 1.
  27.           03 blank screen.
  28.           03 line 2 col 15 value "USING THE MOUSE POINTER TO MOVE AROUND
  29.       -                          " FIELDS" background-color 3 underline.
  30.           03 line 4 col 8  value "Move the mouse to the field in which y
  31.       -                          "ou wish to enter data, then".
  32.           03 line 5 col 8  value "press the left hand  button  on the mo
  33.       -                          "use to move the text cursor".
  34.           03 line 6 col 8  value "to the selected field.".
  35.           03 line 8 col 4 value "SALES FIGURES" foreground-color 4
  36.                                                 underline.
  37.          02 background-color 7 foreground-color 6.
  38.           03 line 10 col 13 value "  JAN   FEB   MAR   APR   MAY   JUN
  39.       -" JUL   AUG   SEP   OCT".
  40.           03 line 11 col 13 value "┌─────┬─────┬─────┬─────┬─────┬─────┬
  41.       -"─────┬─────┬─────┬─────┐".
  42.           03 occurs 6.
  43.            05 line + 1 col 13 value "│     │     │     │     │     │
  44.       -" │     │     │     │     │".
  45.            05 line + 1 col 13  value "├─────┼─────┼─────┼─────┼─────┼───
  46.       -"──┼─────┼─────┼─────┼─────┤".
  47.           03 line 23 col 13 value "└─────┴─────┴─────┴─────┴─────┴─────┴
  48.       -"─────┴─────┴─────┴─────┘".
  49.           03 line 12 col 4 value "Jam".
  50.           03 line + 2 col 4 value "Honey".
  51.           03 line + 2 col 4 value "Sugar".
  52.           03 line + 2 col 4 value "Bread".
  53.           03 line + 2 col 4 value "Flour".
  54.           03 line + 2 col 4 value "Butter".
  55.           03 line 12 col 15.
  56.          02 background-color 7 foreground-color 0.
  57.            04 occurs 6.
  58.             05 occurs 10.
  59.              06 pic 999 using ws-item.
  60.              06 col + 4.
  61.             05 line + 2 col - 60.
  62.  
  63.        procedure division.
  64.            call x"af" using use-mouse mouse-param
  65.       * activate the mouse
  66.            move 1 to mouse-param
  67.            call x"af" using use-mouse mouse-param.
  68.            display g-admouse.
  69.            accept g-admouse.
  70.       * terminate the mouse
  71.            move 0 to mouse-param
  72.            call x"af" using use-mouse mouse-param.
  73.            stop run.
  74.