home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / MISC / SETBORD.PRG < prev    next >
Encoding:
Text File  |  1992-12-02  |  1.1 KB  |  29 lines
  1. ****************************************************************
  2. *     * 08/13/92                SETBORD.PRG           21:34:46 *
  3. ****************************************************************
  4. *     * Author's Name: J Long                                  *
  5. *     *                                                        *
  6. *     * Description:                                           *
  7. *     *  Illustrates usage of SET BORDER command               *
  8. *     *                                                        *
  9. ****************************************************************
  10. CLEAR
  11.  
  12. CLEAR ALL
  13. DEFINE WINDOW Wind1 FROM 2,2 TO 30,70
  14. ACTIVATE WINDOW Wind1
  15. SET BORDER TO "*"
  16. @ 1,0 TO 10,38         && Draw a box
  17. SET BORDER TO "A","B","C","D","E","F","G","H"
  18. @ 12,0 TO 22,38        && Draw a box
  19. SET BORDER TO PANEL, DOUBLE
  20. @ 1,40 TO 10,78        && Draw a box
  21. SET BORDER TO 205,205,179,179,213,184,212,190, 178
  22. DEFINE WINDOW Wind2 FROM 8,25 TO 20,65
  23. @ 12,40 TO 22,78       && Draw a box
  24. SET BORDER TO DOUBLE
  25. ACTIVATE WINDOW Wind2
  26. @ 2,2 TO 10,10         && Draw a box inside of the window
  27. WAIT WINDOW
  28. CLEAR ALL
  29.