!Zip/!Run

Home » Archimedes archive » Acorn User » AU 1995-01.adf » !Adventure_Advent » !Zip/!Run

!Zip/!Run

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 1995-01.adf » !Adventure_Advent
Filename:	!Zip/!Run
Read OK:	✔
File size:	0323 bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Archimedes archive » Acorn User » AU 1995-01.adf » !Adventure_Advent » !Zip/!Run
Archimedes archive » Acorn User » AU 1994-08.adf » !Adventure_Adventure » !Zip/!Run

|
| !Run file for Edouard Poor's port of Mark Howell's ZIP
| ======================================================

|
| First set our path variable so that all
| file actions prefromed by the application
| may use Zip:* style filenames.
|
Set Zip$Path <Obey$Dir>.

|
| Secondly set up the file vars so that we
| are automatically called when a file is
| double-clicked, as well as calling filetype
| 0x061 'Z-Code'
|
Set File$Type_061 Z-Code
Set Alias$@RunType_061 Run Zip:!Run %%*0

|
| Next, make sure that the appropriate
| file sprites have been loaded (in case
| we are run off a hot-key and the !boot
| hasn't been run yet.
|
IconSprites Zip:!Sprites

|
| Finally, set the wimp slot to an appropriate
| value and launch the executable.
|
Wimpslot -Min 128k -Max 176k
Run <Obey$Dir>.!RunImage %*0

00000000  7c 0a 7c 20 21 52 75 6e  20 66 69 6c 65 20 66 6f  ||.| !Run file fo|
00000010  72 20 45 64 6f 75 61 72  64 20 50 6f 6f 72 27 73  |r Edouard Poor's|
00000020  20 70 6f 72 74 20 6f 66  20 4d 61 72 6b 20 48 6f  | port of Mark Ho|
00000030  77 65 6c 6c 27 73 20 5a  49 50 0a 7c 20 3d 3d 3d  |well's ZIP.| ===|
00000040  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000070  3d 3d 3d 0a 0a 7c 0a 7c  20 46 69 72 73 74 20 73  |===..|.| First s|
00000080  65 74 20 6f 75 72 20 70  61 74 68 20 76 61 72 69  |et our path vari|
00000090  61 62 6c 65 20 73 6f 20  74 68 61 74 20 61 6c 6c  |able so that all|
000000a0  0a 7c 20 66 69 6c 65 20  61 63 74 69 6f 6e 73 20  |.| file actions |
000000b0  70 72 65 66 72 6f 6d 65  64 20 62 79 20 74 68 65  |prefromed by the|
000000c0  20 61 70 70 6c 69 63 61  74 69 6f 6e 0a 7c 20 6d  | application.| m|
000000d0  61 79 20 75 73 65 20 5a  69 70 3a 2a 20 73 74 79  |ay use Zip:* sty|
000000e0  6c 65 20 66 69 6c 65 6e  61 6d 65 73 2e 0a 7c 0a  |le filenames..|.|
000000f0  53 65 74 20 5a 69 70 24  50 61 74 68 20 3c 4f 62  |Set Zip$Path <Ob|
00000100  65 79 24 44 69 72 3e 2e  0a 0a 7c 0a 7c 20 53 65  |ey$Dir>...|.| Se|
00000110  63 6f 6e 64 6c 79 20 73  65 74 20 75 70 20 74 68  |condly set up th|
00000120  65 20 66 69 6c 65 20 76  61 72 73 20 73 6f 20 74  |e file vars so t|
00000130  68 61 74 20 77 65 0a 7c  20 61 72 65 20 61 75 74  |hat we.| are aut|
00000140  6f 6d 61 74 69 63 61 6c  6c 79 20 63 61 6c 6c 65  |omatically calle|
00000150  64 20 77 68 65 6e 20 61  20 66 69 6c 65 20 69 73  |d when a file is|
00000160  0a 7c 20 64 6f 75 62 6c  65 2d 63 6c 69 63 6b 65  |.| double-clicke|
00000170  64 2c 20 61 73 20 77 65  6c 6c 20 61 73 20 63 61  |d, as well as ca|
00000180  6c 6c 69 6e 67 20 66 69  6c 65 74 79 70 65 0a 7c  |lling filetype.||
00000190  20 30 78 30 36 31 20 27  5a 2d 43 6f 64 65 27 0a  | 0x061 'Z-Code'.|
000001a0  7c 0a 53 65 74 20 46 69  6c 65 24 54 79 70 65 5f  ||.Set File$Type_|
000001b0  30 36 31 20 5a 2d 43 6f  64 65 0a 53 65 74 20 41  |061 Z-Code.Set A|
000001c0  6c 69 61 73 24 40 52 75  6e 54 79 70 65 5f 30 36  |lias$@RunType_06|
000001d0  31 20 52 75 6e 20 5a 69  70 3a 21 52 75 6e 20 25  |1 Run Zip:!Run %|
000001e0  25 2a 30 0a 0a 7c 0a 7c  20 4e 65 78 74 2c 20 6d  |%*0..|.| Next, m|
000001f0  61 6b 65 20 73 75 72 65  20 74 68 61 74 20 74 68  |ake sure that th|
00000200  65 20 61 70 70 72 6f 70  72 69 61 74 65 0a 7c 20  |e appropriate.| |
00000210  66 69 6c 65 20 73 70 72  69 74 65 73 20 68 61 76  |file sprites hav|
00000220  65 20 62 65 65 6e 20 6c  6f 61 64 65 64 20 28 69  |e been loaded (i|
00000230  6e 20 63 61 73 65 0a 7c  20 77 65 20 61 72 65 20  |n case.| we are |
00000240  72 75 6e 20 6f 66 66 20  61 20 68 6f 74 2d 6b 65  |run off a hot-ke|
00000250  79 20 61 6e 64 20 74 68  65 20 21 62 6f 6f 74 0a  |y and the !boot.|
00000260  7c 20 68 61 73 6e 27 74  20 62 65 65 6e 20 72 75  || hasn't been ru|
00000270  6e 20 79 65 74 2e 0a 7c  0a 49 63 6f 6e 53 70 72  |n yet..|.IconSpr|
00000280  69 74 65 73 20 5a 69 70  3a 21 53 70 72 69 74 65  |ites Zip:!Sprite|
00000290  73 0a 0a 7c 0a 7c 20 46  69 6e 61 6c 6c 79 2c 20  |s..|.| Finally, |
000002a0  73 65 74 20 74 68 65 20  77 69 6d 70 20 73 6c 6f  |set the wimp slo|
000002b0  74 20 74 6f 20 61 6e 20  61 70 70 72 6f 70 72 69  |t to an appropri|
000002c0  61 74 65 0a 7c 20 76 61  6c 75 65 20 61 6e 64 20  |ate.| value and |
000002d0  6c 61 75 6e 63 68 20 74  68 65 20 65 78 65 63 75  |launch the execu|
000002e0  74 61 62 6c 65 2e 0a 7c  0a 57 69 6d 70 73 6c 6f  |table..|.Wimpslo|
000002f0  74 20 2d 4d 69 6e 20 31  32 38 6b 20 2d 4d 61 78  |t -Min 128k -Max|
00000300  20 31 37 36 6b 0a 52 75  6e 20 3c 4f 62 65 79 24  | 176k.Run <Obey$|
00000310  44 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 20 25  |Dir>.!RunImage %|
00000320  2a 30 0a                                          |*0.|
00000323

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .