Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199607.adf » Regulars » StarInfo/Marriott/!Bdrops/!Run

StarInfo/Marriott/!Bdrops/!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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199607.adf » Regulars
Filename: StarInfo/Marriott/!Bdrops/!Run
Read OK:
File size: 02DC bytes
Load address: 0000
Exec address: 0000
File contents
| Bdrops � Nicholas Marriott 1995

IconSprites <Obey$Dir>.!Sprites
RMEnsure UtilityModule 3.10 Error 0 This program requires RISC OS 3.1 or later

Set Bdrops$Dir <Obey$Dir>

| Set to the time interval in seconds
Set Bdrops$Time 30

| Set to the last backdrop in that module
| Colours=19
Set Bdrops$Total 19

| Set to the module you wish to use (stored in <Bdrop$Dir>.Modules)
Set Bdrops$Module Colours

| Load backdrop module if required
RMLoad <Bdrops$Dir>.Modules.<Bdrops$Module>

| Must point to backdrop directory
Set Bdrops$Path Resources:$.Backdrops.<Bdrops$Module>.

WimpSlot -min 8k -max 8k
Run <Bdrops$Dir>.!RunImage

| Does this next line work on Risc OS 3.1 machines?
Backdrop -Remove
RMEnsure Backdrops RMKill Backdrops
00000000  7c 20 42 64 72 6f 70 73  20 a9 20 4e 69 63 68 6f  || Bdrops . Nicho|
00000010  6c 61 73 20 4d 61 72 72  69 6f 74 74 20 31 39 39  |las Marriott 199|
00000020  35 0a 0a 49 63 6f 6e 53  70 72 69 74 65 73 20 3c  |5..IconSprites <|
00000030  4f 62 65 79 24 44 69 72  3e 2e 21 53 70 72 69 74  |Obey$Dir>.!Sprit|
00000040  65 73 0a 52 4d 45 6e 73  75 72 65 20 55 74 69 6c  |es.RMEnsure Util|
00000050  69 74 79 4d 6f 64 75 6c  65 20 33 2e 31 30 20 45  |ityModule 3.10 E|
00000060  72 72 6f 72 20 30 20 54  68 69 73 20 70 72 6f 67  |rror 0 This prog|
00000070  72 61 6d 20 72 65 71 75  69 72 65 73 20 52 49 53  |ram requires RIS|
00000080  43 20 4f 53 20 33 2e 31  20 6f 72 20 6c 61 74 65  |C OS 3.1 or late|
00000090  72 0a 0a 53 65 74 20 42  64 72 6f 70 73 24 44 69  |r..Set Bdrops$Di|
000000a0  72 20 3c 4f 62 65 79 24  44 69 72 3e 0a 0a 7c 20  |r <Obey$Dir>..| |
000000b0  53 65 74 20 74 6f 20 74  68 65 20 74 69 6d 65 20  |Set to the time |
000000c0  69 6e 74 65 72 76 61 6c  20 69 6e 20 73 65 63 6f  |interval in seco|
000000d0  6e 64 73 0a 53 65 74 20  42 64 72 6f 70 73 24 54  |nds.Set Bdrops$T|
000000e0  69 6d 65 20 33 30 0a 0a  7c 20 53 65 74 20 74 6f  |ime 30..| Set to|
000000f0  20 74 68 65 20 6c 61 73  74 20 62 61 63 6b 64 72  | the last backdr|
00000100  6f 70 20 69 6e 20 74 68  61 74 20 6d 6f 64 75 6c  |op in that modul|
00000110  65 0a 7c 20 43 6f 6c 6f  75 72 73 3d 31 39 0a 53  |e.| Colours=19.S|
00000120  65 74 20 42 64 72 6f 70  73 24 54 6f 74 61 6c 20  |et Bdrops$Total |
00000130  31 39 0a 0a 7c 20 53 65  74 20 74 6f 20 74 68 65  |19..| Set to the|
00000140  20 6d 6f 64 75 6c 65 20  79 6f 75 20 77 69 73 68  | module you wish|
00000150  20 74 6f 20 75 73 65 20  28 73 74 6f 72 65 64 20  | to use (stored |
00000160  69 6e 20 3c 42 64 72 6f  70 24 44 69 72 3e 2e 4d  |in <Bdrop$Dir>.M|
00000170  6f 64 75 6c 65 73 29 0a  53 65 74 20 42 64 72 6f  |odules).Set Bdro|
00000180  70 73 24 4d 6f 64 75 6c  65 20 43 6f 6c 6f 75 72  |ps$Module Colour|
00000190  73 0a 0a 7c 20 4c 6f 61  64 20 62 61 63 6b 64 72  |s..| Load backdr|
000001a0  6f 70 20 6d 6f 64 75 6c  65 20 69 66 20 72 65 71  |op module if req|
000001b0  75 69 72 65 64 0a 52 4d  4c 6f 61 64 20 3c 42 64  |uired.RMLoad <Bd|
000001c0  72 6f 70 73 24 44 69 72  3e 2e 4d 6f 64 75 6c 65  |rops$Dir>.Module|
000001d0  73 2e 3c 42 64 72 6f 70  73 24 4d 6f 64 75 6c 65  |s.<Bdrops$Module|
000001e0  3e 0a 0a 7c 20 4d 75 73  74 20 70 6f 69 6e 74 20  |>..| Must point |
000001f0  74 6f 20 62 61 63 6b 64  72 6f 70 20 64 69 72 65  |to backdrop dire|
00000200  63 74 6f 72 79 0a 53 65  74 20 42 64 72 6f 70 73  |ctory.Set Bdrops|
00000210  24 50 61 74 68 20 52 65  73 6f 75 72 63 65 73 3a  |$Path Resources:|
00000220  24 2e 42 61 63 6b 64 72  6f 70 73 2e 3c 42 64 72  |$.Backdrops.<Bdr|
00000230  6f 70 73 24 4d 6f 64 75  6c 65 3e 2e 0a 0a 57 69  |ops$Module>...Wi|
00000240  6d 70 53 6c 6f 74 20 2d  6d 69 6e 20 38 6b 20 2d  |mpSlot -min 8k -|
00000250  6d 61 78 20 38 6b 0a 52  75 6e 20 3c 42 64 72 6f  |max 8k.Run <Bdro|
00000260  70 73 24 44 69 72 3e 2e  21 52 75 6e 49 6d 61 67  |ps$Dir>.!RunImag|
00000270  65 0a 0a 7c 20 44 6f 65  73 20 74 68 69 73 20 6e  |e..| Does this n|
00000280  65 78 74 20 6c 69 6e 65  20 77 6f 72 6b 20 6f 6e  |ext line work on|
00000290  20 52 69 73 63 20 4f 53  20 33 2e 31 20 6d 61 63  | Risc OS 3.1 mac|
000002a0  68 69 6e 65 73 3f 0a 42  61 63 6b 64 72 6f 70 20  |hines?.Backdrop |
000002b0  2d 52 65 6d 6f 76 65 0a  52 4d 45 6e 73 75 72 65  |-Remove.RMEnsure|
000002c0  20 42 61 63 6b 64 72 6f  70 73 20 52 4d 4b 69 6c  | Backdrops RMKil|
000002d0  6c 20 42 61 63 6b 64 72  6f 70 73 0a              |l Backdrops.|
000002dc