Home » Archimedes archive » Zipped Apps » Impression Style » !WordWorks/!Run
!WordWorks/!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 » Zipped Apps » Impression Style |
| Filename: | !WordWorks/!Run |
| Read OK: | ✔ |
| File size: | 0330 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
|> !Run | | Execution file for !WordWorks. Version 0.03, 29/11/93. | � 1993 Computer Concepts Ltd. | RISC OS 2/3 Version. | Set Collins$Dir <Obey$Dir> Set File$Type_BD7 HyprDict | If CCShared not yet set up then set it up... |If "<CCShared$Dir>"="" Then Obey <Collins$Dir>.!BootShare | We know that HyperView will be in CCShared if we need it so instead of | testing CCShared$Dir test HyperView$Dir. This allows HyperView to live | outside the CCShared system if needed. If "<HyperView$Dir>"="" Then Obey <Collins$Dir>.!BootShare If "<HyperView$Dir>"="" Then Error "The WordWorks viewing program is not in the CCShared system. WordWorks may have been incorrectly installed. Please re-install it or seek technical help." |Set HyperView$Setup WordWorks WimpSlot -min 32K -max 32K Run <Collins$Dir>.!RunImage %*0
00000000 7c 3e 20 21 52 75 6e 0a 7c 0a 7c 20 20 45 78 65 ||> !Run.|.| Exe| 00000010 63 75 74 69 6f 6e 20 66 69 6c 65 20 66 6f 72 20 |cution file for | 00000020 21 57 6f 72 64 57 6f 72 6b 73 2e 20 56 65 72 73 |!WordWorks. Vers| 00000030 69 6f 6e 20 30 2e 30 33 2c 20 32 39 2f 31 31 2f |ion 0.03, 29/11/| 00000040 39 33 2e 0a 7c 20 20 a9 20 31 39 39 33 20 43 6f |93..| . 1993 Co| 00000050 6d 70 75 74 65 72 20 43 6f 6e 63 65 70 74 73 20 |mputer Concepts | 00000060 4c 74 64 2e 0a 7c 20 20 52 49 53 43 20 4f 53 20 |Ltd..| RISC OS | 00000070 32 2f 33 20 56 65 72 73 69 6f 6e 2e 0a 7c 0a 0a |2/3 Version..|..| 00000080 53 65 74 20 43 6f 6c 6c 69 6e 73 24 44 69 72 20 |Set Collins$Dir | 00000090 3c 4f 62 65 79 24 44 69 72 3e 0a 53 65 74 20 46 |<Obey$Dir>.Set F| 000000a0 69 6c 65 24 54 79 70 65 5f 42 44 37 20 48 79 70 |ile$Type_BD7 Hyp| 000000b0 72 44 69 63 74 0a 0a 7c 20 49 66 20 43 43 53 68 |rDict..| If CCSh| 000000c0 61 72 65 64 20 6e 6f 74 20 79 65 74 20 73 65 74 |ared not yet set| 000000d0 20 75 70 20 74 68 65 6e 20 73 65 74 20 69 74 20 | up then set it | 000000e0 75 70 2e 2e 2e 0a 7c 49 66 20 22 3c 43 43 53 68 |up....|If "<CCSh| 000000f0 61 72 65 64 24 44 69 72 3e 22 3d 22 22 20 54 68 |ared$Dir>"="" Th| 00000100 65 6e 20 4f 62 65 79 20 3c 43 6f 6c 6c 69 6e 73 |en Obey <Collins| 00000110 24 44 69 72 3e 2e 21 42 6f 6f 74 53 68 61 72 65 |$Dir>.!BootShare| 00000120 0a 7c 20 57 65 20 6b 6e 6f 77 20 74 68 61 74 20 |.| We know that | 00000130 48 79 70 65 72 56 69 65 77 20 77 69 6c 6c 20 62 |HyperView will b| 00000140 65 20 69 6e 20 43 43 53 68 61 72 65 64 20 69 66 |e in CCShared if| 00000150 20 77 65 20 6e 65 65 64 20 69 74 20 73 6f 20 69 | we need it so i| 00000160 6e 73 74 65 61 64 20 6f 66 0a 7c 20 74 65 73 74 |nstead of.| test| 00000170 69 6e 67 20 43 43 53 68 61 72 65 64 24 44 69 72 |ing CCShared$Dir| 00000180 20 74 65 73 74 20 48 79 70 65 72 56 69 65 77 24 | test HyperView$| 00000190 44 69 72 2e 20 54 68 69 73 20 61 6c 6c 6f 77 73 |Dir. This allows| 000001a0 20 48 79 70 65 72 56 69 65 77 20 74 6f 20 6c 69 | HyperView to li| 000001b0 76 65 0a 7c 20 6f 75 74 73 69 64 65 20 74 68 65 |ve.| outside the| 000001c0 20 43 43 53 68 61 72 65 64 20 73 79 73 74 65 6d | CCShared system| 000001d0 20 69 66 20 6e 65 65 64 65 64 2e 0a 49 66 20 22 | if needed..If "| 000001e0 3c 48 79 70 65 72 56 69 65 77 24 44 69 72 3e 22 |<HyperView$Dir>"| 000001f0 3d 22 22 20 54 68 65 6e 20 4f 62 65 79 20 3c 43 |="" Then Obey <C| 00000200 6f 6c 6c 69 6e 73 24 44 69 72 3e 2e 21 42 6f 6f |ollins$Dir>.!Boo| 00000210 74 53 68 61 72 65 0a 0a 49 66 20 22 3c 48 79 70 |tShare..If "<Hyp| 00000220 65 72 56 69 65 77 24 44 69 72 3e 22 3d 22 22 20 |erView$Dir>"="" | 00000230 54 68 65 6e 20 45 72 72 6f 72 20 22 54 68 65 20 |Then Error "The | 00000240 57 6f 72 64 57 6f 72 6b 73 20 76 69 65 77 69 6e |WordWorks viewin| 00000250 67 20 70 72 6f 67 72 61 6d 20 69 73 20 6e 6f 74 |g program is not| 00000260 20 69 6e 20 74 68 65 20 43 43 53 68 61 72 65 64 | in the CCShared| 00000270 20 73 79 73 74 65 6d 2e 20 57 6f 72 64 57 6f 72 | system. WordWor| 00000280 6b 73 20 6d 61 79 20 68 61 76 65 20 62 65 65 6e |ks may have been| 00000290 20 69 6e 63 6f 72 72 65 63 74 6c 79 20 69 6e 73 | incorrectly ins| 000002a0 74 61 6c 6c 65 64 2e 20 50 6c 65 61 73 65 20 72 |talled. Please r| 000002b0 65 2d 69 6e 73 74 61 6c 6c 20 69 74 20 6f 72 20 |e-install it or | 000002c0 73 65 65 6b 20 74 65 63 68 6e 69 63 61 6c 20 68 |seek technical h| 000002d0 65 6c 70 2e 22 0a 0a 7c 53 65 74 20 48 79 70 65 |elp."..|Set Hype| 000002e0 72 56 69 65 77 24 53 65 74 75 70 20 57 6f 72 64 |rView$Setup Word| 000002f0 57 6f 72 6b 73 0a 57 69 6d 70 53 6c 6f 74 20 2d |Works.WimpSlot -| 00000300 6d 69 6e 20 33 32 4b 20 2d 6d 61 78 20 33 32 4b |min 32K -max 32K| 00000310 0a 52 75 6e 20 3c 43 6f 6c 6c 69 6e 73 24 44 69 |.Run <Collins$Di| 00000320 72 3e 2e 21 52 75 6e 49 6d 61 67 65 20 25 2a 30 |r>.!RunImage %*0| 00000330
.