Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/BasicComp/!BC/Examples/ChangeFSI/Special
!AWFeb95/Goodies/BasicComp/!BC/Examples/ChangeFSI/Special
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 » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 |
| Filename: | !AWFeb95/Goodies/BasicComp/!BC/Examples/ChangeFSI/Special |
| Read OK: | ✔ |
| File size: | 01CC bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| Special file for ChangeFSI, a big (100K) image manipulator from Acorn | This demonstrates BasCompress'es ability to extract variables from wimp menu strings | Note you also need to amend the source because there is a DEF FNversion right at the start | and BasCompress thinks everything after this isn't the main program! | Note that there aren't any unused routines!! | Also note that the EVAL isn't actually inside domenu procedure domenu(,3,) integer >3
00000000 7c 20 53 70 65 63 69 61 6c 20 66 69 6c 65 20 66 || Special file f| 00000010 6f 72 20 43 68 61 6e 67 65 46 53 49 2c 20 61 20 |or ChangeFSI, a | 00000020 62 69 67 20 28 31 30 30 4b 29 20 69 6d 61 67 65 |big (100K) image| 00000030 20 6d 61 6e 69 70 75 6c 61 74 6f 72 20 66 72 6f | manipulator fro| 00000040 6d 20 41 63 6f 72 6e 0a 7c 20 54 68 69 73 20 64 |m Acorn.| This d| 00000050 65 6d 6f 6e 73 74 72 61 74 65 73 20 42 61 73 43 |emonstrates BasC| 00000060 6f 6d 70 72 65 73 73 27 65 73 20 61 62 69 6c 69 |ompress'es abili| 00000070 74 79 20 74 6f 20 65 78 74 72 61 63 74 20 76 61 |ty to extract va| 00000080 72 69 61 62 6c 65 73 20 66 72 6f 6d 20 77 69 6d |riables from wim| 00000090 70 20 6d 65 6e 75 20 73 74 72 69 6e 67 73 0a 7c |p menu strings.|| 000000a0 20 4e 6f 74 65 20 79 6f 75 20 61 6c 73 6f 20 6e | Note you also n| 000000b0 65 65 64 20 74 6f 20 61 6d 65 6e 64 20 74 68 65 |eed to amend the| 000000c0 20 73 6f 75 72 63 65 20 62 65 63 61 75 73 65 20 | source because | 000000d0 74 68 65 72 65 20 69 73 20 61 20 44 45 46 20 46 |there is a DEF F| 000000e0 4e 76 65 72 73 69 6f 6e 20 72 69 67 68 74 20 61 |Nversion right a| 000000f0 74 20 74 68 65 20 73 74 61 72 74 0a 7c 20 61 6e |t the start.| an| 00000100 64 20 42 61 73 43 6f 6d 70 72 65 73 73 20 74 68 |d BasCompress th| 00000110 69 6e 6b 73 20 65 76 65 72 79 74 68 69 6e 67 20 |inks everything | 00000120 61 66 74 65 72 20 74 68 69 73 20 69 73 6e 27 74 |after this isn't| 00000130 20 74 68 65 20 6d 61 69 6e 20 70 72 6f 67 72 61 | the main progra| 00000140 6d 21 0a 7c 20 4e 6f 74 65 20 74 68 61 74 20 74 |m!.| Note that t| 00000150 68 65 72 65 20 61 72 65 6e 27 74 20 61 6e 79 20 |here aren't any | 00000160 75 6e 75 73 65 64 20 72 6f 75 74 69 6e 65 73 21 |unused routines!| 00000170 21 0a 7c 20 41 6c 73 6f 20 6e 6f 74 65 20 74 68 |!.| Also note th| 00000180 61 74 20 74 68 65 20 45 56 41 4c 20 69 73 6e 27 |at the EVAL isn'| 00000190 74 20 61 63 74 75 61 6c 6c 79 20 69 6e 73 69 64 |t actually insid| 000001a0 65 20 64 6f 6d 65 6e 75 0a 0a 70 72 6f 63 65 64 |e domenu..proced| 000001b0 75 72 65 20 64 6f 6d 65 6e 75 28 2c 33 2c 29 0a |ure domenu(,3,).| 000001c0 20 20 69 6e 74 65 67 65 72 20 3e 33 | integer >3| 000001cc
.