21 Jun 95 12:05, Gary Major escrib¡a a Jose Mejuto:
Hola Gary!
 >> %AX=1
 >> Function GetErrorLevel as INTEGER
 >> Reg %AX,&H4D00
 >> Call Interrupt &h21
 >> GetErrorLevel=Reg(%AX) And &HFF
 >> End Function
 >> -+--+--+--+--+--+--+---==<( Cut Here
 >> )> ==-+--+--+--+--+--+--+--+--+--+--+-
 GM> Thanks for the code, however When I try to use it it still reports
 GM> errorlevel 0 and nothing else,  perhaps I am implementing it wrong,
 GM> could you post a little code using a shell command with pkzip that
 GM> works please?
 That's right. I was tested the program on my system and works fine :-? Later 
I have found that this problem is a MSDOS bug, not present in PCDOS, Novell 
DOS and DRDOS, and patched installing 4DOS command processor. When PB read 
the errorlevel value, MSDOS clears it! :-( You can solve this problem using 
the code posted by other guy in this area, or using the advanced shell that I 
was sent to your system few days ago.
Saludotes,
       ,,,   JOS (2:348/102)
      `0-0'  jmejuto@encomix.com
     /-(_)-\ mejuto@sfdzuma.usc.es
--- FD2.12+ & GoldED2.50+ & FE141+
---------------