home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMSEDIT.PRG < prev    next >
Text File  |  1991-12-13  |  2KB  |  60 lines
  1. *----------------------------------------------------------------------------
  2. *
  3. *   Program Name: MEMSEDIT.PRG      Copyright: EDON Corporation                                         
  4. *   Date Created: 03/06/91           Language: Clipper S'87                                             
  5. *   Time Created: 17:15:51             Author: Ed Phillips                               
  6. *    Description:
  7. *----------------------------------------------------------------------------
  8.  
  9. PRIVATE oldcolor, top, left, bottom, right
  10.  
  11. Automem('STUP')
  12.  
  13. Shadow(3,16,6,72)
  14. oldcolor = Setcolor(c_error)
  15. @ 03,16 SAY "  Name         Top  Left  Bottom  Right  Shadow  Explode "
  16. Setcolor(c_statln1)
  17.              *    2         3         4         5         6         7
  18.              *678901234567890123456789012345678901234567890123456789012
  19. *@ 04,16 SAY "┌───────────────────────────────────────────────────────┐"
  20. *@ 05,16 SAY "│                                                       │"
  21. *@ 06,16 SAY "└───────────────────────────────────────────────────────┘"
  22. Scroll(4,16,6,72,0)
  23. @ 4,16 TO 6,72
  24.  
  25. @ 05,18 GET M->scrn_name PICT "@!" VALID ! Empty(M->scrn_name)
  26. @ 05,31 GET M->st PICT "99" RANGE 1,24
  27. @ 05,37 GET M->sl PICT "99" RANGE 0,79
  28. @ 05,44 GET M->sb PICT "99" RANGE 1,24
  29. @ 05,51 GET M->sr PICT "99" RANGE 0,79
  30. @ 05,59 GET M->shadow PICT "Y"
  31. @ 05,67 GET M->explode PICT '9'
  32. READ
  33.  
  34. IF Lastkey() != esc .AND. Updated()
  35.    IF Scr_file->Scrn_name != M->scrn_name
  36.       Sayhelp('Updating GETS...')
  37.       SELECT Scrngets
  38.       SEEK Scr_file->Scrn_name
  39.       DO WHILE Scrn_name == Scr_file->Scrn_name .AND. ! Eof()
  40.          REPL Scrn_name WITH M->scrn_name
  41.          SKIP
  42.       ENDDO
  43.       SELECT Scr_file
  44.    ENDIF                                         && IF Scr_file->Scrn_name != M->scrn_name
  45.    top = M->st
  46.    left = M->sl
  47.    bottom = M->sb
  48.    right = M->sr
  49.    DO SwapChk
  50.    st = top
  51.    sl = left
  52.    sb = bottom
  53.    sr = right
  54.    Automem('REPL')
  55. ENDIF                                            && IF Lastkey() != esc .AND. Updated()
  56. Setcolor(oldcolor)
  57. Restscreen(1,0,24,79,buffer1)
  58. RETURN
  59. * EOF: Memsedit.prg
  60.