set f=d:\rosetta\tmp\img5

rem Create Listing file
:tclsh83 Browse.tcl list %f%.dat > %f%.lst

rem Unpack uncompressed raw image
:tclsh83.exe Browse.tcl unpack -file %f%.dat -out %f%-1.raw -format raw
:tclsh83.exe Browse.tcl unpack -file %f%.dat -out %f%-1.afl -format astro

rem Uncompress image
tclsh83 Browse.tcl uncompress -file %f%.dat -out %f% -format astro
