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