00000000: 01 40 21 40 0A 00 8F 20 42 41 53 49 4E 53 20 4F |.@!@... BASINS O|
00000010: 46 20 41 54 54 52 41 43 54 49 4F 4E 20 3A 43 4C |F ATTRACTION :CL|
00000020: 52 00 57 40 14 00 85 22 93 53 49 5A 45 20 4F 46 |R.W@...".SIZE OF|
00000030: 20 50 4C 4F 54 20 28 30 3C 58 3C 3D 36 34 30 2C | PLOT (0<X<=640,|
00000040: 30 3C 59 3C 32 30 30 29 22 3B 41 2C 42 3A D7 31 |0<Y<200)";A,B:.1|
00000050: 30 30 30 30 3A FE 25 00 B1 40 28 00 85 22 45 4E |0000:.%..@(.."EN|
00000060: 54 45 52 20 52 45 41 4C 20 58 20 28 4D 49 4E 2C |TER REAL X (MIN,|
00000070: 4D 41 58 29 22 3B 58 4C 2C 58 48 3A 85 22 49 4D |MAX)";XL,XH:."IM|
00000080: 41 47 2E 20 58 20 28 4D 49 4E 2C 4D 41 58 29 22 |AG. X (MIN,MAX)"|
00000090: 3B 59 4C 2C 59 48 3A 85 22 4E 55 4D 42 45 52 20 |;YL,YH:."NUMBER |
000000A0: 4F 46 20 49 54 45 52 41 54 49 4F 4E 53 22 3B 4B |OF ITERATIONS";K|
000000B0: 43 00 E1 40 29 00 85 22 49 53 20 54 48 49 53 20 |C..@).."IS THIS |
000000C0: 41 20 5B 4D 5D 41 4E 44 45 4C 42 52 4F 54 20 4F |A [M]ANDELBROT O|
000000D0: 52 20 5B 4A 5D 55 4C 49 41 20 53 45 54 22 3B 5A |R [J]ULIA SET";Z|
000000E0: 24 00 10 41 2A 00 8B 20 5A 24 B2 22 4A 22 20 A7 |$..A*.. Z$."J" .|
000000F0: 20 85 22 45 4E 54 45 52 20 43 4F 4E 53 54 41 4E | ."ENTER CONSTAN|
00000100: 54 53 28 50 2C 51 29 22 3B 4C 2C 4E 3A 89 34 35 |TS(P,Q)";L,N:.45|
00000110: 00 21 41 2B 00 8B 20 5A 24 B3 B1 22 4D 22 A7 34 |.!A+.. Z$.."M".4|
00000120: 31 00 46 41 2D 00 85 22 53 41 56 45 20 41 53 22 |1.FA-.."SAVE AS"|
00000130: 3B 53 24 3A 4D B2 31 30 30 3A 40 9C 2C 30 3A 40 |;S$:M.100:@.,0:@|
00000140: DE 2C 30 2C 31 33 00 6C 41 32 00 44 58 B2 28 58 |.,0,13.lA2.DX.(X|
00000150: 48 AB 58 4C 29 AD 28 41 AB 31 29 3A 44 59 B2 28 |H.XL).(A.1):DY.(|
00000160: 59 48 AB 59 4C 29 AD 28 42 AB 31 29 00 84 41 3C |YH.YL).(B.1)..A<|
00000170: 00 81 4E 58 B2 30 A4 41 AB 31 3A 81 4E 59 B2 30 |..NX.0.A.1:.NY.0|
00000180: A4 42 AB 31 00 BC 41 46 00 47 B2 58 4C AA 4E 58 |.B.1..AF.G.XL.NX|
00000190: AC 44 58 3A 48 B2 59 4C AA 4E 59 AC 44 59 3A 4B |.DX:H.YL.NY.DY:K|
000001A0: B2 30 3A 58 B2 30 3A 59 B2 30 3A 58 4B B2 30 3A |.0:X.0:Y.0:XK.0:|
000001B0: 59 4B B2 30 3A 50 B2 47 3A 51 B2 48 00 DF 41 50 |YK.0:P.G:Q.H..AP|
000001C0: 00 8B 5A 24 B2 22 4A 22 A7 20 58 B2 50 AC 50 AB |..Z$."J". X.P.P.|
000001D0: 51 AC 51 AA 4C 3A 59 B2 32 AC 50 AC 51 AA 4E 00 |Q.Q.L:Y.2.P.Q.N.|
000001E0: 08 42 5A 00 8B 5A 24 B2 22 4D 22 A7 20 58 B2 58 |.BZ..Z$."M". X.X|
000001F0: 4B AC 58 4B AB 59 4B AC 59 4B AA 47 3A 59 B2 32 |K.XK.YK.YK.G:Y.2|
00000200: AC 58 4B AC 59 4B AA 48 00 12 42 64 00 4B B2 4B |.XK.YK.H..Bd.K.K|
00000210: AA 31 00 20 42 6E 00 52 B2 58 AC 58 AA 59 AC 59 |.1. Bn.R.X.X.Y.Y|
00000220: 00 2D 42 78 00 8B 52 B1 4D A7 33 30 30 00 42 42 |.-Bx..R.M.300.BB|
00000230: 82 00 8B 4B B2 4B 43 A7 43 4F 4C B2 30 3A 89 33 |...K.KC.COL.0:.3|
00000240: 31 30 00 67 42 8C 00 8B 52 B3 B2 4D AF 4B B3 4B |10.gB...R..M.K.K|
00000250: 43 A7 58 4B B2 58 3A 50 B2 58 3A 59 4B B2 59 3A |C.XK.X:P.X:YK.Y:|
00000260: 51 B2 59 3A 89 38 30 00 71 42 2C 01 43 4F 4C B2 |Q.Y:.80.qB,.COL.|
00000270: 31 00 87 42 36 01 40 EB 54 2C 4E 58 2C 42 AB 31 |1..B6.@.T,NX,B.1|
00000280: AB 4E 59 2C 43 4F 4C 00 93 42 40 01 82 4E 59 3A |.NY,COL..B@..NY:|
00000290: 82 4E 58 00 B3 42 4A 01 A1 41 24 3A 8B 41 24 B3 |.NX..BJ..A$:.A$.|
000002A0: B1 22 22 A7 40 94 2C 31 2C 53 24 3A 40 54 45 58 |."".@.,1,S$:@TEX|
000002B0: 54 3A 80 00 BC 42 4F 01 89 33 33 30 00 C8 42 10 |T:...BO..330..B.|
000002C0: 27 40 54 45 58 54 3A EA 00 00 00 |'@TEXT:.... |
.@!@... BASINS OF ATTRACTION :CLR.W@..."
.SIZE OF PLOT (0<X<=640,0<Y<200)";A,B:W1
0000:.%..@(.."ENTER REAL X (MIN,MAX)";XL
,XH:."IMAG. X (MIN,MAX)";YL,YH:."NUMBER
OF ITERATIONS";KC..@).."IS THIS A [M]AND
ELBROT OR [J]ULIA SET";Z$..A*.. Z$."J" .
."ENTER CONSTANTS(P,Q)";L,N:.45.!A+.. Z
$.."M".41.FA-.."SAVE AS";S$:M.100:@.,0:@
.,0,13.LA2.DX.(XH.XL).(A.1):DY.(YH.YL).(
B.1)..A<..NX.0.A.1:.NY.0.B.1..AF.G.XL.NX
.DX:H.YL.NY.DY:K.0:X.0:Y.0:XK.0:YK.0:P.G
:Q.H..AP..Z$."J". X.P.P.Q.Q.L:Y.2.P.Q.N.
.BZ..Z$."M". X.XK.XK.YK.YK.G:Y.2.XK.YK.H
..BD.K.K.1. BN.R.X.X.Y.Y.-BX..R.M.300.BB
...K.KC.COL.0:.310.GB...R..M.K.KC.XK.X:P
.X:YK.Y:Q.Y:.80.QB,.COL.1..B6.@.T,NX,B.1
.NY,COL..B@..NY:.NX..BJ..A$:.A$.."".@.,1
,S$:@TEXT:...BO..330.HB.'@TEXT:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL