Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199206b.adf » June92 » !AWJune92/Goodies/WordPairs/!WordPairs/!Run
!AWJune92/Goodies/WordPairs/!WordPairs/!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_ArchimedesWorld_199206b.adf » June92 |
| Filename: | !AWJune92/Goodies/WordPairs/!WordPairs/!Run |
| Read OK: | ✔ |
| File size: | 02B5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| Run file for !WordPairs | Simon Heys Set WordPair$Dir <Obey$Dir> Set File$Type_CB6 STmodule IconSprites <Obey$Dir>.!Sprites Echo <22><15><22><13><23><1><0><0><0><0><0><0><0><0> RMEnsure AnimatedHourglass 000 RMLoad <Obey$Dir>.HourMod RMEnsure TextFX 000 RMLoad <Obey$Dir>.TextFX Hourglass On |* If you have put some tunes in this directory, *| |* remove the | from the next four lines: *| |RMEnsure TrackerModule 2.06 RMLoad <Obey$Dir>.PM |RMEnsure TrackerModule 2.06 ERROR "'Word Pairs' requires tracker module 2.06 or greater.|M" |PlayInit <Obey$Dir>.Tune1 |PlayKill Set Tracker$ Yes RMEnsure TrackerModule 2.06 Set Tracker$ No Print <Obey$Dir>.WordFont Run <Obey$Dir>.!Title
00000000 7c 20 52 75 6e 20 66 69 6c 65 20 66 6f 72 20 21 || Run file for !| 00000010 57 6f 72 64 50 61 69 72 73 0a 7c 20 53 69 6d 6f |WordPairs.| Simo| 00000020 6e 20 48 65 79 73 0a 53 65 74 20 57 6f 72 64 50 |n Heys.Set WordP| 00000030 61 69 72 24 44 69 72 20 3c 4f 62 65 79 24 44 69 |air$Dir <Obey$Di| 00000040 72 3e 0a 53 65 74 20 46 69 6c 65 24 54 79 70 65 |r>.Set File$Type| 00000050 5f 43 42 36 20 53 54 6d 6f 64 75 6c 65 0a 49 63 |_CB6 STmodule.Ic| 00000060 6f 6e 53 70 72 69 74 65 73 20 3c 4f 62 65 79 24 |onSprites <Obey$| 00000070 44 69 72 3e 2e 21 53 70 72 69 74 65 73 0a 45 63 |Dir>.!Sprites.Ec| 00000080 68 6f 20 3c 32 32 3e 3c 31 35 3e 3c 32 32 3e 3c |ho <22><15><22><| 00000090 31 33 3e 3c 32 33 3e 3c 31 3e 3c 30 3e 3c 30 3e |13><23><1><0><0>| 000000a0 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 3c 30 3e 3c |<0><0><0><0><0><| 000000b0 30 3e 0a 52 4d 45 6e 73 75 72 65 20 41 6e 69 6d |0>.RMEnsure Anim| 000000c0 61 74 65 64 48 6f 75 72 67 6c 61 73 73 20 30 30 |atedHourglass 00| 000000d0 30 20 52 4d 4c 6f 61 64 20 3c 4f 62 65 79 24 44 |0 RMLoad <Obey$D| 000000e0 69 72 3e 2e 48 6f 75 72 4d 6f 64 0a 52 4d 45 6e |ir>.HourMod.RMEn| 000000f0 73 75 72 65 20 54 65 78 74 46 58 20 30 30 30 20 |sure TextFX 000 | 00000100 52 4d 4c 6f 61 64 20 3c 4f 62 65 79 24 44 69 72 |RMLoad <Obey$Dir| 00000110 3e 2e 54 65 78 74 46 58 0a 48 6f 75 72 67 6c 61 |>.TextFX.Hourgla| 00000120 73 73 20 4f 6e 20 20 20 20 0a 7c 2a 20 49 66 20 |ss On .|* If | 00000130 79 6f 75 20 68 61 76 65 20 70 75 74 20 73 6f 6d |you have put som| 00000140 65 20 74 75 6e 65 73 20 69 6e 20 74 68 69 73 20 |e tunes in this | 00000150 64 69 72 65 63 74 6f 72 79 2c 20 2a 7c 0a 7c 2a |directory, *|.|*| 00000160 20 72 65 6d 6f 76 65 20 74 68 65 20 7c 20 66 72 | remove the | fr| 00000170 6f 6d 20 74 68 65 20 6e 65 78 74 20 66 6f 75 72 |om the next four| 00000180 20 6c 69 6e 65 73 3a 20 20 20 20 20 20 20 20 2a | lines: *| 00000190 7c 0a 0a 7c 52 4d 45 6e 73 75 72 65 20 54 72 61 ||..|RMEnsure Tra| 000001a0 63 6b 65 72 4d 6f 64 75 6c 65 20 32 2e 30 36 20 |ckerModule 2.06 | 000001b0 52 4d 4c 6f 61 64 20 3c 4f 62 65 79 24 44 69 72 |RMLoad <Obey$Dir| 000001c0 3e 2e 50 4d 0a 7c 52 4d 45 6e 73 75 72 65 20 54 |>.PM.|RMEnsure T| 000001d0 72 61 63 6b 65 72 4d 6f 64 75 6c 65 20 32 2e 30 |rackerModule 2.0| 000001e0 36 20 45 52 52 4f 52 20 22 27 57 6f 72 64 20 50 |6 ERROR "'Word P| 000001f0 61 69 72 73 27 20 72 65 71 75 69 72 65 73 20 74 |airs' requires t| 00000200 72 61 63 6b 65 72 20 6d 6f 64 75 6c 65 20 32 2e |racker module 2.| 00000210 30 36 20 6f 72 20 67 72 65 61 74 65 72 2e 7c 4d |06 or greater.|M| 00000220 22 20 0a 7c 50 6c 61 79 49 6e 69 74 20 3c 4f 62 |" .|PlayInit <Ob| 00000230 65 79 24 44 69 72 3e 2e 54 75 6e 65 31 0a 7c 50 |ey$Dir>.Tune1.|P| 00000240 6c 61 79 4b 69 6c 6c 0a 0a 53 65 74 20 54 72 61 |layKill..Set Tra| 00000250 63 6b 65 72 24 20 59 65 73 0a 52 4d 45 6e 73 75 |cker$ Yes.RMEnsu| 00000260 72 65 20 54 72 61 63 6b 65 72 4d 6f 64 75 6c 65 |re TrackerModule| 00000270 20 32 2e 30 36 20 53 65 74 20 54 72 61 63 6b 65 | 2.06 Set Tracke| 00000280 72 24 20 4e 6f 0a 50 72 69 6e 74 20 3c 4f 62 65 |r$ No.Print <Obe| 00000290 79 24 44 69 72 3e 2e 57 6f 72 64 46 6f 6e 74 0a |y$Dir>.WordFont.| 000002a0 52 75 6e 20 3c 4f 62 65 79 24 44 69 72 3e 2e 21 |Run <Obey$Dir>.!| 000002b0 54 69 74 6c 65 |Title| 000002b5
.