Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » F/C/COMPT2
F/C/COMPT2
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/COMPT2 |
| Read OK: | ✔ |
| File size: | 0111 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.COMPT2
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_18.ADF » F/C/COMPT2
File contents
10REM COMPT2
20ONERROR:CLOSE#0:MODE6:REPORT:PRINT" at line ";ERL:END
30MODE6
40*LOAD CPCODE2
50PRINT'"MODE? ";
60REPEAT:M%=INSTR("01245",GET$):UNTILM%
70IF M%<4 M%=M%-1
80PRINT;M%
90INPUT'"File to Compress? "f$
100INPUT'"File to Save? "fn$
110MODE M%
120OSCLI"LOAD "+f$
130IF M%>2 !&70=&5800 ELSE !&70=&3000
140?&80=OPENOUTfn$
150CALL&B00
160CLOSE#0
� COMPT2 �:�#0:�6:�:�" at line ";�:� �6 (*LOAD CPCODE2 2�'"MODE? "; <�:M%=�"01245",�):�M% F� M%<4 M%=M%-1 P�;M% Z �'"File to Compress? "f$ d�'"File to Save? "fn$ n� M% x�"LOAD "+f$ �"� M%>2 !&70=&5800 � !&70=&3000 � ?&80=�fn$ � �&B00 ��#0 �
00000000 0d 00 0a 0c f4 20 43 4f 4d 50 54 32 0d 00 14 20 |..... COMPT2... | 00000010 ee 85 3a d9 23 30 3a eb 36 3a f6 3a f1 22 20 61 |..:.#0:.6:.:." a| 00000020 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 0d 00 1e 06 |t line ";.:.....| 00000030 eb 36 0d 00 28 11 2a 4c 4f 41 44 20 43 50 43 4f |.6..(.*LOAD CPCO| 00000040 44 45 32 0d 00 32 0f f1 27 22 4d 4f 44 45 3f 20 |DE2..2..'"MODE? | 00000050 22 3b 0d 00 3c 18 f5 3a 4d 25 3d a7 22 30 31 32 |";..<..:M%=."012| 00000060 34 35 22 2c be 29 3a fd 4d 25 0d 00 46 12 e7 20 |45",.):.M%..F.. | 00000070 4d 25 3c 34 20 4d 25 3d 4d 25 2d 31 0d 00 50 08 |M%<4 M%=M%-1..P.| 00000080 f1 3b 4d 25 0d 00 5a 1c e8 27 22 46 69 6c 65 20 |.;M%..Z..'"File | 00000090 74 6f 20 43 6f 6d 70 72 65 73 73 3f 20 22 66 24 |to Compress? "f$| 000000a0 0d 00 64 19 e8 27 22 46 69 6c 65 20 74 6f 20 53 |..d..'"File to S| 000000b0 61 76 65 3f 20 22 66 6e 24 0d 00 6e 08 eb 20 4d |ave? "fn$..n.. M| 000000c0 25 0d 00 78 0f ff 22 4c 4f 41 44 20 22 2b 66 24 |%..x.."LOAD "+f$| 000000d0 0d 00 82 22 e7 20 4d 25 3e 32 20 21 26 37 30 3d |...". M%>2 !&70=| 000000e0 26 35 38 30 30 20 8b 20 21 26 37 30 3d 26 33 30 |&5800 . !&70=&30| 000000f0 30 30 0d 00 8c 0d 3f 26 38 30 3d ae 66 6e 24 0d |00....?&80=.fn$.| 00000100 00 96 09 d6 26 42 30 30 0d 00 a0 07 d9 23 30 0d |....&B00.....#0.| 00000110 ff |.| 00000111
.