home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / SHOWSET.PRG < prev    next >
Encoding:
Text File  |  1993-02-01  |  865 b   |  22 lines
  1. *****************************************************************
  2. *     * 09/92               SHOWSET.PRG                         *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program displays ON and OFF SET commands current   *
  8. *     * status.                                                 *
  9. *****************************************************************
  10. declare set_value[26], SET_ONOFF[48]
  11. DO SETNAMES
  12. FOR I = 1 to 26
  13.   ? Set_Value[I]
  14.   ?? SET(Set_Value[I]) at 20
  15.   ?? SET(Set_Value[I],1) at 40
  16. ENDFOR
  17. FOR I = 1 to 26
  18.   ? Set_OnOff[I]
  19.   ?? SET(Set_OnOff[I]) at 20
  20.   ?? SET(Set_OnOff[I],1) at 40
  21. ENDFOR
  22.