Home » Archimedes archive » Acorn User » AU 1998-05 A.adf » Freeware » multi/!Multishow/!Run

multi/!Multishow/!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 1998-05 A.adf » Freeware
Filename: multi/!Multishow/!Run
Read OK:
File size: 0287 bytes
Load address: 0000
Exec address: 0000
File contents
|
| !Run file for !Multishow
|
| This program will only work on RiscOS 3.50 and above.
|
IconSprites <Obey$Dir>.!Sprites

RMEnsure UtilityModule 3.50 Error This application can only be used on RiscOS 3.5 and above. Sorry.

*set Scrap$Dir <wimp$scrapdir>

if "<WBModules$Dir>" = "" then error Please locate !WBModules and try again. A copy can be found in the demos section at http::/www.stcoll.ac.uk/clares/

RmEnsure WimpBasic 1.10 RMLoad <WBModules$Dir>.WBmodule
RmEnsure WimpBasic 1.10 Error Run time module version 1.10 not found!

Set MultiShow$Dir <Obey$Dir>
WimpSlot -Min 28K -Max 28K
<MultiShow$Dir>.wblinker <MultiShow$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 21 4d 75 6c 74 69  73 68 6f 77 0a 7c 0a 7c  |r !Multishow.|.||
00000020  20 54 68 69 73 20 70 72  6f 67 72 61 6d 20 77 69  | This program wi|
00000030  6c 6c 20 6f 6e 6c 79 20  77 6f 72 6b 20 6f 6e 20  |ll only work on |
00000040  52 69 73 63 4f 53 20 33  2e 35 30 20 61 6e 64 20  |RiscOS 3.50 and |
00000050  61 62 6f 76 65 2e 0a 7c  0a 49 63 6f 6e 53 70 72  |above..|.IconSpr|
00000060  69 74 65 73 20 3c 4f 62  65 79 24 44 69 72 3e 2e  |ites <Obey$Dir>.|
00000070  21 53 70 72 69 74 65 73  0a 0a 52 4d 45 6e 73 75  |!Sprites..RMEnsu|
00000080  72 65 20 55 74 69 6c 69  74 79 4d 6f 64 75 6c 65  |re UtilityModule|
00000090  20 33 2e 35 30 20 45 72  72 6f 72 20 54 68 69 73  | 3.50 Error This|
000000a0  20 61 70 70 6c 69 63 61  74 69 6f 6e 20 63 61 6e  | application can|
000000b0  20 6f 6e 6c 79 20 62 65  20 75 73 65 64 20 6f 6e  | only be used on|
000000c0  20 52 69 73 63 4f 53 20  33 2e 35 20 61 6e 64 20  | RiscOS 3.5 and |
000000d0  61 62 6f 76 65 2e 20 53  6f 72 72 79 2e 0a 0a 2a  |above. Sorry...*|
000000e0  73 65 74 20 53 63 72 61  70 24 44 69 72 20 3c 77  |set Scrap$Dir <w|
000000f0  69 6d 70 24 73 63 72 61  70 64 69 72 3e 0a 0a 69  |imp$scrapdir>..i|
00000100  66 20 22 3c 57 42 4d 6f  64 75 6c 65 73 24 44 69  |f "<WBModules$Di|
00000110  72 3e 22 20 3d 20 22 22  20 74 68 65 6e 20 65 72  |r>" = "" then er|
00000120  72 6f 72 20 50 6c 65 61  73 65 20 6c 6f 63 61 74  |ror Please locat|
00000130  65 20 21 57 42 4d 6f 64  75 6c 65 73 20 61 6e 64  |e !WBModules and|
00000140  20 74 72 79 20 61 67 61  69 6e 2e 20 41 20 63 6f  | try again. A co|
00000150  70 79 20 63 61 6e 20 62  65 20 66 6f 75 6e 64 20  |py can be found |
00000160  69 6e 20 74 68 65 20 64  65 6d 6f 73 20 73 65 63  |in the demos sec|
00000170  74 69 6f 6e 20 61 74 20  68 74 74 70 3a 3a 2f 77  |tion at http::/w|
00000180  77 77 2e 73 74 63 6f 6c  6c 2e 61 63 2e 75 6b 2f  |ww.stcoll.ac.uk/|
00000190  63 6c 61 72 65 73 2f 0a  0a 52 6d 45 6e 73 75 72  |clares/..RmEnsur|
000001a0  65 20 57 69 6d 70 42 61  73 69 63 20 31 2e 31 30  |e WimpBasic 1.10|
000001b0  20 52 4d 4c 6f 61 64 20  3c 57 42 4d 6f 64 75 6c  | RMLoad <WBModul|
000001c0  65 73 24 44 69 72 3e 2e  57 42 6d 6f 64 75 6c 65  |es$Dir>.WBmodule|
000001d0  0a 52 6d 45 6e 73 75 72  65 20 57 69 6d 70 42 61  |.RmEnsure WimpBa|
000001e0  73 69 63 20 31 2e 31 30  20 45 72 72 6f 72 20 52  |sic 1.10 Error R|
000001f0  75 6e 20 74 69 6d 65 20  6d 6f 64 75 6c 65 20 76  |un time module v|
00000200  65 72 73 69 6f 6e 20 31  2e 31 30 20 6e 6f 74 20  |ersion 1.10 not |
00000210  66 6f 75 6e 64 21 0a 0a  53 65 74 20 4d 75 6c 74  |found!..Set Mult|
00000220  69 53 68 6f 77 24 44 69  72 20 3c 4f 62 65 79 24  |iShow$Dir <Obey$|
00000230  44 69 72 3e 0a 57 69 6d  70 53 6c 6f 74 20 2d 4d  |Dir>.WimpSlot -M|
00000240  69 6e 20 32 38 4b 20 2d  4d 61 78 20 32 38 4b 0a  |in 28K -Max 28K.|
00000250  3c 4d 75 6c 74 69 53 68  6f 77 24 44 69 72 3e 2e  |<MultiShow$Dir>.|
00000260  77 62 6c 69 6e 6b 65 72  20 3c 4d 75 6c 74 69 53  |wblinker <MultiS|
00000270  68 6f 77 24 44 69 72 3e  2e 21 52 75 6e 49 6d 61  |how$Dir>.!RunIma|
00000280  67 65 20 25 2a 30 0a                              |ge %*0.|
00000287