Home » Archimedes archive » Acorn User » AU 1998-10.adf » Features » DesktopPD/WimpBar2/!WimpBar2/Macros/ZipIt
DesktopPD/WimpBar2/!WimpBar2/Macros/ZipIt
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/ZipIt |
| Read OK: | ✔ |
| File size: | 01BD bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| | Macro to create a Zipfile of the object dragged to WimpBar | Requires the 'Zip' executable to be in your library directory. | Set Alias$TempPrefix Prefix RmEnsure DDEUtils 0 Set Alias$TempPrefix Dir Echo Zipping '%0'... TempPrefix %1 Zip -7Irq -b <Wimp$ScrapDir> Zip%0 %0 If Sys$ReturnCode = 0 Then Echo Testing... If Sys$ReturnCode = 0 Then Zip -qT %1.Zip%0 If Sys$ReturnCode = 0 Then Echo OK. Else Echo Failed. RmEnsure DDEUtils 0 Back
00000000 7c 0a 7c 20 4d 61 63 72 6f 20 74 6f 20 63 72 65 ||.| Macro to cre| 00000010 61 74 65 20 61 20 5a 69 70 66 69 6c 65 20 6f 66 |ate a Zipfile of| 00000020 20 74 68 65 20 6f 62 6a 65 63 74 20 64 72 61 67 | the object drag| 00000030 67 65 64 20 74 6f 20 57 69 6d 70 42 61 72 0a 7c |ged to WimpBar.|| 00000040 20 52 65 71 75 69 72 65 73 20 74 68 65 20 27 5a | Requires the 'Z| 00000050 69 70 27 20 65 78 65 63 75 74 61 62 6c 65 20 74 |ip' executable t| 00000060 6f 20 62 65 20 69 6e 20 79 6f 75 72 20 6c 69 62 |o be in your lib| 00000070 72 61 72 79 20 64 69 72 65 63 74 6f 72 79 2e 0a |rary directory..| 00000080 7c 0a 53 65 74 20 41 6c 69 61 73 24 54 65 6d 70 ||.Set Alias$Temp| 00000090 50 72 65 66 69 78 20 50 72 65 66 69 78 20 0a 52 |Prefix Prefix .R| 000000a0 6d 45 6e 73 75 72 65 20 44 44 45 55 74 69 6c 73 |mEnsure DDEUtils| 000000b0 20 30 20 53 65 74 20 41 6c 69 61 73 24 54 65 6d | 0 Set Alias$Tem| 000000c0 70 50 72 65 66 69 78 20 44 69 72 20 0a 0a 45 63 |pPrefix Dir ..Ec| 000000d0 68 6f 20 5a 69 70 70 69 6e 67 20 27 25 30 27 2e |ho Zipping '%0'.| 000000e0 2e 2e 0a 54 65 6d 70 50 72 65 66 69 78 20 25 31 |...TempPrefix %1| 000000f0 0a 5a 69 70 20 2d 37 49 72 71 20 2d 62 20 3c 57 |.Zip -7Irq -b <W| 00000100 69 6d 70 24 53 63 72 61 70 44 69 72 3e 20 5a 69 |imp$ScrapDir> Zi| 00000110 70 25 30 20 25 30 0a 49 66 20 53 79 73 24 52 65 |p%0 %0.If Sys$Re| 00000120 74 75 72 6e 43 6f 64 65 20 3d 20 30 20 54 68 65 |turnCode = 0 The| 00000130 6e 20 45 63 68 6f 20 54 65 73 74 69 6e 67 2e 2e |n Echo Testing..| 00000140 2e 0a 49 66 20 53 79 73 24 52 65 74 75 72 6e 43 |..If Sys$ReturnC| 00000150 6f 64 65 20 3d 20 30 20 54 68 65 6e 20 5a 69 70 |ode = 0 Then Zip| 00000160 20 2d 71 54 20 25 31 2e 5a 69 70 25 30 0a 49 66 | -qT %1.Zip%0.If| 00000170 20 53 79 73 24 52 65 74 75 72 6e 43 6f 64 65 20 | Sys$ReturnCode | 00000180 3d 20 30 20 54 68 65 6e 20 45 63 68 6f 20 4f 4b |= 0 Then Echo OK| 00000190 2e 20 45 6c 73 65 20 45 63 68 6f 20 46 61 69 6c |. Else Echo Fail| 000001a0 65 64 2e 0a 0a 52 6d 45 6e 73 75 72 65 20 44 44 |ed...RmEnsure DD| 000001b0 45 55 74 69 6c 73 20 30 20 42 61 63 6b |EUtils 0 Back| 000001bd
.