home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l360 / 3.ddi / SMPLACCP.@BL / SMPLACCP.CBL
Encoding:
Text File  |  1991-04-08  |  1.7 KB  |  33 lines
  1.       $set ans85 noosvs mf
  2.       *******************************************************************
  3.       *                                                                 *
  4.       *                    (C) Micro Focus Ltd. 1990                    *
  5.       *                                                                 *
  6.       *                           SMPLACCP.CBL                          *
  7.       *                                                                 *
  8.       *  This program demonstrates some simple screen handling          *
  9.       *  extensions. It uses DISPLAY and ACCEPT statements to show how  *
  10.       *  you could achieve password masking and reverse-video.          *
  11.       *                                                                 *
  12.       *******************************************************************
  13.        special-names.
  14.            console is crt.
  15.  
  16.        working-storage section.
  17.        01 into-field          pic x(10).
  18.        01 pass-word           pic x(08).
  19.  
  20.        procedure division.
  21.            display spaces upon crt.
  22.            display "Please enter your password"    at 0310 upon
  23.                                                            crt-under.
  24.            accept pass-word                        at 0338 with no-echo.
  25.            display "Enter data to be accepted"     at 0510.
  26.            accept into-field                       at 0538 with
  27.                                                            reverse-video
  28.                                                            blink.
  29.            display "The data you entered was => "  at 0710.
  30.            display into-field                      at 0738.
  31.  
  32.            stop run.
  33.