12/12/2006


THJDS S DJFKDFJKDFj kjdfsadf safd hdsa
as fsadf asfd a,sfdn ,safnadsf


12/12/2007
MakeDirectory ORTHOPATH & "Wordfiles"
ORTHOPATH &= "Wordfiles\"&ptnobuf
MakeDirectory ORTHOPATH


FileOpen vFile,StreamCreate,hnd
FileDelimiters Hnd,-1,""
FilePrint Hnd,ORTHOPATH |line 1
FilePrint Hnd,ptnobuf |Line2
FilePrint Hnd,"*.TIF;*.JPG;*.BMP" |Itype line3
FilePrint Hnd,"S" |Line 4
FilePrint Hnd,Xpath |line 5
FilePrint Hnd,"*.TIF;*.JPG;*.BMP" | Xtype Line 6
if LWpool1 then
FilePrint Hnd,"Pool1" |Ipattern Line 7
elseif LWpool2 then
FilePrint Hnd,"Pool2" |Ipattern Line 7
else
FilePrint Hnd,"V" |Ipattern Line 7
endif

FilePrint Hnd,Ipath&"DOCS" |docs path Line 8
FilePrint Hnd,"*.TIF;*.JPG;*.BMP" |DOCS Line 9
FilePrint Hnd,"D" |docs Line 10
FilePrint Hnd,Iperrow
FilePrint Hnd,ptnamebuf
FilePrint Hnd,"N"
FilePrint Hnd, LetterRef
FilePrint Hnd,Wmemo

FileClose Hnd

execute Task "c:\vb\ctsword.exe"