Home » Personal collection » Acorn ADFS disks » Electron » Cheat_finder.ADF » Rep2compr/COMPRESS
Rep2compr/COMPRESS
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 » Cheat_finder.ADF |
| Filename: | Rep2compr/COMPRESS |
| Read OK: | ✔ |
| File size: | 016E bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Cheat_finder.ADF » Rep2compr/COMPRESS
- Personal collection » Acorn hard disk » zipped_disks » elk07 » cheatfind/Rep2compr/COMPRESS
File contents
10 HIMEM=&2700:VDU 28,0,24,39,20 20 *LO. REPTONA1 4F00 30 ADD2%=&5000:ADD1%=&2800:F=0 40 IF ?ADD2%<>0 AND F=0 THEN ?ADD1%=?ADD2%:ADD1%=ADD1%+1:GOTO100 50 IF ?ADD2%<>0 AND F=1 THEN ?ADD1%=CO:ADD1%=ADD1%+1:?ADD1%=?ADD2%:ADD1%=ADD1%+1:F=0:GOTO100 60 IF F=0 THEN ?ADD1%=0:CO=1:ADD1%=ADD1%+1:F=1:GOTO100 70 CO=CO+1 100 ADD2%=ADD2%+1:IF ADD2%<&7800 THEN 40 110 IF F=1 THEN ?ADD1%=CO:ADD1%=ADD1%+1
�=&2700:� 28,0,24,39,20
*LO. REPTONA1 4F00
ADD2%=&5000:ADD1%=&2800:F=0
(: � ?ADD2%<>0 � F=0 � ?ADD1%=?ADD2%:ADD1%=ADD1%+1:�Dd@
2V � ?ADD2%<>0 � F=1 � ?ADD1%=CO:ADD1%=ADD1%+1:?ADD1%=?ADD2%:ADD1%=ADD1%+1:F=0:�Dd@
<2 � F=0 � ?ADD1%=0:CO=1:ADD1%=ADD1%+1:F=1:�Dd@
F CO=CO+1
d' ADD2%=ADD2%+1:� ADD2%<&7800 � �Th@
n$ � F=1 � ?ADD1%=CO:ADD1%=ADD1%+1
� 00000000 0d 00 0a 1c 20 d3 3d 26 32 37 30 30 3a ef 20 32 |.... .=&2700:. 2| 00000010 38 2c 30 2c 32 34 2c 33 39 2c 32 30 0d 00 14 17 |8,0,24,39,20....| 00000020 20 2a 4c 4f 2e 20 52 45 50 54 4f 4e 41 31 20 34 | *LO. REPTONA1 4| 00000030 46 30 30 0d 00 1e 20 20 41 44 44 32 25 3d 26 35 |F00... ADD2%=&5| 00000040 30 30 30 3a 41 44 44 31 25 3d 26 32 38 30 30 3a |000:ADD1%=&2800:| 00000050 46 3d 30 0d 00 28 3a 20 e7 20 3f 41 44 44 32 25 |F=0..(: . ?ADD2%| 00000060 3c 3e 30 20 80 20 46 3d 30 20 8c 20 3f 41 44 44 |<>0 . F=0 . ?ADD| 00000070 31 25 3d 3f 41 44 44 32 25 3a 41 44 44 31 25 3d |1%=?ADD2%:ADD1%=| 00000080 41 44 44 31 25 2b 31 3a e5 8d 44 64 40 0d 00 32 |ADD1%+1:..Dd@..2| 00000090 56 20 e7 20 3f 41 44 44 32 25 3c 3e 30 20 80 20 |V . ?ADD2%<>0 . | 000000a0 46 3d 31 20 8c 20 3f 41 44 44 31 25 3d 43 4f 3a |F=1 . ?ADD1%=CO:| 000000b0 41 44 44 31 25 3d 41 44 44 31 25 2b 31 3a 3f 41 |ADD1%=ADD1%+1:?A| 000000c0 44 44 31 25 3d 3f 41 44 44 32 25 3a 41 44 44 31 |DD1%=?ADD2%:ADD1| 000000d0 25 3d 41 44 44 31 25 2b 31 3a 46 3d 30 3a e5 8d |%=ADD1%+1:F=0:..| 000000e0 44 64 40 0d 00 3c 32 20 e7 20 46 3d 30 20 8c 20 |Dd@..<2 . F=0 . | 000000f0 3f 41 44 44 31 25 3d 30 3a 43 4f 3d 31 3a 41 44 |?ADD1%=0:CO=1:AD| 00000100 44 31 25 3d 41 44 44 31 25 2b 31 3a 46 3d 31 3a |D1%=ADD1%+1:F=1:| 00000110 e5 8d 44 64 40 0d 00 46 0c 20 43 4f 3d 43 4f 2b |..Dd@..F. CO=CO+| 00000120 31 0d 00 64 27 20 41 44 44 32 25 3d 41 44 44 32 |1..d' ADD2%=ADD2| 00000130 25 2b 31 3a e7 20 41 44 44 32 25 3c 26 37 38 30 |%+1:. ADD2%<&780| 00000140 30 20 8c 20 8d 54 68 40 0d 00 6e 24 20 e7 20 46 |0 . .Th@..n$ . F| 00000150 3d 31 20 8c 20 3f 41 44 44 31 25 3d 43 4f 3a 41 |=1 . ?ADD1%=CO:A| 00000160 44 44 31 25 3d 41 44 44 31 25 2b 31 0d ff |DD1%=ADD1%+1..| 0000016e
.