Home » Archimedes archive » Acorn User » AU 1998-10.adf » Features » DesktopPD/WimpBar2/!WimpBar2/Macros/UnzipIt

DesktopPD/WimpBar2/!WimpBar2/Macros/UnzipIt

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1998-10.adf » Features
Filename: DesktopPD/WimpBar2/!WimpBar2/Macros/UnzipIt
Read OK:
File size: 00DD bytes
Load address: 0000
Exec address: 0000
File contents
|
| Unzip the Zipfile dragged to WimpBar2 into it's parent directory
|
Set Alias$TempPrefix Prefix 
RmEnsure DDEUtils 0 Set Alias$TempPrefix Dir 

Echo Unzipping '%0'...
TempPrefix %1
Unzip -q %0

RmEnsure DDEUtils 0 Back
00000000  7c 0a 7c 20 55 6e 7a 69  70 20 74 68 65 20 5a 69  ||.| Unzip the Zi|
00000010  70 66 69 6c 65 20 64 72  61 67 67 65 64 20 74 6f  |pfile dragged to|
00000020  20 57 69 6d 70 42 61 72  32 20 69 6e 74 6f 20 69  | WimpBar2 into i|
00000030  74 27 73 20 70 61 72 65  6e 74 20 64 69 72 65 63  |t's parent direc|
00000040  74 6f 72 79 0a 7c 0a 53  65 74 20 41 6c 69 61 73  |tory.|.Set Alias|
00000050  24 54 65 6d 70 50 72 65  66 69 78 20 50 72 65 66  |$TempPrefix Pref|
00000060  69 78 20 0a 52 6d 45 6e  73 75 72 65 20 44 44 45  |ix .RmEnsure DDE|
00000070  55 74 69 6c 73 20 30 20  53 65 74 20 41 6c 69 61  |Utils 0 Set Alia|
00000080  73 24 54 65 6d 70 50 72  65 66 69 78 20 44 69 72  |s$TempPrefix Dir|
00000090  20 0a 0a 45 63 68 6f 20  55 6e 7a 69 70 70 69 6e  | ..Echo Unzippin|
000000a0  67 20 27 25 30 27 2e 2e  2e 0a 54 65 6d 70 50 72  |g '%0'....TempPr|
000000b0  65 66 69 78 20 25 31 0a  55 6e 7a 69 70 20 2d 71  |efix %1.Unzip -q|
000000c0  20 25 30 0a 0a 52 6d 45  6e 73 75 72 65 20 44 44  | %0..RmEnsure DD|
000000d0  45 55 74 69 6c 73 20 30  20 42 61 63 6b           |EUtils 0 Back|
000000dd