Home » Archimedes archive » Acorn User » AU 1998-02 B.adf » JFShared » !JFShared/Skeleton/Squashed/CompressVF
!JFShared/Skeleton/Squashed/CompressVF
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 » AU 1998-02 B.adf » JFShared |
| Filename: | !JFShared/Skeleton/Squashed/CompressVF |
| Read OK: | ✔ |
| File size: | 0155 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
| To BasCompress this application (including vars and functions) Set This$Dir <Obey$Dir> BasCompress -In <This$Dir>.!RunImageU -Out <This$Dir>.!RunImage -Throwback -CVar -WEndRtn -Reduce "irpf" -XRef 0 -MultiDEF -special <JFShared$Dir>.Skeleton.Squashed.Special | Add this if you have your own 'special' file : | -special <This$Dir>.Special
00000000 7c 20 54 6f 20 42 61 73 43 6f 6d 70 72 65 73 73 || To BasCompress| 00000010 20 74 68 69 73 20 61 70 70 6c 69 63 61 74 69 6f | this applicatio| 00000020 6e 20 28 69 6e 63 6c 75 64 69 6e 67 20 76 61 72 |n (including var| 00000030 73 20 61 6e 64 20 66 75 6e 63 74 69 6f 6e 73 29 |s and functions)| 00000040 0a 53 65 74 20 54 68 69 73 24 44 69 72 20 3c 4f |.Set This$Dir <O| 00000050 62 65 79 24 44 69 72 3e 0a 42 61 73 43 6f 6d 70 |bey$Dir>.BasComp| 00000060 72 65 73 73 20 2d 49 6e 20 3c 54 68 69 73 24 44 |ress -In <This$D| 00000070 69 72 3e 2e 21 52 75 6e 49 6d 61 67 65 55 20 2d |ir>.!RunImageU -| 00000080 4f 75 74 20 3c 54 68 69 73 24 44 69 72 3e 2e 21 |Out <This$Dir>.!| 00000090 52 75 6e 49 6d 61 67 65 20 2d 54 68 72 6f 77 62 |RunImage -Throwb| 000000a0 61 63 6b 20 2d 43 56 61 72 20 2d 57 45 6e 64 52 |ack -CVar -WEndR| 000000b0 74 6e 20 2d 52 65 64 75 63 65 20 22 69 72 70 66 |tn -Reduce "irpf| 000000c0 22 20 2d 58 52 65 66 20 30 20 2d 4d 75 6c 74 69 |" -XRef 0 -Multi| 000000d0 44 45 46 20 2d 73 70 65 63 69 61 6c 20 3c 4a 46 |DEF -special <JF| 000000e0 53 68 61 72 65 64 24 44 69 72 3e 2e 53 6b 65 6c |Shared$Dir>.Skel| 000000f0 65 74 6f 6e 2e 53 71 75 61 73 68 65 64 2e 53 70 |eton.Squashed.Sp| 00000100 65 63 69 61 6c 0a 7c 20 41 64 64 20 74 68 69 73 |ecial.| Add this| 00000110 20 69 66 20 79 6f 75 20 68 61 76 65 20 79 6f 75 | if you have you| 00000120 72 20 6f 77 6e 20 27 73 70 65 63 69 61 6c 27 20 |r own 'special' | 00000130 66 69 6c 65 20 3a 0a 7c 20 2d 73 70 65 63 69 61 |file :.| -specia| 00000140 6c 20 3c 54 68 69 73 24 44 69 72 3e 2e 53 70 65 |l <This$Dir>.Spe| 00000150 63 69 61 6c 0a |cial.| 00000155
.