home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
ags
/
cvwmac.prg
< prev
next >
Wrap
Text File
|
1988-05-03
|
773b
|
39 lines
* Command file CVWMAC
* WPS Conv Selection File
* RL Coppedge
* 14 Mar 88
* V 2.10
DO CASE
CASE Wcnt = 1
N = 1
SET COLOR TO W
DO WHILE N<=Dbtrm
Nn = LTRIM(STR(N))
XXX = Va_nme&nn
&XXX
N = N+1
ENDDO
CASE Wcnt = 2
IF Val(snm)>0 .and. VAL(Snm)<Dbtrm
SET COLOR TO W
IF Ch_flag&Snm
SET COLOR TO B+
ENDIF
Lin =Va_nme&snm
&lin
ENDIF
CASE Wcnt = 3
IF Ch_flag&Snm
Ch_flag&Snm = .F.
ELSE
Ch_flag&Snm = .T.
ENDIF
CASE Wcnt = 4
IF Val(snm)>0 .and. VAL(Snm)<Dbtrm
SET COLOR TO W
Lin =Va_nme&snm
&lin
ENDIF
ENDCASE
RETURN