Home » Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/Caterpill
dcfprog3/Caterpill
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 hard disk » misc » misc3 |
| Filename: | dcfprog3/Caterpill |
| Read OK: | ✔ |
| File size: | 00B6 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 6 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Caterpill
- Personal collection » Acorn ADFS disks » Electron » Programs.ADF » Caterpill
- Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF » Caterpill
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Caterpill
- Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Caterpill
- Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/Caterpill
- Personal collection » Acorn tapes » Own_Work » drawer_tl_tape04a_c15_acorn_henry1.wav » Caterpill.
File contents
10VDU2 20ch=1:hi=1 30St=1:Wo=ch 40IFWo=1THEN80 50St=St+1 60IFINT(Wo/2)=Wo/2THENWo=Wo/2:GOTO40 70Wo=Wo+1:GOTO40 80IF St>hi THEN hi=St:PRINT"Highest so far: ";ch;" with ";St 90ch=ch+2 100GOTO30
�2 ch=1:hi=1 St=1:Wo=ch (�Wo=1��DP@ 2 St=St+1 < �(Wo/2)=Wo/2�Wo=Wo/2:�Th@ FWo=Wo+1:�Th@ P6� St>hi � hi=St:�"Highest so far: ";ch;" with ";St Z ch=ch+2 d �T^@ �
00000000 0d 00 0a 06 ef 32 0d 00 14 0d 63 68 3d 31 3a 68 |.....2....ch=1:h| 00000010 69 3d 31 0d 00 1e 0e 53 74 3d 31 3a 57 6f 3d 63 |i=1....St=1:Wo=c| 00000020 68 0d 00 28 0e e7 57 6f 3d 31 8c 8d 44 50 40 0d |h..(..Wo=1..DP@.| 00000030 00 32 0b 53 74 3d 53 74 2b 31 0d 00 3c 1f e7 a8 |.2.St=St+1..<...| 00000040 28 57 6f 2f 32 29 3d 57 6f 2f 32 8c 57 6f 3d 57 |(Wo/2)=Wo/2.Wo=W| 00000050 6f 2f 32 3a e5 8d 54 68 40 0d 00 46 11 57 6f 3d |o/2:..Th@..F.Wo=| 00000060 57 6f 2b 31 3a e5 8d 54 68 40 0d 00 50 36 e7 20 |Wo+1:..Th@..P6. | 00000070 53 74 3e 68 69 20 8c 20 68 69 3d 53 74 3a f1 22 |St>hi . hi=St:."| 00000080 48 69 67 68 65 73 74 20 73 6f 20 66 61 72 3a 20 |Highest so far: | 00000090 22 3b 63 68 3b 22 20 77 69 74 68 20 22 3b 53 74 |";ch;" with ";St| 000000a0 0d 00 5a 0b 63 68 3d 63 68 2b 32 0d 00 64 09 e5 |..Z.ch=ch+2..d..| 000000b0 8d 54 5e 40 0d ff |.T^@..| 000000b6
.