Home » Archimedes archive » Zipped Apps » Fireworkz » StartFwrkz

StartFwrkz

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 » Fireworkz
Filename: StartFwrkz
Read OK:
File size: 0545 bytes
Load address: 0000
Exec address: 0000
File contents
|
| Preload obey file for Fireworkz, refer to Fireworkz User Guide
|
Set Fireworkz_Preload$Dir <Obey$Dir>
|
RMEnsure FontManager 2.42 Error 0 Fireworkz needs Outline FontManager 2.42 or later
|
| Ensure we have a System and Scrap
|
If "<System$Path>"="" then Set System$Path <Fireworkz_Preload$Dir>.RISC_OS_2.!System.
If "<Wimp$Scrap>" ="" then Set Wimp$Scrap  <Fireworkz_Preload$Dir>.RISC_OS_2.!System.ScrapFile
|
RMEnsure Squash 0.00 RMLoad <Fireworkz_Preload$Dir>.RISC_OS_2.!System.Modules.Squash
|
RMEnsure ColourTrans 0.52 RMLoad <Fireworkz_Preload$Dir>.RISC_OS_2.!System.Modules.Colours
|
Set Fireworkz$CLibLoaded 1
RMEnsure SharedCLibrary 0.00 Set Fireworkz$CLibLoaded 0
If Fireworkz$CLibLoaded=1 then RMEnsure SharedCLibrary 3.75 Error 0 You are already running a version of CLib which is too old. Fireworkz needs SharedCLibrary 3.75 or later
If Fireworkz$CLibLoaded=0 then RMLoad <Fireworkz_Preload$Dir>.RISC_OS_2.!System.Modules.CLib
Unset Fireworkz$CLibLoaded
RMEnsure SharedCLibrary 3.75 Error You need SharedCLibrary 3.75 or later
|
RMEnsure FPEmulator 2.70 RMLoad <Fireworkz_Preload$Dir>.RISC_OS_2.!System.Modules.FPEmulator
|
| Point Fireworkz at this disc as a last resort for resource loading
|
Set Fireworkz$EndPath ,<Fireworkz_Preload$Dir>._Fireworkz.Resource.
|
Unset Fireworkz_Preload$Dir
|
Run adfs::Fireworkz.$.!Fireworkz.!Run
00000000  7c 0a 7c 20 50 72 65 6c  6f 61 64 20 6f 62 65 79  ||.| Preload obey|
00000010  20 66 69 6c 65 20 66 6f  72 20 46 69 72 65 77 6f  | file for Firewo|
00000020  72 6b 7a 2c 20 72 65 66  65 72 20 74 6f 20 46 69  |rkz, refer to Fi|
00000030  72 65 77 6f 72 6b 7a 20  55 73 65 72 20 47 75 69  |reworkz User Gui|
00000040  64 65 0a 7c 0a 53 65 74  20 46 69 72 65 77 6f 72  |de.|.Set Firewor|
00000050  6b 7a 5f 50 72 65 6c 6f  61 64 24 44 69 72 20 3c  |kz_Preload$Dir <|
00000060  4f 62 65 79 24 44 69 72  3e 0a 7c 0a 52 4d 45 6e  |Obey$Dir>.|.RMEn|
00000070  73 75 72 65 20 46 6f 6e  74 4d 61 6e 61 67 65 72  |sure FontManager|
00000080  20 32 2e 34 32 20 45 72  72 6f 72 20 30 20 46 69  | 2.42 Error 0 Fi|
00000090  72 65 77 6f 72 6b 7a 20  6e 65 65 64 73 20 4f 75  |reworkz needs Ou|
000000a0  74 6c 69 6e 65 20 46 6f  6e 74 4d 61 6e 61 67 65  |tline FontManage|
000000b0  72 20 32 2e 34 32 20 6f  72 20 6c 61 74 65 72 0a  |r 2.42 or later.|
000000c0  7c 0a 7c 20 45 6e 73 75  72 65 20 77 65 20 68 61  ||.| Ensure we ha|
000000d0  76 65 20 61 20 53 79 73  74 65 6d 20 61 6e 64 20  |ve a System and |
000000e0  53 63 72 61 70 0a 7c 0a  49 66 20 22 3c 53 79 73  |Scrap.|.If "<Sys|
000000f0  74 65 6d 24 50 61 74 68  3e 22 3d 22 22 20 74 68  |tem$Path>"="" th|
00000100  65 6e 20 53 65 74 20 53  79 73 74 65 6d 24 50 61  |en Set System$Pa|
00000110  74 68 20 3c 46 69 72 65  77 6f 72 6b 7a 5f 50 72  |th <Fireworkz_Pr|
00000120  65 6c 6f 61 64 24 44 69  72 3e 2e 52 49 53 43 5f  |eload$Dir>.RISC_|
00000130  4f 53 5f 32 2e 21 53 79  73 74 65 6d 2e 0a 49 66  |OS_2.!System..If|
00000140  20 22 3c 57 69 6d 70 24  53 63 72 61 70 3e 22 20  | "<Wimp$Scrap>" |
00000150  3d 22 22 20 74 68 65 6e  20 53 65 74 20 57 69 6d  |="" then Set Wim|
00000160  70 24 53 63 72 61 70 20  20 3c 46 69 72 65 77 6f  |p$Scrap  <Firewo|
00000170  72 6b 7a 5f 50 72 65 6c  6f 61 64 24 44 69 72 3e  |rkz_Preload$Dir>|
00000180  2e 52 49 53 43 5f 4f 53  5f 32 2e 21 53 79 73 74  |.RISC_OS_2.!Syst|
00000190  65 6d 2e 53 63 72 61 70  46 69 6c 65 0a 7c 0a 52  |em.ScrapFile.|.R|
000001a0  4d 45 6e 73 75 72 65 20  53 71 75 61 73 68 20 30  |MEnsure Squash 0|
000001b0  2e 30 30 20 52 4d 4c 6f  61 64 20 3c 46 69 72 65  |.00 RMLoad <Fire|
000001c0  77 6f 72 6b 7a 5f 50 72  65 6c 6f 61 64 24 44 69  |workz_Preload$Di|
000001d0  72 3e 2e 52 49 53 43 5f  4f 53 5f 32 2e 21 53 79  |r>.RISC_OS_2.!Sy|
000001e0  73 74 65 6d 2e 4d 6f 64  75 6c 65 73 2e 53 71 75  |stem.Modules.Squ|
000001f0  61 73 68 0a 7c 0a 52 4d  45 6e 73 75 72 65 20 43  |ash.|.RMEnsure C|
00000200  6f 6c 6f 75 72 54 72 61  6e 73 20 30 2e 35 32 20  |olourTrans 0.52 |
00000210  52 4d 4c 6f 61 64 20 3c  46 69 72 65 77 6f 72 6b  |RMLoad <Firework|
00000220  7a 5f 50 72 65 6c 6f 61  64 24 44 69 72 3e 2e 52  |z_Preload$Dir>.R|
00000230  49 53 43 5f 4f 53 5f 32  2e 21 53 79 73 74 65 6d  |ISC_OS_2.!System|
00000240  2e 4d 6f 64 75 6c 65 73  2e 43 6f 6c 6f 75 72 73  |.Modules.Colours|
00000250  0a 7c 0a 53 65 74 20 46  69 72 65 77 6f 72 6b 7a  |.|.Set Fireworkz|
00000260  24 43 4c 69 62 4c 6f 61  64 65 64 20 31 0a 52 4d  |$CLibLoaded 1.RM|
00000270  45 6e 73 75 72 65 20 53  68 61 72 65 64 43 4c 69  |Ensure SharedCLi|
00000280  62 72 61 72 79 20 30 2e  30 30 20 53 65 74 20 46  |brary 0.00 Set F|
00000290  69 72 65 77 6f 72 6b 7a  24 43 4c 69 62 4c 6f 61  |ireworkz$CLibLoa|
000002a0  64 65 64 20 30 0a 49 66  20 46 69 72 65 77 6f 72  |ded 0.If Firewor|
000002b0  6b 7a 24 43 4c 69 62 4c  6f 61 64 65 64 3d 31 20  |kz$CLibLoaded=1 |
000002c0  74 68 65 6e 20 52 4d 45  6e 73 75 72 65 20 53 68  |then RMEnsure Sh|
000002d0  61 72 65 64 43 4c 69 62  72 61 72 79 20 33 2e 37  |aredCLibrary 3.7|
000002e0  35 20 45 72 72 6f 72 20  30 20 59 6f 75 20 61 72  |5 Error 0 You ar|
000002f0  65 20 61 6c 72 65 61 64  79 20 72 75 6e 6e 69 6e  |e already runnin|
00000300  67 20 61 20 76 65 72 73  69 6f 6e 20 6f 66 20 43  |g a version of C|
00000310  4c 69 62 20 77 68 69 63  68 20 69 73 20 74 6f 6f  |Lib which is too|
00000320  20 6f 6c 64 2e 20 46 69  72 65 77 6f 72 6b 7a 20  | old. Fireworkz |
00000330  6e 65 65 64 73 20 53 68  61 72 65 64 43 4c 69 62  |needs SharedCLib|
00000340  72 61 72 79 20 33 2e 37  35 20 6f 72 20 6c 61 74  |rary 3.75 or lat|
00000350  65 72 0a 49 66 20 46 69  72 65 77 6f 72 6b 7a 24  |er.If Fireworkz$|
00000360  43 4c 69 62 4c 6f 61 64  65 64 3d 30 20 74 68 65  |CLibLoaded=0 the|
00000370  6e 20 52 4d 4c 6f 61 64  20 3c 46 69 72 65 77 6f  |n RMLoad <Firewo|
00000380  72 6b 7a 5f 50 72 65 6c  6f 61 64 24 44 69 72 3e  |rkz_Preload$Dir>|
00000390  2e 52 49 53 43 5f 4f 53  5f 32 2e 21 53 79 73 74  |.RISC_OS_2.!Syst|
000003a0  65 6d 2e 4d 6f 64 75 6c  65 73 2e 43 4c 69 62 0a  |em.Modules.CLib.|
000003b0  55 6e 73 65 74 20 46 69  72 65 77 6f 72 6b 7a 24  |Unset Fireworkz$|
000003c0  43 4c 69 62 4c 6f 61 64  65 64 0a 52 4d 45 6e 73  |CLibLoaded.RMEns|
000003d0  75 72 65 20 53 68 61 72  65 64 43 4c 69 62 72 61  |ure SharedCLibra|
000003e0  72 79 20 33 2e 37 35 20  45 72 72 6f 72 20 59 6f  |ry 3.75 Error Yo|
000003f0  75 20 6e 65 65 64 20 53  68 61 72 65 64 43 4c 69  |u need SharedCLi|
00000400  62 72 61 72 79 20 33 2e  37 35 20 6f 72 20 6c 61  |brary 3.75 or la|
00000410  74 65 72 0a 7c 0a 52 4d  45 6e 73 75 72 65 20 46  |ter.|.RMEnsure F|
00000420  50 45 6d 75 6c 61 74 6f  72 20 32 2e 37 30 20 52  |PEmulator 2.70 R|
00000430  4d 4c 6f 61 64 20 3c 46  69 72 65 77 6f 72 6b 7a  |MLoad <Fireworkz|
00000440  5f 50 72 65 6c 6f 61 64  24 44 69 72 3e 2e 52 49  |_Preload$Dir>.RI|
00000450  53 43 5f 4f 53 5f 32 2e  21 53 79 73 74 65 6d 2e  |SC_OS_2.!System.|
00000460  4d 6f 64 75 6c 65 73 2e  46 50 45 6d 75 6c 61 74  |Modules.FPEmulat|
00000470  6f 72 0a 7c 0a 7c 20 50  6f 69 6e 74 20 46 69 72  |or.|.| Point Fir|
00000480  65 77 6f 72 6b 7a 20 61  74 20 74 68 69 73 20 64  |eworkz at this d|
00000490  69 73 63 20 61 73 20 61  20 6c 61 73 74 20 72 65  |isc as a last re|
000004a0  73 6f 72 74 20 66 6f 72  20 72 65 73 6f 75 72 63  |sort for resourc|
000004b0  65 20 6c 6f 61 64 69 6e  67 0a 7c 0a 53 65 74 20  |e loading.|.Set |
000004c0  46 69 72 65 77 6f 72 6b  7a 24 45 6e 64 50 61 74  |Fireworkz$EndPat|
000004d0  68 20 2c 3c 46 69 72 65  77 6f 72 6b 7a 5f 50 72  |h ,<Fireworkz_Pr|
000004e0  65 6c 6f 61 64 24 44 69  72 3e 2e 5f 46 69 72 65  |eload$Dir>._Fire|
000004f0  77 6f 72 6b 7a 2e 52 65  73 6f 75 72 63 65 2e 0a  |workz.Resource..|
00000500  7c 0a 55 6e 73 65 74 20  46 69 72 65 77 6f 72 6b  ||.Unset Firework|
00000510  7a 5f 50 72 65 6c 6f 61  64 24 44 69 72 0a 7c 0a  |z_Preload$Dir.|.|
00000520  52 75 6e 20 61 64 66 73  3a 3a 46 69 72 65 77 6f  |Run adfs::Firewo|
00000530  72 6b 7a 2e 24 2e 21 46  69 72 65 77 6f 72 6b 7a  |rkz.$.!Fireworkz|
00000540  2e 21 52 75 6e                                    |.!Run|
00000545