Home » Archimedes archive » Archimedes World » AW-1996-02-Disc1.adf » !ElfKing_Elf » !Fonts/!Run

!Fonts/!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 » Archimedes World » AW-1996-02-Disc1.adf » !ElfKing_Elf
Filename: !Fonts/!Run
Read OK:
File size: 01D7 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 4 duplicate copies of this file in the archive:

File contents
Set RiscOS$Fonts 3
RMEnsure UtilityModule 3.00 Set RiscOS$Fonts 2
If "<RiscOS$Fonts>" = "2" then Obey <Obey$Dir>.!RunRO2
If "<RiscOS$Fonts>" = "3" then RMEnsure FontManager 2.89 Error These fonts are for use with RISC OS 3.00 or later
If "<RiscOS$Fonts>" = "3" then Obey <Obey$Dir>.!Boot
| The extra *FontInstall means that, if you double-click the Fonts directory,
| all such directories will be re-searched for any new fonts.
If "<RiscOS$Fonts>" = "3" then FontInstall
00000000  53 65 74 20 52 69 73 63  4f 53 24 46 6f 6e 74 73  |Set RiscOS$Fonts|
00000010  20 33 0a 52 4d 45 6e 73  75 72 65 20 55 74 69 6c  | 3.RMEnsure Util|
00000020  69 74 79 4d 6f 64 75 6c  65 20 33 2e 30 30 20 53  |ityModule 3.00 S|
00000030  65 74 20 52 69 73 63 4f  53 24 46 6f 6e 74 73 20  |et RiscOS$Fonts |
00000040  32 0a 49 66 20 22 3c 52  69 73 63 4f 53 24 46 6f  |2.If "<RiscOS$Fo|
00000050  6e 74 73 3e 22 20 3d 20  22 32 22 20 74 68 65 6e  |nts>" = "2" then|
00000060  20 4f 62 65 79 20 3c 4f  62 65 79 24 44 69 72 3e  | Obey <Obey$Dir>|
00000070  2e 21 52 75 6e 52 4f 32  0a 49 66 20 22 3c 52 69  |.!RunRO2.If "<Ri|
00000080  73 63 4f 53 24 46 6f 6e  74 73 3e 22 20 3d 20 22  |scOS$Fonts>" = "|
00000090  33 22 20 74 68 65 6e 20  52 4d 45 6e 73 75 72 65  |3" then RMEnsure|
000000a0  20 46 6f 6e 74 4d 61 6e  61 67 65 72 20 32 2e 38  | FontManager 2.8|
000000b0  39 20 45 72 72 6f 72 20  54 68 65 73 65 20 66 6f  |9 Error These fo|
000000c0  6e 74 73 20 61 72 65 20  66 6f 72 20 75 73 65 20  |nts are for use |
000000d0  77 69 74 68 20 52 49 53  43 20 4f 53 20 33 2e 30  |with RISC OS 3.0|
000000e0  30 20 6f 72 20 6c 61 74  65 72 0a 49 66 20 22 3c  |0 or later.If "<|
000000f0  52 69 73 63 4f 53 24 46  6f 6e 74 73 3e 22 20 3d  |RiscOS$Fonts>" =|
00000100  20 22 33 22 20 74 68 65  6e 20 4f 62 65 79 20 3c  | "3" then Obey <|
00000110  4f 62 65 79 24 44 69 72  3e 2e 21 42 6f 6f 74 0a  |Obey$Dir>.!Boot.|
00000120  7c 20 54 68 65 20 65 78  74 72 61 20 2a 46 6f 6e  || The extra *Fon|
00000130  74 49 6e 73 74 61 6c 6c  20 6d 65 61 6e 73 20 74  |tInstall means t|
00000140  68 61 74 2c 20 69 66 20  79 6f 75 20 64 6f 75 62  |hat, if you doub|
00000150  6c 65 2d 63 6c 69 63 6b  20 74 68 65 20 46 6f 6e  |le-click the Fon|
00000160  74 73 20 64 69 72 65 63  74 6f 72 79 2c 0a 7c 20  |ts directory,.| |
00000170  61 6c 6c 20 73 75 63 68  20 64 69 72 65 63 74 6f  |all such directo|
00000180  72 69 65 73 20 77 69 6c  6c 20 62 65 20 72 65 2d  |ries will be re-|
00000190  73 65 61 72 63 68 65 64  20 66 6f 72 20 61 6e 79  |searched for any|
000001a0  20 6e 65 77 20 66 6f 6e  74 73 2e 0a 49 66 20 22  | new fonts..If "|
000001b0  3c 52 69 73 63 4f 53 24  46 6f 6e 74 73 3e 22 20  |<RiscOS$Fonts>" |
000001c0  3d 20 22 33 22 20 74 68  65 6e 20 46 6f 6e 74 49  |= "3" then FontI|
000001d0  6e 73 74 61 6c 6c 0a                              |nstall.|
000001d7