home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / SCRNUZ / MEMGETS.PRG < prev    next >
Text File  |  1992-04-29  |  3KB  |  96 lines
  1. *.............................................................................
  2. *
  3. *   Program Name: MEMGETS.PRG       Copyright: EDON Corporation
  4. *   Date Created: 02/25/91           Language: Clipper S'87
  5. *   Time Created: 09:28:31             Author: Ed Phillips
  6. *           Desc: GET processing for memscrn.prg
  7. *.............................................................................
  8.  
  9. PRIVATE oldcolor,gscrn
  10.  
  11. gscrn = Savescreen(1,0,24,79)
  12.  
  13. SELECT ScrnGets
  14. CLOSE INDEX
  15. SET INDEX TO Scrngets
  16. *SET ORDER TO 2
  17. SEEK Scr_file->Scrn_name+Str(r,2)+Str(c,2)
  18.  
  19. IF Found()
  20.    Automem('STUP')
  21.    mode = 'EDIT'
  22. ELSE
  23. *   Automem('INIT')
  24.    scrn_name = M->memfile
  25. *   g_var = "M->"+Space(10)
  26.    IF Empty(M->g_var)
  27.       g_var = "M->m"+Space(9)
  28.       gs_flag = 'B'
  29.    ELSE
  30.       g_var = GasPad(M->g_var, 13)
  31.    ENDIF                                         && IF Empty(g_var)
  32.    g_row = r
  33.    g_col = c
  34. *   gs_flag = 'B'
  35.    mode = 'ADD'
  36. ENDIF                                            && IF Found()
  37.  
  38. SET SCOREBOARD OFF
  39. oldcolor = Setcolor(c_statln1)
  40. Shadow(5,7,21,69)
  41. Scroll(5,7,21,69,0)
  42. Setcolor(c_error)
  43. @ 5,7 SAY Replicate(Chr(176),63)
  44. @ 5,28 SAY ' "GET" Specification '
  45. @ 21,7 SAY Replicate(Chr(176),63)
  46. Setcolor(c_field)
  47.  
  48. @ 7,15 SAY 'Variable name:'
  49. @ 9,15 SAY '"GET" Picture:'
  50. @ 10,17 SAY '"GET" Color:'
  51. @ 11,09 SAY 'PreCondition Clause:'
  52. @ 12,08 SAY 'PostCondition Clause:'
  53. @ 14,11 SAY '"SAY" Expression:'
  54. @ 15,14 SAY '"SAY" Picture:'
  55. @ 16,16 SAY '"SAY" Color:'
  56. @ 18,13 SAY '"GET-SAY" Flag:'
  57. @ 19,15 SAY '(B - both get and say, G - get only, S - say only)'
  58.  
  59. @ 7,30 GET M->g_var PICT '@K XXXXXXXXXXXXX'
  60. @ 9,30 GET M->g_pic
  61. @ 10,30 GET M->g_color
  62. @ 11,30 GET M->g_when
  63. @ 12,30 GET M->g_valid
  64. @ 14,29 GET M->say_exp
  65. @ 15,29 GET M->say_pict
  66. @ 16,29 GET M->say_color
  67. @ 18,29 GET M->gs_flag PICT '!' VALID M->gs_flag $ 'BGS'
  68. KEYBOARD Chr(rtarrow)+Chr(rtarrow)+Chr(rtarrow)+Chr(rtarrow)
  69. READ
  70.  
  71. SET SCOREBOARD ON
  72. Restscreen(1,0,24,79,gscrn)
  73.  
  74. IF Lastkey() != 27 .AND. Updated()
  75.    g_var = Trim(M->g_var)
  76.    IF ! Empty(M->g_var) .AND. !(M->g_var == "M->")
  77.  
  78.       IF mode = 'ADD'
  79.          APPEND BLANK
  80.       ENDIF                                      && IF mode = 'ADD'
  81.  
  82.       Automem('REPL')
  83.       Setcolor(oldcolor)
  84.       @ G_row, G_col SAY gchar
  85.  
  86.    ENDIF                                         && IF ! Empty(M->g_var)
  87. ENDIF                                            && IF Lastkey() != 27 .AND. Updated()
  88. *SET ORDER TO 1
  89. CLOSE INDEX
  90. SET INDEX TO Sgets, Scrngets
  91. REINDEX
  92. SELECT Scr_file
  93. Setcolor(oldcolor)
  94. RETURN
  95. * EOF: MEMGETS.PRG
  96.