home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / CLIPPER / CLIPTIPS.ZIP / SIMPLE.ZIP / DEMO1.PRG < prev    next >
Text File  |  1993-03-22  |  371b  |  18 lines
  1. /***
  2. *   Written By: Cynthia Allingham  11/01/91
  3. *   Purpose:    Simple program demonstrating the creation and
  4. *               destruction of a box object.
  5. */
  6.  
  7. local aBox
  8.  
  9. set procedure to box
  10. @ 00,00,24,79 box '┌─┐│┘─└│░'
  11.  
  12. aBox:=CreateBox(10, 20, 16, 59, "w+/n, w+/r")
  13.  
  14. @22,19 say padc("Press any key to destroy the box",40)
  15. inkey(10)
  16.  
  17. DestroyBox(aBox)
  18.