home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMTEXT.PRG < prev    next >
Text File  |  1992-11-12  |  1KB  |  42 lines
  1. *----------------------------------------------------------------------------
  2. *
  3. *   Program Name: MEMTEXT.PRG       Copyright: EDON Corporation                                         
  4. *   Date Created: 02/23/91           Language: Clipper S'87                                             
  5. *   Time Created: 09:43:26             Author: Ed Phillips                               
  6. *    Description:
  7. *----------------------------------------------------------------------------
  8.  
  9. *wcolor = Setcolor(c_statln1)
  10. *
  11. *@ 0,0 SAY 'TEXT ...'
  12. *Setcolor(wcolor)
  13. *
  14. *@ r,c SAY ''
  15.  
  16. DO WHILE .T.
  17.  
  18. *   wcolor = Setcolor(c_statln1)
  19. *   @ 0,60 SAY Strzero(r,2)+','+Strzero(c,2)
  20. *   Setcolor(wcolor)
  21. *   @ 0,45 SAY ' Color '
  22. *   @ r,c SAY ''
  23.    StatLine("TEXT ...")
  24.    key = Inkey(0)
  25.    IF key < 32
  26.       IF key = 27                             && escape
  27.          EXIT
  28.       ENDIF
  29.  
  30.       DO CtrlKey
  31.    ELSEIF key >= 271
  32.       DO AltKey
  33.    ELSE
  34.       @ r,c SAY Chr(key)
  35.       r = Row()
  36.       c = Col()
  37.       changed = .t.
  38.    ENDIF                                      && IF key < 32
  39. ENDDO                                         && DO WHILE .T.
  40. RETURN
  41. * EOF: Memtext.prg
  42.