Home » Archimedes archive » Zipped Apps » ArtWorks » !ArtWorks/!BootShare
!ArtWorks/!BootShare
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 » Zipped Apps » ArtWorks |
| Filename: | !ArtWorks/!BootShare |
| Read OK: | ✔ |
| File size: | 027C bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
|> !BootShare | | Boot script to start up the CCShared system. | | Version 0.03, 08/02/94 | � 1993,1994 Computer Concepts Ltd. | If "<CCShared$Dir>"<>"" Then Error "The CCShared system is already set up!" If "<System$Path>"="" Then Error "!System has not been seen. Please find !System and try again." SetEval SysBootShare 0 Run <Obey$Dir>.FileEnsure System:!CCShared.!Boot SysBootShare If SysBootShare=0 Then Error "The CCShared system is not correctly set up. This application may not have been installed correctly. Please re-install it or seek technical help." If SysBootShare Then Obey System:!CCShared.!Boot Unset SysBootShare
00000000 7c 3e 20 21 42 6f 6f 74 53 68 61 72 65 0a 7c 0a ||> !BootShare.|.| 00000010 7c 20 20 42 6f 6f 74 20 73 63 72 69 70 74 20 74 || Boot script t| 00000020 6f 20 73 74 61 72 74 20 75 70 20 74 68 65 20 43 |o start up the C| 00000030 43 53 68 61 72 65 64 20 73 79 73 74 65 6d 2e 0a |CShared system..| 00000040 7c 0a 7c 20 20 56 65 72 73 69 6f 6e 20 30 2e 30 ||.| Version 0.0| 00000050 33 2c 20 30 38 2f 30 32 2f 39 34 0a 7c 20 20 a9 |3, 08/02/94.| .| 00000060 20 31 39 39 33 2c 31 39 39 34 20 43 6f 6d 70 75 | 1993,1994 Compu| 00000070 74 65 72 20 43 6f 6e 63 65 70 74 73 20 4c 74 64 |ter Concepts Ltd| 00000080 2e 0a 7c 0a 49 66 20 22 3c 43 43 53 68 61 72 65 |..|.If "<CCShare| 00000090 64 24 44 69 72 3e 22 3c 3e 22 22 20 54 68 65 6e |d$Dir>"<>"" Then| 000000a0 20 45 72 72 6f 72 20 22 54 68 65 20 43 43 53 68 | Error "The CCSh| 000000b0 61 72 65 64 20 73 79 73 74 65 6d 20 69 73 20 61 |ared system is a| 000000c0 6c 72 65 61 64 79 20 73 65 74 20 75 70 21 22 0a |lready set up!".| 000000d0 0a 49 66 20 22 3c 53 79 73 74 65 6d 24 50 61 74 |.If "<System$Pat| 000000e0 68 3e 22 3d 22 22 20 54 68 65 6e 20 45 72 72 6f |h>"="" Then Erro| 000000f0 72 20 22 21 53 79 73 74 65 6d 20 68 61 73 20 6e |r "!System has n| 00000100 6f 74 20 62 65 65 6e 20 73 65 65 6e 2e 20 50 6c |ot been seen. Pl| 00000110 65 61 73 65 20 66 69 6e 64 20 21 53 79 73 74 65 |ease find !Syste| 00000120 6d 20 61 6e 64 20 74 72 79 20 61 67 61 69 6e 2e |m and try again.| 00000130 22 0a 0a 53 65 74 45 76 61 6c 20 53 79 73 42 6f |"..SetEval SysBo| 00000140 6f 74 53 68 61 72 65 20 30 0a 52 75 6e 20 3c 4f |otShare 0.Run <O| 00000150 62 65 79 24 44 69 72 3e 2e 46 69 6c 65 45 6e 73 |bey$Dir>.FileEns| 00000160 75 72 65 20 53 79 73 74 65 6d 3a 21 43 43 53 68 |ure System:!CCSh| 00000170 61 72 65 64 2e 21 42 6f 6f 74 20 53 79 73 42 6f |ared.!Boot SysBo| 00000180 6f 74 53 68 61 72 65 0a 49 66 20 53 79 73 42 6f |otShare.If SysBo| 00000190 6f 74 53 68 61 72 65 3d 30 20 54 68 65 6e 20 45 |otShare=0 Then E| 000001a0 72 72 6f 72 20 22 54 68 65 20 43 43 53 68 61 72 |rror "The CCShar| 000001b0 65 64 20 73 79 73 74 65 6d 20 69 73 20 6e 6f 74 |ed system is not| 000001c0 20 63 6f 72 72 65 63 74 6c 79 20 73 65 74 20 75 | correctly set u| 000001d0 70 2e 20 54 68 69 73 20 61 70 70 6c 69 63 61 74 |p. This applicat| 000001e0 69 6f 6e 20 6d 61 79 20 6e 6f 74 20 68 61 76 65 |ion may not have| 000001f0 20 62 65 65 6e 20 69 6e 73 74 61 6c 6c 65 64 20 | been installed | 00000200 63 6f 72 72 65 63 74 6c 79 2e 20 50 6c 65 61 73 |correctly. Pleas| 00000210 65 20 72 65 2d 69 6e 73 74 61 6c 6c 20 69 74 20 |e re-install it | 00000220 6f 72 20 73 65 65 6b 20 74 65 63 68 6e 69 63 61 |or seek technica| 00000230 6c 20 68 65 6c 70 2e 22 0a 49 66 20 53 79 73 42 |l help.".If SysB| 00000240 6f 6f 74 53 68 61 72 65 20 54 68 65 6e 20 4f 62 |ootShare Then Ob| 00000250 65 79 20 53 79 73 74 65 6d 3a 21 43 43 53 68 61 |ey System:!CCSha| 00000260 72 65 64 2e 21 42 6f 6f 74 0a 55 6e 73 65 74 20 |red.!Boot.Unset | 00000270 53 79 73 42 6f 6f 74 53 68 61 72 65 |SysBootShare| 0000027c
.