home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / ACTWIN.PRG < prev    next >
Encoding:
Text File  |  1992-07-14  |  851 b   |  19 lines
  1. *****************************************************************
  2. *     * 07/16/92            ACTWIN.PRG                 16:27:11 *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates the use of ACTIVATE WINDOW     *
  8. *     *                                                         *
  9. *****************************************************************
  10. save_color = SET("COLOR")
  11. SET COLOR TO n/W
  12. CLEAR
  13. SET COLOR TO &save_color
  14. DEFINE WINDOW Wind_1 FROM 1,10 TO 10,60 PANEL
  15. DEFINE WINDOW Wind_2 FROM 5,5  TO 15,50 PANEL
  16. DEFINE WINDOW Wind_3 FROM 11,1 TO 20,55 PANEL
  17. ACTIVATE WINDOW ALL
  18. RETURN
  19.