00000000: 01 40 39 40 01 00 E7 20 30 2C 31 3A E7 20 34 2C |.@9@... 0,1:. 4,|
00000010: 31 3A 99 C7 28 31 34 32 29 22 93 20 20 20 20 20 |1:..(142)". |
00000020: 20 20 20 20 20 20 9E 44 59 4E 41 4D 49 43 20 45 | .DYNAMIC E|
00000030: 51 55 41 54 49 4F 4E 53 22 00 7E 40 02 00 99 A3 |QUATIONS".~@....|
00000040: 31 33 29 22 42 59 20 20 4A 4F 48 4E 20 49 4F 56 |13)"BY JOHN IOV|
00000050: 49 4E 45 22 3A 99 22 11 11 11 11 11 11 20 20 20 |INE":."...... |
00000060: 20 20 20 20 20 20 20 20 20 9A 28 05 31 9A 29 20 | .(.1.) |
00000070: 55 53 45 20 43 48 41 4F 53 20 23 20 31 22 00 A6 |USE CHAOS # 1"..|
00000080: 40 03 00 99 22 11 20 20 20 20 20 20 20 20 20 20 |@...". |
00000090: 20 20 28 05 32 9A 29 20 55 53 45 20 43 48 41 4F | (.2.) USE CHAO|
000000A0: 53 20 23 20 32 22 00 C5 40 04 00 99 22 11 20 20 |S # 2"..@...". |
000000B0: 20 20 20 20 20 20 20 20 20 20 28 05 33 9A 29 20 | (.3.) |
000000C0: 51 55 49 54 22 00 DE 40 05 00 A1 41 24 3A 8B 41 |QUIT"..@...A$:.A|
000000D0: 24 B3 22 31 22 B0 41 24 B1 22 33 22 A7 35 00 ED |$."1".A$."3".5..|
000000E0: 40 06 00 8B 41 24 B2 22 31 22 A7 32 30 00 FD 40 |@...A$."1".20..@|
000000F0: 07 00 8B 41 24 B2 22 32 22 A7 32 31 30 00 1B 41 |...A$."2".210..A|
00000100: 08 00 F5 20 22 31 32 38 20 4D 45 4E 55 22 20 A4 |... "128 MENU" .|
00000110: 20 22 31 32 38 20 4D 45 4E 55 22 00 29 41 09 00 | "128 MENU".)A..|
00000120: 8B 44 53 B3 B1 36 33 A7 80 00 3A 41 0A 00 8A 20 |.DS..63...:A... |
00000130: 22 31 32 38 20 4D 45 4E 55 22 00 43 41 14 00 E7 |"128 MENU".CA...|
00000140: 31 2C 32 00 7D 41 1E 00 E0 31 2C 31 2C 31 34 2C |1,2.}A...1,1,14,|
00000150: 22 20 49 54 45 52 41 54 49 56 45 20 45 51 55 41 |" ITERATIVE EQUA|
00000160: 54 49 4F 4E 20 46 28 58 29 3D 58 28 31 2B 52 29 |TION F(X)=X(1+R)|
00000170: 2D 52 58 5E 32 20 20 20 20 20 22 2C 30 00 B6 41 |-RX^2 ",0..A|
00000180: 28 00 99 20 22 11 45 4E 54 45 52 20 47 52 4F 57 |(.. ".ENTER GROW|
00000190: 54 48 20 52 41 54 45 20 46 41 43 54 4F 52 3A 05 |TH RATE FACTOR:.|
000001A0: 22 3B 3A 4C 45 B2 35 3A 8D 36 30 35 30 30 3A 52 |";:LE.5:.60500:R|
000001B0: B2 C5 28 43 24 29 00 CB 41 32 00 DE 31 2C 31 3A |..(C$)..A2..1,1:|
000001C0: 58 B2 2E 31 30 3A 58 58 B2 2E 31 00 D3 41 3C 00 |X..10:XX..1..A<.|
000001D0: 59 B2 35 00 E9 41 46 00 58 B2 28 31 AA 52 29 AC |Y.5..AF.X.(1.R).|
000001E0: 58 AB 28 52 AC 58 AE 32 29 00 16 42 50 00 99 22 |X.(R.X.2)..BP.."|
000001F0: 54 48 45 20 56 41 4C 55 45 20 4F 46 20 58 20 41 |THE VALUE OF X A|
00000200: 54 20 54 48 49 53 20 49 54 45 52 41 54 49 4F 4E |T THIS ITERATION|
00000210: 20 49 53 22 3B 58 00 3D 42 5A 00 E1 31 2C 59 AB | IS";X.=BZ..1,Y.|
00000220: 32 2E 35 2C 58 AC 31 30 30 AB 32 2E 35 2C 59 AA |2.5,X.100.2.5,Y.|
00000230: 32 2E 35 2C 58 AC 31 30 30 AA 32 2E 35 00 57 42 |2.5,X.100.2.5.WB|
00000240: 64 00 E5 31 2C 59 2C 58 AC 31 30 30 A4 59 AB 35 |d..1,Y,X.100.Y.5|
00000250: 2C 58 58 AC 31 30 30 00 60 42 6E 00 58 58 B2 58 |,XX.100.`Bn.XX.X|
00000260: 00 75 42 78 00 59 B2 59 AA 35 3A 8B 59 B1 33 32 |.uBx.Y.Y.5:.Y.32|
00000270: 30 A7 34 30 30 00 7D 42 82 00 89 37 30 00 96 42 |0.400.}B...70..B|
00000280: D2 00 DE 31 2C 31 3A E7 30 2C 31 32 3A E7 31 2C |...1,1:.0,12:.1,|
00000290: 32 3A E7 34 2C 31 00 9E 42 DC 00 59 B2 31 00 D7 |2:.4,1..B..Y.1..|
000002A0: 42 E6 00 E0 31 2C 31 2C 32 34 2C 22 20 49 54 45 |B...1,1,24," ITE|
000002B0: 52 41 54 49 56 45 20 45 51 55 41 54 49 4F 4E 20 |RATIVE EQUATION |
000002C0: 46 28 58 29 3D 58 28 31 2B 52 29 2D 52 58 5E 32 |F(X)=X(1+R)-RX^2|
000002D0: 20 20 20 20 22 2C 30 00 E2 42 F0 00 52 B2 31 2E | ",0..B..R.1.|
000002E0: 39 39 00 EC 42 FA 00 58 B2 2E 32 35 00 F9 42 04 |99..B..X..25..B.|
000002F0: 01 81 49 B2 31 A4 32 37 35 00 0F 43 0E 01 58 B2 |..I.1.275..C..X.|
00000300: 28 31 AA 52 29 AC 58 AB 28 52 AC 58 AE 32 29 00 |(1.R).X.(R.X.2).|
00000310: 15 43 18 01 82 00 22 43 22 01 81 49 B2 31 A4 32 |.C...."C"..I.1.2|
00000320: 30 30 00 38 43 2C 01 58 B2 28 31 AA 52 29 AC 58 |00.8C,.X.(1.R).X|
00000330: AB 28 52 AC 58 AE 32 29 00 47 43 36 01 E5 31 2C |.(R.X.2).GC6..1,|
00000340: 59 2C 31 31 30 AC 58 00 4D 43 40 01 82 00 5B 43 |Y,110.X.MC@...[C|
00000350: 4A 01 52 B2 52 AA 2E 30 30 33 35 00 65 43 54 01 |J.R.R..0035.eCT.|
00000360: 59 B2 59 AA 31 00 74 43 5E 01 8B 59 B1 32 38 39 |Y.Y.1.tC^..Y.289|
00000370: A7 34 30 30 00 7D 43 68 01 89 32 36 30 00 A4 43 |.400.}Ch..260..C|
00000380: 90 01 E0 20 31 2C 31 30 2C 32 34 2C 22 50 52 45 |... 1,10,24,"PRE|
00000390: 53 53 20 41 4E 59 20 4B 45 59 20 46 4F 52 20 4D |SS ANY KEY FOR M|
000003A0: 45 4E 55 22 00 B3 43 9A 01 A1 F9 41 24 3A DE 20 |ENU"..C....A$:. |
000003B0: 30 3A 8A 00 CA 43 54 EC 43 24 B2 22 22 3A 97 32 |0:...CT.C$."":.2|
000003C0: 31 32 2C 2E 3A 99 22 A4 22 3B 00 D8 43 5E EC 81 |12,.:.".";..C^..|
000003D0: 41 B2 31 A4 4C 45 AA 31 00 ED 43 68 EC A1 41 24 |A.1.LE.1..Ch..A$|
000003E0: 3A 8B 41 24 B2 22 22 A7 36 30 35 32 30 00 03 44 |:.A$."".60520..D|
000003F0: 72 EC 8B 41 24 B2 C7 28 31 33 29 A7 99 22 9D 20 |r..A$..(13)..". |
00000400: 22 3A 8E 00 3B 44 7C EC 8B 41 24 B2 C7 28 32 30 |":..;D|..A$..(20|
00000410: 29 AF 41 B1 31 A7 99 22 9D 9D 20 20 9D 9D A4 22 |).A.1..".. ..."|
00000420: 3B 3A 41 B2 41 AB 31 3A 43 24 B2 C8 28 43 24 2C |;:A.A.1:C$..(C$,|
00000430: 41 AB 31 29 3A 89 36 30 35 32 30 00 4F 44 86 EC |A.1):.60520.OD..|
00000440: 8B 28 41 B2 4C 45 AA 31 29 A7 36 30 35 32 30 00 |.(A.LE.1).60520.|
00000450: 70 44 90 EC 8B 28 28 41 24 B1 B2 22 30 22 29 AF |pD...((A$.."0").|
00000460: 28 41 24 B3 B2 22 39 22 29 29 A7 36 30 35 39 35 |(A$.."9")).60595|
00000470: 00 84 44 9A EC 8B 28 41 24 B2 22 2E 22 29 A7 36 |..D...(A$.".").6|
00000480: 30 35 39 35 00 8F 44 AE EC 89 36 30 35 32 30 00 |0595..D...60520.|
00000490: B3 44 B3 EC 99 22 9D 22 41 24 3B 3A 97 32 31 32 |.D..."."A$;:.212|
000004A0: 2C 2E 3A 99 22 A4 22 3B 3A 43 24 B2 43 24 AA 41 |,.:.".";:C$.C$.A|
000004B0: 24 3A 82 00 00 00 |$:.... |
.@9@... 0,1:. 4,1:.G(142)". .D
YNAMIC EQUATIONS".~@....13)"BY JOHN IOV
INE":."...... .(.1.) USE CHAO
S # 1"..@...". (.2.) USE CHAO
S # 2".E@...". (.3.) QUIT"..@
...A$:.A$."1".A$."3".5..@...A$."1".20..@
...A$."2".210..A... "128 MENU" . "128 ME
NU".)A...DS..63...:A... "128 MENU".CA...
1,2.}A...1,1,14," ITERATIVE EQUATION F(X
)=X(1+R)-RX^2 ",0..A(.. ".ENTER GROW
TH RATE FACTOR:.";:LE.5:.60500:R.E(C$).K
A2..1,1:X..10:XX..1.SA<.Y.5..AF.X.(1.R).
X.(R.X.2)..BP.."THE VALUE OF X AT THIS I
TERATION IS";X.=BZ..1,Y.2.5,X.100.2.5,Y.
2.5,X.100.2.5.WBD..1,Y,X.100.Y.5,XX.100.
`BN.XX.X.UBX.Y.Y.5:.Y.320.400.}B...70..B
R..1,1:.0,12:.1,2:.4,1..B..Y.1.WB...1,1,
24," ITERATIVE EQUATION F(X)=X(1+R)-RX^2
",0..B..R.1.99..B..X..25..B...I.1.27
5..C..X.(1.R).X.(R.X.2)..C...."C"..I.1.2
00.8C,.X.(1.R).X.(R.X.2).GC6..1,Y,110.X.
MC@...[CJ.R.R..0035.ECT.Y.Y.1.TC^..Y.289
.400.}CH..260..C... 1,10,24,"PRESS ANY K
EY FOR MENU"..C....A$:. 0:..JCT.C$."":.2
12,.:.".";.XC^..A.1.LE.1..CH..A$:.A$."".
60520..DR..A$.G(13)..". ":..;D|..A$.G(20
).A.1..".. ...";:A.A.1:C$.H(C$,A.1):.60
520.OD...(A.LE.1).60520.PD...((A$.."0").
(A$.."9")).60595..D...(A$.".").60595..D.
..60520..D..."."A$;:.212,.:.".";:C$.C$.A
$:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL