home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1992-03-02 | 1.0 KB | 47 lines |
- '***************************************************************
- '* 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= Extension_5_00E4(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