home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMWALK.PRG < prev    next >
Text File  |  1992-11-12  |  1KB  |  37 lines
  1. *----------------------------------------------------------------------------
  2. *
  3. *   Program Name: MEMWALK.PRG       Copyright: EDON Corporation                                         
  4. *   Date Created: 02/23/91           Language: Clipper S'87                                             
  5. *   Time Created: 08:24:11             Author: Ed Phillips                               
  6. *    Description: Walk About mode for memscrn.prg
  7. *----------------------------------------------------------------------------
  8.  
  9. PROCEDURE WalkAbout
  10.  
  11.    PRIVATE char, wcolor, key
  12. *   wcolor = Setcolor(c_statln1)
  13. *   @ 0,0 SAY 'WALK ABOUT...'
  14.    @ r,c SAY ''
  15.    char = Savescreen(r,c,r,c)
  16.  
  17.    DO WHILE .T.
  18.       StatLine('WALK ABOUT...')
  19.       key = Inkey(0)
  20.       IF key < 32
  21.          IF key = 27                             && escape
  22.             EXIT
  23.          ENDIF
  24.  
  25.          DO CtrlKey
  26.          changed = .t.
  27.          Restscreen(r,c,r,c,char)
  28.       ELSE
  29.          IF Chr(key) $ 'Ww'
  30.             EXIT
  31.          ENDIF                                   && IF Chr(key) $ 'Bb'
  32.       ENDIF                                      && IF key < 32
  33.    ENDDO                                         && DO WHILE .T.
  34. *   Setcolor(wcolor)
  35. RETURN
  36. * EOF: Memwalk.prg
  37.