From: pthornton@sawasdi.apana.org.au (Philip Thornton)
Message  Skip Gore (3:800/846.13) wrote to All:
SG> Error   185  (12,50)    'endif' keyword expected.
SG> However, there seems to be no need for an endif statement where
SG> indicated:
SG> snip===============================================================s
SG> nip proc Main()
SG> lFind("get [a-zA-Z0-9\d045\d095]#\.zip", "x")
SG> Right(5)
SG> PushPosition()
SG> PlaceMark("z")
SG> lFind(".zip", "i")
SG> InsertText(" ")
SG> GotoMark("z")
SG> UnmarkBlock()
SG> MarkWord()
SG> If FileExists("d:\books\"+GetMarkedText()+".zip"))
SG> Message("Book exists")
SG> else
SG> Dos("copy d:\"+GetMarkedText()+".zip e:\", _DONT_PROMPT_))
SG> Dos("mpack -o "+GetMarkedText()+".txt
SG> -s"+GetMarkedText()+".zip"+GetMarkedText()+".zip")))
SG> endif
SG> endif
SG> end
SG> snip===============================================================s
SG> nip
SG> Can anyone tell me why?
Too many closing brackets... try
proc Main()
lFind("get [a-zA-Z0-9\d045\d095]#\.zip", "x")
Right(5)
PushPosition()
PlaceMark("z")
lFind(".zip", "i")
InsertText(" ")
GotoMark("z")
UnmarkBlock()
MarkWord()
If FileExists("d:\books\"+GetMarkedText()+".zip")
Message("Book exists")
else
Dos("copy d:\"+GetMarkedText()+".zip e:\", _DONT_PROMPT_)
Dos("mpack -o "+GetMarkedText()+".txt 
-s"+GetMarkedText()+".zip"+GetMarkedText()+".zip")
endif
end
fidonet Philip Thornton 3:800/846 files to files@sawasdi.apana.org.au
Requests to ftpmail@sawasdi.apana.org.au email pthornton@sawasdi.apana.org.au
Philip Thornton sysop Sawasdi BBS. pgp ring pgp-pubring@sawasdi.apana.org.au
---
---------------