AUTOMATA 128

00000000: 01 40 22 40 0A 00 8F 20  41 55 54 4F 4D 41 54 41  |.@"@... AUTOMATA|
00000010: 20 31 32 38 20 20 20 42  59 20 49 41 4E 20 41 44  | 128   BY IAN AD|
00000020: 41 4D 00 2C 40 14 00 8D  20 36 35 30 00 32 40 1E  |AM.,@... 650.2@.|
00000030: 00 3A 00 4C 40 28 00 EB  3A 8F 20 4D 41 49 4E 20  |.:.L@(..:. MAIN |
00000040: 43 4F 4E 54 52 4F 4C 20  4C 4F 4F 50 00 52 40 32  |CONTROL LOOP.R@2|
00000050: 00 3A 00 6D 40 3C 00 99  20 A3 36 29 20 52 24 22  |.:.m@<.. .6) R$"|
00000060: 91 22 3A 85 22 43 4F 44  45 22 3B 52 24 00 83 40  |.":."CODE";R$..@|
00000070: 46 00 41 B2 35 38 38 37  3A 81 20 49 B2 31 20 A4  |F.A.5887:. I.1 .|
00000080: 20 31 30 00 9E 40 50 00  97 20 41 AA 49 2C C5 28  | 10..@P.. A.I,.(|
00000090: CA 28 52 24 2C 49 2C 31  29 29 20 AF 20 33 00 A4  |.(R$,I,1)) . 3..|
000000A0: 40 5A 00 82 00 AA 40 64  00 3A 00 C9 40 6E 00 99  |@Z....@d.:..@n..|
000000B0: 20 22 53 45 45 44 20 56  41 4C 55 45 20 20 31 9D  | "SEED VALUE  1.|
000000C0: 9D 9D 22 3B 3A 85 20 42  24 00 E2 40 78 00 8B 20  |..";:. B$..@x.. |
000000D0: C5 28 C8 28 42 24 2C 31  29 29 B2 30 20 A7 20 32  |.(.(B$,1)).0 . 2|
000000E0: 35 30 00 F2 40 82 00 41  B2 31 36 30 AB C3 28 42  |50..@..A.160..(B|
000000F0: 24 29 00 1A 41 8C 00 99  20 22 50 4F 53 49 54 49  |$)..A... "POSITI|
00000100: 4F 4E 20 28 20 30 20 2D  22 41 22 29 20 20 37 39  |ON ( 0 -"A")  79|
00000110: 9D 9D 9D 9D 22 3B 3A 85  20 41 00 24 41 96 00 DE  |....";:. A.$A...|
00000120: 20 33 2C 31 00 3C 41 A0  00 E6 20 41 2C 30 3A 81  | 3,1.<A... A,0:.|
00000130: 20 49 B2 31 20 A4 20 C3  28 42 24 29 00 58 41 AA  | I.1 . .(B$).XA.|
00000140: 00 E5 20 C5 28 CA 28 42  24 2C 49 2C 31 29 29 20  |.. .(.(B$,I,1)) |
00000150: AF 20 33 2C AA 30 2C 30  00 65 41 B4 00 E6 20 AA  |. 3,.0,0.eA... .|
00000160: 31 2C 30 3A 82 00 6B 41  BE 00 3A 00 8B 41 C8 00  |1,0:..kA..:..A..|
00000170: D7 20 32 33 30 3A 9E 20  35 39 30 30 3A 8F 20 50  |. 230:. 5900:. P|
00000180: 4C 4F 54 20 52 4F 55 54  49 4E 45 00 91 41 D2 00  |LOT ROUTINE..A..|
00000190: 3A 00 9C 41 DC 00 53 4C  B2 32 30 30 00 13 42 E6  |:..A..SL.200..B.|
000001A0: 00 81 20 49 B2 31 20 A4  20 53 4C 3A 8B 20 C2 28  |.. I.1 . SL:. .(|
000001B0: 32 30 38 29 B2 30 20 A7  20 82 3A 99 22 53 20 4E  |208).0 . .:."S N|
000001C0: 45 57 20 53 45 45 44 20  20 52 20 52 41 4E 44 4F  |EW SEED  R RANDO|
000001D0: 4D 20 53 45 45 44 20 20  4D 20 4D 4F 52 45 22 3A  |M SEED  M MORE":|
000001E0: 99 22 43 20 4E 45 57 20  43 4F 44 45 20 20 41 20  |."C NEW CODE  A |
000001F0: 41 55 54 4F 4D 41 54 49  43 20 20 50 20 50 52 49  |AUTOMATIC  P PRI|
00000200: 4E 54 20 51 20 51 55 49  54 22 3B 3A DE 20 34 2C  |NT Q QUIT";:. 4,|
00000210: 2C 32 33 00 1F 42 F0 00  A1 F9 20 42 24 3A 99 00  |,23..B.... B$:..|
00000220: 53 42 FA 00 91 20 D4 28  22 53 52 4D 43 41 50 51  |SB... .("SRMCAPQ|
00000230: 22 2C 42 24 29 20 89 20  32 38 30 2C 33 30 30 2C  |",B$) . 280,300,|
00000240: 33 34 30 2C 33 36 30 2C  33 38 30 2C 34 39 30 2C  |340,360,380,490,|
00000250: 36 31 30 00 68 42 04 01  DE 20 33 3A 53 4C B2 37  |610.hB... 3:SL.7|
00000260: 30 30 3A 89 20 32 33 30  00 6E 42 0E 01 3A 00 8B  |00:. 230.nB..:..|
00000270: 42 18 01 DE 20 34 2C 2C  32 33 3A 89 20 31 31 30  |B... 4,,23:. 110|
00000280: 3A 8F 20 4E 45 57 20 53  45 45 44 00 91 42 22 01  |:. NEW SEED..B".|
00000290: 3A 00 AF 42 2C 01 52 B2  32 35 35 3A DE 20 33 2C  |:..B,.R.255:. 3,|
000002A0: 31 3A 8F 20 52 41 4E 44  4F 4D 20 53 45 45 44 00  |1:. RANDOM SEED.|
000002B0: C7 42 36 01 81 20 49 B2  38 31 39 32 20 A4 20 38  |.B6.. I.8192 . 8|
000002C0: 35 30 34 20 A9 20 38 00  DE 42 40 01 97 20 49 2C  |504 . 8..B@.. I,|
000002D0: BB 28 49 29 AC 52 3A 82  3A 89 20 32 30 30 00 E4  |.(I).R:.:. 200..|
000002E0: 42 4A 01 3A 00 1F 43 54  01 DE 20 33 3A E4 20 53  |BJ.:..CT.. 3:. S|
000002F0: 24 2C 30 2C 31 39 39 2C  31 35 39 2C 31 39 39 3A  |$,0,199,159,199:|
00000300: E3 20 53 24 2C 30 2C 30  3A 89 20 32 30 30 3A 8F  |. S$,0,0:. 200:.|
00000310: 20 43 4F 50 59 20 4C 41  53 54 20 4C 49 4E 45 00  | COPY LAST LINE.|
00000320: 25 43 5E 01 3A 00 3F 43  68 01 DE 20 34 2C 2C 32  |%C^.:.?Ch.. 4,,2|
00000330: 33 3A EC 3A 8F 20 4E 45  58 54 20 43 4F 44 45 00  |3:.:. NEXT CODE.|
00000340: 45 43 72 01 3A 00 6D 43  7C 01 DE 20 33 3A 52 B2  |ECr.:.mC|.. 3:R.|
00000350: 32 35 35 3A EB 3A 52 24  B2 22 22 3A 8F 20 41 55  |255:.:R$."":. AU|
00000360: 54 4F 4D 41 54 49 43 20  43 4F 44 45 53 00 8A 43  |TOMATIC CODES..C|
00000370: 86 01 81 20 49 B2 35 38  38 38 20 A4 20 35 38 39  |... I.5888 . 589|
00000380: 37 3A 41 B2 BB 28 49 29  AC 34 00 A4 43 90 01 97  |7:A..(I).4..C...|
00000390: 20 49 2C 41 3A 52 24 B2  52 24 AA C7 28 34 38 AA  | I,A:R$.R$..(48.|
000003A0: 41 29 3A 82 00 AA 43 9A  01 3A 00 C2 43 A4 01 81  |A):...C..:..C...|
000003B0: 20 49 B2 38 31 39 32 20  A4 20 38 35 30 34 20 A9  | I.8192 . 8504 .|
000003C0: 20 38 00 DA 43 AE 01 97  20 49 2C BB 28 49 29 AC  | 8..C... I,.(I).|
000003D0: 52 3A 82 3A 8F 20 53 45  45 44 00 E0 43 B8 01 3A  |R:.:. SEED..C..:|
000003E0: 00 EB 43 C2 01 9E 20 35  39 30 30 00 F1 43 CC 01  |..C... 5900..C..|
000003F0: 3A 00 0E 44 D6 01 EC 20  FC 20 C2 28 32 30 38 29  |:..D... . .(208)|
00000400: 3A 97 20 32 30 38 2C 30  3A 89 20 32 33 30 00 14  |:. 208,0:. 230..|
00000410: 44 E0 01 3A 00 57 44 EA  01 DE 20 33 3A 9F 20 34  |D..:.WD... 3:. 4|
00000420: 2C 34 2C 35 3A 8F 20 53  45 43 4F 4E 44 41 52 59  |,4,5:. SECONDARY|
00000430: 20 41 44 44 52 45 53 53  20 3D 20 35 20 46 4F 52  | ADDRESS = 5 FOR|
00000440: 20 47 52 41 50 48 49 43  53 2C 20 4E 4F 20 4C 49  | GRAPHICS, NO LI|
00000450: 4E 45 20 46 45 45 44 00  77 44 F4 01 41 24 B2 C7  |NE FEED.wD..A$..|
00000460: 28 31 30 29 3A 9D 20 34  3A 99 41 24 3A 9E 20 36  |(10):. 4:.A$:. 6|
00000470: 30 36 30 3A 99 41 24 00  8F 44 FE 01 99 C7 28 32  |060:.A$..D....(2|
00000480: 37 29 C7 28 36 34 29 3A  8F 20 52 45 53 45 54 00  |7).(64):. RESET.|
00000490: A8 44 08 02 99 41 24 C7  28 31 34 29 22 43 4F 44  |.D...A$.(14)"COD|
000004A0: 45 3A 20 22 52 24 41 24  00 C5 44 12 02 98 34 3A  |E: "R$A$..D...4:|
000004B0: A0 20 34 3A 89 20 32 33  30 3A 53 43 52 45 45 4E  |. 4:. 230:SCREEN|
000004C0: 20 44 55 4D 50 00 CB 44  58 02 3A 00 D5 44 62 02  | DUMP..DX.:..Db.|
000004D0: DE 20 30 3A 80 00 DB 44  6C 02 3A 00 F4 44 76 02  |. 0:...Dl.:..Dv.|
000004E0: 3A 8F 20 53 54 41 52 54  2D 55 50 20 53 45 51 55  |:. START-UP SEQU|
000004F0: 45 4E 43 45 00 FA 44 80  02 3A 00 25 45 8A 02 FE  |ENCE..D..:.%E...|
00000500: 02 20 31 35 3A E7 20 30  2C 31 3A E7 20 31 2C 31  |. 15:. 0,1:. 1,1|
00000510: 31 3A E7 20 32 2C 31 34  3A E7 20 33 2C 31 35 3A  |1:. 2,14:. 3,15:|
00000520: E7 20 34 2C 31 00 2B 45  94 02 3A 00 53 45 9E 02  |. 4,1.+E..:.SE..|
00000530: 99 22 93 05 20 20 43 45  4C 4C 55 4C 41 52 20 41  |."..  CELLULAR A|
00000540: 55 54 4F 4D 41 54 41 20  46 4F 52 20 54 48 45 20  |UTOMATA FOR THE |
00000550: 31 32 38 00 77 45 A8 02  99 22 11 54 48 49 53 20  |128.wE...".THIS |
00000560: 50 52 4F 47 52 41 4D 20  43 52 45 41 54 45 53 20  |PROGRAM CREATES |
00000570: 43 4F 4D 50 4C 45 58 00  9F 45 B2 02 99 22 47 45  |COMPLEX..E..."GE|
00000580: 4F 4D 45 54 52 49 43 20  41 52 54 46 4F 52 4D 53  |OMETRIC ARTFORMS|
00000590: 20 4F 4E 20 54 48 45 20  53 43 52 45 45 4E 2E 00  | ON THE SCREEN..|
000005A0: CA 45 BC 02 99 22 54 48  45 20 49 4D 41 47 45 20  |.E..."THE IMAGE |
000005B0: 49 53 20 47 45 4E 45 52  41 54 45 44 20 4C 49 4E  |IS GENERATED LIN|
000005C0: 45 2D 42 59 2D 4C 49 4E  45 2C 00 EA 45 C6 02 99  |E-BY-LINE,..E...|
000005D0: 22 41 43 43 4F 52 44 49  4E 47 20 54 4F 20 54 48  |"ACCORDING TO TH|
000005E0: 45 53 45 20 52 55 4C 45  53 3A 00 1A 46 D0 02 99  |ESE RULES:..F...|
000005F0: 22 11 9E 2D 20 41 20 50  49 58 45 4C 20 48 41 53  |"..- A PIXEL HAS|
00000600: 20 41 20 43 4F 4C 4F 55  52 20 56 41 4C 55 45 20  | A COLOUR VALUE |
00000610: 4F 46 20 30 2C 31 2C 32  2C 33 00 43 46 DA 02 99  |OF 0,1,2,3.CF...|
00000620: 22 2D 20 54 48 45 20 56  41 4C 55 45 53 20 4F 46  |"- THE VALUES OF|
00000630: 20 33 20 41 44 4A 4F 49  4E 49 4E 47 20 50 49 58  | 3 ADJOINING PIX|
00000640: 45 4C 53 00 60 46 E4 02  99 22 20 20 49 4E 20 41  |ELS.`F..."  IN A|
00000650: 20 4C 49 4E 45 20 41 52  45 20 41 44 44 45 44 2E  | LINE ARE ADDED.|
00000660: 00 8D 46 EE 02 99 22 2D  20 54 48 45 20 53 55 4D  |..F..."- THE SUM|
00000670: 20 28 30 20 54 4F 20 39  29 20 49 53 20 55 53 45  | (0 TO 9) IS USE|
00000680: 44 20 54 4F 20 53 45 4C  45 43 54 20 41 00 BB 46  |D TO SELECT A..F|
00000690: F8 02 99 22 20 20 4E 45  57 20 43 4F 4C 4F 55 52  |..."  NEW COLOUR|
000006A0: 20 46 52 4F 4D 20 54 48  45 20 43 4F 44 45 20 59  | FROM THE CODE Y|
000006B0: 4F 55 20 53 50 45 43 49  46 59 2E 00 E5 46 02 03  |OU SPECIFY...F..|
000006C0: 99 22 2D 20 54 48 49 53  20 4E 45 57 20 43 4F 4C  |."- THIS NEW COL|
000006D0: 4F 55 52 20 49 53 20 50  4C 4F 54 54 45 44 20 41  |OUR IS PLOTTED A|
000006E0: 53 20 54 48 45 00 06 47  0C 03 99 22 20 20 50 49  |S THE..G..."  PI|
000006F0: 58 45 4C 20 49 4E 20 54  48 45 20 4C 49 4E 45 20  |XEL IN THE LINE |
00000700: 42 45 4C 4F 57 2E 00 34  47 16 03 99 22 2D 20 54  |BELOW..4G..."- T|
00000710: 48 45 20 43 4F 44 45 20  48 41 53 20 31 30 20 44  |HE CODE HAS 10 D|
00000720: 49 47 49 54 53 2C 20 43  4F 52 52 45 53 50 4F 4E  |IGITS, CORRESPON|
00000730: 44 49 4E 47 00 61 47 20  03 99 22 20 20 54 4F 20  |DING.aG .."  TO |
00000740: 54 48 45 20 31 30 20 56  41 4C 55 45 53 20 4F 46  |THE 10 VALUES OF|
00000750: 20 54 48 45 20 53 55 4D  20 28 30 20 2D 20 39 29  | THE SUM (0 - 9)|
00000760: 2E 00 90 47 2A 03 99 22  11 05 41 55 54 4F 4D 41  |...G*.."..AUTOMA|
00000770: 54 41 20 57 45 52 45 20  49 4E 54 52 4F 44 55 43  |TA WERE INTRODUC|
00000780: 45 44 20 49 4E 20 53 43  49 45 4E 54 49 46 49 43  |ED IN SCIENTIFIC|
00000790: 00 BD 47 34 03 99 22 41  4D 45 52 49 43 41 4E 20  |..G4.."AMERICAN |
000007A0: 49 4E 20 31 39 37 31 20  26 20 31 39 38 34 2C 20  |IN 1971 & 1984, |
000007B0: 41 4E 44 20 41 20 56 45  52 53 49 4F 4E 00 EB 47  |AND A VERSION..G|
000007C0: 3E 03 99 22 41 50 50 45  41 52 45 44 20 49 4E 20  |>.."APPEARED IN |
000007D0: 42 59 54 45 20 4D 41 47  41 5A 49 4E 45 20 49 4E  |BYTE MAGAZINE IN|
000007E0: 20 31 39 38 36 2E 20 54  48 49 53 00 14 48 48 03  | 1986. THIS..HH.|
000007F0: 99 22 45 4E 48 41 4E 43  45 44 20 56 45 52 53 49  |."ENHANCED VERSI|
00000800: 4F 4E 20 46 4F 52 20 54  48 45 20 31 32 38 20 49  |ON FOR THE 128 I|
00000810: 53 20 42 59 00 40 48 52  03 99 22 49 41 4E 20 41  |S BY.@HR.."IAN A|
00000820: 44 41 4D 20 26 20 54 52  41 4E 53 41 43 54 4F 52  |DAM & TRANSACTOR|
00000830: 20 4D 41 47 41 5A 49 4E  45 2C 20 31 39 38 37 2E  | MAGAZINE, 1987.|
00000840: 00 5B 48 5C 03 8B 20 C2  28 35 39 30 30 29 AB 31  |.[H\.. .(5900).1|
00000850: 36 30 20 A7 20 8D 20 31  31 30 30 00 79 48 66 03  |60 . . 1100.yHf.|
00000860: 99 22 11 9E 20 20 50 52  45 53 53 20 41 20 4B 45  |."..  PRESS A KE|
00000870: 59 21 22 3A A1 F9 20 41  24 00 7F 48 70 03 3A 00  |Y!":.. A$..Hp.:.|
00000880: 97 48 7A 03 99 22 93 11  20 20 49 4E 53 54 52 55  |.Hz.."..  INSTRU|
00000890: 43 54 49 4F 4E 53 3A 00  C5 48 84 03 99 22 11 05  |CTIONS:..H..."..|
000008A0: 59 4F 55 20 45 4E 54 45  52 20 41 20 31 30 2D 44  |YOU ENTER A 10-D|
000008B0: 49 47 49 54 20 52 55 4C  45 2C 20 55 53 49 4E 47  |IGIT RULE, USING|
000008C0: 20 4F 4E 4C 59 00 E6 48  8E 03 99 22 54 48 45 20  | ONLY..H..."THE |
000008D0: 44 49 47 49 54 53 20 30  2C 20 31 2C 20 32 2C 20  |DIGITS 0, 1, 2, |
000008E0: 41 4E 44 20 33 2E 00 0D  49 98 03 99 22 11 4E 45  |AND 3...I...".NE|
000008F0: 58 54 2C 20 45 4E 54 45  52 20 41 20 53 45 45 44  |XT, ENTER A SEED|
00000900: 20 56 41 4C 55 45 2C 20  57 48 49 43 48 00 2F 49  | VALUE, WHICH./I|
00000910: A2 03 99 22 49 53 20 50  4C 4F 54 54 45 44 20 41  |..."IS PLOTTED A|
00000920: 53 20 54 48 45 20 54 4F  50 20 4C 49 4E 45 2E 00  |S THE TOP LINE..|
00000930: 5C 49 AC 03 99 22 49 46  20 59 4F 55 20 45 4E 54  |\I..."IF YOU ENT|
00000940: 45 52 20 52 2C 20 41 20  52 41 4E 44 4F 4D 20 53  |ER R, A RANDOM S|
00000950: 45 45 44 20 49 53 20 55  53 45 44 2E 00 86 49 B6  |EED IS USED...I.|
00000960: 03 99 22 49 46 20 59 4F  55 20 45 4E 54 45 52 20  |.."IF YOU ENTER |
00000970: 53 45 45 44 20 4E 55 4D  42 45 52 53 2C 20 59 4F  |SEED NUMBERS, YO|
00000980: 55 20 4D 55 53 54 00 B4  49 C0 03 99 22 41 4C 53  |U MUST..I..."ALS|
00000990: 4F 20 53 55 50 50 4C 59  20 54 48 45 49 52 20 50  |O SUPPLY THEIR P|
000009A0: 4F 53 49 54 49 4F 4E 20  4F 4E 20 54 48 45 20 4C  |OSITION ON THE L|
000009B0: 49 4E 45 2E 00 D3 49 CA  03 99 22 11 9E 41 46 54  |INE...I..."..AFT|
000009C0: 45 52 20 50 4C 4F 54 54  49 4E 47 2C 20 50 52 45  |ER PLOTTING, PRE|
000009D0: 53 53 3A 00 F2 49 D4 03  99 22 2D 20 53 20 20 54  |SS:..I..."- S  T|
000009E0: 4F 20 45 4E 54 45 52 20  41 20 4E 45 57 20 53 45  |O ENTER A NEW SE|
000009F0: 45 44 00 0F 4A DE 03 99  22 2D 20 52 20 20 46 4F  |ED..J..."- R  FO|
00000A00: 52 20 41 20 52 41 4E 44  4F 4D 20 53 45 45 44 00  |R A RANDOM SEED.|
00000A10: 30 4A E8 03 99 22 2D 20  4D 20 20 4D 4F 52 45 20  |0J..."- M  MORE |
00000A20: 4F 46 20 54 48 45 20 53  41 4D 45 20 50 4C 4F 54  |OF THE SAME PLOT|
00000A30: 00 4A 4A F2 03 99 22 2D  20 43 20 20 45 4E 54 45  |.JJ..."- C  ENTE|
00000A40: 52 20 4E 45 57 20 43 4F  44 45 00 6F 4A FC 03 99  |R NEW CODE.oJ...|
00000A50: 22 2D 20 41 20 20 41 55  54 4F 4D 41 54 49 43 20  |"- A  AUTOMATIC |
00000A60: 43 4F 44 45 20 47 45 4E  45 52 41 54 49 4F 4E 00  |CODE GENERATION.|
00000A70: 92 4A 06 04 99 22 2D 20  50 20 20 53 45 4E 44 20  |.J..."- P  SEND |
00000A80: 50 41 54 54 45 52 4E 20  54 4F 20 50 52 49 4E 54  |PATTERN TO PRINT|
00000A90: 45 52 00 A6 4A 10 04 99  22 2D 20 51 20 20 54 4F  |ER..J..."- Q  TO|
00000AA0: 20 51 55 49 54 2E 00 D4  4A 1A 04 99 22 11 05 54  | QUIT...J..."..T|
00000AB0: 48 45 20 43 55 52 52 45  4E 54 20 43 4F 44 45 20  |HE CURRENT CODE |
00000AC0: 57 49 4C 4C 20 42 45 20  50 52 49 4E 54 45 44 20  |WILL BE PRINTED |
00000AD0: 4C 49 4B 45 00 03 4B 24  04 99 22 54 48 49 53 2E  |LIKE..K$.."THIS.|
00000AE0: 20 4D 41 4B 45 20 41 4E  59 20 43 48 41 4E 47 45  | MAKE ANY CHANGE|
00000AF0: 53 2C 20 26 20 50 52 45  53 53 20 52 45 54 55 52  |S, & PRESS RETUR|
00000B00: 4E 3A 11 00 16 4B 2E 04  52 24 B2 22 30 31 32 30  |N:...K..R$."0120|
00000B10: 31 32 33 31 32 33 00 1C  4B 38 04 8E 00 22 4B 42  |123123..K8..."KB|
00000B20: 04 3A 00 42 4B 4C 04 81  20 49 B2 35 39 30 30 20  |.:.BKL.. I.5900 |
00000B30: A4 20 36 31 33 32 3A 87  20 41 3A 97 20 49 2C 41  |. 6132:. A:. I,A|
00000B40: 3A 82 00 48 4B 56 04 8E  00 4E 4B 60 04 3A 00 98  |:..HKV...NK`.:..|
00000B50: 4B 6A 04 83 31 36 30 2C  33 32 2C 31 33 32 2C 32  |Kj..160,32,132,2|
00000B60: 35 31 2C 31 33 32 2C 32  35 33 2C 31 36 30 2C 31  |51,132,253,160,1|
00000B70: 2C 31 33 32 2C 32 35 32  2C 31 33 36 2C 31 33 32  |,132,252,136,132|
00000B80: 2C 32 35 30 2C 31 36 32  2C 31 39 39 2C 31 33 34  |,250,162,199,134|
00000B90: 2C 31 36 36 2C 31 36 32  00 DF 4B 74 04 83 33 39  |,166,162..Kt..39|
00000BA0: 2C 31 33 34 2C 31 36 37  2C 31 33 32 2C 31 36 39  |,134,167,132,169|
00000BB0: 2C 31 37 37 2C 32 35 30  2C 31 33 33 2C 31 36 38  |,177,250,133,168|
00000BC0: 2C 31 36 35 2C 31 36 37  2C 32 34 30 2C 34 2C 31  |,165,167,240,4,1|
00000BD0: 36 30 2C 38 2C 31 37 37  2C 32 35 30 2C 31 30 00  |60,8,177,250,10.|
00000BE0: 1E 4C 7E 04 83 33 38 2C  31 36 38 2C 34 32 2C 33  |.L~..38,168,42,3|
00000BF0: 38 2C 31 36 38 2C 34 32  2C 34 31 2C 33 2C 31 33  |8,168,42,41,3,13|
00000C00: 33 2C 31 37 30 2C 31 36  30 2C 34 2C 31 36 39 2C  |3,170,160,4,169,|
00000C10: 30 2C 33 38 2C 31 36 38  2C 34 32 2C 33 38 00 66  |0,38,168,42,38.f|
00000C20: 4C 88 04 83 31 36 38 2C  34 32 2C 37 32 2C 31 30  |L...168,42,72,10|
00000C30: 31 2C 31 37 30 2C 31 30  31 2C 31 36 39 2C 31 37  |1,170,101,169,17|
00000C40: 30 2C 31 36 35 2C 31 37  30 2C 31 33 33 2C 31 36  |0,165,170,133,16|
00000C50: 39 2C 31 30 34 2C 31 33  33 2C 31 37 30 2C 31 38  |9,104,133,170,18|
00000C60: 39 2C 30 2C 32 33 00 AA  4C 92 04 83 36 2C 32 35  |9,0,23..L...6,25|
00000C70: 34 2C 36 2C 32 35 34 2C  35 2C 32 35 34 2C 31 33  |4,6,254,5,254,13|
00000C80: 33 2C 32 35 34 2C 31 33  36 2C 32 30 38 2C 32 32  |3,254,136,208,22|
00000C90: 31 2C 31 34 35 2C 32 35  32 2C 32 34 2C 31 39 38  |1,145,252,24,198|
00000CA0: 2C 31 36 37 2C 31 36 2C  34 30 00 ED 4C 9C 04 83  |,167,16,40..L...|
00000CB0: 31 36 32 2C 32 2C 31 38  31 2C 32 35 30 2C 34 31  |162,2,181,250,41|
00000CC0: 2C 37 2C 32 30 31 2C 37  2C 32 34 30 2C 31 35 2C  |,7,201,7,240,15,|
00000CD0: 35 36 2C 31 38 31 2C 32  35 30 2C 32 33 33 2C 35  |56,181,250,233,5|
00000CE0: 35 2C 31 34 39 2C 32 35  30 2C 31 38 31 00 34 4D  |5,149,250,181.4M|
00000CF0: A6 04 83 32 35 31 2C 32  33 33 2C 31 2C 31 34 39  |...251,233,1,149|
00000D00: 2C 32 35 31 2C 32 30 38  2C 36 2C 32 34 36 2C 32  |,251,208,6,246,2|
00000D10: 35 30 2C 32 30 38 2C 32  2C 32 34 36 2C 32 35 31  |50,208,2,246,251|
00000D20: 2C 32 30 32 2C 32 30 32  2C 32 34 30 2C 32 32 33  |,202,202,240,223|
00000D30: 2C 31 39 38 00 79 4D B0  04 83 31 36 36 2C 32 30  |,198.yM...166,20|
00000D40: 38 2C 31 34 34 2C 39 36  2C 31 36 32 2C 32 2C 31  |8,144,96,162,2,1|
00000D50: 38 31 2C 32 35 30 2C 31  30 35 2C 38 2C 31 34 39  |81,250,105,8,149|
00000D60: 2C 32 35 30 2C 31 34 34  2C 33 2C 32 34 36 2C 32  |,250,144,3,246,2|
00000D70: 35 31 2C 32 34 2C 32 30  32 00 B5 4D BA 04 83 32  |51,24,202..M...2|
00000D80: 30 32 2C 32 34 30 2C 32  34 31 2C 37 36 2C 33 35  |02,240,241,76,35|
00000D90: 2C 32 33 2C 32 37 2C 36  35 2C 38 2C 31 33 2C 31  |,23,27,65,8,13,1|
00000DA0: 30 2C 32 37 2C 37 35 2C  36 34 2C 31 2C 30 2C 31  |0,27,75,64,1,0,1|
00000DB0: 36 30 2C 33 32 00 FB 4D  C4 04 83 31 33 32 2C 32  |60,32..M...132,2|
00000DC0: 35 31 2C 31 36 30 2C 30  2C 31 33 32 2C 32 35 30  |51,160,0,132,250|
00000DD0: 2C 31 36 30 2C 32 35 2C  31 33 32 2C 32 35 32 2C  |,160,25,132,252,|
00000DE0: 31 36 30 2C 30 2C 31 38  35 2C 31 36 32 2C 32 33  |160,0,185,162,23|
00000DF0: 2C 33 32 2C 32 31 30 2C  32 35 35 00 40 4E CE 04  |,32,210,255.@N..|
00000E00: 83 32 30 30 2C 31 39 32  2C 39 2C 32 30 38 2C 32  |.200,192,9,208,2|
00000E10: 34 35 2C 31 36 30 2C 34  30 2C 31 33 32 2C 32 35  |45,160,40,132,25|
00000E20: 33 2C 31 36 30 2C 37 2C  31 37 37 2C 32 35 30 2C  |3,160,7,177,250,|
00000E30: 31 36 32 2C 37 2C 34 32  2C 31 31 38 2C 31 36 36  |162,7,42,118,166|
00000E40: 00 86 4E D8 04 83 32 30  32 2C 31 36 2C 32 35 30  |..N...202,16,250|
00000E50: 2C 31 33 36 2C 31 36 2C  32 34 33 2C 31 36 39 2C  |,136,16,243,169,|
00000E60: 37 2C 31 37 30 2C 35 36  2C 31 30 31 2C 32 35 30  |7,170,56,101,250|
00000E70: 2C 31 33 33 2C 32 35 30  2C 31 34 34 2C 32 2C 32  |,133,250,144,2,2|
00000E80: 33 30 2C 32 35 31 00 CC  4E E2 04 83 31 38 31 2C  |30,251..N...181,|
00000E90: 31 36 36 2C 33 32 2C 32  31 30 2C 32 35 35 2C 32  |166,32,210,255,2|
00000EA0: 30 32 2C 31 36 2C 32 34  38 2C 31 39 38 2C 32 35  |02,16,248,198,25|
00000EB0: 33 2C 32 30 38 2C 32 31  37 2C 31 39 38 2C 32 35  |3,208,217,198,25|
00000EC0: 32 2C 32 30 38 2C 31 39  36 2C 39 36 00 00 00     |2,208,196,96... |

.@"@... AUTOMATA 128   BY IAN ADAM.,@...
 650.2@..:.L@(..:. MAIN CONTROL LOOP.R@2
.:.M@<.. .6) R$".":."CODE";R$..@F.A.5887
:. I.1 . 10..@P.. A.I,E(J(R$,I,1)) . 3..
@Z....@D.:.I@N.. "SEED VALUE  1...";:. B
$..@X.. E(H(B$,1)).0 . 250..@..A.160.C(B
$)..A... "POSITION ( 0 -"A")  79....";:.
 A.$A... 3,1.<A .. A,0:. I.1 . C(B$).XA.
.. E(J(B$,I,1)) . 3,.0,0.EA... .1,0:..KA
..:..AH.W 230:. 5900:. PLOT ROUTINE..AR.
:..A..SL.200..B... I.1 . SL:. B(208).0 .
 .:."S NEW SEED  R RANDOM SEED  M MORE":
."C NEW CODE  A AUTOMATIC  P PRINT Q QUI
T";:. 4,,23..B.... B$:..SB... T("SRMCAPQ
",B$) . 280,300,340,360,380,490,610.HB..
. 3:SL.700:. 230.NB..:..B... 4,,23:. 110
:. NEW SEED..B".:..B,.R.255:. 3,1:. RAND
OM SEED.GB6.. I.8192 . 8504 . 8..B@.. I,
.(I).R:.:. 200..BJ.:..CT.. 3:. S$,0,199,
159,199:. S$,0,0:. 200:. COPY LAST LINE.
%C^.:.?CH.. 4,,23:.:. NEXT CODE.ECR.:.MC
|.. 3:R.255:.:R$."":. AUTOMATIC CODES..C
... I.5888 . 5897:A..(I).4..C... I,A:R$.
R$.G(48.A):...C..:.BC... I.8192 . 8504 .
 8.ZC... I,.(I).R:.:. SEED..C..:..CB.. 5
900..CL.:..DV.. . B(208):. 208,0:. 230..
D..:.WD... 3:. 4,4,5:. SECONDARY ADDRESS
 = 5 FOR GRAPHICS, NO LINE FEED.WD..A$.G
(10):. 4:.A$:. 6060:.A$..D...G(27)G(64):
. RESET..D...A$G(14)"CODE: "R$A$.ED...4:
  4:. 230:SCREEN DUMP.KDX.:.UDB.. 0:...D
L.:..DV.:. START-UP SEQUENCE..D..:.%E...
. 15:. 0,1:. 1,11:. 2,14:. 3,15:. 4,1.+E
..:.SE..."..  CELLULAR AUTOMATA FOR THE 
128.WE...".THIS PROGRAM CREATES COMPLEX.
.E..."GEOMETRIC ARTFORMS ON THE SCREEN..
JE..."THE IMAGE IS GENERATED LINE-BY-LIN
E,..EF.."ACCORDING TO THESE RULES:..FP..
"..- A PIXEL HAS A COLOUR VALUE OF 0,1,2
,3.CFZ.."- THE VALUES OF 3 ADJOINING PIX
ELS.`F..."  IN A LINE ARE ADDED...F..."-
 THE SUM (0 TO 9) IS USED TO SELECT A..F
..."  NEW COLOUR FROM THE CODE YOU SPECI
FY...F..."- THIS NEW COLOUR IS PLOTTED A
S THE..G..."  PIXEL IN THE LINE BELOW..4
G..."- THE CODE HAS 10 DIGITS, CORRESPON
DING.AG .."  TO THE 10 VALUES OF THE SUM
 (0 - 9)...G*.."..AUTOMATA WERE INTRODUC
ED IN SCIENTIFIC..G4.."AMERICAN IN 1971 
& 1984, AND A VERSION..G>.."APPEARED IN 
BYTE MAGAZINE IN 1986. THIS..HH.."ENHANC
ED VERSION FOR THE 128 IS BY.@HR.."IAN A
DAM & TRANSACTOR MAGAZINE, 1987..[H\.. B
(5900).160 . . 1100.YHF.."..  PRESS A KE
Y!":.. A$.HP.:..HZ.."..  INSTRUCTIONS:.
EH..."..YOU ENTER A 10-DIGIT RULE, USING
 ONLY..H..."THE DIGITS 0, 1, 2, AND 3...
I...".NEXT, ENTER A SEED VALUE, WHICH./I
..."IS PLOTTED AS THE TOP LINE..\I..."IF
 YOU ENTER R, A RANDOM SEED IS USED...I.
.."IF YOU ENTER SEED NUMBERS, YOU MUST..
I..."ALSO SUPPLY THEIR POSITION ON THE L
INE..SIJ.."..AFTER PLOTTING, PRESS:..IT.
."- S  TO ENTER A NEW SEED..J..."- R  FO
R A RANDOM SEED.0J..."- M  MORE OF THE S
AME PLOT.JJ..."- C  ENTER NEW CODE.OJ...
"- A  AUTOMATIC CODE GENERATION..J..."- 
P  SEND PATTERN TO PRINTER..J..."- Q  TO
 QUIT..TJ..."..THE CURRENT CODE WILL BE 
PRINTED LIKE..K$.."THIS. MAKE ANY CHANGE
S, & PRESS RETURN:...K..R$."0120123123..
K8..."KB.:.BKL.. I.5900 . 6132:. A:. I,A
:..HKV...NK`.:..KJ..160,32,132,251,132,2
53,160,1,132,252,136,132,250,162,199,134
,166,162..KT..39,134,167,132,169,177,250
,133,168,165,167,240,4,160,8,177,250,10.
.L~..38,168,42,38,168,42,41,3,133,170,16
0,4,169,0,38,168,42,38.FL...168,42,72,10
1,170,101,169,170,165,170,133,169,104,13
3,170,189,0,23..L...6,254,6,254,5,254,13
3,254,136,208,221,145,252,24,198,167,16,
40..L...162,2,181,250,41,7,201,7,240,15,
56,181,250,233,55,149,250,181.4M...251,2
33,1,149,251,208,6,246,250,208,2,246,251
,202,202,240,223,198.YM...166,208,144,96
,162,2,181,250,105,8,149,250,144,3,246,2
51,24,202..M...202,240,241,76,35,23,27,6
5,8,13,10,27,75,64,1,0,160,32..MD..132,2
51,160,0,132,250,160,25,132,252,160,0,18
5,162,23,32,210,255.@NN..200,192,9,208,2
45,160,40,132,253,160,7,177,250,162,7,42
,118,166..NX..202,16,250,136,16,243,169,
7,170,56,101,250,133,250,144,2,230,251.L
N...181,166,32,210,255,202,16,248,198,25
3,208,217,198,252,208,196,96...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL