/ APDL Public Domain 1 / APDL_PD1A.iso / fractal / afg_1 / rnd_fract

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | b4 00 00 00 54 03 00 00 |Archive.|....T...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 52 65 61 64 46 72 61 | 63 74 00 00 3f 0a 00 00 |.ReadFra|ct..?...|
|00000070| 43 ff ff ff 0e 54 05 78 | 03 00 35 07 3f 0a 00 00 |C....T.x|..5.?...|
|00000080| 1b 25 00 00 82 52 6e 64 | 46 72 61 63 74 4d 31 00 |.%...Rnd|FractM1.|
|00000090| 8d 0b 00 00 43 fb ff ff | ed a1 d6 75 03 00 27 2c |....C...|...u..',|
|000000a0| 8d 0b 00 00 24 00 00 00 | 82 52 6e 64 46 72 61 63 |....$...|.RndFrac|
|000000b0| 74 4d 32 00 d8 0b 00 00 | 43 fb ff ff b8 52 d7 75 |tM2.....|C....R.u|
|000000c0| 03 00 fa a7 d8 0b 00 00 | d5 0b 00 00 82 53 65 74 |........|.....Set|
|000000d0| 46 72 61 63 74 4d 31 00 | 26 0d 00 00 43 fb ff ff |FractM1.|&...C...|
|000000e0| f8 7b d6 75 03 00 ff 7c | 26 0d 00 00 d1 17 00 00 |.{.u...||&.......|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 46 69 6c 65 | 44 61 74 61 82 52 6e 64 |....File|Data.Rnd|
|00000360| 46 72 61 63 74 4d 31 00 | 8d 0b 00 00 43 fb ff ff |FractM1.|....C...|
|00000370| ed a1 d6 75 03 00 27 2c | 0d 00 0a 11 f4 20 3e 52 |...u..',|..... >R|
|00000380| 6e 64 46 72 61 63 74 4d | 31 0d 00 14 4e f4 20 55 |ndFractM|1...N. U|
|00000390| 73 65 73 20 72 61 6e 64 | 6f 6d 20 6e 75 6d 62 65 |ses rand|om numbe|
|000003a0| 72 73 20 74 6f 20 64 72 | 61 77 20 61 20 6c 61 72 |rs to dr|aw a lar|
|000003b0| 67 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 76 61 72 |ge numbe|r of var|
|000003c0| 69 65 64 20 66 72 61 63 | 74 61 6c 73 20 69 6e 20 |ied frac|tals in |
|000003d0| 4d 6f 64 65 20 31 2e 0d | 00 1e 76 f4 20 49 66 20 |Mode 1..|..v. If |
|000003e0| 79 6f 75 20 6c 69 6b 65 | 20 61 20 70 61 74 74 65 |you like| a patte|
|000003f0| 72 6e 20 6d 61 6b 65 20 | 61 20 6e 6f 74 65 20 6f |rn make |a note o|
|00000400| 66 20 73 25 2e 20 53 75 | 62 73 74 69 74 75 74 65 |f s%. Su|bstitute|
|00000410| 20 69 74 20 66 6f 72 20 | 54 49 4d 45 20 69 6e 20 | it for |TIME in |
|00000420| 6c 69 6e 65 20 33 36 30 | 20 61 6e 64 20 79 6f 75 |line 360| and you|
|00000430| 20 77 69 6c 6c 20 67 65 | 74 20 74 68 61 74 20 70 | will ge|t that p|
|00000440| 61 74 74 65 72 6e 20 61 | 67 61 69 6e 2e 0d 00 28 |attern a|gain...(|
|00000450| 19 f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.. *****|********|
|00000460| 2a 2a 2a 2a 2a 2a 0d 00 | 32 19 f4 20 2a 20 20 4a |******..|2.. *  J|
|00000470| 6f 68 6e 20 47 72 65 65 | 6e 69 6e 67 20 20 2a 0d |ohn Gree|ning  *.|
|00000480| 00 3c 19 f4 20 2a 20 20 | 20 20 45 64 69 6e 62 75 |.<.. *  |  Edinbu|
|00000490| 72 67 68 20 20 20 20 2a | 0d 00 46 19 f4 20 2a 2a |rgh    *|..F.. **|
|000004a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004b0| 2a 0d 00 50 05 3a 0d 00 | 5a 09 eb 20 31 3a 87 0d |*..P.:..|Z.. 1:..|
|000004c0| 00 64 10 40 25 3d 26 30 | 30 30 30 30 39 30 41 0d |.d.@%=&0|000090A.|
|000004d0| 00 6e 21 de 20 41 25 28 | 32 35 29 2c 42 25 28 32 |.n!. A%(|25),B%(2|
|000004e0| 35 29 2c 43 25 28 32 35 | 29 2c 44 25 28 32 35 29 |5),C%(25|),D%(25)|
|000004f0| 0d 00 78 21 de 20 45 25 | 28 32 35 29 2c 46 25 28 |..x!. E%|(25),F%(|
|00000500| 32 35 29 2c 58 25 28 32 | 35 29 2c 59 25 28 32 35 |25),X%(2|5),Y%(25|
|00000510| 29 0d 00 82 10 de 20 63 | 6f 64 65 25 20 31 30 30 |)..... c|ode% 100|
|00000520| 30 0d 00 8c 0e c8 91 20 | 35 31 32 2c 35 31 32 0d |0...... |512,512.|
|00000530| 00 96 12 ef 32 38 2c 33 | 30 2c 33 31 2c 33 39 2c |....28,3|0,31,39,|
|00000540| 30 0d 00 a0 05 f5 0d 00 | aa 07 db 3a da 0d 00 b4 |0.......|...:....|
|00000550| 0f f2 73 65 74 78 79 61 | 72 72 61 79 0d 00 be 13 |..setxya|rray....|
|00000560| f2 72 61 6e 64 6f 6d 69 | 6e 74 65 67 65 72 73 0d |.randomi|ntegers.|
|00000570| 00 c8 10 f2 6d 6f 76 65 | 73 71 75 61 72 65 73 0d |....move|squares.|
|00000580| 00 d2 0d f2 61 73 73 65 | 6d 62 6c 65 0d 00 dc 09 |....asse|mble....|
|00000590| f2 70 6c 6f 74 0d 00 e6 | 0a f2 70 72 69 6e 74 0d |.plot...|..print.|
|000005a0| 00 f0 07 fd 20 a3 0d 00 | fa 05 e0 0d 01 04 05 3a |.... ...|.......:|
|000005b0| 0d 01 0e 11 dd 20 f2 73 | 65 74 78 79 61 72 72 61 |..... .s|etxyarra|
|000005c0| 79 0d 01 18 0e e3 20 48 | 25 3d 31 20 b8 20 35 0d |y..... H|%=1 . 5.|
|000005d0| 01 22 0e e3 20 4a 25 3d | 31 20 b8 20 35 0d 01 2c |.".. J%=|1 . 5..,|
|000005e0| 10 4b 25 3d 35 2a 48 25 | 2b 4a 25 2d 35 0d 01 36 |.K%=5*H%|+J%-5..6|
|000005f0| 1b 58 25 28 4b 25 29 3d | 4a 25 2d 33 3a 59 25 28 |.X%(K%)=|J%-3:Y%(|
|00000600| 4b 25 29 3d 48 25 2d 33 | 0d 01 40 08 ed 20 4a 25 |K%)=H%-3|..@.. J%|
|00000610| 0d 01 4a 08 ed 20 48 25 | 0d 01 54 05 e1 0d 01 5e |..J.. H%|..T....^|
|00000620| 05 3a 0d 01 68 15 dd 20 | f2 72 61 6e 64 6f 6d 69 |.:..h.. |.randomi|
|00000630| 6e 74 65 67 65 72 73 0d | 01 72 15 73 25 3d 91 3a |ntegers.|.r.s%=.:|
|00000640| 64 75 6d 6d 79 3d b3 28 | 2d 73 25 29 0d 01 7c 5e |dummy=.(|-s%)..|^|
|00000650| 4c 25 3d 2d 28 b3 28 32 | 29 2d 31 29 3a 4d 25 3d |L%=-(.(2|)-1):M%=|
|00000660| 2d 28 b3 28 32 29 2d 31 | 29 3a 4e 25 3d 2d 28 b3 |-(.(2)-1|):N%=-(.|
|00000670| 28 33 29 2d 31 29 3a 4f | 25 3d 2d 28 b3 28 32 29 |(3)-1):O|%=-(.(2)|
|00000680| 2d 31 29 3a 50 25 3d 2d | 28 b3 28 34 29 2d 31 29 |-1):P%=-|(.(4)-1)|
|00000690| 3a 51 25 3d 2d 28 b3 28 | 32 29 2d 31 29 3a 52 25 |:Q%=-(.(|2)-1):R%|
|000006a0| 3d 2d 4e 25 3a 53 25 3d | 4f 25 0d 01 86 41 54 25 |=-N%:S%=|O%...AT%|
|000006b0| 3d 2d 28 b3 28 33 29 2d | 31 29 3a 55 25 3d 2d 28 |=-(.(3)-|1):U%=-(|
|000006c0| b3 28 33 29 2d 31 29 3a | 56 25 3d 2d 28 b3 28 34 |.(3)-1):|V%=-(.(4|
|000006d0| 29 2d 31 29 3a 57 25 3d | 2d 28 b3 28 33 29 2d 31 |)-1):W%=|-(.(3)-1|
|000006e0| 29 3a 58 25 3d 30 3a 59 | 25 3d 30 0d 01 90 05 e1 |):X%=0:Y|%=0.....|
|000006f0| 0d 01 9a 05 3a 0d 01 a4 | 0c dd 20 f2 70 72 69 6e |....:...|.. .prin|
|00000700| 74 0d 01 ae 0d f1 22 73 | 25 3d 22 3b 73 25 0d 01 |t....."s|%=";s%..|
|00000710| b8 07 f1 3a f1 0d 01 c2 | 11 f1 20 22 50 72 65 73 |...:....|.. "Pres|
|00000720| 73 20 61 6e 79 22 0d 01 | cc 0f f1 20 22 6b 65 79 |s any"..|... "key|
|00000730| 20 66 6f 72 22 0d 01 d6 | 12 f1 20 22 61 6e 6f 74 | for"...|.. "anot|
|00000740| 68 65 72 20 67 6f 22 0d | 01 e0 11 f1 20 22 6f 72 |her go".|.... "or|
|00000750| 20 45 53 43 41 50 45 22 | 0d 01 ea 0e f1 20 22 74 | ESCAPE"|..... "t|
|00000760| 6f 20 65 6e 64 22 0d 01 | f4 07 f1 20 27 0d 01 fe |o end"..|... '...|
|00000770| 0c 6b 65 79 68 69 74 3d | a5 0d 02 08 05 e1 0d 02 |.keyhit=|........|
|00000780| 12 05 3a 0d 02 1c 12 dd | 20 f2 6d 6f 76 65 73 71 |..:.....| .movesq|
|00000790| 75 61 72 65 73 0d 02 26 | 23 58 25 28 31 29 3d 58 |uares..&|#X%(1)=X|
|000007a0| 25 28 31 29 2b 4c 25 3a | 59 25 28 32 31 29 3d 59 |%(1)+L%:|Y%(21)=Y|
|000007b0| 25 28 32 31 29 2d 4c 25 | 0d 02 30 23 58 25 28 32 |%(21)-L%|..0#X%(2|
|000007c0| 35 29 3d 58 25 28 32 35 | 29 2d 4c 25 3a 59 25 28 |5)=X%(25|)-L%:Y%(|
|000007d0| 35 29 3d 59 25 28 35 29 | 2b 4c 25 0d 02 3a 23 59 |5)=Y%(5)|+L%..:#Y|
|000007e0| 25 28 31 29 3d 59 25 28 | 31 29 2b 4d 25 3a 58 25 |%(1)=Y%(|1)+M%:X%|
|000007f0| 28 32 31 29 3d 58 25 28 | 32 31 29 2b 4d 25 0d 02 |(21)=X%(|21)+M%..|
|00000800| 44 23 59 25 28 32 35 29 | 3d 59 25 28 32 35 29 2d |D#Y%(25)|=Y%(25)-|
|00000810| 4d 25 3a 58 25 28 35 29 | 3d 58 25 28 35 29 2d 4d |M%:X%(5)|=X%(5)-M|
|00000820| 25 0d 02 4e 23 58 25 28 | 32 29 3d 58 25 28 32 29 |%..N#X%(|2)=X%(2)|
|00000830| 2b 4e 25 3a 59 25 28 31 | 36 29 3d 59 25 28 31 36 |+N%:Y%(1|6)=Y%(16|
|00000840| 29 2d 4e 25 0d 02 58 25 | 58 25 28 32 34 29 3d 58 |)-N%..X%|X%(24)=X|
|00000850| 25 28 32 34 29 2d 4e 25 | 3a 59 25 28 31 30 29 3d |%(24)-N%|:Y%(10)=|
|00000860| 59 25 28 31 30 29 2b 4e | 25 0d 02 62 23 59 25 28 |Y%(10)+N|%..b#Y%(|
|00000870| 32 29 3d 59 25 28 32 29 | 2b 4f 25 3a 58 25 28 31 |2)=Y%(2)|+O%:X%(1|
|00000880| 36 29 3d 58 25 28 31 36 | 29 2b 4f 25 0d 02 6c 25 |6)=X%(16|)+O%..l%|
|00000890| 59 25 28 32 34 29 3d 59 | 25 28 32 34 29 2d 4f 25 |Y%(24)=Y|%(24)-O%|
|000008a0| 3a 58 25 28 31 30 29 3d | 58 25 28 31 30 29 2d 4f |:X%(10)=|X%(10)-O|
|000008b0| 25 0d 02 76 23 58 25 28 | 33 29 3d 58 25 28 33 29 |%..v#X%(|3)=X%(3)|
|000008c0| 2b 50 25 3a 59 25 28 31 | 31 29 3d 59 25 28 31 31 |+P%:Y%(1|1)=Y%(11|
|000008d0| 29 2d 50 25 0d 02 80 25 | 58 25 28 32 33 29 3d 58 |)-P%...%|X%(23)=X|
|000008e0| 25 28 32 33 29 2d 50 25 | 3a 59 25 28 31 35 29 3d |%(23)-P%|:Y%(15)=|
|000008f0| 59 25 28 31 35 29 2b 50 | 25 0d 02 8a 23 59 25 28 |Y%(15)+P|%...#Y%(|
|00000900| 33 29 3d 59 25 28 33 29 | 2b 51 25 3a 58 25 28 31 |3)=Y%(3)|+Q%:X%(1|
|00000910| 31 29 3d 58 25 28 31 31 | 29 2b 51 25 0d 02 94 25 |1)=X%(11|)+Q%...%|
|00000920| 59 25 28 32 33 29 3d 59 | 25 28 32 33 29 2d 51 25 |Y%(23)=Y|%(23)-Q%|
|00000930| 3a 58 25 28 31 35 29 3d | 58 25 28 31 35 29 2d 51 |:X%(15)=|X%(15)-Q|
|00000940| 25 0d 02 9e 21 58 25 28 | 34 29 3d 58 25 28 34 29 |%...!X%(|4)=X%(4)|
|00000950| 2b 52 25 3a 59 25 28 36 | 29 3d 59 25 28 36 29 2d |+R%:Y%(6|)=Y%(6)-|
|00000960| 52 25 0d 02 a8 25 58 25 | 28 32 32 29 3d 58 25 28 |R%...%X%|(22)=X%(|
|00000970| 32 32 29 2d 52 25 3a 59 | 25 28 32 30 29 3d 59 25 |22)-R%:Y|%(20)=Y%|
|00000980| 28 32 30 29 2b 52 25 0d | 02 b2 22 59 25 28 34 29 |(20)+R%.|.."Y%(4)|
|00000990| 3d 59 25 28 34 29 2b 53 | 25 3a 58 25 28 36 29 3d |=Y%(4)+S|%:X%(6)=|
|000009a0| 58 25 28 36 29 2b 53 25 | 3a 0d 02 bc 25 59 25 28 |X%(6)+S%|:...%Y%(|
|000009b0| 32 32 29 3d 59 25 28 32 | 32 29 2d 53 25 3a 58 25 |22)=Y%(2|2)-S%:X%|
|000009c0| 28 32 30 29 3d 58 25 28 | 32 30 29 2d 53 25 0d 02 |(20)=X%(|20)-S%..|
|000009d0| c6 23 58 25 28 37 29 3d | 58 25 28 37 29 2b 54 25 |.#X%(7)=|X%(7)+T%|
|000009e0| 3a 59 25 28 31 37 29 3d | 59 25 28 31 37 29 2d 54 |:Y%(17)=|Y%(17)-T|
|000009f0| 25 0d 02 d0 23 58 25 28 | 31 39 29 3d 58 25 28 31 |%...#X%(|19)=X%(1|
|00000a00| 39 29 2d 54 25 3a 59 25 | 28 39 29 3d 59 25 28 39 |9)-T%:Y%|(9)=Y%(9|
|00000a10| 29 2b 54 25 0d 02 da 23 | 59 25 28 37 29 3d 59 25 |)+T%...#|Y%(7)=Y%|
|00000a20| 28 37 29 2b 55 25 3a 58 | 25 28 31 37 29 3d 58 25 |(7)+U%:X|%(17)=X%|
|00000a30| 28 31 37 29 2b 55 25 0d | 02 e4 23 59 25 28 31 39 |(17)+U%.|..#Y%(19|
|00000a40| 29 3d 59 25 28 31 39 29 | 2d 55 25 3a 58 25 28 39 |)=Y%(19)|-U%:X%(9|
|00000a50| 29 3d 58 25 28 39 29 2d | 55 25 0d 02 ee 23 58 25 |)=X%(9)-|U%...#X%|
|00000a60| 28 38 29 3d 58 25 28 38 | 29 2b 56 25 3a 59 25 28 |(8)=X%(8|)+V%:Y%(|
|00000a70| 31 32 29 3d 59 25 28 31 | 32 29 2d 56 25 0d 02 f8 |12)=Y%(1|2)-V%...|
|00000a80| 25 58 25 28 31 38 29 3d | 58 25 28 31 38 29 2d 56 |%X%(18)=|X%(18)-V|
|00000a90| 25 3a 59 25 28 31 34 29 | 3d 59 25 28 31 34 29 2b |%:Y%(14)|=Y%(14)+|
|00000aa0| 56 25 0d 03 02 23 59 25 | 28 38 29 3d 59 25 28 38 |V%...#Y%|(8)=Y%(8|
|00000ab0| 29 2b 57 25 3a 58 25 28 | 31 32 29 3d 58 25 28 31 |)+W%:X%(|12)=X%(1|
|00000ac0| 32 29 2b 57 25 0d 03 0c | 25 59 25 28 31 38 29 3d |2)+W%...|%Y%(18)=|
|00000ad0| 59 25 28 31 38 29 2d 57 | 25 3a 58 25 28 31 34 29 |Y%(18)-W|%:X%(14)|
|00000ae0| 3d 58 25 28 31 34 29 2d | 57 25 0d 03 16 25 58 25 |=X%(14)-|W%...%X%|
|00000af0| 28 31 33 29 3d 58 25 28 | 31 33 29 2b 58 25 3a 59 |(13)=X%(|13)+X%:Y|
|00000b00| 25 28 31 33 29 3d 59 25 | 28 31 33 29 2b 59 25 0d |%(13)=Y%|(13)+Y%.|
|00000b10| 03 20 05 e1 0d 03 2a 05 | 3a 0d 03 34 0b dd 20 f2 |. ....*.|:..4.. .|
|00000b20| 70 6c 6f 74 0d 03 3e 0f | e3 20 48 25 3d 30 20 b8 |plot..>.|. H%=0 .|
|00000b30| 20 32 34 0d 03 48 31 61 | 68 21 28 48 25 2a 34 29 | 24..H1a|h!(H%*4)|
|00000b40| 3d 31 30 30 2a 58 25 28 | 48 25 2b 31 29 3a 62 68 |=100*X%(|H%+1):bh|
|00000b50| 21 28 48 25 2a 34 29 3d | 31 30 30 2a 59 25 28 48 |!(H%*4)=|100*Y%(H|
|00000b60| 25 2b 31 29 0d 03 52 2f | 63 68 21 28 48 25 2a 34 |%+1)..R/|ch!(H%*4|
|00000b70| 29 3d 32 30 2a 58 25 28 | 48 25 2b 31 29 3a 64 68 |)=20*X%(|H%+1):dh|
|00000b80| 21 28 48 25 2a 34 29 3d | 32 30 2a 59 25 28 48 25 |!(H%*4)=|20*Y%(H%|
|00000b90| 2b 31 29 0d 03 5c 2d 65 | 68 21 28 48 25 2a 34 29 |+1)..\-e|h!(H%*4)|
|00000ba0| 3d 34 2a 58 25 28 48 25 | 2b 31 29 3a 66 68 21 28 |=4*X%(H%|+1):fh!(|
|00000bb0| 48 25 2a 34 29 3d 34 2a | 59 25 28 48 25 2b 31 29 |H%*4)=4*|Y%(H%+1)|
|00000bc0| 0d 03 66 08 ed 20 48 25 | 0d 03 70 0b d6 20 63 6f |..f.. H%|..p.. co|
|00000bd0| 64 65 25 0d 03 7a 05 e1 | 0d 03 84 05 3a 0d 03 8e |de%..z..|....:...|
|00000be0| 0f dd 20 f2 61 73 73 65 | 6d 62 6c 65 0d 03 98 15 |.. .asse|mble....|
|00000bf0| e3 20 70 61 73 73 25 3d | 30 20 b8 20 32 20 88 20 |. pass%=|0 . 2 . |
|00000c00| 32 0d 03 a2 0c 50 25 3d | 63 6f 64 65 25 0d 03 ac |2....P%=|code%...|
|00000c10| 0e 5b 4f 50 54 20 70 61 | 73 73 25 0d 03 b6 0f 4d |.[OPT pa|ss%....M|
|00000c20| 4f 56 20 52 31 32 2c 52 | 31 34 0d 03 c0 0d 41 44 |OV R12,R|14....AD|
|00000c30| 52 20 52 33 2c 61 68 0d | 03 ca 0d 41 44 52 20 52 |R R3,ah.|...ADR R|
|00000c40| 34 2c 62 68 0d 03 d4 0d | 41 44 52 20 52 35 2c 63 |4,bh....|ADR R5,c|
|00000c50| 68 0d 03 de 0d 41 44 52 | 20 52 36 2c 64 68 0d 03 |h....ADR| R6,dh..|
|00000c60| e8 0d 41 44 52 20 52 37 | 2c 65 68 0d 03 f2 0d 41 |..ADR R7|,eh....A|
|00000c70| 44 52 20 52 38 2c 66 68 | 0d 03 fc 0d 4d 56 4e 20 |DR R8,fh|....MVN |
|00000c80| 52 39 2c 23 33 0d 04 06 | 0a 2e 68 6c 6f 6f 70 0d |R9,#3...|..hloop.|
|00000c90| 04 10 10 41 44 44 20 52 | 39 2c 52 39 2c 23 34 0d |...ADD R|9,R9,#4.|
|00000ca0| 04 1a 0e 4d 56 4e 20 52 | 31 30 2c 23 33 0d 04 24 |...MVN R|10,#3..$|
|00000cb0| 0a 2e 6a 6c 6f 6f 70 0d | 04 2e 12 41 44 44 20 52 |..jloop.|...ADD R|
|00000cc0| 31 30 2c 52 31 30 2c 23 | 34 0d 04 38 0e 4d 56 4e |10,R10,#|4..8.MVN|
|00000cd0| 20 52 31 31 2c 23 33 0d | 04 42 0a 2e 6b 6c 6f 6f | R11,#3.|.B..kloo|
|00000ce0| 70 0d 04 4c 12 41 44 44 | 20 52 31 31 2c 52 31 31 |p..L.ADD| R11,R11|
|00000cf0| 2c 23 34 0d 04 56 12 4c | 44 52 20 52 31 2c 5b 52 |,#4..V.L|DR R1,[R|
|00000d00| 33 2c 52 39 5d 0d 04 60 | 13 4c 44 52 20 52 30 2c |3,R9]..`|.LDR R0,|
|00000d10| 5b 52 35 2c 52 31 30 5d | 0d 04 6a 10 41 44 44 20 |[R5,R10]|..j.ADD |
|00000d20| 52 31 2c 52 31 2c 52 30 | 0d 04 74 13 4c 44 52 20 |R1,R1,R0|..t.LDR |
|00000d30| 52 30 2c 5b 52 37 2c 52 | 31 31 5d 0d 04 7e 10 41 |R0,[R7,R|11]..~.A|
|00000d40| 44 44 20 52 31 2c 52 31 | 2c 52 30 0d 04 88 12 4c |DD R1,R1|,R0....L|
|00000d50| 44 52 20 52 32 2c 5b 52 | 34 2c 52 39 5d 0d 04 92 |DR R2,[R|4,R9]...|
|00000d60| 13 4c 44 52 20 52 30 2c | 5b 52 36 2c 52 31 30 5d |.LDR R0,|[R6,R10]|
|00000d70| 0d 04 9c 10 41 44 44 20 | 52 32 2c 52 32 2c 52 30 |....ADD |R2,R2,R0|
|00000d80| 0d 04 a6 13 4c 44 52 20 | 52 30 2c 5b 52 38 2c 52 |....LDR |R0,[R8,R|
|00000d90| 31 31 5d 0d 04 b0 10 41 | 44 44 20 52 32 2c 52 32 |11]....A|DD R2,R2|
|00000da0| 2c 52 30 0d 04 ba 0e 4d | 4f 56 20 52 30 2c 23 36 |,R0....M|OV R0,#6|
|00000db0| 39 0d 04 c4 11 53 57 49 | 20 22 4f 53 5f 50 6c 6f |9....SWI| "OS_Plo|
|00000dc0| 74 22 0d 04 ce 0f 43 4d | 50 20 52 31 31 2c 23 39 |t"....CM|P R11,#9|
|00000dd0| 36 0d 04 d8 0d 42 4e 45 | 20 6b 6c 6f 6f 70 0d 04 |6....BNE| kloop..|
|00000de0| e2 0f 43 4d 50 20 52 31 | 30 2c 23 39 36 0d 04 ec |..CMP R1|0,#96...|
|00000df0| 0d 42 4e 45 20 6a 6c 6f | 6f 70 0d 04 f6 0e 43 4d |.BNE jlo|op....CM|
|00000e00| 50 20 52 39 2c 23 39 36 | 0d 05 00 0d 42 4e 45 20 |P R9,#96|....BNE |
|00000e10| 68 6c 6f 6f 70 0d 05 0a | 0e 4d 4f 56 20 50 43 2c |hloop...|.MOV PC,|
|00000e20| 52 31 32 0d 05 14 07 2e | 61 68 0d 05 1e 11 a4 72 |R12.....|ah.....r|
|00000e30| 65 73 65 72 76 65 28 31 | 30 30 29 0d 05 28 07 2e |eserve(1|00)..(..|
|00000e40| 62 68 0d 05 32 11 a4 72 | 65 73 65 72 76 65 28 31 |bh..2..r|eserve(1|
|00000e50| 30 30 29 0d 05 3c 07 2e | 63 68 0d 05 46 11 a4 72 |00)..<..|ch..F..r|
|00000e60| 65 73 65 72 76 65 28 31 | 30 30 29 0d 05 50 07 2e |eserve(1|00)..P..|
|00000e70| 64 68 0d 05 5a 11 a4 72 | 65 73 65 72 76 65 28 31 |dh..Z..r|eserve(1|
|00000e80| 30 30 29 0d 05 64 07 2e | 65 68 0d 05 6e 11 a4 72 |00)..d..|eh..n..r|
|00000e90| 65 73 65 72 76 65 28 31 | 30 30 29 0d 05 78 07 2e |eserve(1|00)..x..|
|00000ea0| 66 68 0d 05 82 11 a4 72 | 65 73 65 72 76 65 28 31 |fh.....r|eserve(1|
|00000eb0| 30 30 29 0d 05 8c 05 5d | 0d 05 96 0b ed 20 70 61 |00)....]|..... pa|
|00000ec0| 73 73 25 0d 05 a0 05 e1 | 0d 05 aa 05 3a 0d 05 b4 |ss%.....|....:...|
|00000ed0| 19 dd 20 a4 72 65 73 65 | 72 76 65 28 6e 6f 6f 66 |.. .rese|rve(noof|
|00000ee0| 62 79 74 65 73 29 0d 05 | be 13 50 25 3d 50 25 2b |bytes)..|..P%=P%+|
|00000ef0| 6e 6f 6f 66 62 79 74 65 | 73 0d 05 c8 0a 3d 70 61 |noofbyte|s....=pa|
|00000f00| 73 73 25 0d ff 46 69 6c | 65 44 61 74 61 82 52 6e |ss%..Fil|eData.Rn|
|00000f10| 64 46 72 61 63 74 4d 32 | 00 d8 0b 00 00 43 fb ff |dFractM2|.....C..|
|00000f20| ff b8 52 d7 75 03 00 fa | a7 0d 00 0a 11 f4 20 3e |..R.u...|...... >|
|00000f30| 52 6e 64 46 72 61 63 74 | 4d 32 0d 00 14 af f4 20 |RndFract|M2..... |
|00000f40| 55 73 65 73 20 72 61 6e | 64 6f 6d 20 6e 75 6d 62 |Uses ran|dom numb|
|00000f50| 65 72 73 20 74 6f 20 64 | 72 61 77 20 6d 61 6e 79 |ers to d|raw many|
|00000f60| 20 64 69 66 66 65 72 65 | 6e 74 20 66 72 61 63 74 | differe|nt fract|
|00000f70| 61 6c 73 20 69 6e 20 4d | 6f 64 65 20 32 2e 20 28 |als in M|ode 2. (|
|00000f80| 54 6f 6f 20 6d 75 63 68 | 20 6f 76 65 72 6c 61 70 |Too much| overlap|
|00000f90| 20 74 6f 20 62 65 20 70 | 75 72 65 20 66 72 61 63 | to be p|ure frac|
|00000fa0| 74 61 6c 73 29 2e 20 46 | 69 6c 6c 73 20 73 63 72 |tals). F|ills scr|
|00000fb0| 65 65 6e 20 69 6e 20 4d | 6f 64 65 20 32 2e 20 42 |een in M|ode 2. B|
|00000fc0| 6f 6c 64 65 72 20 74 68 | 61 6e 20 64 65 6c 69 63 |older th|an delic|
|00000fd0| 61 74 65 20 4d 6f 64 65 | 20 31 20 70 75 72 65 20 |ate Mode| 1 pure |
|00000fe0| 66 72 61 63 74 61 6c 73 | 2e 0d 00 1e 73 f4 20 49 |fractals|....s. I|
|00000ff0| 66 20 79 6f 75 20 6c 69 | 6b 65 20 61 20 70 61 74 |f you li|ke a pat|
|00001000| 74 65 72 6e 20 6d 61 6b | 65 20 61 20 6e 6f 74 65 |tern mak|e a note|
|00001010| 20 6f 66 20 73 25 2e 20 | 53 75 62 73 74 69 74 75 | of s%. |Substitu|
|00001020| 74 65 20 69 74 20 66 6f | 72 20 54 49 4d 45 20 69 |te it fo|r TIME i|
|00001030| 6e 20 6c 69 6e 65 20 31 | 39 30 20 61 6e 64 20 79 |n line 1|90 and y|
|00001040| 6f 75 20 77 69 6c 6c 20 | 72 65 70 65 61 74 20 74 |ou will |repeat t|
|00001050| 68 61 74 20 70 61 74 74 | 65 72 6e 2e 0d 00 28 19 |hat patt|ern...(.|
|00001060| f4 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |. ******|********|
|00001070| 2a 2a 2a 2a 2a 0d 00 32 | 19 f4 20 2a 20 20 4a 6f |*****..2|.. *  Jo|
|00001080| 68 6e 20 47 72 65 65 6e | 69 6e 67 20 20 2a 0d 00 |hn Green|ing  *..|
|00001090| 3c 19 f4 20 2a 20 20 20 | 20 45 64 69 6e 62 75 72 |<.. *   | Edinbur|
|000010a0| 67 68 20 20 20 20 2a 0d | 00 46 19 f4 20 2a 2a 2a |gh    *.|.F.. ***|
|000010b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000010c0| 0d 00 50 05 3a 0d 00 5a | 09 eb 20 32 3a 87 0d 00 |..P.:..Z|.. 2:...|
|000010d0| 64 10 40 25 3d 26 30 30 | 30 30 30 39 30 41 0d 00 |d.@%=&00|00090A..|
|000010e0| 6e 21 de 20 41 25 28 32 | 35 29 2c 42 25 28 32 35 |n!. A%(2|5),B%(25|
|000010f0| 29 2c 43 25 28 32 35 29 | 2c 44 25 28 32 35 29 0d |),C%(25)|,D%(25).|
|00001100| 00 78 21 de 20 45 25 28 | 32 35 29 2c 46 25 28 32 |.x!. E%(|25),F%(2|
|00001110| 35 29 2c 58 25 28 32 35 | 29 2c 59 25 28 32 35 29 |5),X%(25|),Y%(25)|
|00001120| 0d 00 82 10 de 20 63 6f | 64 65 25 20 31 30 30 30 |..... co|de% 1000|
|00001130| 0d 00 8c 0e c8 91 20 35 | 31 32 2c 35 31 32 0d 00 |...... 5|12,512..|
|00001140| 96 13 ef 20 32 38 2c 31 | 37 2c 33 31 2c 31 39 2c |... 28,1|7,31,19,|
|00001150| 30 0d 00 a0 05 f5 0d 00 | aa 07 db 3a da 0d 00 b4 |0.......|...:....|
|00001160| 0f f2 73 65 74 78 79 61 | 72 72 61 79 0d 00 be 11 |..setxya|rray....|
|00001170| 73 25 3d 91 3a 61 3d b3 | 28 2d 73 25 29 0d 00 c8 |s%=.:a=.|(-s%)...|
|00001180| 6b 4c 25 3d 2d 28 b3 28 | 32 29 2d 31 29 3a 4d 25 |kL%=-(.(|2)-1):M%|
|00001190| 3d 2d 28 b3 28 32 29 2d | 31 29 3a 4e 25 3d 2d 28 |=-(.(2)-|1):N%=-(|
|000011a0| b3 28 33 29 2d 31 29 3a | 4f 25 3d 2d 28 b3 28 32 |.(3)-1):|O%=-(.(2|
|000011b0| 29 2d 31 29 3a 50 25 3d | 2d 28 b3 28 34 29 2d 31 |)-1):P%=|-(.(4)-1|
|000011c0| 29 3a 51 25 3d 2d 28 b3 | 28 32 29 2d 31 29 3a 52 |):Q%=-(.|(2)-1):R|
|000011d0| 25 3d 2d 28 b3 28 35 29 | 2d 31 29 3a 53 25 3d 2d |%=-(.(5)|-1):S%=-|
|000011e0| 28 b3 28 32 29 2d 31 29 | 0d 00 d2 37 54 25 3d 2d |(.(2)-1)|...7T%=-|
|000011f0| 28 b3 28 33 29 2d 31 29 | 3a 55 25 3d 2d 28 b3 28 |(.(3)-1)|:U%=-(.(|
|00001200| 33 29 2d 31 29 3a 56 25 | 3d 2d 28 b3 28 34 29 2d |3)-1):V%|=-(.(4)-|
|00001210| 31 29 3a 57 25 3d 2d 28 | b3 28 33 29 2d 31 29 0d |1):W%=-(|.(3)-1).|
|00001220| 00 dc 0d 58 25 3d 30 3a | 59 25 3d 30 0d 00 e6 10 |...X%=0:|Y%=0....|
|00001230| f2 6d 6f 76 65 73 71 75 | 61 72 65 73 0d 00 f0 0d |.movesqu|ares....|
|00001240| f2 61 73 73 65 6d 62 6c | 65 0d 00 fa 09 f2 70 6c |.assembl|e.....pl|
|00001250| 6f 74 0d 01 04 0a f2 70 | 72 69 6e 74 0d 01 0e 07 |ot.....p|rint....|
|00001260| fd 20 a3 0d 01 18 05 e0 | 0d 01 22 05 3a 0d 01 2c |. ......|..".:..,|
|00001270| 11 dd 20 f2 73 65 74 78 | 79 61 72 72 61 79 0d 01 |.. .setx|yarray..|
|00001280| 36 0e e3 20 48 25 3d 31 | 20 b8 20 35 0d 01 40 0e |6.. H%=1| . 5..@.|
|00001290| e3 20 4a 25 3d 31 20 b8 | 20 35 0d 01 4a 10 4b 25 |. J%=1 .| 5..J.K%|
|000012a0| 3d 35 2a 48 25 2b 4a 25 | 2d 35 0d 01 54 1b 58 25 |=5*H%+J%|-5..T.X%|
|000012b0| 28 4b 25 29 3d 4a 25 2d | 33 3a 59 25 28 4b 25 29 |(K%)=J%-|3:Y%(K%)|
|000012c0| 3d 48 25 2d 33 0d 01 5e | 08 ed 20 4a 25 0d 01 68 |=H%-3..^|.. J%..h|
|000012d0| 08 ed 20 48 25 0d 01 72 | 05 e1 0d 01 7c 05 3a 0d |.. H%..r|....|.:.|
|000012e0| 01 86 0c dd 20 f2 70 72 | 69 6e 74 0d 01 90 0b f1 |.... .pr|int.....|
|000012f0| 20 22 73 25 3d 22 0d 01 | 9a 08 f1 3b 73 25 0d 01 | "s%="..|...;s%..|
|00001300| a4 05 f1 0d 01 ae 0b f1 | 20 22 48 69 74 22 0d 01 |........| "Hit"..|
|00001310| b8 0b f1 20 22 61 6e 79 | 22 0d 01 c2 0b f1 20 22 |... "any|"..... "|
|00001320| 6b 65 79 22 0d 01 cc 0b | f1 20 22 66 6f 72 22 0d |key"....|. "for".|
|00001330| 01 d6 0b f1 20 22 6e 65 | 77 22 0d 01 e0 0a f1 20 |.... "ne|w"..... |
|00001340| 22 67 6f 22 0d 01 ea 05 | f1 0d 01 f4 0c 6b 65 79 |"go"....|.....key|
|00001350| 68 69 74 3d a5 0d 01 fe | 05 e1 0d 02 08 05 3a 0d |hit=....|......:.|
|00001360| 02 12 12 dd 20 f2 6d 6f | 76 65 73 71 75 61 72 65 |.... .mo|vesquare|
|00001370| 73 0d 02 1c 23 58 25 28 | 31 29 3d 58 25 28 31 29 |s...#X%(|1)=X%(1)|
|00001380| 2b 4c 25 3a 59 25 28 32 | 31 29 3d 59 25 28 32 31 |+L%:Y%(2|1)=Y%(21|
|00001390| 29 2d 4c 25 0d 02 26 23 | 58 25 28 32 35 29 3d 58 |)-L%..&#|X%(25)=X|
|000013a0| 25 28 32 35 29 2d 4c 25 | 3a 59 25 28 35 29 3d 59 |%(25)-L%|:Y%(5)=Y|
|000013b0| 25 28 35 29 2b 4c 25 0d | 02 30 23 59 25 28 31 29 |%(5)+L%.|.0#Y%(1)|
|000013c0| 3d 59 25 28 31 29 2b 4d | 25 3a 58 25 28 32 31 29 |=Y%(1)+M|%:X%(21)|
|000013d0| 3d 58 25 28 32 31 29 2b | 4d 25 0d 02 3a 23 59 25 |=X%(21)+|M%..:#Y%|
|000013e0| 28 32 35 29 3d 59 25 28 | 32 35 29 2d 4d 25 3a 58 |(25)=Y%(|25)-M%:X|
|000013f0| 25 28 35 29 3d 58 25 28 | 35 29 2d 4d 25 0d 02 44 |%(5)=X%(|5)-M%..D|
|00001400| 23 58 25 28 32 29 3d 58 | 25 28 32 29 2b 4e 25 3a |#X%(2)=X|%(2)+N%:|
|00001410| 59 25 28 31 36 29 3d 59 | 25 28 31 36 29 2d 4e 25 |Y%(16)=Y|%(16)-N%|
|00001420| 0d 02 4e 25 58 25 28 32 | 34 29 3d 58 25 28 32 34 |..N%X%(2|4)=X%(24|
|00001430| 29 2d 4e 25 3a 59 25 28 | 31 30 29 3d 59 25 28 31 |)-N%:Y%(|10)=Y%(1|
|00001440| 30 29 2b 4e 25 0d 02 58 | 23 59 25 28 32 29 3d 59 |0)+N%..X|#Y%(2)=Y|
|00001450| 25 28 32 29 2b 4f 25 3a | 58 25 28 31 36 29 3d 58 |%(2)+O%:|X%(16)=X|
|00001460| 25 28 31 36 29 2b 4f 25 | 0d 02 62 25 59 25 28 32 |%(16)+O%|..b%Y%(2|
|00001470| 34 29 3d 59 25 28 32 34 | 29 2d 4f 25 3a 58 25 28 |4)=Y%(24|)-O%:X%(|
|00001480| 31 30 29 3d 58 25 28 31 | 30 29 2d 4f 25 0d 02 6c |10)=X%(1|0)-O%..l|
|00001490| 23 58 25 28 33 29 3d 58 | 25 28 33 29 2b 50 25 3a |#X%(3)=X|%(3)+P%:|
|000014a0| 59 25 28 31 31 29 3d 59 | 25 28 31 31 29 2d 50 25 |Y%(11)=Y|%(11)-P%|
|000014b0| 0d 02 76 25 58 25 28 32 | 33 29 3d 58 25 28 32 33 |..v%X%(2|3)=X%(23|
|000014c0| 29 2d 50 25 3a 59 25 28 | 31 35 29 3d 59 25 28 31 |)-P%:Y%(|15)=Y%(1|
|000014d0| 35 29 2b 50 25 0d 02 80 | 23 59 25 28 33 29 3d 59 |5)+P%...|#Y%(3)=Y|
|000014e0| 25 28 33 29 2b 51 25 3a | 58 25 28 31 31 29 3d 58 |%(3)+Q%:|X%(11)=X|
|000014f0| 25 28 31 31 29 2b 51 25 | 0d 02 8a 25 59 25 28 32 |%(11)+Q%|...%Y%(2|
|00001500| 33 29 3d 59 25 28 32 33 | 29 2d 51 25 3a 58 25 28 |3)=Y%(23|)-Q%:X%(|
|00001510| 31 35 29 3d 58 25 28 31 | 35 29 2d 51 25 0d 02 94 |15)=X%(1|5)-Q%...|
|00001520| 21 58 25 28 34 29 3d 58 | 25 28 34 29 2b 52 25 3a |!X%(4)=X|%(4)+R%:|
|00001530| 59 25 28 36 29 3d 59 25 | 28 36 29 2d 52 25 0d 02 |Y%(6)=Y%|(6)-R%..|
|00001540| 9e 25 58 25 28 32 32 29 | 3d 58 25 28 32 32 29 2d |.%X%(22)|=X%(22)-|
|00001550| 52 25 3a 59 25 28 32 30 | 29 3d 59 25 28 32 30 29 |R%:Y%(20|)=Y%(20)|
|00001560| 2b 52 25 0d 02 a8 22 59 | 25 28 34 29 3d 59 25 28 |+R%..."Y|%(4)=Y%(|
|00001570| 34 29 2b 53 25 3a 58 25 | 28 36 29 3d 58 25 28 36 |4)+S%:X%|(6)=X%(6|
|00001580| 29 2b 53 25 3a 0d 02 b2 | 25 59 25 28 32 32 29 3d |)+S%:...|%Y%(22)=|
|00001590| 59 25 28 32 32 29 2d 53 | 25 3a 58 25 28 32 30 29 |Y%(22)-S|%:X%(20)|
|000015a0| 3d 58 25 28 32 30 29 2d | 53 25 0d 02 bc 23 58 25 |=X%(20)-|S%...#X%|
|000015b0| 28 37 29 3d 58 25 28 37 | 29 2b 54 25 3a 59 25 28 |(7)=X%(7|)+T%:Y%(|
|000015c0| 31 37 29 3d 59 25 28 31 | 37 29 2d 54 25 0d 02 c6 |17)=Y%(1|7)-T%...|
|000015d0| 23 58 25 28 31 39 29 3d | 58 25 28 31 39 29 2d 54 |#X%(19)=|X%(19)-T|
|000015e0| 25 3a 59 25 28 39 29 3d | 59 25 28 39 29 2b 54 25 |%:Y%(9)=|Y%(9)+T%|
|000015f0| 0d 02 d0 23 59 25 28 37 | 29 3d 59 25 28 37 29 2b |...#Y%(7|)=Y%(7)+|
|00001600| 55 25 3a 58 25 28 31 37 | 29 3d 58 25 28 31 37 29 |U%:X%(17|)=X%(17)|
|00001610| 2b 55 25 0d 02 da 23 59 | 25 28 31 39 29 3d 59 25 |+U%...#Y|%(19)=Y%|
|00001620| 28 31 39 29 2d 55 25 3a | 58 25 28 39 29 3d 58 25 |(19)-U%:|X%(9)=X%|
|00001630| 28 39 29 2d 55 25 0d 02 | e4 23 58 25 28 38 29 3d |(9)-U%..|.#X%(8)=|
|00001640| 58 25 28 38 29 2b 56 25 | 3a 59 25 28 31 32 29 3d |X%(8)+V%|:Y%(12)=|
|00001650| 59 25 28 31 32 29 2d 56 | 25 0d 02 ee 25 58 25 28 |Y%(12)-V|%...%X%(|
|00001660| 31 38 29 3d 58 25 28 31 | 38 29 2d 56 25 3a 59 25 |18)=X%(1|8)-V%:Y%|
|00001670| 28 31 34 29 3d 59 25 28 | 31 34 29 2b 56 25 0d 02 |(14)=Y%(|14)+V%..|
|00001680| f8 23 59 25 28 38 29 3d | 59 25 28 38 29 2b 57 25 |.#Y%(8)=|Y%(8)+W%|
|00001690| 3a 58 25 28 31 32 29 3d | 58 25 28 31 32 29 2b 57 |:X%(12)=|X%(12)+W|
|000016a0| 25 0d 03 02 25 59 25 28 | 31 38 29 3d 59 25 28 31 |%...%Y%(|18)=Y%(1|
|000016b0| 38 29 2d 57 25 3a 58 25 | 28 31 34 29 3d 58 25 28 |8)-W%:X%|(14)=X%(|
|000016c0| 31 34 29 2d 57 25 0d 03 | 0c 25 58 25 28 31 33 29 |14)-W%..|.%X%(13)|
|000016d0| 3d 58 25 28 31 33 29 2b | 58 25 3a 59 25 28 31 33 |=X%(13)+|X%:Y%(13|
|000016e0| 29 3d 59 25 28 31 33 29 | 2b 59 25 0d 03 16 05 e1 |)=Y%(13)|+Y%.....|
|000016f0| 0d 03 20 05 3a 0d 03 2a | 0b dd 20 f2 70 6c 6f 74 |.. .:..*|.. .plot|
|00001700| 0d 03 34 0f e3 20 48 25 | 3d 30 20 b8 20 32 34 0d |..4.. H%|=0 . 24.|
|00001710| 03 3e 31 61 68 21 28 48 | 25 2a 34 29 3d 31 32 38 |.>1ah!(H|%*4)=128|
|00001720| 2a 58 25 28 48 25 2b 31 | 29 3a 62 68 21 28 48 25 |*X%(H%+1|):bh!(H%|
|00001730| 2a 34 29 3d 31 32 38 2a | 59 25 28 48 25 2b 31 29 |*4)=128*|Y%(H%+1)|
|00001740| 0d 03 48 2f 63 68 21 28 | 48 25 2a 34 29 3d 33 32 |..H/ch!(|H%*4)=32|
|00001750| 2a 58 25 28 48 25 2b 31 | 29 3a 64 68 21 28 48 25 |*X%(H%+1|):dh!(H%|
|00001760| 2a 34 29 3d 33 32 2a 59 | 25 28 48 25 2b 31 29 0d |*4)=32*Y|%(H%+1).|
|00001770| 03 52 2d 65 68 21 28 48 | 25 2a 34 29 3d 38 2a 58 |.R-eh!(H|%*4)=8*X|
|00001780| 25 28 48 25 2b 31 29 3a | 66 68 21 28 48 25 2a 34 |%(H%+1):|fh!(H%*4|
|00001790| 29 3d 38 2a 59 25 28 48 | 25 2b 31 29 0d 03 5c 08 |)=8*Y%(H|%+1)..\.|
|000017a0| ed 20 48 25 0d 03 66 0b | d6 20 63 6f 64 65 25 0d |. H%..f.|. code%.|
|000017b0| 03 70 05 e1 0d 03 7a 05 | 3a 0d 03 84 0f dd 20 f2 |.p....z.|:..... .|
|000017c0| 61 73 73 65 6d 62 6c 65 | 0d 03 8e 15 e3 20 70 61 |assemble|..... pa|
|000017d0| 73 73 25 3d 30 20 b8 20 | 32 20 88 20 32 0d 03 98 |ss%=0 . |2 . 2...|
|000017e0| 0c 50 25 3d 63 6f 64 65 | 25 0d 03 a2 0e 5b 4f 50 |.P%=code|%....[OP|
|000017f0| 54 20 70 61 73 73 25 0d | 03 ac 0f 4d 4f 56 20 52 |T pass%.|...MOV R|
|00001800| 31 32 2c 52 31 34 0d 03 | b6 0d 41 44 52 20 52 33 |12,R14..|..ADR R3|
|00001810| 2c 61 68 0d 03 c0 0d 41 | 44 52 20 52 34 2c 62 68 |,ah....A|DR R4,bh|
|00001820| 0d 03 ca 0d 41 44 52 20 | 52 35 2c 63 68 0d 03 d4 |....ADR |R5,ch...|
|00001830| 0d 41 44 52 20 52 36 2c | 64 68 0d 03 de 0d 41 44 |.ADR R6,|dh....AD|
|00001840| 52 20 52 37 2c 65 68 0d | 03 e8 0d 41 44 52 20 52 |R R7,eh.|...ADR R|
|00001850| 38 2c 66 68 0d 03 f2 0d | 4d 56 4e 20 52 39 2c 23 |8,fh....|MVN R9,#|
|00001860| 33 0d 03 fc 0a 2e 68 6c | 6f 6f 70 0d 04 06 10 41 |3.....hl|oop....A|
|00001870| 44 44 20 52 39 2c 52 39 | 2c 23 34 0d 04 10 0e 4d |DD R9,R9|,#4....M|
|00001880| 56 4e 20 52 31 30 2c 23 | 33 0d 04 1a 0a 2e 6a 6c |VN R10,#|3.....jl|
|00001890| 6f 6f 70 0d 04 24 12 41 | 44 44 20 52 31 30 2c 52 |oop..$.A|DD R10,R|
|000018a0| 31 30 2c 23 34 0d 04 2e | 0e 4d 56 4e 20 52 31 31 |10,#4...|.MVN R11|
|000018b0| 2c 23 33 0d 04 38 0a 2e | 6b 6c 6f 6f 70 0d 04 42 |,#3..8..|kloop..B|
|000018c0| 12 41 44 44 20 52 31 31 | 2c 52 31 31 2c 23 34 0d |.ADD R11|,R11,#4.|
|000018d0| 04 4c 12 4c 44 52 20 52 | 31 2c 5b 52 33 2c 52 39 |.L.LDR R|1,[R3,R9|
|000018e0| 5d 0d 04 56 13 4c 44 52 | 20 52 30 2c 5b 52 35 2c |]..V.LDR| R0,[R5,|
|000018f0| 52 31 30 5d 0d 04 60 10 | 41 44 44 20 52 31 2c 52 |R10]..`.|ADD R1,R|
|00001900| 31 2c 52 30 0d 04 6a 13 | 4c 44 52 20 52 30 2c 5b |1,R0..j.|LDR R0,[|
|00001910| 52 37 2c 52 31 31 5d 0d | 04 74 10 41 44 44 20 52 |R7,R11].|.t.ADD R|
|00001920| 31 2c 52 31 2c 52 30 0d | 04 7e 12 4c 44 52 20 52 |1,R1,R0.|.~.LDR R|
|00001930| 32 2c 5b 52 34 2c 52 39 | 5d 0d 04 88 13 4c 44 52 |2,[R4,R9|]....LDR|
|00001940| 20 52 30 2c 5b 52 36 2c | 52 31 30 5d 0d 04 92 10 | R0,[R6,|R10]....|
|00001950| 41 44 44 20 52 32 2c 52 | 32 2c 52 30 0d 04 9c 13 |ADD R2,R|2,R0....|
|00001960| 4c 44 52 20 52 30 2c 5b | 52 38 2c 52 31 31 5d 0d |LDR R0,[|R8,R11].|
|00001970| 04 a6 10 41 44 44 20 52 | 32 2c 52 32 2c 52 30 0d |...ADD R|2,R2,R0.|
|00001980| 04 b0 0e 4d 4f 56 20 52 | 30 2c 23 36 39 0d 04 ba |...MOV R|0,#69...|
|00001990| 11 53 57 49 20 22 4f 53 | 5f 50 6c 6f 74 22 0d 04 |.SWI "OS|_Plot"..|
|000019a0| c4 10 53 55 42 20 52 32 | 2c 52 32 2c 23 34 0d 04 |..SUB R2|,R2,#4..|
|000019b0| ce 11 53 57 49 20 22 4f | 53 5f 50 6c 6f 74 22 0d |..SWI "O|S_Plot".|
|000019c0| 04 d8 0f 43 4d 50 20 52 | 31 31 2c 23 39 36 0d 04 |...CMP R|11,#96..|
|000019d0| e2 0d 42 4e 45 20 6b 6c | 6f 6f 70 0d 04 ec 0f 43 |..BNE kl|oop....C|
|000019e0| 4d 50 20 52 31 30 2c 23 | 39 36 0d 04 f6 0d 42 4e |MP R10,#|96....BN|
|000019f0| 45 20 6a 6c 6f 6f 70 0d | 05 00 0e 43 4d 50 20 52 |E jloop.|...CMP R|
|00001a00| 39 2c 23 39 36 0d 05 0a | 0d 42 4e 45 20 68 6c 6f |9,#96...|.BNE hlo|
|00001a10| 6f 70 0d 05 14 0e 4d 4f | 56 20 50 43 2c 52 31 32 |op....MO|V PC,R12|
|00001a20| 0d 05 1e 07 2e 61 68 0d | 05 28 11 a4 72 65 73 65 |.....ah.|.(..rese|
|00001a30| 72 76 65 28 31 30 30 29 | 0d 05 32 07 2e 62 68 0d |rve(100)|..2..bh.|
|00001a40| 05 3c 11 a4 72 65 73 65 | 72 76 65 28 31 30 30 29 |.<..rese|rve(100)|
|00001a50| 0d 05 46 07 2e 63 68 0d | 05 50 11 a4 72 65 73 65 |..F..ch.|.P..rese|
|00001a60| 72 76 65 28 31 30 30 29 | 0d 05 5a 07 2e 64 68 0d |rve(100)|..Z..dh.|
|00001a70| 05 64 11 a4 72 65 73 65 | 72 76 65 28 31 30 30 29 |.d..rese|rve(100)|
|00001a80| 0d 05 6e 07 2e 65 68 0d | 05 78 11 a4 72 65 73 65 |..n..eh.|.x..rese|
|00001a90| 72 76 65 28 31 30 30 29 | 0d 05 82 07 2e 66 68 0d |rve(100)|.....fh.|
|00001aa0| 05 8c 11 a4 72 65 73 65 | 72 76 65 28 31 30 30 29 |....rese|rve(100)|
|00001ab0| 0d 05 96 05 5d 0d 05 a0 | 0b ed 20 70 61 73 73 25 |....]...|.. pass%|
|00001ac0| 0d 05 aa 05 e1 0d 05 b4 | 05 3a 0d 05 be 18 dd a4 |........|.:......|
|00001ad0| 72 65 73 65 72 76 65 28 | 6e 6f 6f 66 62 79 74 65 |reserve(|noofbyte|
|00001ae0| 73 29 0d 05 c8 13 50 25 | 3d 50 25 2b 6e 6f 6f 66 |s)....P%|=P%+noof|
|00001af0| 62 79 74 65 73 0d 05 d2 | 0a 3d 70 61 73 73 25 0d |bytes...|.=pass%.|
|00001b00| ff 46 69 6c 65 44 61 74 | 61 82 53 65 74 46 72 61 |.FileDat|a.SetFra|
|00001b10| 63 74 4d 31 00 26 0d 00 | 00 43 fb ff ff f8 7b d6 |ctM1.&..|.C....{.|
|00001b20| 75 03 00 ff 7c 0d 00 0a | 11 f4 20 3e 53 65 74 46 |u...|...|.. >SetF|
|00001b30| 72 61 63 74 4d 31 0d 00 | 14 59 f4 20 55 73 65 73 |ractM1..|.Y. Uses|
|00001b40| 20 70 72 65 73 65 74 20 | 72 61 6e 64 6f 6d 20 6e | preset |random n|
|00001b50| 75 6d 62 65 72 73 20 74 | 6f 20 64 72 61 77 20 61 |umbers t|o draw a|
|00001b60| 20 6c 61 72 67 65 20 6e | 75 6d 62 65 72 20 6f 66 | large n|umber of|
|00001b70| 20 28 6d 61 69 6e 6c 79 | 29 20 73 79 6d 6d 65 74 | (mainly|) symmet|
|00001b80| 72 69 63 61 6c 20 66 72 | 61 63 74 61 6c 73 2e 0d |rical fr|actals..|
|00001b90| 00 1e 65 f4 20 56 61 6c | 75 65 73 20 6f 66 20 73 |..e. Val|ues of s|
|00001ba0| 25 20 74 68 61 74 20 68 | 61 76 65 20 62 65 65 6e |% that h|ave been|
|00001bb0| 20 73 65 65 6e 20 74 6f | 20 67 69 76 65 20 69 6e | seen to| give in|
|00001bc0| 74 65 72 65 73 74 69 6e | 67 20 66 72 61 63 74 61 |terestin|g fracta|
|00001bd0| 6c 73 20 68 61 76 65 20 | 62 65 65 6e 20 65 6e 74 |ls have |been ent|
|00001be0| 65 72 65 64 20 61 73 20 | 44 41 54 41 20 76 61 6c |ered as |DATA val|
|00001bf0| 75 65 73 2e 0d 00 28 19 | f4 20 2a 2a 2a 2a 2a 2a |ues...(.|. ******|
|00001c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 00 32 |********|*****..2|
|00001c10| 19 f4 20 2a 20 20 4a 6f | 68 6e 20 47 72 65 65 6e |.. *  Jo|hn Green|
|00001c20| 69 6e 67 20 20 2a 0d 00 | 3c 19 f4 20 2a 20 20 20 |ing  *..|<.. *   |
|00001c30| 20 45 64 69 6e 62 75 72 | 67 68 20 20 20 20 2a 0d | Edinbur|gh    *.|
|00001c40| 00 46 19 f4 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.F.. ***|********|
|00001c50| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 00 50 05 3a 0d 00 5a |********|..P.:..Z|
|00001c60| 09 eb 20 31 3a 87 0d 00 | 64 10 40 25 3d 26 30 30 |.. 1:...|d.@%=&00|
|00001c70| 30 30 30 39 30 41 0d 00 | 6e 21 de 20 41 25 28 32 |00090A..|n!. A%(2|
|00001c80| 35 29 2c 42 25 28 32 35 | 29 2c 43 25 28 32 35 29 |5),B%(25|),C%(25)|
|00001c90| 2c 44 25 28 32 35 29 0d | 00 78 21 de 20 45 25 28 |,D%(25).|.x!. E%(|
|00001ca0| 32 35 29 2c 46 25 28 32 | 35 29 2c 58 25 28 32 35 |25),F%(2|5),X%(25|
|00001cb0| 29 2c 59 25 28 32 35 29 | 0d 00 82 10 de 20 63 6f |),Y%(25)|..... co|
|00001cc0| 64 65 25 20 31 30 30 30 | 0d 00 8c 0e c8 91 20 35 |de% 1000|...... 5|
|00001cd0| 31 32 2c 35 31 32 0d 00 | 96 12 ef 32 38 2c 33 30 |12,512..|...28,30|
|00001ce0| 2c 33 31 2c 33 39 2c 30 | 0d 00 a0 05 f5 0d 00 aa |,31,39,0|........|
|00001cf0| 07 db 3a da 0d 00 b4 0f | f2 73 65 74 78 79 61 72 |..:.....|.setxyar|
|00001d00| 72 61 79 0d 00 be 13 f2 | 72 61 6e 64 6f 6d 69 6e |ray.....|randomin|
|00001d10| 74 65 67 65 72 73 0d 00 | c8 10 f2 6d 6f 76 65 73 |tegers..|...moves|
|00001d20| 71 75 61 72 65 73 0d 00 | d2 0d f2 61 73 73 65 6d |quares..|...assem|
|00001d30| 62 6c 65 0d 00 dc 09 f2 | 70 6c 6f 74 0d 00 e6 0a |ble.....|plot....|
|00001d40| f2 70 72 69 6e 74 0d 00 | f0 07 fd 20 a3 0d 00 fa |.print..|... ....|
|00001d50| 05 e0 0d 01 04 05 3a 0d | 01 0e b2 dc 20 38 32 37 |......:.|.... 827|
|00001d60| 32 2c 31 30 38 34 32 2c | 31 32 32 31 37 2c 31 33 |2,10842,|12217,13|
|00001d70| 39 35 38 2c 31 34 38 37 | 39 2c 31 39 32 31 37 2c |958,1487|9,19217,|
|00001d80| 32 32 36 35 39 2c 32 33 | 33 37 39 2c 32 34 32 34 |22659,23|379,2424|
|00001d90| 34 2c 32 35 32 37 31 2c | 32 36 38 34 38 2c 32 38 |4,25271,|26848,28|
|00001da0| 35 36 37 2c 33 30 30 31 | 34 2c 33 32 33 35 37 2c |567,3001|4,32357,|
|00001db0| 33 33 38 39 39 2c 33 34 | 37 31 32 2c 33 36 31 39 |33899,34|712,3619|
|00001dc0| 35 2c 33 37 32 37 34 2c | 33 39 37 30 31 2c 34 31 |5,37274,|39701,41|
|00001dd0| 30 34 37 2c 34 31 38 31 | 30 2c 34 33 33 31 38 2c |047,4181|0,43318,|
|00001de0| 34 34 32 35 32 2c 34 37 | 39 39 38 2c 34 39 31 30 |44252,47|998,4910|
|00001df0| 37 2c 35 30 34 38 30 2c | 35 31 34 38 36 2c 35 33 |7,50480,|51486,53|
|00001e00| 30 31 32 2c 35 38 30 39 | 31 0d 01 18 b2 dc 20 31 |012,5809|1..... 1|
|00001e10| 31 30 31 30 2c 31 35 35 | 32 30 2c 31 38 32 39 30 |1010,155|20,18290|
|00001e20| 2c 31 39 38 36 36 2c 32 | 36 31 38 35 2c 32 37 33 |,19866,2|6185,273|
|00001e30| 35 30 2c 33 31 31 36 36 | 2c 34 37 39 39 38 2c 35 |50,31166|,47998,5|
|00001e40| 38 30 39 31 2c 32 31 32 | 37 32 33 2c 32 31 36 34 |8091,212|723,2164|
|00001e50| 30 32 2c 32 31 39 32 38 | 31 2c 32 32 30 38 35 31 |02,21928|1,220851|
|00001e60| 2c 32 32 33 33 39 31 2c | 32 32 37 33 36 33 2c 32 |,223391,|227363,2|
|00001e70| 32 38 38 38 32 2c 32 33 | 31 32 34 37 2c 32 33 32 |28882,23|1247,232|
|00001e80| 36 32 37 2c 32 33 33 39 | 39 39 2c 32 33 37 36 37 |627,2339|99,23767|
|00001e90| 36 2c 32 34 30 33 36 37 | 2c 32 34 34 31 39 30 2c |6,240367|,244190,|
|00001ea0| 32 34 38 32 35 34 2c 32 | 34 39 34 35 32 2c 32 35 |248254,2|49452,25|
|00001eb0| 31 31 30 39 2c 32 35 32 | 33 34 33 0d 01 22 36 dc |1109,252|343.."6.|
|00001ec0| 20 31 36 30 30 35 30 2c | 31 36 37 38 32 37 2c 31 | 160050,|167827,1|
|00001ed0| 36 39 35 39 31 2c 31 37 | 34 30 30 36 2c 31 37 35 |69591,17|4006,175|
|00001ee0| 35 37 35 2c 31 38 30 30 | 36 34 2c 31 38 32 36 32 |575,1800|64,18262|
|00001ef0| 37 0d 01 2c 05 3a 0d 01 | 36 11 dd 20 f2 73 65 74 |7..,.:..|6.. .set|
|00001f00| 78 79 61 72 72 61 79 0d | 01 40 0e e3 20 48 25 3d |xyarray.|.@.. H%=|
|00001f10| 31 20 b8 20 35 0d 01 4a | 0e e3 20 4a 25 3d 31 20 |1 . 5..J|.. J%=1 |
|00001f20| b8 20 35 0d 01 54 10 4b | 25 3d 35 2a 48 25 2b 4a |. 5..T.K|%=5*H%+J|
|00001f30| 25 2d 35 0d 01 5e 1b 58 | 25 28 4b 25 29 3d 4a 25 |%-5..^.X|%(K%)=J%|
|00001f40| 2d 33 3a 59 25 28 4b 25 | 29 3d 48 25 2d 33 0d 01 |-3:Y%(K%|)=H%-3..|
|00001f50| 68 08 ed 20 4a 25 0d 01 | 72 08 ed 20 48 25 0d 01 |h.. J%..|r.. H%..|
|00001f60| 7c 05 e1 0d 01 86 05 3a | 0d 01 90 15 dd 20 f2 72 ||......:|..... .r|
|00001f70| 61 6e 64 6f 6d 69 6e 74 | 65 67 65 72 73 0d 01 9a |andomint|egers...|
|00001f80| 15 f3 20 73 25 3a 64 75 | 6d 6d 79 3d b3 28 2d 73 |.. s%:du|mmy=.(-s|
|00001f90| 25 29 0d 01 a4 5e 4c 25 | 3d 2d 28 b3 28 32 29 2d |%)...^L%|=-(.(2)-|
|00001fa0| 31 29 3a 4d 25 3d 2d 28 | b3 28 32 29 2d 31 29 3a |1):M%=-(|.(2)-1):|
|00001fb0| 4e 25 3d 2d 28 b3 28 33 | 29 2d 31 29 3a 4f 25 3d |N%=-(.(3|)-1):O%=|
|00001fc0| 2d 28 b3 28 32 29 2d 31 | 29 3a 50 25 3d 2d 28 b3 |-(.(2)-1|):P%=-(.|
|00001fd0| 28 34 29 2d 31 29 3a 51 | 25 3d 2d 28 b3 28 32 29 |(4)-1):Q|%=-(.(2)|
|00001fe0| 2d 31 29 3a 52 25 3d 2d | 4e 25 3a 53 25 3d 4f 25 |-1):R%=-|N%:S%=O%|
|00001ff0| 0d 01 ae 41 54 25 3d 2d | 28 b3 28 33 29 2d 31 29 |...AT%=-|(.(3)-1)|
|00002000| 3a 55 25 3d 2d 28 b3 28 | 33 29 2d 31 29 3a 56 25 |:U%=-(.(|3)-1):V%|
|00002010| 3d 2d 28 b3 28 34 29 2d | 31 29 3a 57 25 3d 2d 28 |=-(.(4)-|1):W%=-(|
|00002020| b3 28 33 29 2d 31 29 3a | 58 25 3d 30 3a 59 25 3d |.(3)-1):|X%=0:Y%=|
|00002030| 30 0d 01 b8 05 e1 0d 01 | c2 05 3a 0d 01 cc 0c dd |0.......|..:.....|
|00002040| 20 f2 70 72 69 6e 74 0d | 01 d6 0d f1 22 73 25 3d | .print.|...."s%=|
|00002050| 22 3b 73 25 0d 01 e0 07 | f1 3a f1 0d 01 ea 11 f1 |";s%....|.:......|
|00002060| 20 22 50 72 65 73 73 20 | 61 6e 79 22 0d 01 f4 0f | "Press |any"....|
|00002070| f1 20 22 6b 65 79 20 66 | 6f 72 22 0d 01 fe 12 f1 |. "key f|or".....|
|00002080| 20 22 61 6e 6f 74 68 65 | 72 20 67 6f 22 0d 02 08 | "anothe|r go"...|
|00002090| 11 f1 20 22 6f 72 20 45 | 53 43 41 50 45 22 0d 02 |.. "or E|SCAPE"..|
|000020a0| 12 0e f1 20 22 74 6f 20 | 65 6e 64 22 0d 02 1c 07 |... "to |end"....|
|000020b0| f1 20 27 0d 02 26 0c 6b | 65 79 68 69 74 3d a5 0d |. '..&.k|eyhit=..|
|000020c0| 02 30 05 e1 0d 02 3a 05 | 3a 0d 02 44 12 dd 20 f2 |.0....:.|:..D.. .|
|000020d0| 6d 6f 76 65 73 71 75 61 | 72 65 73 0d 02 4e 23 58 |movesqua|res..N#X|
|000020e0| 25 28 31 29 3d 58 25 28 | 31 29 2b 4c 25 3a 59 25 |%(1)=X%(|1)+L%:Y%|
|000020f0| 28 32 31 29 3d 59 25 28 | 32 31 29 2d 4c 25 0d 02 |(21)=Y%(|21)-L%..|
|00002100| 58 23 58 25 28 32 35 29 | 3d 58 25 28 32 35 29 2d |X#X%(25)|=X%(25)-|
|00002110| 4c 25 3a 59 25 28 35 29 | 3d 59 25 28 35 29 2b 4c |L%:Y%(5)|=Y%(5)+L|
|00002120| 25 0d 02 62 23 59 25 28 | 31 29 3d 59 25 28 31 29 |%..b#Y%(|1)=Y%(1)|
|00002130| 2b 4d 25 3a 58 25 28 32 | 31 29 3d 58 25 28 32 31 |+M%:X%(2|1)=X%(21|
|00002140| 29 2b 4d 25 0d 02 6c 23 | 59 25 28 32 35 29 3d 59 |)+M%..l#|Y%(25)=Y|
|00002150| 25 28 32 35 29 2d 4d 25 | 3a 58 25 28 35 29 3d 58 |%(25)-M%|:X%(5)=X|
|00002160| 25 28 35 29 2d 4d 25 0d | 02 76 23 58 25 28 32 29 |%(5)-M%.|.v#X%(2)|
|00002170| 3d 58 25 28 32 29 2b 4e | 25 3a 59 25 28 31 36 29 |=X%(2)+N|%:Y%(16)|
|00002180| 3d 59 25 28 31 36 29 2d | 4e 25 0d 02 80 25 58 25 |=Y%(16)-|N%...%X%|
|00002190| 28 32 34 29 3d 58 25 28 | 32 34 29 2d 4e 25 3a 59 |(24)=X%(|24)-N%:Y|
|000021a0| 25 28 31 30 29 3d 59 25 | 28 31 30 29 2b 4e 25 0d |%(10)=Y%|(10)+N%.|
|000021b0| 02 8a 23 59 25 28 32 29 | 3d 59 25 28 32 29 2b 4f |..#Y%(2)|=Y%(2)+O|
|000021c0| 25 3a 58 25 28 31 36 29 | 3d 58 25 28 31 36 29 2b |%:X%(16)|=X%(16)+|
|000021d0| 4f 25 0d 02 94 25 59 25 | 28 32 34 29 3d 59 25 28 |O%...%Y%|(24)=Y%(|
|000021e0| 32 34 29 2d 4f 25 3a 58 | 25 28 31 30 29 3d 58 25 |24)-O%:X|%(10)=X%|
|000021f0| 28 31 30 29 2d 4f 25 0d | 02 9e 23 58 25 28 33 29 |(10)-O%.|..#X%(3)|
|00002200| 3d 58 25 28 33 29 2b 50 | 25 3a 59 25 28 31 31 29 |=X%(3)+P|%:Y%(11)|
|00002210| 3d 59 25 28 31 31 29 2d | 50 25 0d 02 a8 25 58 25 |=Y%(11)-|P%...%X%|
|00002220| 28 32 33 29 3d 58 25 28 | 32 33 29 2d 50 25 3a 59 |(23)=X%(|23)-P%:Y|
|00002230| 25 28 31 35 29 3d 59 25 | 28 31 35 29 2b 50 25 0d |%(15)=Y%|(15)+P%.|
|00002240| 02 b2 23 59 25 28 33 29 | 3d 59 25 28 33 29 2b 51 |..#Y%(3)|=Y%(3)+Q|
|00002250| 25 3a 58 25 28 31 31 29 | 3d 58 25 28 31 31 29 2b |%:X%(11)|=X%(11)+|
|00002260| 51 25 0d 02 bc 25 59 25 | 28 32 33 29 3d 59 25 28 |Q%...%Y%|(23)=Y%(|
|00002270| 32 33 29 2d 51 25 3a 58 | 25 28 31 35 29 3d 58 25 |23)-Q%:X|%(15)=X%|
|00002280| 28 31 35 29 2d 51 25 0d | 02 c6 21 58 25 28 34 29 |(15)-Q%.|..!X%(4)|
|00002290| 3d 58 25 28 34 29 2b 52 | 25 3a 59 25 28 36 29 3d |=X%(4)+R|%:Y%(6)=|
|000022a0| 59 25 28 36 29 2d 52 25 | 0d 02 d0 25 58 25 28 32 |Y%(6)-R%|...%X%(2|
|000022b0| 32 29 3d 58 25 28 32 32 | 29 2d 52 25 3a 59 25 28 |2)=X%(22|)-R%:Y%(|
|000022c0| 32 30 29 3d 59 25 28 32 | 30 29 2b 52 25 0d 02 da |20)=Y%(2|0)+R%...|
|000022d0| 22 59 25 28 34 29 3d 59 | 25 28 34 29 2b 53 25 3a |"Y%(4)=Y|%(4)+S%:|
|000022e0| 58 25 28 36 29 3d 58 25 | 28 36 29 2b 53 25 3a 0d |X%(6)=X%|(6)+S%:.|
|000022f0| 02 e4 25 59 25 28 32 32 | 29 3d 59 25 28 32 32 29 |..%Y%(22|)=Y%(22)|
|00002300| 2d 53 25 3a 58 25 28 32 | 30 29 3d 58 25 28 32 30 |-S%:X%(2|0)=X%(20|
|00002310| 29 2d 53 25 0d 02 ee 23 | 58 25 28 37 29 3d 58 25 |)-S%...#|X%(7)=X%|
|00002320| 28 37 29 2b 54 25 3a 59 | 25 28 31 37 29 3d 59 25 |(7)+T%:Y|%(17)=Y%|
|00002330| 28 31 37 29 2d 54 25 0d | 02 f8 23 58 25 28 31 39 |(17)-T%.|..#X%(19|
|00002340| 29 3d 58 25 28 31 39 29 | 2d 54 25 3a 59 25 28 39 |)=X%(19)|-T%:Y%(9|
|00002350| 29 3d 59 25 28 39 29 2b | 54 25 0d 03 02 23 59 25 |)=Y%(9)+|T%...#Y%|
|00002360| 28 37 29 3d 59 25 28 37 | 29 2b 55 25 3a 58 25 28 |(7)=Y%(7|)+U%:X%(|
|00002370| 31 37 29 3d 58 25 28 31 | 37 29 2b 55 25 0d 03 0c |17)=X%(1|7)+U%...|
|00002380| 23 59 25 28 31 39 29 3d | 59 25 28 31 39 29 2d 55 |#Y%(19)=|Y%(19)-U|
|00002390| 25 3a 58 25 28 39 29 3d | 58 25 28 39 29 2d 55 25 |%:X%(9)=|X%(9)-U%|
|000023a0| 0d 03 16 23 58 25 28 38 | 29 3d 58 25 28 38 29 2b |...#X%(8|)=X%(8)+|
|000023b0| 56 25 3a 59 25 28 31 32 | 29 3d 59 25 28 31 32 29 |V%:Y%(12|)=Y%(12)|
|000023c0| 2d 56 25 0d 03 20 25 58 | 25 28 31 38 29 3d 58 25 |-V%.. %X|%(18)=X%|
|000023d0| 28 31 38 29 2d 56 25 3a | 59 25 28 31 34 29 3d 59 |(18)-V%:|Y%(14)=Y|
|000023e0| 25 28 31 34 29 2b 56 25 | 0d 03 2a 23 59 25 28 38 |%(14)+V%|..*#Y%(8|
|000023f0| 29 3d 59 25 28 38 29 2b | 57 25 3a 58 25 28 31 32 |)=Y%(8)+|W%:X%(12|
|00002400| 29 3d 58 25 28 31 32 29 | 2b 57 25 0d 03 34 25 59 |)=X%(12)|+W%..4%Y|
|00002410| 25 28 31 38 29 3d 59 25 | 28 31 38 29 2d 57 25 3a |%(18)=Y%|(18)-W%:|
|00002420| 58 25 28 31 34 29 3d 58 | 25 28 31 34 29 2d 57 25 |X%(14)=X|%(14)-W%|
|00002430| 0d 03 3e 25 58 25 28 31 | 33 29 3d 58 25 28 31 33 |..>%X%(1|3)=X%(13|
|00002440| 29 2b 58 25 3a 59 25 28 | 31 33 29 3d 59 25 28 31 |)+X%:Y%(|13)=Y%(1|
|00002450| 33 29 2b 59 25 0d 03 48 | 05 e1 0d 03 52 05 3a 0d |3)+Y%..H|....R.:.|
|00002460| 03 5c 0b dd 20 f2 70 6c | 6f 74 0d 03 66 0f e3 20 |.\.. .pl|ot..f.. |
|00002470| 48 25 3d 30 20 b8 20 32 | 34 0d 03 70 31 61 68 21 |H%=0 . 2|4..p1ah!|
|00002480| 28 48 25 2a 34 29 3d 31 | 30 30 2a 58 25 28 48 25 |(H%*4)=1|00*X%(H%|
|00002490| 2b 31 29 3a 62 68 21 28 | 48 25 2a 34 29 3d 31 30 |+1):bh!(|H%*4)=10|
|000024a0| 30 2a 59 25 28 48 25 2b | 31 29 0d 03 7a 2f 63 68 |0*Y%(H%+|1)..z/ch|
|000024b0| 21 28 48 25 2a 34 29 3d | 32 30 2a 58 25 28 48 25 |!(H%*4)=|20*X%(H%|
|000024c0| 2b 31 29 3a 64 68 21 28 | 48 25 2a 34 29 3d 32 30 |+1):dh!(|H%*4)=20|
|000024d0| 2a 59 25 28 48 25 2b 31 | 29 0d 03 84 2d 65 68 21 |*Y%(H%+1|)...-eh!|
|000024e0| 28 48 25 2a 34 29 3d 34 | 2a 58 25 28 48 25 2b 31 |(H%*4)=4|*X%(H%+1|
|000024f0| 29 3a 66 68 21 28 48 25 | 2a 34 29 3d 34 2a 59 25 |):fh!(H%|*4)=4*Y%|
|00002500| 28 48 25 2b 31 29 0d 03 | 8e 08 ed 20 48 25 0d 03 |(H%+1)..|... H%..|
|00002510| 98 0b d6 20 63 6f 64 65 | 25 0d 03 a2 05 e1 0d 03 |... code|%.......|
|00002520| ac 05 3a 0d 03 b6 0f dd | 20 f2 61 73 73 65 6d 62 |..:.....| .assemb|
|00002530| 6c 65 0d 03 c0 15 e3 20 | 70 61 73 73 25 3d 30 20 |le..... |pass%=0 |
|00002540| b8 20 32 20 88 20 32 0d | 03 ca 0c 50 25 3d 63 6f |. 2 . 2.|...P%=co|
|00002550| 64 65 25 0d 03 d4 0e 5b | 4f 50 54 20 70 61 73 73 |de%....[|OPT pass|
|00002560| 25 0d 03 de 0f 4d 4f 56 | 20 52 31 32 2c 52 31 34 |%....MOV| R12,R14|
|00002570| 0d 03 e8 0d 41 44 52 20 | 52 33 2c 61 68 0d 03 f2 |....ADR |R3,ah...|
|00002580| 0d 41 44 52 20 52 34 2c | 62 68 0d 03 fc 0d 41 44 |.ADR R4,|bh....AD|
|00002590| 52 20 52 35 2c 63 68 0d | 04 06 0d 41 44 52 20 52 |R R5,ch.|...ADR R|
|000025a0| 36 2c 64 68 0d 04 10 0d | 41 44 52 20 52 37 2c 65 |6,dh....|ADR R7,e|
|000025b0| 68 0d 04 1a 0d 41 44 52 | 20 52 38 2c 66 68 0d 04 |h....ADR| R8,fh..|
|000025c0| 24 0d 4d 56 4e 20 52 39 | 2c 23 33 0d 04 2e 0a 2e |$.MVN R9|,#3.....|
|000025d0| 68 6c 6f 6f 70 0d 04 38 | 10 41 44 44 20 52 39 2c |hloop..8|.ADD R9,|
|000025e0| 52 39 2c 23 34 0d 04 42 | 0e 4d 56 4e 20 52 31 30 |R9,#4..B|.MVN R10|
|000025f0| 2c 23 33 0d 04 4c 0a 2e | 6a 6c 6f 6f 70 0d 04 56 |,#3..L..|jloop..V|
|00002600| 12 41 44 44 20 52 31 30 | 2c 52 31 30 2c 23 34 0d |.ADD R10|,R10,#4.|
|00002610| 04 60 0e 4d 56 4e 20 52 | 31 31 2c 23 33 0d 04 6a |.`.MVN R|11,#3..j|
|00002620| 0a 2e 6b 6c 6f 6f 70 0d | 04 74 12 41 44 44 20 52 |..kloop.|.t.ADD R|
|00002630| 31 31 2c 52 31 31 2c 23 | 34 0d 04 7e 12 4c 44 52 |11,R11,#|4..~.LDR|
|00002640| 20 52 31 2c 5b 52 33 2c | 52 39 5d 0d 04 88 13 4c | R1,[R3,|R9]....L|
|00002650| 44 52 20 52 30 2c 5b 52 | 35 2c 52 31 30 5d 0d 04 |DR R0,[R|5,R10]..|
|00002660| 92 10 41 44 44 20 52 31 | 2c 52 31 2c 52 30 0d 04 |..ADD R1|,R1,R0..|
|00002670| 9c 13 4c 44 52 20 52 30 | 2c 5b 52 37 2c 52 31 31 |..LDR R0|,[R7,R11|
|00002680| 5d 0d 04 a6 10 41 44 44 | 20 52 31 2c 52 31 2c 52 |]....ADD| R1,R1,R|
|00002690| 30 0d 04 b0 12 4c 44 52 | 20 52 32 2c 5b 52 34 2c |0....LDR| R2,[R4,|
|000026a0| 52 39 5d 0d 04 ba 13 4c | 44 52 20 52 30 2c 5b 52 |R9]....L|DR R0,[R|
|000026b0| 36 2c 52 31 30 5d 0d 04 | c4 10 41 44 44 20 52 32 |6,R10]..|..ADD R2|
|000026c0| 2c 52 32 2c 52 30 0d 04 | ce 13 4c 44 52 20 52 30 |,R2,R0..|..LDR R0|
|000026d0| 2c 5b 52 38 2c 52 31 31 | 5d 0d 04 d8 10 41 44 44 |,[R8,R11|]....ADD|
|000026e0| 20 52 32 2c 52 32 2c 52 | 30 0d 04 e2 0e 4d 4f 56 | R2,R2,R|0....MOV|
|000026f0| 20 52 30 2c 23 36 39 0d | 04 ec 11 53 57 49 20 22 | R0,#69.|...SWI "|
|00002700| 4f 53 5f 50 6c 6f 74 22 | 0d 04 f6 0f 43 4d 50 20 |OS_Plot"|....CMP |
|00002710| 52 31 31 2c 23 39 36 0d | 05 00 0d 42 4e 45 20 6b |R11,#96.|...BNE k|
|00002720| 6c 6f 6f 70 0d 05 0a 0f | 43 4d 50 20 52 31 30 2c |loop....|CMP R10,|
|00002730| 23 39 36 0d 05 14 0d 42 | 4e 45 20 6a 6c 6f 6f 70 |#96....B|NE jloop|
|00002740| 0d 05 1e 0e 43 4d 50 20 | 52 39 2c 23 39 36 0d 05 |....CMP |R9,#96..|
|00002750| 28 0d 42 4e 45 20 68 6c | 6f 6f 70 0d 05 32 0e 4d |(.BNE hl|oop..2.M|
|00002760| 4f 56 20 50 43 2c 52 31 | 32 0d 05 3c 07 2e 61 68 |OV PC,R1|2..<..ah|
|00002770| 0d 05 46 11 a4 72 65 73 | 65 72 76 65 28 31 30 30 |..F..res|erve(100|
|00002780| 29 0d 05 50 07 2e 62 68 | 0d 05 5a 11 a4 72 65 73 |)..P..bh|..Z..res|
|00002790| 65 72 76 65 28 31 30 30 | 29 0d 05 64 07 2e 63 68 |erve(100|)..d..ch|
|000027a0| 0d 05 6e 11 a4 72 65 73 | 65 72 76 65 28 31 30 30 |..n..res|erve(100|
|000027b0| 29 0d 05 78 07 2e 64 68 | 0d 05 82 11 a4 72 65 73 |)..x..dh|.....res|
|000027c0| 65 72 76 65 28 31 30 30 | 29 0d 05 8c 07 2e 65 68 |erve(100|).....eh|
|000027d0| 0d 05 96 11 a4 72 65 73 | 65 72 76 65 28 31 30 30 |.....res|erve(100|
|000027e0| 29 0d 05 a0 07 2e 66 68 | 0d 05 aa 11 a4 72 65 73 |).....fh|.....res|
|000027f0| 65 72 76 65 28 31 30 30 | 29 0d 05 b4 05 5d 0d 05 |erve(100|)....]..|
|00002800| be 0b ed 20 70 61 73 73 | 25 0d 05 c8 05 e1 0d 05 |... pass|%.......|
|00002810| d2 05 3a 0d 05 dc 19 dd | 20 a4 72 65 73 65 72 76 |..:.....| .reserv|
|00002820| 65 28 6e 6f 6f 66 62 79 | 74 65 73 29 0d 05 e6 13 |e(noofby|tes)....|
|00002830| 50 25 3d 50 25 2b 6e 6f | 6f 66 62 79 74 65 73 0d |P%=P%+no|ofbytes.|
|00002840| 05 f0 0a 3d 70 61 73 73 | 25 0d ff 46 69 6c 65 44 |...=pass|%..FileD|
|00002850| 61 74 61 82 52 65 61 64 | 46 72 61 63 74 00 00 3f |ata.Read|Fract..?|
|00002860| 0a 00 00 43 ff ff ff 0e | 54 05 78 03 00 35 07 20 |...C....|T.x..5. |
|00002870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002880| 20 20 20 20 20 20 20 20 | 46 72 61 63 74 61 6c 20 |        |Fractal |
|00002890| 50 61 74 74 65 72 6e 73 | 20 62 79 20 74 68 65 20 |Patterns| by the |
|000028a0| 48 75 6e 64 72 65 64 0a | 0a 20 20 20 20 20 20 20 |Hundred.|.       |
|000028b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000028c0| 20 20 20 20 20 20 20 20 | 20 4a 6f 68 6e 20 47 72 |        | John Gr|
|000028d0| 65 65 6e 69 6e 67 0a 0a | 54 68 65 20 66 72 61 63 |eening..|The frac|
|000028e0| 74 61 6c 73 20 61 72 65 | 20 70 72 6f 64 75 63 65 |tals are| produce|
|000028f0| 64 20 61 73 20 66 6f 6c | 6c 6f 77 73 2e 20 32 35 |d as fol|lows. 25|
|00002900| 20 73 71 75 61 72 65 73 | 20 61 72 65 20 73 65 74 | squares| are set|
|00002910| 20 75 70 20 69 6e 20 61 | 20 35 2a 35 20 61 72 72 | up in a| 5*5 arr|
|00002920| 61 79 0a 61 6e 64 20 61 | 72 65 20 6e 75 6d 62 65 |ay.and a|re numbe|
|00002930| 72 65 64 2e 20 54 68 65 | 20 73 71 75 61 72 65 73 |red. The| squares|
|00002940| 20 69 6e 20 74 68 65 20 | 22 73 6f 75 74 68 22 20 | in the |"south" |
|00002950| 39 30 20 64 65 67 72 65 | 65 20 73 65 63 74 6f 72 |90 degre|e sector|
|00002960| 20 61 72 65 20 61 6c 6c | 6f 63 61 74 65 64 0a 61 | are all|ocated.a|
|00002970| 20 70 61 69 72 20 6f 66 | 20 6c 65 74 74 65 72 73 | pair of| letters|
|00002980| 20 77 68 69 63 68 20 77 | 69 6c 6c 20 6c 61 74 65 | which w|ill late|
|00002990| 72 20 67 6f 76 65 72 6e | 20 6d 6f 76 65 73 20 69 |r govern| moves i|
|000029a0| 6e 20 74 68 65 20 78 20 | 61 6e 64 20 79 20 64 69 |n the x |and y di|
|000029b0| 72 65 63 74 69 6f 6e 73 | 0a 72 65 73 70 65 63 74 |rections|.respect|
|000029c0| 69 76 65 6c 79 2e 20 54 | 68 65 73 65 20 6c 65 74 |ively. T|hese let|
|000029d0| 74 65 72 73 20 61 72 65 | 20 67 69 76 65 6e 20 73 |ters are| given s|
|000029e0| 6d 61 6c 6c 20 72 61 6e | 64 6f 6d 20 6e 75 6d 62 |mall ran|dom numb|
|000029f0| 65 72 73 20 28 6f 72 20 | 7a 65 72 6f 29 20 61 6e |ers (or |zero) an|
|00002a00| 64 20 74 68 65 0a 73 71 | 75 61 72 65 73 20 61 72 |d the.sq|uares ar|
|00002a10| 65 20 6d 6f 76 65 64 20 | 74 68 65 20 63 6f 72 72 |e moved |the corr|
|00002a20| 65 73 70 6f 6e 64 69 6e | 67 20 6e 75 6d 62 65 72 |espondin|g number|
|00002a30| 20 6f 66 20 73 71 75 61 | 72 65 73 20 69 6e 20 74 | of squa|res in t|
|00002a40| 68 65 20 78 20 61 6e 64 | 20 79 0a 64 69 72 65 63 |he x and| y.direc|
|00002a50| 74 69 6f 6e 73 2e 20 49 | 66 20 61 20 73 71 75 61 |tions. I|f a squa|
|00002a60| 72 65 20 6d 6f 76 65 73 | 20 6f 6e 20 74 6f 70 20 |re moves| on top |
|00002a70| 6f 66 20 61 6e 6f 74 68 | 65 72 20 73 71 75 61 72 |of anoth|er squar|
|00002a80| 65 20 61 20 68 6f 6c 65 | 20 69 73 20 70 72 6f 64 |e a hole| is prod|
|00002a90| 75 63 65 64 2c 0a 61 6e | 64 20 69 66 20 69 74 20 |uced,.an|d if it |
|00002aa0| 6d 6f 76 65 73 20 6f 75 | 74 73 69 64 65 20 74 68 |moves ou|tside th|
|00002ab0| 65 20 6f 72 69 69 6e 61 | 6c 20 32 35 20 73 71 75 |e oriina|l 25 squ|
|00002ac0| 61 72 65 73 20 28 69 74 | 20 69 73 20 63 6f 6e 73 |ares (it| is cons|
|00002ad0| 74 72 61 69 6e 65 64 20 | 74 6f 20 6d 6f 76 65 20 |trained |to move |
|00002ae0| 6e 6f 0a 6d 6f 72 65 20 | 74 68 61 6e 20 6f 6e 65 |no.more |than one|
|00002af0| 20 73 71 75 61 72 65 20 | 6f 75 74 73 69 64 65 29 | square |outside)|
|00002b00| 20 77 65 20 67 65 74 20 | 62 6f 74 68 20 61 20 68 | we get |both a h|
|00002b10| 6f 6c 65 20 61 6e 64 20 | 61 20 6e 65 77 20 73 71 |ole and |a new sq|
|00002b20| 75 61 72 65 2e 20 54 68 | 65 20 6d 6f 76 65 73 0a |uare. Th|e moves.|
|00002b30| 6f 66 20 73 71 75 61 72 | 65 73 20 69 6e 20 74 68 |of squar|es in th|
|00002b40| 65 20 6f 74 68 65 72 20 | 74 68 72 65 65 20 73 65 |e other |three se|
|00002b50| 63 74 6f 72 73 20 61 72 | 65 20 73 6f 20 61 72 72 |ctors ar|e so arr|
|00002b60| 61 6e 67 65 64 20 74 68 | 61 74 20 63 69 72 63 75 |anged th|at circu|
|00002b70| 6c 61 72 20 73 79 6d 6d | 65 74 72 79 0a 69 73 20 |lar symm|etry.is |
|00002b80| 70 72 65 73 65 72 76 65 | 64 2c 20 69 2e 65 2e 20 |preserve|d, i.e. |
|00002b90| 74 68 61 74 20 61 20 39 | 30 20 64 65 67 72 65 65 |that a 9|0 degree|
|00002ba0| 20 72 6f 74 61 74 69 6f | 6e 20 6f 66 20 74 68 65 | rotatio|n of the|
|00002bb0| 20 72 65 73 75 6c 74 69 | 6e 67 20 66 72 61 63 74 | resulti|ng fract|
|00002bc0| 61 6c 20 64 6f 65 73 0a | 6e 6f 74 20 63 68 61 6e |al does.|not chan|
|00002bd0| 67 65 20 74 68 65 20 70 | 61 74 74 65 72 6e 2e 20 |ge the p|attern. |
|00002be0| 48 6f 77 65 76 65 72 2c | 20 49 20 74 65 6e 64 20 |However,| I tend |
|00002bf0| 74 6f 20 70 72 65 66 65 | 72 20 74 68 6f 73 65 20 |to prefe|r those |
|00002c00| 70 61 74 74 65 72 6e 73 | 20 74 68 61 74 20 61 72 |patterns| that ar|
|00002c10| 65 0a 73 79 6d 6d 65 74 | 72 69 63 61 6c 20 61 62 |e.symmet|rical ab|
|00002c20| 6f 75 74 20 62 6f 74 68 | 20 76 65 72 74 69 63 61 |out both| vertica|
|00002c30| 6c 20 61 6e 64 20 68 6f | 72 69 7a 6f 6e 74 61 6c |l and ho|rizontal|
|00002c40| 20 63 65 6e 74 72 61 6c | 20 61 78 65 73 2e 0a 0a | central| axes...|
|00002c50| 20 54 68 65 20 32 35 20 | 73 71 75 61 72 65 73 20 | The 25 |squares |
|00002c60| 61 72 65 20 70 6c 6f 74 | 74 65 64 20 61 73 20 32 |are plot|ted as 2|
|00002c70| 35 20 70 69 78 65 6c 73 | 2e 20 54 68 65 20 72 65 |5 pixels|. The re|
|00002c80| 73 75 6c 74 69 6e 67 20 | 70 61 74 74 65 72 6e 20 |sulting |pattern |
|00002c90| 69 73 20 70 6c 6f 74 74 | 65 64 0a 32 35 20 74 69 |is plott|ed.25 ti|
|00002ca0| 6d 65 73 20 74 6f 20 74 | 68 65 20 73 61 6d 65 20 |mes to t|he same |
|00002cb0| 70 61 74 74 65 72 6e 20 | 62 75 74 20 6f 6e 20 61 |pattern |but on a|
|00002cc0| 20 6c 61 72 67 65 72 20 | 73 63 61 6c 65 2c 20 61 | larger |scale, a|
|00002cd0| 6e 64 20 74 68 69 73 20 | 70 61 74 74 65 72 6e 20 |nd this |pattern |
|00002ce0| 69 73 0a 70 6c 6f 74 74 | 65 64 20 32 35 20 74 69 |is.plott|ed 25 ti|
|00002cf0| 6d 65 73 20 61 74 20 61 | 6e 20 65 76 65 6e 20 67 |mes at a|n even g|
|00002d00| 72 65 61 74 65 72 20 73 | 63 61 6c 65 2e 20 28 54 |reater s|cale. (T|
|00002d10| 68 65 72 65 20 61 72 65 | 20 74 68 72 65 65 20 6e |here are| three n|
|00002d20| 65 73 74 65 64 20 46 4f | 52 20 2d 0a 4e 45 58 54 |ested FO|R -.NEXT|
|00002d30| 20 6c 6f 6f 70 73 20 77 | 68 69 63 68 20 61 72 65 | loops w|hich are|
|00002d40| 20 77 72 69 74 74 65 6e | 20 69 6e 20 61 73 73 65 | written| in asse|
|00002d50| 6d 62 6c 65 72 20 77 69 | 74 68 20 74 68 65 20 72 |mbler wi|th the r|
|00002d60| 65 73 75 6c 74 20 74 68 | 61 74 20 74 68 65 20 70 |esult th|at the p|
|00002d70| 72 6f 67 72 61 6d 0a 72 | 75 6e 73 20 69 6e 20 6a |rogram.r|uns in j|
|00002d80| 75 73 74 20 61 20 66 65 | 77 20 73 65 63 6f 6e 64 |ust a fe|w second|
|00002d90| 73 29 2e 20 54 68 69 73 | 20 72 65 70 65 61 74 65 |s). This| repeate|
|00002da0| 64 20 70 6c 6f 74 74 69 | 6e 67 20 6f 66 20 74 68 |d plotti|ng of th|
|00002db0| 65 20 73 61 6d 65 20 70 | 61 74 74 65 72 6e 20 61 |e same p|attern a|
|00002dc0| 74 0a 64 69 66 66 65 72 | 65 6e 74 20 73 63 61 6c |t.differ|ent scal|
|00002dd0| 65 73 20 6c 65 61 64 73 | 20 74 6f 20 61 20 66 72 |es leads| to a fr|
|00002de0| 61 63 74 61 6c 20 70 61 | 74 74 65 72 6e 2e 20 53 |actal pa|ttern. S|
|00002df0| 6f 20 74 68 61 74 20 74 | 68 65 20 73 61 6d 65 20 |o that t|he same |
|00002e00| 73 65 71 75 65 6e 63 65 | 20 6f 66 0a 70 61 74 74 |sequence| of.patt|
|00002e10| 65 72 6e 73 20 64 6f 65 | 73 20 6e 6f 74 20 6f 63 |erns doe|s not oc|
|00002e20| 63 75 72 20 65 76 65 72 | 79 20 74 69 6d 65 20 74 |cur ever|y time t|
|00002e30| 68 65 20 70 72 6f 67 72 | 61 6d 73 20 61 72 65 20 |he progr|ams are |
|00002e40| 72 75 6e 20 74 68 65 20 | 72 61 6e 64 6f 6d 20 6e |run the |random n|
|00002e50| 75 6d 62 65 72 0a 67 65 | 6e 65 72 61 74 6f 72 20 |umber.ge|nerator |
|00002e60| 69 73 20 72 65 2d 73 65 | 65 64 65 64 20 61 74 20 |is re-se|eded at |
|00002e70| 65 61 63 68 20 72 75 6e | 2e 20 54 68 65 20 73 65 |each run|. The se|
|00002e80| 65 64 20 69 73 20 70 72 | 69 6e 74 65 64 20 6f 75 |ed is pr|inted ou|
|00002e90| 74 20 61 73 20 73 25 2c | 20 73 6f 20 69 66 20 79 |t as s%,| so if y|
|00002ea0| 6f 75 0a 6c 69 6b 65 20 | 61 20 70 61 74 74 65 72 |ou.like |a patter|
|00002eb0| 6e 20 79 6f 75 20 63 61 | 6e 20 6e 6f 74 65 20 74 |n you ca|n note t|
|00002ec0| 68 65 20 73 65 65 64 20 | 61 6e 64 20 66 65 65 64 |he seed |and feed|
|00002ed0| 20 69 74 20 69 6e 74 6f | 20 74 68 65 20 70 72 6f | it into| the pro|
|00002ee0| 67 72 61 6d 20 74 6f 0a | 72 65 70 72 6f 64 75 63 |gram to.|reproduc|
|00002ef0| 65 20 74 68 65 20 70 61 | 74 74 65 72 6e 2e 0a 0a |e the pa|ttern...|
|00002f00| 20 52 6e 64 46 72 61 63 | 74 4d 31 20 67 69 76 65 | RndFrac|tM1 give|
|00002f10| 73 20 4d 6f 64 65 20 31 | 20 66 72 61 63 74 61 6c |s Mode 1| fractal|
|00002f20| 73 2e 20 53 65 74 46 72 | 61 63 74 4d 31 20 67 69 |s. SetFr|actM1 gi|
|00002f30| 76 65 73 20 61 20 73 65 | 6c 65 63 74 69 6f 6e 20 |ves a se|lection |
|00002f40| 6f 66 20 74 68 65 20 6d | 6f 72 65 0a 73 79 6d 6d |of the m|ore.symm|
|00002f50| 65 74 72 69 63 61 6c 20 | 70 61 74 74 65 72 6e 73 |etrical |patterns|
|00002f60| 2e 20 28 49 20 68 61 76 | 65 20 70 75 74 20 76 61 |. (I hav|e put va|
|00002f70| 6c 75 65 73 20 6f 66 20 | 73 25 20 69 6e 20 61 73 |lues of |s% in as|
|00002f80| 20 44 41 54 41 20 73 74 | 61 74 65 6d 65 6e 74 73 | DATA st|atements|
|00002f90| 29 2e 0a 52 6e 64 46 72 | 61 63 74 4d 32 20 70 72 |)..RndFr|actM2 pr|
|00002fa0| 6f 64 75 63 65 73 20 4d | 6f 64 65 20 32 20 66 72 |oduces M|ode 2 fr|
|00002fb0| 61 63 74 61 6c 73 2e 20 | 49 6e 20 6f 72 64 65 72 |actals. |In order|
|00002fc0| 20 74 6f 20 66 69 74 20 | 74 68 65 6d 20 6f 6e 20 | to fit |them on |
|00002fd0| 74 68 65 20 73 63 72 65 | 65 6e 20 74 68 65 79 0a |the scre|en they.|
|00002fe0| 61 72 65 20 6e 6f 74 20 | 73 65 70 61 72 61 74 65 |are not |separate|
|00002ff0| 64 20 61 73 20 6d 75 63 | 68 20 61 73 20 74 68 65 |d as muc|h as the|
|00003000| 20 4d 6f 64 65 20 31 20 | 66 72 61 63 74 61 6c 73 | Mode 1 |fractals|
|00003010| 20 61 6e 64 20 67 69 76 | 65 20 6d 6f 72 65 20 73 | and giv|e more s|
|00003020| 6f 6c 69 64 0a 70 61 74 | 74 65 72 6e 73 2e 20 49 |olid.pat|terns. I|
|00003030| 6e 20 74 68 65 20 4d 6f | 64 65 20 31 20 66 72 61 |n the Mo|de 1 fra|
|00003040| 63 74 61 6c 73 20 79 6f | 75 20 63 61 6e 20 6f 66 |ctals yo|u can of|
|00003050| 74 65 6e 20 73 65 65 20 | 74 68 65 20 62 61 73 69 |ten see |the basi|
|00003060| 63 20 70 61 74 74 65 72 | 6e 20 6f 66 20 32 35 0a |c patter|n of 25.|
|00003070| 73 71 75 61 72 65 73 20 | 72 69 67 68 74 20 69 6e |squares |right in|
|00003080| 20 74 68 65 20 63 65 6e | 74 72 65 20 6f 66 20 74 | the cen|tre of t|
|00003090| 68 65 20 66 72 61 63 74 | 61 6c 2c 20 6f 72 20 73 |he fract|al, or s|
|000030a0| 6f 6d 65 74 69 6d 65 73 | 20 72 69 67 68 74 20 6f |ometimes| right o|
|000030b0| 75 74 20 69 6e 20 61 0a | 63 6f 72 6e 65 72 2e 49 |ut in a.|corner.I|
|000030c0| 66 20 79 6f 75 20 6a 75 | 73 74 20 6b 65 65 70 20 |f you ju|st keep |
|000030d0| 6f 6e 20 68 69 74 74 69 | 6e 67 20 61 20 6b 65 79 |on hitti|ng a key|
|000030e0| 20 74 6f 20 72 65 2d 72 | 75 6e 20 74 68 65 20 70 | to re-r|un the p|
|000030f0| 72 6f 67 72 61 6d 73 20 | 79 6f 75 20 77 69 6c 6c |rograms |you will|
|00003100| 20 62 65 0a 61 62 6c 65 | 20 74 6f 20 70 72 6f 64 | be.able| to prod|
|00003110| 75 63 65 20 68 75 6e 64 | 72 65 64 73 20 6f 66 20 |uce hund|reds of |
|00003120| 66 72 61 63 74 61 6c 73 | 2e 20 4e 61 74 75 72 61 |fractals|. Natura|
|00003130| 6c 6c 79 20 79 6f 75 20 | 77 69 6c 6c 20 67 65 74 |lly you |will get|
|00003140| 20 72 65 70 65 61 74 73 | 20 77 68 65 6e 0a 74 68 | repeats| when.th|
|00003150| 65 20 73 61 6d 65 20 73 | 65 74 20 6f 66 20 72 61 |e same s|et of ra|
|00003160| 6e 64 6f 6d 20 6e 75 6d | 62 65 72 73 20 63 72 6f |ndom num|bers cro|
|00003170| 70 73 20 75 70 2c 20 61 | 6e 64 20 73 6f 6d 65 20 |ps up, a|nd some |
|00003180| 61 72 65 20 6d 6f 72 65 | 20 61 74 74 72 61 63 74 |are more| attract|
|00003190| 69 76 65 20 74 68 61 6e | 0a 6f 74 68 65 72 73 2e |ive than|.others.|
|000031a0| 20 49 66 20 6e 6f 20 73 | 71 75 61 72 65 73 20 61 | If no s|quares a|
|000031b0| 72 65 20 6d 6f 76 65 64 | 20 79 6f 75 20 77 69 6c |re moved| you wil|
|000031c0| 6c 20 67 65 74 20 61 20 | 73 6f 6c 69 64 20 62 6c |l get a |solid bl|
|000031d0| 6f 63 6b 2e 0a 0a 49 66 | 20 79 6f 75 20 6c 69 6b |ock...If| you lik|
|000031e0| 65 20 74 6f 20 65 78 70 | 65 72 69 6d 65 6e 74 20 |e to exp|eriment |
|000031f0| 79 6f 75 20 63 61 6e 20 | 73 65 74 20 54 25 2c 20 |you can |set T%, |
|00003200| 55 25 2c 20 56 25 20 61 | 6e 64 20 57 25 20 74 6f |U%, V% a|nd W% to|
|00003210| 20 7a 65 72 6f 20 69 6e | 20 74 68 65 0a 70 72 6f | zero in| the.pro|
|00003220| 67 72 61 6d 73 2e 20 46 | 65 77 65 72 20 73 71 75 |grams. F|ewer squ|
|00003230| 61 72 65 73 20 77 69 6c | 6c 20 74 68 65 6e 20 62 |ares wil|l then b|
|00003240| 65 20 6d 6f 76 65 64 20 | 61 6e 64 20 79 6f 75 20 |e moved |and you |
|00003250| 77 69 6c 6c 20 67 65 74 | 20 61 20 6d 6f 64 69 66 |will get| a modif|
|00003260| 69 65 64 20 72 61 6e 67 | 65 0a 6f 66 20 70 61 74 |ied rang|e.of pat|
|00003270| 74 65 72 6e 73 2e 0a 0a | 4a 6f 68 6e 20 47 72 65 |terns...|John Gre|
|00003280| 65 6e 69 6e 67 0a 31 35 | 20 50 65 6e 74 6c 61 6e |ening.15| Pentlan|
|00003290| 64 20 43 72 65 73 63 65 | 6e 74 0a 45 64 69 6e 62 |d Cresce|nt.Edinb|
|000032a0| 75 72 67 68 2c 20 45 48 | 31 30 20 36 4e 53       |urgh, EH|10 6NS  |
+--------+-------------------------+-------------------------+--------+--------+