Home » Archimedes archive » Acorn User » AU 1993-11.adf » !OmniDesk_OmniDesk » !OmniDesk/!Run
!OmniDesk/!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 1993-11.adf » !OmniDesk_OmniDesk |
| Filename: | !OmniDesk/!Run |
| Read OK: | ✔ |
| File size: | 0716 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1993-10.adf » !OmniDesk_OmniDesk » !OmniDesk/!Run
- Archimedes archive » Acorn User » AU 1993-11.adf » !OmniDesk_OmniDesk » !OmniDesk/!Run
File contents
| !Run file for OmniDesk | by R.G.Hallas | IF "<OmniDesk$Running>"="Yes" THEN ERROR 0 You may only use one copy of OmniDesk at once. | Set OmniDesk$Dir <Obey$Dir> IconSprites <OmniDesk$Dir>.!Sprites If "<System$Path>"="" Then Error 0 Please locate your System resources, then try again. RMEnsure InterfaceManager 0 RMLoad System:Modules.Interface RMEnsure InterfaceManager 0 Error 0 You need the Interface Manager module in your !System.Modules directory. RMEnsure InterfaceManager 2.00 RMLoad System:Modules.Interface RMEnsure InterfaceManager 2.00 Error 0 The copy of the Interface Manager module in your System is too old. Please replace it with the copy provided inside !OmniDesk.Resources, then try again. | 3DColours 4 0 1 14 12 | The above command will force the new Interface Manager II to use | the standard colours associated with version I for all applications, | i.e. grey and white rather than the excessively stark black and white. | Comment the line out (with a | character) if you don't want this to | happen. You may feel, though, as I do, that you want all your | existing applications which use Interface to retain their old colours. | If so, you should specifically load Interface when you start the machine | (preferably in a boot-up sequence), and after loading it issue the above | 3DColours command. This will force the normal colours to be used by all | Interface applications. | | N.B. The documentation for Interface says that the default colours are | the ones given in the above command. In fact, version 2.00 of the module | uses default colours 7 0 1 14 12, which may be a small bug. Either that | or the documentation's wrong. Either way, it gives black and white | borders as opposed to the expected grey and white ones. | WimpSlot -min 128K -max 128K Run <OmniDesk$Dir>.!RunImage
00000000 7c 20 21 52 75 6e 20 66 69 6c 65 20 66 6f 72 20 || !Run file for | 00000010 4f 6d 6e 69 44 65 73 6b 0a 7c 20 62 79 20 52 2e |OmniDesk.| by R.| 00000020 47 2e 48 61 6c 6c 61 73 0a 7c 0a 49 46 20 22 3c |G.Hallas.|.IF "<| 00000030 4f 6d 6e 69 44 65 73 6b 24 52 75 6e 6e 69 6e 67 |OmniDesk$Running| 00000040 3e 22 3d 22 59 65 73 22 20 54 48 45 4e 20 45 52 |>"="Yes" THEN ER| 00000050 52 4f 52 20 30 20 59 6f 75 20 6d 61 79 20 6f 6e |ROR 0 You may on| 00000060 6c 79 20 75 73 65 20 6f 6e 65 20 63 6f 70 79 20 |ly use one copy | 00000070 6f 66 20 4f 6d 6e 69 44 65 73 6b 20 61 74 20 6f |of OmniDesk at o| 00000080 6e 63 65 2e 0a 7c 0a 53 65 74 20 4f 6d 6e 69 44 |nce..|.Set OmniD| 00000090 65 73 6b 24 44 69 72 20 3c 4f 62 65 79 24 44 69 |esk$Dir <Obey$Di| 000000a0 72 3e 0a 49 63 6f 6e 53 70 72 69 74 65 73 20 3c |r>.IconSprites <| 000000b0 4f 6d 6e 69 44 65 73 6b 24 44 69 72 3e 2e 21 53 |OmniDesk$Dir>.!S| 000000c0 70 72 69 74 65 73 0a 49 66 20 22 3c 53 79 73 74 |prites.If "<Syst| 000000d0 65 6d 24 50 61 74 68 3e 22 3d 22 22 20 54 68 65 |em$Path>"="" The| 000000e0 6e 20 45 72 72 6f 72 20 30 20 50 6c 65 61 73 65 |n Error 0 Please| 000000f0 20 6c 6f 63 61 74 65 20 79 6f 75 72 20 53 79 73 | locate your Sys| 00000100 74 65 6d 20 72 65 73 6f 75 72 63 65 73 2c 20 74 |tem resources, t| 00000110 68 65 6e 20 74 72 79 20 61 67 61 69 6e 2e 0a 52 |hen try again..R| 00000120 4d 45 6e 73 75 72 65 20 49 6e 74 65 72 66 61 63 |MEnsure Interfac| 00000130 65 4d 61 6e 61 67 65 72 20 30 20 52 4d 4c 6f 61 |eManager 0 RMLoa| 00000140 64 20 53 79 73 74 65 6d 3a 4d 6f 64 75 6c 65 73 |d System:Modules| 00000150 2e 49 6e 74 65 72 66 61 63 65 0a 52 4d 45 6e 73 |.Interface.RMEns| 00000160 75 72 65 20 49 6e 74 65 72 66 61 63 65 4d 61 6e |ure InterfaceMan| 00000170 61 67 65 72 20 30 20 45 72 72 6f 72 20 30 20 59 |ager 0 Error 0 Y| 00000180 6f 75 20 6e 65 65 64 20 74 68 65 20 49 6e 74 65 |ou need the Inte| 00000190 72 66 61 63 65 20 4d 61 6e 61 67 65 72 20 6d 6f |rface Manager mo| 000001a0 64 75 6c 65 20 69 6e 20 79 6f 75 72 20 21 53 79 |dule in your !Sy| 000001b0 73 74 65 6d 2e 4d 6f 64 75 6c 65 73 20 64 69 72 |stem.Modules dir| 000001c0 65 63 74 6f 72 79 2e 0a 52 4d 45 6e 73 75 72 65 |ectory..RMEnsure| 000001d0 20 49 6e 74 65 72 66 61 63 65 4d 61 6e 61 67 65 | InterfaceManage| 000001e0 72 20 32 2e 30 30 20 52 4d 4c 6f 61 64 20 53 79 |r 2.00 RMLoad Sy| 000001f0 73 74 65 6d 3a 4d 6f 64 75 6c 65 73 2e 49 6e 74 |stem:Modules.Int| 00000200 65 72 66 61 63 65 0a 52 4d 45 6e 73 75 72 65 20 |erface.RMEnsure | 00000210 49 6e 74 65 72 66 61 63 65 4d 61 6e 61 67 65 72 |InterfaceManager| 00000220 20 32 2e 30 30 20 45 72 72 6f 72 20 30 20 54 68 | 2.00 Error 0 Th| 00000230 65 20 63 6f 70 79 20 6f 66 20 74 68 65 20 49 6e |e copy of the In| 00000240 74 65 72 66 61 63 65 20 4d 61 6e 61 67 65 72 20 |terface Manager | 00000250 6d 6f 64 75 6c 65 20 69 6e 20 79 6f 75 72 20 53 |module in your S| 00000260 79 73 74 65 6d 20 69 73 20 74 6f 6f 20 6f 6c 64 |ystem is too old| 00000270 2e 20 50 6c 65 61 73 65 20 72 65 70 6c 61 63 65 |. Please replace| 00000280 20 69 74 20 77 69 74 68 20 74 68 65 20 63 6f 70 | it with the cop| 00000290 79 20 70 72 6f 76 69 64 65 64 20 69 6e 73 69 64 |y provided insid| 000002a0 65 20 21 4f 6d 6e 69 44 65 73 6b 2e 52 65 73 6f |e !OmniDesk.Reso| 000002b0 75 72 63 65 73 2c 20 74 68 65 6e 20 74 72 79 20 |urces, then try | 000002c0 61 67 61 69 6e 2e 0a 7c 0a 33 44 43 6f 6c 6f 75 |again..|.3DColou| 000002d0 72 73 20 34 20 30 20 31 20 31 34 20 31 32 0a 7c |rs 4 0 1 14 12.|| 000002e0 20 54 68 65 20 61 62 6f 76 65 20 63 6f 6d 6d 61 | The above comma| 000002f0 6e 64 20 77 69 6c 6c 20 66 6f 72 63 65 20 74 68 |nd will force th| 00000300 65 20 6e 65 77 20 49 6e 74 65 72 66 61 63 65 20 |e new Interface | 00000310 4d 61 6e 61 67 65 72 20 49 49 20 74 6f 20 75 73 |Manager II to us| 00000320 65 0a 7c 20 74 68 65 20 73 74 61 6e 64 61 72 64 |e.| the standard| 00000330 20 63 6f 6c 6f 75 72 73 20 61 73 73 6f 63 69 61 | colours associa| 00000340 74 65 64 20 77 69 74 68 20 76 65 72 73 69 6f 6e |ted with version| 00000350 20 49 20 66 6f 72 20 61 6c 6c 20 61 70 70 6c 69 | I for all appli| 00000360 63 61 74 69 6f 6e 73 2c 0a 7c 20 69 2e 65 2e 20 |cations,.| i.e. | 00000370 67 72 65 79 20 61 6e 64 20 77 68 69 74 65 20 72 |grey and white r| 00000380 61 74 68 65 72 20 74 68 61 6e 20 74 68 65 20 65 |ather than the e| 00000390 78 63 65 73 73 69 76 65 6c 79 20 73 74 61 72 6b |xcessively stark| 000003a0 20 62 6c 61 63 6b 20 61 6e 64 20 77 68 69 74 65 | black and white| 000003b0 2e 0a 7c 20 43 6f 6d 6d 65 6e 74 20 74 68 65 20 |..| Comment the | 000003c0 6c 69 6e 65 20 6f 75 74 20 28 77 69 74 68 20 61 |line out (with a| 000003d0 20 7c 20 63 68 61 72 61 63 74 65 72 29 20 69 66 | | character) if| 000003e0 20 79 6f 75 20 64 6f 6e 27 74 20 77 61 6e 74 20 | you don't want | 000003f0 74 68 69 73 20 74 6f 0a 7c 20 68 61 70 70 65 6e |this to.| happen| 00000400 2e 20 59 6f 75 20 6d 61 79 20 66 65 65 6c 2c 20 |. You may feel, | 00000410 74 68 6f 75 67 68 2c 20 61 73 20 49 20 64 6f 2c |though, as I do,| 00000420 20 74 68 61 74 20 79 6f 75 20 77 61 6e 74 20 61 | that you want a| 00000430 6c 6c 20 79 6f 75 72 0a 7c 20 65 78 69 73 74 69 |ll your.| existi| 00000440 6e 67 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 20 |ng applications | 00000450 77 68 69 63 68 20 75 73 65 20 49 6e 74 65 72 66 |which use Interf| 00000460 61 63 65 20 74 6f 20 72 65 74 61 69 6e 20 74 68 |ace to retain th| 00000470 65 69 72 20 6f 6c 64 20 63 6f 6c 6f 75 72 73 2e |eir old colours.| 00000480 0a 7c 20 49 66 20 73 6f 2c 20 79 6f 75 20 73 68 |.| If so, you sh| 00000490 6f 75 6c 64 20 73 70 65 63 69 66 69 63 61 6c 6c |ould specificall| 000004a0 79 20 6c 6f 61 64 20 49 6e 74 65 72 66 61 63 65 |y load Interface| 000004b0 20 77 68 65 6e 20 79 6f 75 20 73 74 61 72 74 20 | when you start | 000004c0 74 68 65 20 6d 61 63 68 69 6e 65 0a 7c 20 28 70 |the machine.| (p| 000004d0 72 65 66 65 72 61 62 6c 79 20 69 6e 20 61 20 62 |referably in a b| 000004e0 6f 6f 74 2d 75 70 20 73 65 71 75 65 6e 63 65 29 |oot-up sequence)| 000004f0 2c 20 61 6e 64 20 61 66 74 65 72 20 6c 6f 61 64 |, and after load| 00000500 69 6e 67 20 69 74 20 69 73 73 75 65 20 74 68 65 |ing it issue the| 00000510 20 61 62 6f 76 65 0a 7c 20 33 44 43 6f 6c 6f 75 | above.| 3DColou| 00000520 72 73 20 63 6f 6d 6d 61 6e 64 2e 20 54 68 69 73 |rs command. This| 00000530 20 77 69 6c 6c 20 66 6f 72 63 65 20 74 68 65 20 | will force the | 00000540 6e 6f 72 6d 61 6c 20 63 6f 6c 6f 75 72 73 20 74 |normal colours t| 00000550 6f 20 62 65 20 75 73 65 64 20 62 79 20 61 6c 6c |o be used by all| 00000560 0a 7c 20 49 6e 74 65 72 66 61 63 65 20 61 70 70 |.| Interface app| 00000570 6c 69 63 61 74 69 6f 6e 73 2e 0a 7c 0a 7c 20 4e |lications..|.| N| 00000580 2e 42 2e 20 54 68 65 20 64 6f 63 75 6d 65 6e 74 |.B. The document| 00000590 61 74 69 6f 6e 20 66 6f 72 20 49 6e 74 65 72 66 |ation for Interf| 000005a0 61 63 65 20 73 61 79 73 20 74 68 61 74 20 74 68 |ace says that th| 000005b0 65 20 64 65 66 61 75 6c 74 20 63 6f 6c 6f 75 72 |e default colour| 000005c0 73 20 61 72 65 0a 7c 20 74 68 65 20 6f 6e 65 73 |s are.| the ones| 000005d0 20 67 69 76 65 6e 20 69 6e 20 74 68 65 20 61 62 | given in the ab| 000005e0 6f 76 65 20 63 6f 6d 6d 61 6e 64 2e 20 49 6e 20 |ove command. In | 000005f0 66 61 63 74 2c 20 76 65 72 73 69 6f 6e 20 32 2e |fact, version 2.| 00000600 30 30 20 6f 66 20 74 68 65 20 6d 6f 64 75 6c 65 |00 of the module| 00000610 0a 7c 20 75 73 65 73 20 64 65 66 61 75 6c 74 20 |.| uses default | 00000620 63 6f 6c 6f 75 72 73 20 37 20 30 20 31 20 31 34 |colours 7 0 1 14| 00000630 20 31 32 2c 20 77 68 69 63 68 20 6d 61 79 20 62 | 12, which may b| 00000640 65 20 61 20 73 6d 61 6c 6c 20 62 75 67 2e 20 45 |e a small bug. E| 00000650 69 74 68 65 72 20 74 68 61 74 0a 7c 20 6f 72 20 |ither that.| or | 00000660 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f |the documentatio| 00000670 6e 27 73 20 77 72 6f 6e 67 2e 20 45 69 74 68 65 |n's wrong. Eithe| 00000680 72 20 77 61 79 2c 20 69 74 20 67 69 76 65 73 20 |r way, it gives | 00000690 62 6c 61 63 6b 20 61 6e 64 20 77 68 69 74 65 0a |black and white.| 000006a0 7c 20 62 6f 72 64 65 72 73 20 61 73 20 6f 70 70 || borders as opp| 000006b0 6f 73 65 64 20 74 6f 20 74 68 65 20 65 78 70 65 |osed to the expe| 000006c0 63 74 65 64 20 67 72 65 79 20 61 6e 64 20 77 68 |cted grey and wh| 000006d0 69 74 65 20 6f 6e 65 73 2e 0a 7c 0a 57 69 6d 70 |ite ones..|.Wimp| 000006e0 53 6c 6f 74 20 2d 6d 69 6e 20 31 32 38 4b 20 2d |Slot -min 128K -| 000006f0 6d 61 78 20 31 32 38 4b 0a 52 75 6e 20 3c 4f 6d |max 128K.Run <Om| 00000700 6e 69 44 65 73 6b 24 44 69 72 3e 2e 21 52 75 6e |niDesk$Dir>.!Run| 00000710 49 6d 61 67 65 0a |Image.| 00000716
.