Home » Archimedes archive » Acorn User » Acorn User - Updated Shareware Collection (1994).adf » Programs » !WelcomeA/!Compile
!WelcomeA/!Compile
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 » Acorn User » Acorn User - Updated Shareware Collection (1994).adf » Programs |
| Filename: | !WelcomeA/!Compile |
| Read OK: | ✔ |
| File size: | 02F4 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
Set MakeDesktopWelcomeModule$Dir <Obey$Dir> Set MakeDesktopWelcomeModule$Path <MakeDesktopWelcomeModule$Dir>.,System:Modules. RMEnsure CAssembler 0.08 RMLoad MakeDesktopWelcomeModule:CAssembler RMEnsure CAssembler 0.08 Error CAssembler module too old Set BasicV$Lib <MakeDesktopWelcomeModule$Dir>.Library Set BasicV_Assembler$Lib <BasicV$Lib>.Assembler | Set MakeDesktopWelcomeModule$Input <MakeDesktopWelcomeModule$Dir>.Sprite Set MakeDesktopWelcomeModule$Output <MakeDesktopWelcomeModule$Dir>.Module Set MakeDesktopWelcomeModule$Buffered Y | if "Y" then use screen buffering to remove flicker Set MakeDesktopWelcomeModule$NFrames 33 | NFrame should by ODD if buffered | WimpSlot -Min 300K -Max 300K /<MakeDesktopWelcomeModule$Dir>.Source
00000000 53 65 74 20 4d 61 6b 65 44 65 73 6b 74 6f 70 57 |Set MakeDesktopW| 00000010 65 6c 63 6f 6d 65 4d 6f 64 75 6c 65 24 44 69 72 |elcomeModule$Dir| 00000020 20 3c 4f 62 65 79 24 44 69 72 3e 0a 53 65 74 20 | <Obey$Dir>.Set | 00000030 4d 61 6b 65 44 65 73 6b 74 6f 70 57 65 6c 63 6f |MakeDesktopWelco| 00000040 6d 65 4d 6f 64 75 6c 65 24 50 61 74 68 20 3c 4d |meModule$Path <M| 00000050 61 6b 65 44 65 73 6b 74 6f 70 57 65 6c 63 6f 6d |akeDesktopWelcom| 00000060 65 4d 6f 64 75 6c 65 24 44 69 72 3e 2e 2c 53 79 |eModule$Dir>.,Sy| 00000070 73 74 65 6d 3a 4d 6f 64 75 6c 65 73 2e 0a 0a 52 |stem:Modules...R| 00000080 4d 45 6e 73 75 72 65 20 43 41 73 73 65 6d 62 6c |MEnsure CAssembl| 00000090 65 72 20 30 2e 30 38 20 52 4d 4c 6f 61 64 20 4d |er 0.08 RMLoad M| 000000a0 61 6b 65 44 65 73 6b 74 6f 70 57 65 6c 63 6f 6d |akeDesktopWelcom| 000000b0 65 4d 6f 64 75 6c 65 3a 43 41 73 73 65 6d 62 6c |eModule:CAssembl| 000000c0 65 72 0a 52 4d 45 6e 73 75 72 65 20 43 41 73 73 |er.RMEnsure CAss| 000000d0 65 6d 62 6c 65 72 20 30 2e 30 38 20 45 72 72 6f |embler 0.08 Erro| 000000e0 72 20 43 41 73 73 65 6d 62 6c 65 72 20 6d 6f 64 |r CAssembler mod| 000000f0 75 6c 65 20 74 6f 6f 20 6f 6c 64 0a 0a 53 65 74 |ule too old..Set| 00000100 20 42 61 73 69 63 56 24 4c 69 62 20 3c 4d 61 6b | BasicV$Lib <Mak| 00000110 65 44 65 73 6b 74 6f 70 57 65 6c 63 6f 6d 65 4d |eDesktopWelcomeM| 00000120 6f 64 75 6c 65 24 44 69 72 3e 2e 4c 69 62 72 61 |odule$Dir>.Libra| 00000130 72 79 0a 53 65 74 20 42 61 73 69 63 56 5f 41 73 |ry.Set BasicV_As| 00000140 73 65 6d 62 6c 65 72 24 4c 69 62 20 3c 42 61 73 |sembler$Lib <Bas| 00000150 69 63 56 24 4c 69 62 3e 2e 41 73 73 65 6d 62 6c |icV$Lib>.Assembl| 00000160 65 72 0a 7c 0a 53 65 74 20 4d 61 6b 65 44 65 73 |er.|.Set MakeDes| 00000170 6b 74 6f 70 57 65 6c 63 6f 6d 65 4d 6f 64 75 6c |ktopWelcomeModul| 00000180 65 24 49 6e 70 75 74 20 20 20 20 20 20 3c 4d 61 |e$Input <Ma| 00000190 6b 65 44 65 73 6b 74 6f 70 57 65 6c 63 6f 6d 65 |keDesktopWelcome| 000001a0 4d 6f 64 75 6c 65 24 44 69 72 3e 2e 53 70 72 69 |Module$Dir>.Spri| 000001b0 74 65 0a 53 65 74 20 4d 61 6b 65 44 65 73 6b 74 |te.Set MakeDeskt| 000001c0 6f 70 57 65 6c 63 6f 6d 65 4d 6f 64 75 6c 65 24 |opWelcomeModule$| 000001d0 4f 75 74 70 75 74 20 20 20 20 20 3c 4d 61 6b 65 |Output <Make| 000001e0 44 65 73 6b 74 6f 70 57 65 6c 63 6f 6d 65 4d 6f |DesktopWelcomeMo| 000001f0 64 75 6c 65 24 44 69 72 3e 2e 4d 6f 64 75 6c 65 |dule$Dir>.Module| 00000200 0a 53 65 74 20 4d 61 6b 65 44 65 73 6b 74 6f 70 |.Set MakeDesktop| 00000210 57 65 6c 63 6f 6d 65 4d 6f 64 75 6c 65 24 42 75 |WelcomeModule$Bu| 00000220 66 66 65 72 65 64 20 20 20 59 0a 7c 20 69 66 20 |ffered Y.| if | 00000230 22 59 22 20 74 68 65 6e 20 75 73 65 20 73 63 72 |"Y" then use scr| 00000240 65 65 6e 20 62 75 66 66 65 72 69 6e 67 20 74 6f |een buffering to| 00000250 20 72 65 6d 6f 76 65 20 66 6c 69 63 6b 65 72 0a | remove flicker.| 00000260 53 65 74 20 4d 61 6b 65 44 65 73 6b 74 6f 70 57 |Set MakeDesktopW| 00000270 65 6c 63 6f 6d 65 4d 6f 64 75 6c 65 24 4e 46 72 |elcomeModule$NFr| 00000280 61 6d 65 73 20 20 20 20 33 33 0a 7c 20 4e 46 72 |ames 33.| NFr| 00000290 61 6d 65 20 73 68 6f 75 6c 64 20 62 79 20 4f 44 |ame should by OD| 000002a0 44 20 69 66 20 62 75 66 66 65 72 65 64 0a 7c 0a |D if buffered.|.| 000002b0 57 69 6d 70 53 6c 6f 74 20 2d 4d 69 6e 20 33 30 |WimpSlot -Min 30| 000002c0 30 4b 20 2d 4d 61 78 20 33 30 30 4b 0a 2f 3c 4d |0K -Max 300K./<M| 000002d0 61 6b 65 44 65 73 6b 74 6f 70 57 65 6c 63 6f 6d |akeDesktopWelcom| 000002e0 65 4d 6f 64 75 6c 65 24 44 69 72 3e 2e 53 6f 75 |eModule$Dir>.Sou| 000002f0 72 63 65 0a |rce.| 000002f4
.