'**************************************
'                                     *
'     IntuiExtend.Lib 2.0/@1995-98    *
'                                     *
'          by CIERP Philippe.         *
'                                     *
'          from AMIGAzette 83         *
'                                     *
'**************************************
'
' Command
'  -Pp Decrunch
'  -Pp Start 
'  -Pp Len 
'  -Pp Free  
'
'Exemple des fichier crypté
A$=Fsel$("")
'
'Decrunch sans encryptage (-1) 
A=Pp Decrunch(A$,0,-1)
'
'Fichier encrypté=-4 
If A=-4
   Amos To Back 
   'Decrunch avec demande du mot de passe 
   A=Pp Decrunch(A$,0,0)
   Print "Flag:";A
   Amos To Front 
End If 
'
Print "Pp Start:";Hex$(Pp Start)
Print "Pp Len:";Pp Len
'
'Libere la memoire SEULEMENT si le fichier a été chargé
If Pp Len>0
   Pp Free 
End If