Home » Personal collection » Commodore tapes » Commodore_64 » drawer_tr_tape03b_d60_c64_music_studies.wav » caterpillars
caterpillars
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 » Commodore tapes » Commodore_64 » drawer_tr_tape03b_d60_c64_music_studies.wav |
| Filename: | caterpillars |
| Read OK: | ✔ |
| File size: | 0172 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 SCNCLR
20 FOR A=5 TO 1000000
30 B=A
40 Z=B/2:IF INT(Z)<>Z THEN B=B+1
45 IF INT(Z)=Z THEN B=B/2
50 C=C+1
60 IF C>D THEN D=C:E=A
65 IF B<>1 THEN 40
70 IF A=100 THEN PRINT "100=HIGH";D;" NUMBER";E
80 IF A=1000 THEN PRINT "1000=HIGH";D;" NUMBER";E
90 IF A=10000 THEN PRINT "10000=HIGH";D;" NUMBER";E
100 IF A=100000 THEN PRINT "100000=HIGH";D;" NUMBER";E
110 IF A=1000000 THEN PRINT "1000000=HIGH";D;" NUMBER";E
115 C=0
120 NEXT
� � A�5 � 1000000 # B�A ?( Z�B�2:� �(Z)��Z � B�B�1 T- � �(Z)�Z � B�B�2 ^2 C�C�1 r< � C�D � D�C:E�A �A � B��1 � 40 �F � A�100 � � "100=HIGH";D;" NUMBER";E �P � A�1000 � � "1000=HIGH";D;" NUMBER";E Z � A�10000 � � "10000=HIGH";D;" NUMBER";E 2d � A�100000 � � "100000=HIGH";D;" NUMBER";E cn � A�1000000 � � "1000000=HIGH";D;" NUMBER";E ks C�0 qx �
GPJ@.@[PT@. a.5 . 1000000@#P.@b.a@?P(@z.b.2:. .(z)..z . b.b.1@tP-@. .(z).z . b.b.2@.P2@c.c.1@RP<@. c.d . d.c:e.a@.Pa@. b..1 . 40@.Pf@. a.100 . . "100=high";d;" number";e@.Pp@. a.1000 . . "1000=high";d;" number";e@CQz@. a.10000 . . "10000=high";d;" number";e@2QD@. a.100000 . . "100000=high";d;" number";e@CQN@. a.1000000 . . "1000000=high";d;" number";e@KQS@c.0@QQX@.@@@
00000000 07 10 0a 00 e8 00 1b 10 14 00 81 20 41 b2 35 20 |........... A.5 | 00000010 a4 20 31 30 30 30 30 30 30 00 23 10 1e 00 42 b2 |. 1000000.#...B.| 00000020 41 00 3f 10 28 00 5a b2 42 ad 32 3a 8b 20 b5 28 |A.?.(.Z.B.2:. .(| 00000030 5a 29 b3 b1 5a 20 a7 20 42 b2 42 aa 31 00 54 10 |Z)..Z . B.B.1.T.| 00000040 2d 00 8b 20 b5 28 5a 29 b2 5a 20 a7 20 42 b2 42 |-.. .(Z).Z . B.B| 00000050 ad 32 00 5e 10 32 00 43 b2 43 aa 31 00 72 10 3c |.2.^.2.C.C.1.r.<| 00000060 00 8b 20 43 b1 44 20 a7 20 44 b2 43 3a 45 b2 41 |.. C.D . D.C:E.A| 00000070 00 82 10 41 00 8b 20 42 b3 b1 31 20 a7 20 34 30 |...A.. B..1 . 40| 00000080 00 ab 10 46 00 8b 20 41 b2 31 30 30 20 a7 20 99 |...F.. A.100 . .| 00000090 20 22 31 30 30 3d 48 49 47 48 22 3b 44 3b 22 20 | "100=HIGH";D;" | 000000a0 4e 55 4d 42 45 52 22 3b 45 00 d6 10 50 00 8b 20 |NUMBER";E...P.. | 000000b0 41 b2 31 30 30 30 20 a7 20 99 20 22 31 30 30 30 |A.1000 . . "1000| 000000c0 3d 48 49 47 48 22 3b 44 3b 22 20 4e 55 4d 42 45 |=HIGH";D;" NUMBE| 000000d0 52 22 3b 45 00 03 11 5a 00 8b 20 41 b2 31 30 30 |R";E...Z.. A.100| 000000e0 30 30 20 a7 20 99 20 22 31 30 30 30 30 3d 48 49 |00 . . "10000=HI| 000000f0 47 48 22 3b 44 3b 22 20 4e 55 4d 42 45 52 22 3b |GH";D;" NUMBER";| 00000100 45 00 32 11 64 00 8b 20 41 b2 31 30 30 30 30 30 |E.2.d.. A.100000| 00000110 20 a7 20 99 20 22 31 30 30 30 30 30 3d 48 49 47 | . . "100000=HIG| 00000120 48 22 3b 44 3b 22 20 4e 55 4d 42 45 52 22 3b 45 |H";D;" NUMBER";E| 00000130 00 63 11 6e 00 8b 20 41 b2 31 30 30 30 30 30 30 |.c.n.. A.1000000| 00000140 20 a7 20 99 20 22 31 30 30 30 30 30 30 3d 48 49 | . . "1000000=HI| 00000150 47 48 22 3b 44 3b 22 20 4e 55 4d 42 45 52 22 3b |GH";D;" NUMBER";| 00000160 45 00 6b 11 73 00 43 b2 30 00 71 11 78 00 82 00 |E.k.s.C.0.q.x...| 00000170 00 00 |..| 00000172
.