> %AX=1
 > Function GetErrorLevel as INTEGER
 >          Reg %AX,&H4D00
 >          Call Interrupt &h21
 >          GetErrorLevel=Reg(%AX) And &HFF
 > End Function
 > -----------------------====---------------------------------
Thanks for the code, however When I try to use it it still reports errorlevel 
0 and nothing else,  perhaps I am implementing it wrong, could you post a 
little code using a shell command with pkzip that works please?
Thanks Gary
--- FMail/386 0.98a
---------------