'*************************************************************** 
'*                          UnPack.AMOS                        * 
'*                   ©1992 by Volker Stepprath                 * 
'*  Decrunches a datafile which was packed with Squash before  * 
'*************************************************************** 
'
'**** Choose a packed file ****
'
FILE$=Fsel$("","","Please choose a file to unpack !","")
'
If FILE$<>""
  '
  '**** Get large of file **** 
  '
  Open In 1,FILE$
    L=Lof(1)
  Close 1
  '
  '**** Reserve MORE memory then enough **** 
  '
  Reserve As Work 7,200000
  '
  '**** Load packed file ****
  '
  Bload FILE$,7
  '
  '**** Unpack file **** 
  '
  Print "Unpacking "+FILE$+" ..."
  C=Unsquash(Start(7),L)
  Print "Unpacked length:"+Str$(C)+" bytes !"
  '
  '**** Write unpacked file back ****
  '
  FILE$=Fsel$("","","Please choose file to write back","the unpacked datas !")
  If FILE$<>""
    Bsave FILE$,Start(7) To Start(7)+C
  End If 
  '
  '**** Erase reserved memory **** 
  '
  Erase 7
  '
End If 
'
Wait 50
Edit