Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199206b.adf » June92 » !AWJune92/Goodies/VectorDemo/!4M/!Boot

!AWJune92/Goodies/VectorDemo/!4M/!Boot

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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199206b.adf » June92
Filename: !AWJune92/Goodies/VectorDemo/!4M/!Boot
Read OK:
File size: 0148 bytes
Load address: 0000
Exec address: 0000
File contents
| Boot file for !Fonts
|
Iconsprites <Obey$Dir>.!Sprites
|
If "<Font$Prefix>"="" Then RMEnsure FontManager 2.42 RMLoad <Obey$Dir>.Fonts
If "<Font$Prefix>"="" Then RMEnsure SuperSample 0.04 RMLoad <Obey$Dir>.Super
If "<Font$Prefix>"="" Then SetMacro Font$Path <Font$Prefix>.
If "<Font$Prefix>"="" Then Set Font$Prefix <Obey$Dir>
00000000  7c 20 42 6f 6f 74 20 66  69 6c 65 20 66 6f 72 20  || Boot file for |
00000010  21 46 6f 6e 74 73 0a 7c  0a 49 63 6f 6e 73 70 72  |!Fonts.|.Iconspr|
00000020  69 74 65 73 20 3c 4f 62  65 79 24 44 69 72 3e 2e  |ites <Obey$Dir>.|
00000030  21 53 70 72 69 74 65 73  0a 7c 0a 49 66 20 22 3c  |!Sprites.|.If "<|
00000040  46 6f 6e 74 24 50 72 65  66 69 78 3e 22 3d 22 22  |Font$Prefix>"=""|
00000050  20 54 68 65 6e 20 52 4d  45 6e 73 75 72 65 20 46  | Then RMEnsure F|
00000060  6f 6e 74 4d 61 6e 61 67  65 72 20 32 2e 34 32 20  |ontManager 2.42 |
00000070  52 4d 4c 6f 61 64 20 3c  4f 62 65 79 24 44 69 72  |RMLoad <Obey$Dir|
00000080  3e 2e 46 6f 6e 74 73 0a  49 66 20 22 3c 46 6f 6e  |>.Fonts.If "<Fon|
00000090  74 24 50 72 65 66 69 78  3e 22 3d 22 22 20 54 68  |t$Prefix>"="" Th|
000000a0  65 6e 20 52 4d 45 6e 73  75 72 65 20 53 75 70 65  |en RMEnsure Supe|
000000b0  72 53 61 6d 70 6c 65 20  30 2e 30 34 20 52 4d 4c  |rSample 0.04 RML|
000000c0  6f 61 64 20 3c 4f 62 65  79 24 44 69 72 3e 2e 53  |oad <Obey$Dir>.S|
000000d0  75 70 65 72 0a 49 66 20  22 3c 46 6f 6e 74 24 50  |uper.If "<Font$P|
000000e0  72 65 66 69 78 3e 22 3d  22 22 20 54 68 65 6e 20  |refix>"="" Then |
000000f0  53 65 74 4d 61 63 72 6f  20 46 6f 6e 74 24 50 61  |SetMacro Font$Pa|
00000100  74 68 20 3c 46 6f 6e 74  24 50 72 65 66 69 78 3e  |th <Font$Prefix>|
00000110  2e 0a 49 66 20 22 3c 46  6f 6e 74 24 50 72 65 66  |..If "<Font$Pref|
00000120  69 78 3e 22 3d 22 22 20  54 68 65 6e 20 53 65 74  |ix>"="" Then Set|
00000130  20 46 6f 6e 74 24 50 72  65 66 69 78 20 3c 4f 62  | Font$Prefix <Ob|
00000140  65 79 24 44 69 72 3e 0a                           |ey$Dir>.|
00000148