Home » Archimedes archive » Acorn User » Acorn User - Updated Shareware Collection (1994).adf » Programs » !DiscSpace/!Run
!DiscSpace/!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 » Acorn User - Updated Shareware Collection (1994).adf » Programs |
| Filename: | !DiscSpace/!Run |
| Read OK: | ✔ |
| File size: | 01C0 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| !DiscSpace.!Run | Set DiscSpace$Dir <Obey$Dir> IconSprites <Obey$Dir>.!Sprites WimpSlot 128k 128k | Set DiscSpace$Use Font to TRUE if outline fonts are to be used Set DiscSpace$UseFont TRUE | Disable fonts if no FontManager is present RMEnsure FontManager 2.42 *Set DiscSpace$UseFont FALSE | The following font will be used Set DiscSpace$Font Homerton.Medium SetEval DiscSpace$FontHeight 13 SetEval DiscSpace$FontWidth 13 run <Obey$Dir>.!RunImage
00000000 7c 20 21 44 69 73 63 53 70 61 63 65 2e 21 52 75 || !DiscSpace.!Ru| 00000010 6e 0a 7c 0a 53 65 74 20 44 69 73 63 53 70 61 63 |n.|.Set DiscSpac| 00000020 65 24 44 69 72 20 3c 4f 62 65 79 24 44 69 72 3e |e$Dir <Obey$Dir>| 00000030 0a 49 63 6f 6e 53 70 72 69 74 65 73 20 3c 4f 62 |.IconSprites <Ob| 00000040 65 79 24 44 69 72 3e 2e 21 53 70 72 69 74 65 73 |ey$Dir>.!Sprites| 00000050 0a 57 69 6d 70 53 6c 6f 74 20 31 32 38 6b 20 31 |.WimpSlot 128k 1| 00000060 32 38 6b 0a 7c 20 53 65 74 20 44 69 73 63 53 70 |28k.| Set DiscSp| 00000070 61 63 65 24 55 73 65 20 46 6f 6e 74 20 74 6f 20 |ace$Use Font to | 00000080 54 52 55 45 20 69 66 20 6f 75 74 6c 69 6e 65 20 |TRUE if outline | 00000090 66 6f 6e 74 73 20 61 72 65 20 74 6f 20 62 65 20 |fonts are to be | 000000a0 75 73 65 64 0a 53 65 74 20 44 69 73 63 53 70 61 |used.Set DiscSpa| 000000b0 63 65 24 55 73 65 46 6f 6e 74 20 54 52 55 45 0a |ce$UseFont TRUE.| 000000c0 7c 20 44 69 73 61 62 6c 65 20 66 6f 6e 74 73 20 || Disable fonts | 000000d0 69 66 20 6e 6f 20 46 6f 6e 74 4d 61 6e 61 67 65 |if no FontManage| 000000e0 72 20 69 73 20 70 72 65 73 65 6e 74 0a 52 4d 45 |r is present.RME| 000000f0 6e 73 75 72 65 20 46 6f 6e 74 4d 61 6e 61 67 65 |nsure FontManage| 00000100 72 20 32 2e 34 32 20 2a 53 65 74 20 44 69 73 63 |r 2.42 *Set Disc| 00000110 53 70 61 63 65 24 55 73 65 46 6f 6e 74 20 46 41 |Space$UseFont FA| 00000120 4c 53 45 0a 7c 20 54 68 65 20 66 6f 6c 6c 6f 77 |LSE.| The follow| 00000130 69 6e 67 20 66 6f 6e 74 20 77 69 6c 6c 20 62 65 |ing font will be| 00000140 20 75 73 65 64 0a 53 65 74 20 44 69 73 63 53 70 | used.Set DiscSp| 00000150 61 63 65 24 46 6f 6e 74 20 48 6f 6d 65 72 74 6f |ace$Font Homerto| 00000160 6e 2e 4d 65 64 69 75 6d 0a 53 65 74 45 76 61 6c |n.Medium.SetEval| 00000170 20 44 69 73 63 53 70 61 63 65 24 46 6f 6e 74 48 | DiscSpace$FontH| 00000180 65 69 67 68 74 20 31 33 0a 53 65 74 45 76 61 6c |eight 13.SetEval| 00000190 20 44 69 73 63 53 70 61 63 65 24 46 6f 6e 74 57 | DiscSpace$FontW| 000001a0 69 64 74 68 20 31 33 0a 72 75 6e 20 3c 4f 62 65 |idth 13.run <Obe| 000001b0 79 24 44 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 |y$Dir>.!RunImage| 000001c0
.