home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Beter Homes & Gardens: Complete Guide to Gardening
/
GARDENS.BIN
/
gardens
/
pstdis
/
pstvarbl.fxp
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1994-04-02
|
3KB
|
50 lines
d:\grdncd\gardens\pstdis\pstdis.dbf
d:\grdncd\gardens\F
\pstdis\
pstdis.var
filename
@total
@list
d:\grdncd\gardens\F
\pstdis\
pstdis.var
filename
@name[
@image[
@dir[
@total
f not crNAME
INDEX
le =HANDLE
ileSAVSECTIONSECTION
peLIST
/writFILENAME
STRPTR
ONIMAGES
TE(DIR
) &SAVNAME
crSAVIMAGES
SAVDIR
SAVSECT
x AKA
avWRITE_VAR
d:\grdncd\gardens\F
\pstdis\
filename
@name
@image[
@image[
@images
FILENAME
rSAVSECT
SAVDIR
e =HANDLE
eSAVNAME
peINDEX
ritSTRPTR
SAVIMAGES
WRITE_VAR
d:\grdncd\gardens\pstdis\
pstvarbl.fxp
d:\grdncd\gardens\pstdis\pstvarbl.prg