home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMFIND.PRG < prev    next >
Text File  |  1991-12-13  |  2KB  |  66 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: MEMFIND.PRG       Copyright: EDON Corporation
  4. *   Date Created: 02/25/91           Language: Clipper S'87
  5. *   Time Created: 14:43:16             Author: Ed Phillips
  6. *           Desc:
  7. *.............................................................................
  8.  
  9. PRIVATE expr, recno, btit, btit1, bz_seek, ikey, bz_1key, oldcolor
  10.  
  11. IF changed
  12.    DO AskToSave
  13. ENDIF                                            && IF changed
  14.  
  15. bz_1key = .t.
  16. bz_seek = 'Gen_seek'
  17. ikey = 1
  18.         * 1         2         3         4         5         6
  19.         *9012345678901234567890123456789012345678901234567890123
  20. btit =  '          SCREENS DATA BASE "BROWSE" SCREEN            '
  21. btit1 = ' Scrn Name   Top  Left  Bottom  Right  Shadow  Explode '
  22. *          cccccccccc  nn    nn     nn     nn      y       n
  23. *         ......................................................
  24. expr = "Scrn_name+Space(2)+Str(St,2)+Space(4)+Str(Sl,2)+Space(5)+Str(Sb,2)+Space(5)+Str(Sr,2)"
  25. expr = expr+"+Space(6)+Transform(Shadow,'Y')+Space(7)+Transform(Explode,'9')"
  26. oldcolor = Setcolor(c_error)
  27. Shadow(1,9,22,63)
  28. @ 1,9 SAY btit
  29. @ 2,9 SAY btit1
  30. Setcolor(c_pop)
  31. recno = Recno()
  32. Browze_dbf(expr,3,9,22,63)
  33. IF Lastkey() = 27
  34.    GO recno
  35. ENDIF                                            && IF Lastkey() = 27
  36.  
  37. Setcolor(c_default)
  38. Scroll(1,0,24,79,0)
  39. Setcolor(oldcolor)
  40.  
  41. memscrn = Screen
  42. st = St
  43. sl = Sl
  44. sb = Sb
  45. sr = Sr
  46. Restscreen(M->st,M->sl,M->sb,M->sr,memscrn)
  47. RestGets()
  48. RestMenu()
  49. KEYBOARD Chr(1)
  50. RETURN
  51.  
  52. *----------------------------
  53. *         Author: Ed Phillips
  54. *   Date Created: 10/29/90
  55. *   Time Created: 10:30:06
  56. *----------------------------
  57. PROCEDURE Gen_seek
  58.    SET SOFTSEEK ON
  59.    SEEK Upper(Chr(key))
  60.    SET SOFTSEEK OFF
  61.    IF Eof()
  62.       GO BOTTOM
  63.    ENDIF                                         && IF Eof()
  64. RETURN
  65. * EOF: MEMFIND.PRG
  66.