home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMBOX.PRG < prev    next >
Text File  |  1992-11-12  |  2KB  |  50 lines
  1. *----------------------------------------------------------------------------
  2. *
  3. *   Program Name: MEMBOX.PRG        Copyright: EDON Corporation                                         
  4. *   Date Created: 02/23/91           Language: Clipper S'87                                             
  5. *   Time Created: 08:36:19             Author: Ed Phillips                               
  6. *    Description: Draw a box for memscrn
  7. *----------------------------------------------------------------------------
  8.  
  9. PROCEDURE MakeBOX
  10.    PRIVATE key, wcolor, top, left
  11.    SAVE SCREEN
  12. *   wcolor = Setcolor(c_statln1)
  13. *   @ 0,0 SAY 'BOX Pending...'
  14. *   Setcolor(wcolor)
  15.    @ r,c SAY '■'
  16.    top = r
  17.    left = c
  18.    Gotoxy(r,c)
  19.    DO WHILE .T.
  20.       StatLine('BOX Pending...')
  21.       key = Inkey(0)
  22.       IF key < 32
  23.          IF key = 27                             && escape
  24.             RESTORE SCREEN
  25.             @ r,c SAY ''
  26.             EXIT
  27.          ENDIF
  28.  
  29.          DO CtrlKey
  30.       ELSEIF key >= 271
  31.          DO AltKey
  32.       ELSE
  33.          IF Chr(key) $ 'Bb'
  34.             bottom = Row()
  35.             right = Col()
  36.             DO SwapChk
  37.             IF single
  38.                @ top,left TO bottom,right
  39.             ELSE
  40.                @ top,left TO bottom,right DOUBLE
  41.             ENDIF                                && IF single
  42.             changed = .t.
  43.             EXIT
  44.          ENDIF                                   && IF Chr(key) $ 'Bb'
  45.       ENDIF                                      && IF key < 32
  46.    ENDDO                                         && DO WHILE .T.
  47.    @ r,c SAY ''
  48. RETURN
  49. * EOF: Membox.prg
  50.