AUTOMATA 64
FILE INFORMATION
FILENAME(S): AUTOMATA 64
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 21:15:14
APPEARS ON: 1 disk(s)
FILE HASH
f25871c17c95174c776ad378f069dc6ffb2d9856d97861a5263c6bd98d69b0b6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | AUTOMATA 64 | PRG | DuncanTwain | 11 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 8D 20 36 35 30 00 28 08 14 00 |....... 650.(...|
00000010: 41 55 A4 4D 41 54 41 20 36 34 20 20 20 42 59 20 |AU.MATA 64 BY |
00000020: 49 41 4E 20 41 44 41 4D 00 2E 08 1E 00 3A 00 3E |IAN ADAM.....:.>|
00000030: 08 28 00 3A 20 4D 41 49 4E 20 4C 4F 4F 50 00 44 |.(.: MAIN LOOP.D|
00000040: 08 32 00 3A 00 5E 08 3C 00 99 20 A3 36 29 52 24 |.2.:.^.<.. .6)R$|
00000050: 22 91 22 3A 85 22 43 4F 44 45 22 3B 52 24 00 74 |".":."CODE";R$.t|
00000060: 08 46 00 41 B2 35 38 38 37 3A 81 20 49 B2 31 20 |.F.A.5887:. I.1 |
00000070: A4 20 31 30 00 8F 08 50 00 97 20 41 AA 49 2C C5 |. 10...P.. A.I,.|
00000080: 28 CA 28 52 24 2C 49 2C 31 29 29 20 AF 20 33 00 |(.(R$,I,1)) . 3.|
00000090: 95 08 5A 00 82 00 9B 08 64 00 3A 00 BA 08 6E 00 |..Z.....d.:...n.|
000000A0: 99 20 22 53 45 45 44 20 56 41 4C 55 45 20 20 31 |. "SEED VALUE 1|
000000B0: 9D 9D 9D 22 3B 3A 85 20 42 24 00 CE 08 78 00 8B |...";:. B$...x..|
000000C0: 20 C5 28 42 24 29 B2 30 20 A7 20 32 35 30 00 F3 | .(B$).0 . 250..|
000000D0: 08 82 00 99 20 22 50 4F 53 49 54 49 4F 4E 20 28 |.... "POSITION (|
000000E0: 31 2D 34 30 29 20 20 32 30 9D 9D 9D 9D 22 3B 3A |1-40) 20....";:|
000000F0: 85 20 41 00 19 09 8C 00 8D 20 35 34 30 3A 81 20 |. A...... 540:. |
00000100: 49 B2 38 31 39 32 20 A4 20 38 35 30 34 20 A9 20 |I.8192 . 8504 . |
00000110: 38 3A 97 20 49 2C 30 3A 82 00 34 09 96 00 97 20 |8:. I,0:..4.... |
00000120: 38 31 38 34 AA 38 AC 41 2C C5 28 42 24 29 20 AF |8184.8.A,.(B$) .|
00000130: 20 32 35 35 00 3A 09 A0 00 3A 00 45 09 AA 00 9E | 255.:...:.E....|
00000140: 20 35 39 30 30 00 4B 09 B4 00 3A 00 68 09 BE 00 | 5900.K...:.h...|
00000150: 81 20 49 B2 30 20 A4 20 39 39 39 3A 8B 20 C2 28 |. I.0 . 999:. .(|
00000160: 4B 29 20 A7 20 32 34 30 00 93 09 C8 00 82 3A 8D |K) . 240......:.|
00000170: 20 35 39 30 3A 99 22 4D 20 4D 4F 52 45 20 4F 46 | 590:."M MORE OF|
00000180: 20 54 48 49 53 20 20 50 20 50 52 49 4E 54 20 54 | THIS P PRINT T|
00000190: 48 49 53 00 B3 09 D2 00 99 22 53 20 4E 45 57 20 |HIS......"S NEW |
000001A0: 53 45 45 44 20 20 52 20 52 41 4E 44 4F 4D 20 53 |SEED R RANDOM S|
000001B0: 45 45 44 00 D7 09 DC 00 99 22 43 20 4E 45 57 20 |EED......"C NEW |
000001C0: 43 4F 44 45 20 20 41 20 41 55 54 4F 4D 41 54 49 |CODE A AUTOMATI|
000001D0: 43 20 43 4F 44 45 53 00 F3 09 E6 00 99 22 56 20 |C CODES......"V |
000001E0: 56 49 45 57 20 50 4C 4F 54 20 20 51 20 51 55 49 |VIEW PLOT Q QUI|
000001F0: 54 22 3B 00 02 0A F0 00 92 20 4B 2C 37 3A A1 20 |T";...... K,7:. |
00000200: 42 24 00 2D 0A FA 00 81 20 49 B2 31 20 A4 20 37 |B$.-.... I.1 . 7|
00000210: 3A 8B 20 CA 28 22 53 52 4D 43 41 50 51 22 2C 49 |:. .("SRMCAPQ",I|
00000220: 2C 31 29 20 B3 B1 20 42 24 20 A7 20 82 00 53 0A |,1) .. B$ . ..S.|
00000230: 04 01 91 20 49 20 89 20 32 39 30 2C 33 31 30 2C |... I . 290,310,|
00000240: 33 33 30 2C 33 37 30 2C 33 39 30 2C 34 39 30 2C |330,370,390,490,|
00000250: 36 31 30 00 63 0A 0E 01 8D 20 35 34 30 3A 89 20 |610.c.... 540:. |
00000260: 31 39 30 00 69 0A 18 01 3A 00 80 0A 22 01 8D 20 |190.i...:...".. |
00000270: 35 39 30 3A 89 20 31 31 30 3A A2 20 53 45 45 44 |590:. 110:. SEED|
00000280: 00 86 0A 2C 01 3A 00 AF 0A 36 01 52 B2 32 35 35 |...,.:...6.R.255|
00000290: 3A 96 20 A5 53 28 58 29 B2 BB 28 58 29 AC 52 3A |:. .S(X)..(X).R:|
000002A0: 89 20 33 34 30 3A 52 AF 4F 4D 20 53 45 45 44 00 |. 340:R.OM SEED.|
000002B0: B5 0A 40 01 3A 00 E0 0A 4A 01 52 B2 37 36 38 37 |..@.:...J.R.7687|
000002C0: 3A 96 20 A5 53 28 58 29 B2 C2 28 52 AA 58 29 3A |:. .S(X)..(R.X):|
000002D0: 8F 20 43 4F 50 59 20 4C 41 53 54 20 4C 49 4E 45 |. COPY LAST LINE|
000002E0: 00 F8 0A 54 01 81 20 49 B2 38 31 39 32 20 A4 20 |...T.. I.8192 . |
000002F0: 38 35 30 34 20 A9 20 38 00 14 0B 5E 01 97 20 49 |8504 . 8...^.. I|
00000300: 2C A5 53 28 49 29 3A 82 3A 8D 20 35 34 30 3A 89 |,.S(I):.:. 540:.|
00000310: 20 31 37 30 00 1A 0B 68 01 3A 00 30 0B 72 01 8D | 170...h.:.0.r..|
00000320: 20 35 39 30 3A 89 20 36 30 3A A2 20 43 4F 44 45 | 590:. 60:. CODE|
00000330: 00 36 0B 7C 01 3A 00 62 0B 86 01 8D 20 35 34 30 |.6.|.:.b.... 540|
00000340: 3A 52 B2 32 35 35 3A 81 20 4A B2 30 20 A4 20 31 |:R.255:. J.0 . 1|
00000350: 3A 52 24 B2 22 22 3A 8F 20 41 55 54 4F 4D 41 54 |:R$."":. AUTOMAT|
00000360: 49 43 00 7F 0B 90 01 81 20 4C B2 35 38 38 38 20 |IC...... L.5888 |
00000370: A4 20 35 38 39 37 3A 41 B2 BB 28 4C 29 AC 34 00 |. 5897:A..(L).4.|
00000380: 99 0B 9A 01 97 20 4C 2C 41 3A 52 24 B2 52 24 AA |..... L,A:R$.R$.|
00000390: C7 28 34 38 AA 41 29 3A 82 00 9F 0B A4 01 3A 00 |.(48.A):......:.|
000003A0: B7 0B AE 01 81 20 4C B2 38 31 39 32 20 A4 20 38 |..... L.8192 . 8|
000003B0: 35 30 34 20 A9 20 38 00 C8 0B B8 01 97 20 4C 2C |504 . 8...... L,|
000003C0: BB 28 4C 29 AC 52 3A 82 00 CE 0B C2 01 3A 00 D9 |.(L).R:......:..|
000003D0: 0B CC 01 9E 20 35 39 30 30 00 F2 0B D6 01 4A B2 |.... 5900.....J.|
000003E0: C2 28 4B 29 3A 82 3A 97 20 4B 2C 30 3A 89 20 31 |.(K):.:. K,0:. 1|
000003F0: 39 30 00 F8 0B E0 01 3A 00 2D 0C EA 01 8D 20 35 |90.....:.-.... 5|
00000400: 34 30 3A 41 24 B2 C7 28 31 30 29 3A 9F 20 34 2C |40:A$..(10):. 4,|
00000410: 34 2C 35 3A 8F 20 32 4E 44 20 41 44 44 52 53 20 |4,5:. 2ND ADDRS |
00000420: 47 52 41 46 49 58 2C 20 4E 4F 20 4C 46 00 3C 0C |GRAFIX, NO LF.<.|
00000430: F4 01 9D 20 34 3A 9E 20 36 30 36 30 00 59 0C FE |... 4:. 6060.Y..|
00000440: 01 99 41 24 41 24 C7 28 31 34 29 22 43 4F 44 45 |..A$A$.(14)"CODE|
00000450: 3A 20 22 52 24 41 24 41 24 00 6A 0C 08 02 98 34 |: "R$A$A$.j....4|
00000460: 3A A0 20 34 3A 89 20 31 39 30 00 70 0C 12 02 3A |:. 4:. 190.p...:|
00000470: 00 82 0C 1C 02 8B 20 C2 28 56 29 B2 35 39 20 A7 |...... .(V).59 .|
00000480: 20 8E 00 A8 0C 26 02 97 20 56 2C 35 39 3A 97 20 | ....&.. V,59:. |
00000490: 56 AA 35 2C 32 31 36 3A 97 20 56 AA 37 2C 32 34 |V.5,216:. V.7,24|
000004A0: 3A 8F 20 48 49 52 45 53 00 D0 0C 30 02 99 22 13 |:. HIRES...0..".|
000004B0: 9A 22 3B 3A 81 20 49 B2 31 20 A4 20 31 31 31 3A |.";:. I.1 . 111:|
000004C0: 99 22 12 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 3A 82 |.".---------";:.|
000004D0: 00 F2 0C 3A 02 97 20 32 30 32 33 2C 31 37 33 3A |...:.. 2023,173:|
000004E0: 97 20 35 36 32 39 35 2C 31 34 3A 8E 3A 43 4F 4C |. 56295,14:.:COL|
000004F0: B0 53 00 F8 0C 44 02 3A 00 1F 0D 4E 02 97 20 56 |.S...D.:...N.. V|
00000500: 2C 32 37 3A 97 20 56 AA 35 2C 32 30 30 3A 97 20 |,27:. V.5,200:. |
00000510: 56 AA 37 2C 32 31 3A 99 3A 8E 3A 54 45 58 54 00 |V.7,21:.:.:TEXT.|
00000520: 25 0D 58 02 3A 00 33 0D 62 02 9E 20 36 35 34 30 |%.X.:.3.b.. 6540|
00000530: 39 3A 80 00 39 0D 6C 02 3A 00 48 0D 76 02 3A 20 |9:..9.l.:.H.v.: |
00000540: 53 54 41 52 54 AB 55 50 00 4E 0D 80 02 3A 00 7E |START.UP.N...:.~|
00000550: 0D 8A 02 97 20 35 33 32 38 30 2C 30 3A 97 20 35 |.... 53280,0:. 5|
00000560: 33 32 38 31 2C 30 3A 97 20 34 36 2C 36 34 3A 9C |3281,0:. 46,64:.|
00000570: 3A 4B B2 31 39 38 3A 56 B2 35 33 32 36 35 00 84 |:K.198:V.53265..|
00000580: 0D 94 02 3A 00 AB 0D 9E 02 99 22 93 05 20 20 43 |...:......".. C|
00000590: 45 4C 4C 55 4C 41 52 20 41 55 54 4F 4D 41 54 41 |ELLULAR AUTOMATA|
000005A0: 20 46 4F 52 20 54 48 45 20 36 34 00 CF 0D A8 02 | FOR THE 64.....|
000005B0: 99 22 11 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |.".THIS PROGRAM |
000005C0: 43 52 45 41 54 45 53 20 43 4F 4D 50 4C 45 58 00 |CREATES COMPLEX.|
000005D0: F7 0D B2 02 99 22 47 45 4F 4D 45 54 52 49 43 20 |....."GEOMETRIC |
000005E0: 41 52 54 46 4F 52 4D 53 20 4F 4E 20 54 48 45 20 |ARTFORMS ON THE |
000005F0: 53 43 52 45 45 4E 2E 00 21 0E BC 02 99 22 54 48 |SCREEN..!...."TH|
00000600: 45 20 49 4D 41 47 45 20 49 53 20 47 45 4E 45 52 |E IMAGE IS GENER|
00000610: 41 54 45 44 20 4C 49 4E 45 2D 42 59 2D 4C 49 4E |ATED LINE-BY-LIN|
00000620: 45 00 41 0E C6 02 99 22 41 43 43 4F 52 44 49 4E |E.A...."ACCORDIN|
00000630: 47 20 54 4F 20 54 48 45 53 45 20 52 55 4C 45 53 |G TO THESE RULES|
00000640: 3A 00 6E 0E D0 02 99 22 11 9E 2D 20 41 20 50 49 |:.n...."..- A PI|
00000650: 58 45 4C 20 48 41 53 20 41 20 43 4F 4C 4F 55 52 |XEL HAS A COLOUR|
00000660: 20 56 41 4C 55 45 20 30 2C 31 2C 32 2C 33 00 9B | VALUE 0,1,2,3..|
00000670: 0E DA 02 99 22 2D 20 41 44 44 20 54 48 45 20 56 |...."- ADD THE V|
00000680: 41 4C 55 45 53 20 4F 46 20 33 20 41 44 4A 4F 49 |ALUES OF 3 ADJOI|
00000690: 4E 49 4E 47 20 50 49 58 45 4C 53 00 AE 0E E4 02 |NING PIXELS.....|
000006A0: 99 22 20 20 49 4E 20 41 20 4C 49 4E 45 2E 00 D8 |." IN A LINE...|
000006B0: 0E EE 02 99 22 2D 20 54 48 45 20 53 55 4D 20 28 |...."- THE SUM (|
000006C0: 30 2D 39 29 20 49 53 20 55 53 45 44 20 54 4F 20 |0-9) IS USED TO |
000006D0: 53 45 4C 45 43 54 20 41 00 06 0F F8 02 99 22 20 |SELECT A......" |
000006E0: 20 4E 45 57 20 43 4F 4C 4F 55 52 20 46 52 4F 4D | NEW COLOUR FROM|
000006F0: 20 54 48 45 20 43 4F 44 45 20 59 4F 55 20 53 50 | THE CODE YOU SP|
00000700: 45 43 49 46 59 2E 00 30 0F 02 03 99 22 2D 20 54 |ECIFY..0...."- T|
00000710: 48 49 53 20 4E 45 57 20 43 4F 4C 4F 55 52 20 49 |HIS NEW COLOUR I|
00000720: 53 20 50 4C 4F 54 54 45 44 20 41 53 20 54 48 45 |S PLOTTED AS THE|
00000730: 00 4E 0F 0C 03 99 22 20 20 50 49 58 45 4C 20 44 |.N...." PIXEL D|
00000740: 49 52 45 43 54 4C 59 20 42 45 4C 4F 57 2E 00 7C |IRECTLY BELOW..||
00000750: 0F 16 03 99 22 2D 20 54 48 45 20 43 4F 44 45 20 |...."- THE CODE |
00000760: 48 41 53 20 31 30 20 44 49 47 49 54 53 2C 20 43 |HAS 10 DIGITS, C|
00000770: 4F 52 52 45 53 50 4F 4E 44 49 4E 47 00 A7 0F 20 |ORRESPONDING... |
00000780: 03 99 22 20 20 54 4F 20 54 48 45 20 31 30 20 56 |.." TO THE 10 V|
00000790: 41 4C 55 45 53 20 4F 46 20 54 48 45 20 53 55 4D |ALUES OF THE SUM|
000007A0: 20 28 30 2D 39 29 2E 00 D6 0F 2A 03 99 22 11 05 | (0-9)....*.."..|
000007B0: 41 55 54 4F 4D 41 54 41 20 57 45 52 45 20 49 4E |AUTOMATA WERE IN|
000007C0: 54 52 4F 44 55 43 45 44 20 49 4E 20 53 43 49 45 |TRODUCED IN SCIE|
000007D0: 4E 54 49 46 49 43 00 03 10 34 03 99 22 41 4D 45 |NTIFIC...4.."AME|
000007E0: 52 49 43 41 4E 20 49 4E 20 31 39 37 31 20 26 20 |RICAN IN 1971 & |
000007F0: 31 39 38 34 2C 20 41 4E 44 20 41 20 56 45 52 53 |1984, AND A VERS|
00000800: 49 4F 4E 00 31 10 3E 03 99 22 41 50 50 45 41 52 |ION.1.>.."APPEAR|
00000810: 45 44 20 49 4E 20 42 59 54 45 20 4D 41 47 41 5A |ED IN BYTE MAGAZ|
00000820: 49 4E 45 20 49 4E 20 31 39 38 36 2E 20 54 48 49 |INE IN 1986. THI|
00000830: 53 00 59 10 48 03 99 22 45 4E 48 41 4E 43 45 44 |S.Y.H.."ENHANCED|
00000840: 20 56 45 52 53 49 4F 4E 20 46 4F 52 20 54 48 45 | VERSION FOR THE|
00000850: 20 36 34 20 49 53 20 42 59 00 85 10 52 03 99 22 | 64 IS BY...R.."|
00000860: 49 41 4E 20 41 44 41 4D 20 26 20 54 52 41 4E 53 |IAN ADAM & TRANS|
00000870: 41 43 54 4F 52 20 4D 41 47 41 5A 49 4E 45 2C 20 |ACTOR MAGAZINE, |
00000880: 31 39 38 37 2E 00 A0 10 5C 03 8B 20 C2 28 35 39 |1987....\.. .(59|
00000890: 30 30 29 AB 31 36 30 20 A7 20 8D 20 31 31 30 30 |00).160 . . 1100|
000008A0: 00 BB 10 66 03 99 22 9E 50 52 45 53 53 20 52 45 |...f..".PRESS RE|
000008B0: 54 55 52 4E 21 22 3A 85 20 41 24 00 C1 10 70 03 |TURN!":. A$...p.|
000008C0: 3A 00 D9 10 7A 03 99 22 93 11 20 20 49 4E 53 54 |:...z..".. INST|
000008D0: 52 55 43 54 49 4F 4E 53 3A 00 02 11 84 03 99 22 |RUCTIONS:......"|
000008E0: 11 05 59 4F 55 20 45 4E 54 45 52 20 41 20 31 30 |..YOU ENTER A 10|
000008F0: 2D 44 49 47 49 54 20 52 55 4C 45 2C 20 55 53 49 |-DIGIT RULE, USI|
00000900: 4E 47 00 23 11 8E 03 99 22 54 48 45 20 44 49 47 |NG.#...."THE DIG|
00000910: 49 54 53 20 30 2C 20 31 2C 20 32 2C 20 41 4E 44 |ITS 0, 1, 2, AND|
00000920: 20 33 2E 00 49 11 98 03 99 22 11 4E 45 58 54 2C | 3..I....".NEXT,|
00000930: 20 45 4E 54 45 52 20 41 20 53 45 45 44 20 56 41 | ENTER A SEED VA|
00000940: 4C 55 45 20 57 48 49 43 48 00 6B 11 A2 03 99 22 |LUE WHICH.k...."|
00000950: 49 53 20 50 4C 4F 54 54 45 44 20 4F 4E 20 54 48 |IS PLOTTED ON TH|
00000960: 45 20 54 4F 50 20 4C 49 4E 45 2E 00 98 11 AC 03 |E TOP LINE......|
00000970: 99 22 49 46 20 59 4F 55 20 45 4E 54 45 52 20 52 |."IF YOU ENTER R|
00000980: 2C 20 41 20 52 41 4E 44 4F 4D 20 53 45 45 44 20 |, A RANDOM SEED |
00000990: 49 53 20 55 53 45 44 2E 00 BE 11 B6 03 99 22 49 |IS USED......."I|
000009A0: 46 20 59 4F 55 20 45 4E 54 45 52 20 41 20 53 45 |F YOU ENTER A SE|
000009B0: 45 44 20 23 2C 20 59 4F 55 20 4D 55 53 54 00 EA |ED #, YOU MUST..|
000009C0: 11 C0 03 99 22 41 4C 53 4F 20 53 55 50 50 4C 59 |...."ALSO SUPPLY|
000009D0: 20 49 54 53 20 50 4F 53 49 54 49 4F 4E 20 4F 4E | ITS POSITION ON|
000009E0: 20 54 48 45 20 4C 49 4E 45 2E 00 09 12 CA 03 99 | THE LINE.......|
000009F0: 22 11 9E 41 46 54 45 52 20 50 4C 4F 54 54 49 4E |"..AFTER PLOTTIN|
00000A00: 47 2C 20 50 52 45 53 53 3A 00 25 12 D4 03 99 22 |G, PRESS:.%...."|
00000A10: 2D 20 53 20 20 45 4E 54 45 52 20 41 20 4E 45 57 |- S ENTER A NEW|
00000A20: 20 53 45 45 44 00 42 12 DE 03 99 22 2D 20 52 20 | SEED.B...."- R |
00000A30: 20 46 4F 52 20 41 20 52 41 4E 44 4F 4D 20 53 45 | FOR A RANDOM SE|
00000A40: 45 44 00 63 12 E8 03 99 22 2D 20 4D 20 20 4D 4F |ED.c...."- M MO|
00000A50: 52 45 20 4F 46 20 54 48 45 20 53 41 4D 45 20 50 |RE OF THE SAME P|
00000A60: 4C 4F 54 00 7D 12 F2 03 99 22 2D 20 43 20 20 45 |LOT.}...."- C E|
00000A70: 4E 54 45 52 20 4E 45 57 20 43 4F 44 45 00 A2 12 |NTER NEW CODE...|
00000A80: FC 03 99 22 2D 20 41 20 20 41 55 54 4F 4D 41 54 |..."- A AUTOMAT|
00000A90: 49 43 20 43 4F 44 45 20 47 45 4E 45 52 41 54 49 |IC CODE GENERATI|
00000AA0: 4F 4E 00 C5 12 06 04 99 22 2D 20 50 20 20 53 45 |ON......"- P SE|
00000AB0: 4E 44 20 50 41 54 54 45 52 4E 20 54 4F 20 50 52 |ND PATTERN TO PR|
00000AC0: 49 4E 54 45 52 00 D5 12 10 04 99 22 2D 20 51 20 |INTER......"- Q |
00000AD0: 20 51 55 49 54 00 01 13 1A 04 99 22 11 05 54 48 | QUIT......"..TH|
00000AE0: 45 20 43 55 52 52 45 4E 54 20 43 4F 44 45 20 57 |E CURRENT CODE W|
00000AF0: 49 4C 4C 20 42 45 20 53 48 4F 57 4E 20 4C 49 4B |ILL BE SHOWN LIK|
00000B00: 45 00 2F 13 24 04 99 22 54 48 49 53 2E 20 4D 41 |E./.$.."THIS. MA|
00000B10: 4B 45 20 41 4E 59 20 43 48 41 4E 47 45 53 20 26 |KE ANY CHANGES &|
00000B20: 20 50 52 45 53 53 20 52 45 54 55 52 4E 3A 11 00 | PRESS RETURN:..|
00000B30: 42 13 2E 04 52 24 B2 22 30 31 32 30 31 32 33 31 |B...R$."01201231|
00000B40: 32 33 00 4B 13 38 04 89 20 36 30 00 51 13 42 04 |23.K.8.. 60.Q.B.|
00000B50: 3A 00 71 13 4C 04 81 20 49 B2 35 39 30 30 20 A4 |:.q.L.. I.5900 .|
00000B60: 20 36 31 33 32 3A 87 20 41 3A 97 20 49 2C 41 3A | 6132:. A:. I,A:|
00000B70: 82 00 77 13 56 04 8E 00 7D 13 60 04 3A 00 C7 13 |..w.V...}.`.:...|
00000B80: 6A 04 83 31 36 30 2C 33 32 2C 31 33 32 2C 32 35 |j..160,32,132,25|
00000B90: 31 2C 31 33 32 2C 32 35 33 2C 31 36 30 2C 31 2C |1,132,253,160,1,|
00000BA0: 31 33 32 2C 32 35 32 2C 31 33 36 2C 31 33 32 2C |132,252,136,132,|
00000BB0: 32 35 30 2C 31 36 32 2C 31 39 39 2C 31 33 34 2C |250,162,199,134,|
00000BC0: 31 36 36 2C 31 36 32 00 0E 14 74 04 83 33 39 2C |166,162...t..39,|
00000BD0: 31 33 34 2C 31 36 37 2C 31 33 32 2C 31 36 39 2C |134,167,132,169,|
00000BE0: 31 37 37 2C 32 35 30 2C 31 33 33 2C 31 36 38 2C |177,250,133,168,|
00000BF0: 31 36 35 2C 31 36 37 2C 32 34 30 2C 34 2C 31 36 |165,167,240,4,16|
00000C00: 30 2C 38 2C 31 37 37 2C 32 35 30 2C 31 30 00 4D |0,8,177,250,10.M|
00000C10: 14 7E 04 83 33 38 2C 31 36 38 2C 34 32 2C 33 38 |.~..38,168,42,38|
00000C20: 2C 31 36 38 2C 34 32 2C 34 31 2C 33 2C 31 33 33 |,168,42,41,3,133|
00000C30: 2C 31 37 30 2C 31 36 30 2C 34 2C 31 36 39 2C 30 |,170,160,4,169,0|
00000C40: 2C 33 38 2C 31 36 38 2C 34 32 2C 33 38 00 95 14 |,38,168,42,38...|
00000C50: 88 04 83 31 36 38 2C 34 32 2C 37 32 2C 31 30 31 |...168,42,72,101|
00000C60: 2C 31 37 30 2C 31 30 31 2C 31 36 39 2C 31 37 30 |,170,101,169,170|
00000C70: 2C 31 36 35 2C 31 37 30 2C 31 33 33 2C 31 36 39 |,165,170,133,169|
00000C80: 2C 31 30 34 2C 31 33 33 2C 31 37 30 2C 31 38 39 |,104,133,170,189|
00000C90: 2C 30 2C 32 33 00 D9 14 92 04 83 36 2C 32 35 34 |,0,23......6,254|
00000CA0: 2C 36 2C 32 35 34 2C 35 2C 32 35 34 2C 31 33 33 |,6,254,5,254,133|
00000CB0: 2C 32 35 34 2C 31 33 36 2C 32 30 38 2C 32 32 31 |,254,136,208,221|
00000CC0: 2C 31 34 35 2C 32 35 32 2C 32 34 2C 31 39 38 2C |,145,252,24,198,|
00000CD0: 31 36 37 2C 31 36 2C 34 30 00 1C 15 9C 04 83 31 |167,16,40......1|
00000CE0: 36 32 2C 32 2C 31 38 31 2C 32 35 30 2C 34 31 2C |62,2,181,250,41,|
00000CF0: 37 2C 32 30 31 2C 37 2C 32 34 30 2C 31 35 2C 35 |7,201,7,240,15,5|
00000D00: 36 2C 31 38 31 2C 32 35 30 2C 32 33 33 2C 35 35 |6,181,250,233,55|
00000D10: 2C 31 34 39 2C 32 35 30 2C 31 38 31 00 63 15 A6 |,149,250,181.c..|
00000D20: 04 83 32 35 31 2C 32 33 33 2C 31 2C 31 34 39 2C |..251,233,1,149,|
00000D30: 32 35 31 2C 32 30 38 2C 36 2C 32 34 36 2C 32 35 |251,208,6,246,25|
00000D40: 30 2C 32 30 38 2C 32 2C 32 34 36 2C 32 35 31 2C |0,208,2,246,251,|
00000D50: 32 30 32 2C 32 30 32 2C 32 34 30 2C 32 32 33 2C |202,202,240,223,|
00000D60: 31 39 38 00 A8 15 B0 04 83 31 36 36 2C 32 30 38 |198......166,208|
00000D70: 2C 31 34 34 2C 39 36 2C 31 36 32 2C 32 2C 31 38 |,144,96,162,2,18|
00000D80: 31 2C 32 35 30 2C 31 30 35 2C 38 2C 31 34 39 2C |1,250,105,8,149,|
00000D90: 32 35 30 2C 31 34 34 2C 33 2C 32 34 36 2C 32 35 |250,144,3,246,25|
00000DA0: 31 2C 32 34 2C 32 30 32 00 E4 15 BA 04 83 32 30 |1,24,202......20|
00000DB0: 32 2C 32 34 30 2C 32 34 31 2C 37 36 2C 33 35 2C |2,240,241,76,35,|
00000DC0: 32 33 2C 32 37 2C 36 35 2C 38 2C 31 33 2C 31 30 |23,27,65,8,13,10|
00000DD0: 2C 32 37 2C 37 35 2C 36 34 2C 31 2C 30 2C 31 36 |,27,75,64,1,0,16|
00000DE0: 30 2C 33 32 00 2A 16 C4 04 83 31 33 32 2C 32 35 |0,32.*....132,25|
00000DF0: 31 2C 31 36 30 2C 30 2C 31 33 32 2C 32 35 30 2C |1,160,0,132,250,|
00000E00: 31 36 30 2C 32 35 2C 31 33 32 2C 32 35 32 2C 31 |160,25,132,252,1|
00000E10: 36 30 2C 30 2C 31 38 35 2C 31 36 32 2C 32 33 2C |60,0,185,162,23,|
00000E20: 33 32 2C 32 31 30 2C 32 35 35 00 6F 16 CE 04 83 |32,210,255.o....|
00000E30: 32 30 30 2C 31 39 32 2C 39 2C 32 30 38 2C 32 34 |200,192,9,208,24|
00000E40: 35 2C 31 36 30 2C 34 30 2C 31 33 32 2C 32 35 33 |5,160,40,132,253|
00000E50: 2C 31 36 30 2C 37 2C 31 37 37 2C 32 35 30 2C 31 |,160,7,177,250,1|
00000E60: 36 32 2C 37 2C 34 32 2C 31 31 38 2C 31 36 36 00 |62,7,42,118,166.|
00000E70: B5 16 D8 04 83 32 30 32 2C 31 36 2C 32 35 30 2C |.....202,16,250,|
00000E80: 31 33 36 2C 31 36 2C 32 34 33 2C 31 36 39 2C 37 |136,16,243,169,7|
00000E90: 2C 31 37 30 2C 35 36 2C 31 30 31 2C 32 35 30 2C |,170,56,101,250,|
00000EA0: 31 33 33 2C 32 35 30 2C 31 34 34 2C 32 2C 32 33 |133,250,144,2,23|
00000EB0: 30 2C 32 35 31 00 FB 16 E2 04 83 31 38 31 2C 31 |0,251......181,1|
00000EC0: 36 36 2C 33 32 2C 32 31 30 2C 32 35 35 2C 32 30 |66,32,210,255,20|
00000ED0: 32 2C 31 36 2C 32 34 38 2C 31 39 38 2C 32 35 33 |2,16,248,198,253|
00000EE0: 2C 32 30 38 2C 32 31 37 2C 31 39 38 2C 32 35 32 |,208,217,198,252|
00000EF0: 2C 32 30 38 2C 31 39 36 2C 39 36 00 00 00 |,208,196,96... |
....... 650.(...AU.MATA 64 BY IAN ADAM
.....:.>.(.: MAIN LOOP.D.2.:.^.<.. .6)R$
".":."CODE";R$.T.F.A.5887:. I.1 . 10...P
.. A.I,E(J(R$,I,1)) . 3...Z.....D.:...N.
. "SEED VALUE 1...";:. B$.N.X.. E(B$).0
. 250...... "POSITION (1-40) 20....";:
. A...... 540:. I.8192 . 8504 . 8:. I,0:
..4.... 8184.8.A,E(B$) . 255.:. .:.E....
5900.K...:.H.... I.0 . 999:. B(K) . 240
...H..:. 590:."M MORE OF THIS P PRINT T
HIS...R.."S NEW SEED R RANDOM SEED.W...
."C NEW CODE A AUTOMATIC CODES......"V
VIEW PLOT Q QUIT";...... K,7:. B$.-....
I.1 . 7:. J("SRMCAPQ",I,1) .. B$ . ..S.
... I . 290,310,330,370,390,490,610.C...
. 540:. 190.I...:...".. 590:. 110:. SEED
...,.:...6.R.255:. .S(X)..(X).R:. 340:R.
OM SEED...@.:...J.R.7687:. .S(X).B(R.X):
. COPY LAST LINE...T.. I.8192 . 8504 . 8
...^.. I,.S(I):.:. 540:. 170...H.:.0.R..
590:. 60:. CODE.6.|.:.B.... 540:R.255:.
J.0 . 1:R$."":. AUTOMATIC..... L.5888
. 5897:A..(L).4...... L,A:R$.R$.G(48.A):
......:...... L.8192 . 8504 . 8.H.... L,
.(L).R:..N.B.:.Y.L.. 5900...V.J.B(K):.:.
K,0:. 190.....:.-.... 540:A$.G(10):. 4,
4,5:. 2ND ADDRS GRAFIX, NO LF.<.... 4:.
6060.Y....A$A$G(14)"CODE: "R$A$A$.J....4
: 4:. 190.P...:...... B(V).59 . ....&..
V,59:. V.5,216:. V.7,24:. HIRES.P.0..".
.";:. I.1 . 111:.".---------";:....:.. 2
023,173:. 56295,14:.:COL.S...D.:...N.. V
,27:. V.5,200:. V.7,21:.:.:TEXT.%.X.:.3.
B.. 65409:..9.L.:.H.V.: START.UP.N...:.~
.... 53280,0:. 53281,0:. 46,64:.:K.198:V
.53265.....:......".. CELLULAR AUTOMATA
FOR THE 64.O....".THIS PROGRAM CREATES
COMPLEX......"GEOMETRIC ARTFORMS ON THE
SCREEN..!...."THE IMAGE IS GENERATED LIN
E-BY-LINE.A.F.."ACCORDING TO THESE RULES
:.N.P.."..- A PIXEL HAS A COLOUR VALUE 0
,1,2,3...Z.."- ADD THE VALUES OF 3 ADJOI
NING PIXELS......" IN A LINE..X...."- T
HE SUM (0-9) IS USED TO SELECT A......"
NEW COLOUR FROM THE CODE YOU SPECIFY..0
...."- THIS NEW COLOUR IS PLOTTED AS THE
.N...." PIXEL DIRECTLY BELOW..|...."- T
HE CODE HAS 10 DIGITS, CORRESPONDING...
.." TO THE 10 VALUES OF THE SUM (0-9)..
V.*.."..AUTOMATA WERE INTRODUCED IN SCIE
NTIFIC...4.."AMERICAN IN 1971 & 1984, AN
D A VERSION.1.>.."APPEARED IN BYTE MAGAZ
INE IN 1986. THIS.Y.H.."ENHANCED VERSION
FOR THE 64 IS BY...R.."IAN ADAM & TRANS
ACTOR MAGAZINE, 1987.. .\.. B(5900).160
. . 1100...F..".PRESS RETURN!":. A$.A.P.
:.Y.Z..".. INSTRUCTIONS:......"..YOU EN
TER A 10-DIGIT RULE, USING.#...."THE DIG
ITS 0, 1, 2, AND 3..I....".NEXT, ENTER A
SEED VALUE WHICH.K...."IS PLOTTED ON TH
E TOP LINE......."IF YOU ENTER R, A RAND
OM SEED IS USED......."IF YOU ENTER A SE
ED #, YOU MUST......"ALSO SUPPLY ITS POS
ITION ON THE LINE....J.."..AFTER PLOTTIN
G, PRESS:.%.T.."- S ENTER A NEW SEED.B.
..."- R FOR A RANDOM SEED.C...."- M MO
RE OF THE SAME PLOT.}...."- C ENTER NEW
CODE......"- A AUTOMATIC CODE GENERATI
ON.E...."- P SEND PATTERN TO PRINTER.U.
..."- Q QUIT......"..THE CURRENT CODE W
ILL BE SHOWN LIKE./.$.."THIS. MAKE ANY C
HANGES & PRESS RETURN:..B...R$."01201231
23.K.8.. 60.Q.B.:.Q.L.. I.5900 . 6132:.
A:. I,A:..W.V...}.`.:.G.J..160,32,132,25
1,132,253,160,1,132,252,136,132,250,162,
199,134,166,162...T..39,134,167,132,169,
177,250,133,168,165,167,240,4,160,8,177,
250,10.M.~..38,168,42,38,168,42,41,3,133
,170,160,4,169,0,38,168,42,38......168,4
2,72,101,170,101,169,170,165,170,133,169
,104,133,170,189,0,23.Y....6,254,6,254,5
,254,133,254,136,208,221,145,252,24,198,
167,16,40......162,2,181,250,41,7,201,7,
240,15,56,181,250,233,55,149,250,181.C..
..251,233,1,149,251,208,6,246,250,208,2,
246,251,202,202,240,223,198......166,208
,144,96,162,2,181,250,105,8,149,250,144,
3,246,251,24,202......202,240,241,76,35,
23,27,65,8,13,10,27,75,64,1,0,160,32.*.D
..132,251,160,0,132,250,160,25,132,252,1
60,0,185,162,23,32,210,255.O.N..200,192,
9,208,245,160,40,132,253,160,7,177,250,1
62,7,42,118,166...X..202,16,250,136,16,2
43,169,7,170,56,101,250,133,250,144,2,23
0,251......181,166,32,210,255,202,16,248
,198,253,208,217,198,252,208,196,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL