Home » Archimedes archive » Zipped Apps » Impression Style » !WordWorks/!BootShare
!WordWorks/!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 » Impression Style |
| Filename: | !WordWorks/!BootShare |
| Read OK: | ✔ |
| File size: | 0283 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
|> !BootShare | | Boot script to start up the CCShared system. | | Version 0.02, 17/11/93 | � 1993 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$Path>!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$Path>!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 32 2c 20 31 37 2f 31 31 2f 39 33 0a 7c 20 20 a9 |2, 17/11/93.| .| 00000060 20 31 39 39 33 20 43 6f 6d 70 75 74 65 72 20 43 | 1993 Computer C| 00000070 6f 6e 63 65 70 74 73 20 4c 74 64 2e 0a 7c 0a 49 |oncepts Ltd..|.I| 00000080 66 20 22 3c 43 43 53 68 61 72 65 64 24 44 69 72 |f "<CCShared$Dir| 00000090 3e 22 3c 3e 22 22 20 54 68 65 6e 20 45 72 72 6f |>"<>"" Then Erro| 000000a0 72 20 22 54 68 65 20 43 43 53 68 61 72 65 64 20 |r "The CCShared | 000000b0 73 79 73 74 65 6d 20 69 73 20 61 6c 72 65 61 64 |system is alread| 000000c0 79 20 73 65 74 20 75 70 21 22 0a 0a 49 66 20 22 |y set up!"..If "| 000000d0 3c 53 79 73 74 65 6d 24 50 61 74 68 3e 22 3d 22 |<System$Path>"="| 000000e0 22 20 54 68 65 6e 20 45 72 72 6f 72 20 22 21 53 |" Then Error "!S| 000000f0 79 73 74 65 6d 20 68 61 73 20 6e 6f 74 20 62 65 |ystem has not be| 00000100 65 6e 20 73 65 65 6e 2e 20 50 6c 65 61 73 65 20 |en seen. Please | 00000110 66 69 6e 64 20 21 53 79 73 74 65 6d 20 61 6e 64 |find !System and| 00000120 20 74 72 79 20 61 67 61 69 6e 2e 22 0a 0a 53 65 | try again."..Se| 00000130 74 45 76 61 6c 20 53 79 73 42 6f 6f 74 53 68 61 |tEval SysBootSha| 00000140 72 65 20 30 0a 52 75 6e 20 3c 4f 62 65 79 24 44 |re 0.Run <Obey$D| 00000150 69 72 3e 2e 46 69 6c 65 45 6e 73 75 72 65 20 3c |ir>.FileEnsure <| 00000160 53 79 73 74 65 6d 24 50 61 74 68 3e 21 43 43 53 |System$Path>!CCS| 00000170 68 61 72 65 64 2e 21 42 6f 6f 74 20 53 79 73 42 |hared.!Boot SysB| 00000180 6f 6f 74 53 68 61 72 65 0a 49 66 20 53 79 73 42 |ootShare.If SysB| 00000190 6f 6f 74 53 68 61 72 65 3d 30 20 54 68 65 6e 20 |ootShare=0 Then | 000001a0 45 72 72 6f 72 20 22 54 68 65 20 43 43 53 68 61 |Error "The CCSha| 000001b0 72 65 64 20 73 79 73 74 65 6d 20 69 73 20 6e 6f |red system is no| 000001c0 74 20 63 6f 72 72 65 63 74 6c 79 20 73 65 74 20 |t correctly set | 000001d0 75 70 2e 20 54 68 69 73 20 61 70 70 6c 69 63 61 |up. This applica| 000001e0 74 69 6f 6e 20 6d 61 79 20 6e 6f 74 20 68 61 76 |tion may not hav| 000001f0 65 20 62 65 65 6e 20 69 6e 73 74 61 6c 6c 65 64 |e been installed| 00000200 20 63 6f 72 72 65 63 74 6c 79 2e 20 50 6c 65 61 | correctly. Plea| 00000210 73 65 20 72 65 2d 69 6e 73 74 61 6c 6c 20 69 74 |se re-install it| 00000220 20 6f 72 20 73 65 65 6b 20 74 65 63 68 6e 69 63 | or seek technic| 00000230 61 6c 20 68 65 6c 70 2e 22 0a 49 66 20 53 79 73 |al help.".If Sys| 00000240 42 6f 6f 74 53 68 61 72 65 20 54 68 65 6e 20 4f |BootShare Then O| 00000250 62 65 79 20 3c 53 79 73 74 65 6d 24 50 61 74 68 |bey <System$Path| 00000260 3e 21 43 43 53 68 61 72 65 64 2e 21 42 6f 6f 74 |>!CCShared.!Boot| 00000270 0a 55 6e 73 65 74 20 53 79 73 42 6f 6f 74 53 68 |.Unset SysBootSh| 00000280 61 72 65 |are| 00000283
.