Home » Archimedes archive » Zipped Apps » Atelier » !Atelier/!Boot
!Atelier/!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 » Archimedes archive » Zipped Apps » Atelier |
| Filename: | !Atelier/!Boot |
| Read OK: | ✔ |
| File size: | 0310 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
*|> <Atelier$Dir>.!Boot *| *| Initialisation file for Atelier *| By Simon Clay, published by Minerva Software 1989 *| *set Atelier$Dir <Obey$Dir> *iconsprites <Atelier$Dir>.!Sprites *set File$Type_D7E MinBrush *set File$Type_D3A Patterns *set File$Type_D39 Formulae *set File$Type_D7F ComSprite *Set Alias$@RunType_D7E Run <Atelier$Dir>.!Run %%*0 *Set Alias$@RunType_D3A Run <Atelier$Dir>.!Run %%*0 *Set Alias$@RunType_D39 Run <Atelier$Dir>.!Run %%*0 *Set Alias$@RunType_D7F Run <Atelier$Dir>.!Run %%*0 *Set Alias$@RunType_DE2 Run <Atelier$Dir>.!Run %%*0 *Set Alias$@PrintType_D7F ERROR To use the RISC OS printer drivers, this screen must be converted to a system screen or sprite with Atelier and then printed using Paint<0> *Set Alias$@PrintType_DE2 <Alias$@PrintType_D7F> %%*0
00000000 2a 7c 3e 20 3c 41 74 65 6c 69 65 72 24 44 69 72 |*|> <Atelier$Dir| 00000010 3e 2e 21 42 6f 6f 74 0a 2a 7c 0a 2a 7c 20 20 49 |>.!Boot.*|.*| I| 00000020 6e 69 74 69 61 6c 69 73 61 74 69 6f 6e 20 66 69 |nitialisation fi| 00000030 6c 65 20 66 6f 72 20 41 74 65 6c 69 65 72 0a 2a |le for Atelier.*| 00000040 7c 20 20 42 79 20 53 69 6d 6f 6e 20 43 6c 61 79 || By Simon Clay| 00000050 2c 20 70 75 62 6c 69 73 68 65 64 20 62 79 20 4d |, published by M| 00000060 69 6e 65 72 76 61 20 53 6f 66 74 77 61 72 65 20 |inerva Software | 00000070 31 39 38 39 0a 2a 7c 0a 2a 73 65 74 20 41 74 65 |1989.*|.*set Ate| 00000080 6c 69 65 72 24 44 69 72 20 3c 4f 62 65 79 24 44 |lier$Dir <Obey$D| 00000090 69 72 3e 0a 2a 69 63 6f 6e 73 70 72 69 74 65 73 |ir>.*iconsprites| 000000a0 20 20 3c 41 74 65 6c 69 65 72 24 44 69 72 3e 2e | <Atelier$Dir>.| 000000b0 21 53 70 72 69 74 65 73 0a 2a 73 65 74 20 46 69 |!Sprites.*set Fi| 000000c0 6c 65 24 54 79 70 65 5f 44 37 45 20 4d 69 6e 42 |le$Type_D7E MinB| 000000d0 72 75 73 68 0a 2a 73 65 74 20 46 69 6c 65 24 54 |rush.*set File$T| 000000e0 79 70 65 5f 44 33 41 20 50 61 74 74 65 72 6e 73 |ype_D3A Patterns| 000000f0 0a 2a 73 65 74 20 46 69 6c 65 24 54 79 70 65 5f |.*set File$Type_| 00000100 44 33 39 20 46 6f 72 6d 75 6c 61 65 0a 2a 73 65 |D39 Formulae.*se| 00000110 74 20 46 69 6c 65 24 54 79 70 65 5f 44 37 46 20 |t File$Type_D7F | 00000120 43 6f 6d 53 70 72 69 74 65 0a 2a 53 65 74 20 41 |ComSprite.*Set A| 00000130 6c 69 61 73 24 40 52 75 6e 54 79 70 65 5f 44 37 |lias$@RunType_D7| 00000140 45 20 52 75 6e 20 3c 41 74 65 6c 69 65 72 24 44 |E Run <Atelier$D| 00000150 69 72 3e 2e 21 52 75 6e 20 25 25 2a 30 0a 2a 53 |ir>.!Run %%*0.*S| 00000160 65 74 20 41 6c 69 61 73 24 40 52 75 6e 54 79 70 |et Alias$@RunTyp| 00000170 65 5f 44 33 41 20 52 75 6e 20 3c 41 74 65 6c 69 |e_D3A Run <Ateli| 00000180 65 72 24 44 69 72 3e 2e 21 52 75 6e 20 25 25 2a |er$Dir>.!Run %%*| 00000190 30 0a 2a 53 65 74 20 41 6c 69 61 73 24 40 52 75 |0.*Set Alias$@Ru| 000001a0 6e 54 79 70 65 5f 44 33 39 20 52 75 6e 20 3c 41 |nType_D39 Run <A| 000001b0 74 65 6c 69 65 72 24 44 69 72 3e 2e 21 52 75 6e |telier$Dir>.!Run| 000001c0 20 25 25 2a 30 0a 2a 53 65 74 20 41 6c 69 61 73 | %%*0.*Set Alias| 000001d0 24 40 52 75 6e 54 79 70 65 5f 44 37 46 20 52 75 |$@RunType_D7F Ru| 000001e0 6e 20 3c 41 74 65 6c 69 65 72 24 44 69 72 3e 2e |n <Atelier$Dir>.| 000001f0 21 52 75 6e 20 25 25 2a 30 0a 2a 53 65 74 20 41 |!Run %%*0.*Set A| 00000200 6c 69 61 73 24 40 52 75 6e 54 79 70 65 5f 44 45 |lias$@RunType_DE| 00000210 32 20 52 75 6e 20 3c 41 74 65 6c 69 65 72 24 44 |2 Run <Atelier$D| 00000220 69 72 3e 2e 21 52 75 6e 20 25 25 2a 30 0a 2a 53 |ir>.!Run %%*0.*S| 00000230 65 74 20 41 6c 69 61 73 24 40 50 72 69 6e 74 54 |et Alias$@PrintT| 00000240 79 70 65 5f 44 37 46 20 45 52 52 4f 52 20 54 6f |ype_D7F ERROR To| 00000250 20 75 73 65 20 74 68 65 20 52 49 53 43 20 4f 53 | use the RISC OS| 00000260 20 70 72 69 6e 74 65 72 20 64 72 69 76 65 72 73 | printer drivers| 00000270 2c 20 74 68 69 73 20 73 63 72 65 65 6e 20 6d 75 |, this screen mu| 00000280 73 74 20 62 65 20 63 6f 6e 76 65 72 74 65 64 20 |st be converted | 00000290 74 6f 20 61 20 73 79 73 74 65 6d 20 73 63 72 65 |to a system scre| 000002a0 65 6e 20 6f 72 20 73 70 72 69 74 65 20 77 69 74 |en or sprite wit| 000002b0 68 20 41 74 65 6c 69 65 72 20 61 6e 64 20 74 68 |h Atelier and th| 000002c0 65 6e 20 70 72 69 6e 74 65 64 20 75 73 69 6e 67 |en printed using| 000002d0 20 50 61 69 6e 74 3c 30 3e 0a 2a 53 65 74 20 41 | Paint<0>.*Set A| 000002e0 6c 69 61 73 24 40 50 72 69 6e 74 54 79 70 65 5f |lias$@PrintType_| 000002f0 44 45 32 20 3c 41 6c 69 61 73 24 40 50 72 69 6e |DE2 <Alias$@Prin| 00000300 74 54 79 70 65 5f 44 37 46 3e 20 25 25 2a 30 0a |tType_D7F> %%*0.| 00000310
.