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 >
Wrap
Text File
|
1992-04-29
|
3KB
|
96 lines
*.............................................................................
*
* Program Name: MEMGETS.PRG Copyright: EDON Corporation
* Date Created: 02/25/91 Language: Clipper S'87
* Time Created: 09:28:31 Author: Ed Phillips
* Desc: GET processing for memscrn.prg
*.............................................................................
PRIVATE oldcolor,gscrn
gscrn = Savescreen(1,0,24,79)
SELECT ScrnGets
CLOSE INDEX
SET INDEX TO Scrngets
*SET ORDER TO 2
SEEK Scr_file->Scrn_name+Str(r,2)+Str(c,2)
IF Found()
Automem('STUP')
mode = 'EDIT'
ELSE
* Automem('INIT')
scrn_name = M->memfile
* g_var = "M->"+Space(10)
IF Empty(M->g_var)
g_var = "M->m"+Space(9)
gs_flag = 'B'
ELSE
g_var = GasPad(M->g_var, 13)
ENDIF && IF Empty(g_var)
g_row = r
g_col = c
* gs_flag = 'B'
mode = 'ADD'
ENDIF && IF Found()
SET SCOREBOARD OFF
oldcolor = Setcolor(c_statln1)
Shadow(5,7,21,69)
Scroll(5,7,21,69,0)
Setcolor(c_error)
@ 5,7 SAY Replicate(Chr(176),63)
@ 5,28 SAY ' "GET" Specification '
@ 21,7 SAY Replicate(Chr(176),63)
Setcolor(c_field)
@ 7,15 SAY 'Variable name:'
@ 9,15 SAY '"GET" Picture:'
@ 10,17 SAY '"GET" Color:'
@ 11,09 SAY 'PreCondition Clause:'
@ 12,08 SAY 'PostCondition Clause:'
@ 14,11 SAY '"SAY" Expression:'
@ 15,14 SAY '"SAY" Picture:'
@ 16,16 SAY '"SAY" Color:'
@ 18,13 SAY '"GET-SAY" Flag:'
@ 19,15 SAY '(B - both get and say, G - get only, S - say only)'
@ 7,30 GET M->g_var PICT '@K XXXXXXXXXXXXX'
@ 9,30 GET M->g_pic
@ 10,30 GET M->g_color
@ 11,30 GET M->g_when
@ 12,30 GET M->g_valid
@ 14,29 GET M->say_exp
@ 15,29 GET M->say_pict
@ 16,29 GET M->say_color
@ 18,29 GET M->gs_flag PICT '!' VALID M->gs_flag $ 'BGS'
KEYBOARD Chr(rtarrow)+Chr(rtarrow)+Chr(rtarrow)+Chr(rtarrow)
READ
SET SCOREBOARD ON
Restscreen(1,0,24,79,gscrn)
IF Lastkey() != 27 .AND. Updated()
g_var = Trim(M->g_var)
IF ! Empty(M->g_var) .AND. !(M->g_var == "M->")
IF mode = 'ADD'
APPEND BLANK
ENDIF && IF mode = 'ADD'
Automem('REPL')
Setcolor(oldcolor)
@ G_row, G_col SAY gchar
ENDIF && IF ! Empty(M->g_var)
ENDIF && IF Lastkey() != 27 .AND. Updated()
*SET ORDER TO 1
CLOSE INDEX
SET INDEX TO Sgets, Scrngets
REINDEX
SELECT Scr_file
Setcolor(oldcolor)
RETURN
* EOF: MEMGETS.PRG