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