Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » F/C/COMPT1
F/C/COMPT1
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 » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF |
| Filename: | F/C/COMPT1 |
| Read OK: | ✔ |
| File size: | 0160 bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » eug » eug_5_25_discs_Eug-18_D-EUG18.dsd » C.COMPT1
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » F/C/COMPT1
File contents
20MODE6
25*LOAD CPCODE1
30PRINT'"MODE? ";
40REPEAT:M%=INSTR("01245",GET$):UNTILM%
50IF M%<4 M%=M%-1
55PRINT;M%
60INPUT'"File to Compress? "f$
70MODE M%:OSCLI"LOAD "+f$
80IF M%>2 !&70=&5800:S%=&2800 ELSE !&70=&3000:S%=&5000
90HIMEM=PAGE+&180:H%=HIMEM:!&74=HIMEM:CALL&B00
160MODE6:L%=!&74-H%:P%=(S%-L%)*100/S%:PRINT'"Len &";~L%;" ";P%;"% comp"
170INPUT'"Filename to save ";fn$
180OSCLI"SAVE "+fn$+" "+STR$~H%+" +"+STR$~L%
�6 *LOAD CPCODE1 �'"MODE? "; (�:M%=�"01245",�):�M% 2� M%<4 M%=M%-1 7�;M% < �'"File to Compress? "f$ F� M%:�"LOAD "+f$ P4� M%>2 !&70=&5800:S%=&2800 � !&70=&3000:S%=&5000 Z �=�+&180:H%=�:!&74=�:�&B00 �D�6:L%=!&74-H%:P%=(S%-L%)*100/S%:�'"Len &";~L%;" ";P%;"% comp" � �'"Filename to save ";fn$ �#�"SAVE "+fn$+" "+�~H%+" +"+�~L% �
00000000 0d 00 14 06 eb 36 0d 00 19 11 2a 4c 4f 41 44 20 |.....6....*LOAD | 00000010 43 50 43 4f 44 45 31 0d 00 1e 0f f1 27 22 4d 4f |CPCODE1.....'"MO| 00000020 44 45 3f 20 22 3b 0d 00 28 18 f5 3a 4d 25 3d a7 |DE? ";..(..:M%=.| 00000030 22 30 31 32 34 35 22 2c be 29 3a fd 4d 25 0d 00 |"01245",.):.M%..| 00000040 32 12 e7 20 4d 25 3c 34 20 4d 25 3d 4d 25 2d 31 |2.. M%<4 M%=M%-1| 00000050 0d 00 37 08 f1 3b 4d 25 0d 00 3c 1c e8 27 22 46 |..7..;M%..<..'"F| 00000060 69 6c 65 20 74 6f 20 43 6f 6d 70 72 65 73 73 3f |ile to Compress?| 00000070 20 22 66 24 0d 00 46 14 eb 20 4d 25 3a ff 22 4c | "f$..F.. M%:."L| 00000080 4f 41 44 20 22 2b 66 24 0d 00 50 34 e7 20 4d 25 |OAD "+f$..P4. M%| 00000090 3e 32 20 21 26 37 30 3d 26 35 38 30 30 3a 53 25 |>2 !&70=&5800:S%| 000000a0 3d 26 32 38 30 30 20 8b 20 21 26 37 30 3d 26 33 |=&2800 . !&70=&3| 000000b0 30 30 30 3a 53 25 3d 26 35 30 30 30 0d 00 5a 1e |000:S%=&5000..Z.| 000000c0 d3 3d 90 2b 26 31 38 30 3a 48 25 3d 93 3a 21 26 |.=.+&180:H%=.:!&| 000000d0 37 34 3d 93 3a d6 26 42 30 30 0d 00 a0 44 eb 36 |74=.:.&B00...D.6| 000000e0 3a 4c 25 3d 21 26 37 34 2d 48 25 3a 50 25 3d 28 |:L%=!&74-H%:P%=(| 000000f0 53 25 2d 4c 25 29 2a 31 30 30 2f 53 25 3a f1 27 |S%-L%)*100/S%:.'| 00000100 22 4c 65 6e 20 26 22 3b 7e 4c 25 3b 22 20 20 20 |"Len &";~L%;" | 00000110 20 22 3b 50 25 3b 22 25 20 63 6f 6d 70 22 0d 00 | ";P%;"% comp"..| 00000120 aa 1d e8 27 22 46 69 6c 65 6e 61 6d 65 20 74 6f |...'"Filename to| 00000130 20 73 61 76 65 20 22 3b 66 6e 24 0d 00 b4 23 ff | save ";fn$...#.| 00000140 22 53 41 56 45 20 22 2b 66 6e 24 2b 22 20 22 2b |"SAVE "+fn$+" "+| 00000150 c3 7e 48 25 2b 22 20 2b 22 2b c3 7e 4c 25 0d ff |.~H%+" +"+.~L%..| 00000160
.