Home » Personal collection » Acorn ADFS disks » Electron » Programs.ADF » Caterpill

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 ADFS disks » Electron » Programs.ADF
Filename: Caterpill
Read OK:
File size: 00B6 bytes
Load address: FFFF0E00
Exec address: FFFF8023
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@
2St=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
Zch=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
Caterpill.m0
Caterpill.m1
Caterpill.m2
Caterpill.m4
Caterpill.m5