0 IFA=.THENA=1:LOAD"PLOT.ML",8,1
1 POKE53280,.:POKE53281,.:PRINT"[147]            [158]DYNAMIC EQUATIONS"
2 PRINTTAB(13)"BY  JOHN IOVINE":PRINT"            [154](1[154]) USE CHAOS # 1"
3 PRINT"            (2[154]) USE CHAOS # 2"
4 PRINT"            (3[154]) QUIT"
5 GETA$:IFA$<"1"ORA$>"3"THEN5
6 IFA$="1"THEN20
7 IFA$="2"THEN310
8 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
9 IFER<>63THENEND
10 GOTO60000
11 REM C64CHAOS1
20 PRINT"INPUT GROWTH RATE FACTOR:";:LE=5:GOSUB60500:R=VAL(C$)
30 G=PEEK(53272):B=PEEK(56576):K=PEEK(56578)
40 SYS49152:SYS49185:POKE2,1:SYS49209
50 X=.10:XX=.1:Y=1
60 X=(1+R)*X-(R*X^2)
70 POKE253,YAND255:POKE254,Y/256
80 POKE255,X*100
90 SYS49278
100 XX=X
110 Y=Y+3:IFY>320THEN600
120 GOTO60
300 REMC64CHAOS2
310 SYS49152:SYS49185
320 POKE2,1:Y=1:SYS49209
330 R=1.99
340 X=.25
350 FORI=1TO275
360 X=(1+R)*X-(R*X^2)
370 NEXT
380 FORI=1TO200
390 X=(1+R)*X-(R*X^2)
400 POKE253,YAND255:POKE254,Y/256
410 POKE255,X*110:SYS49278
420 R=R+.0035
430 Y=Y+1
440 IFY>289THEN600
450 GOTO350
600 POKE198,.
610 A=PEEK(203):IFA=64THEN610
700 POKE53265,PEEK(53265)AND223
710 POKE53272,G:POKE56576,B:POKE56578,K
720 RUN1
60000 PRINT"[144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
60010 PRINT"RUN[145][145][145][145][145][145][145][145]"
60020 POKE631,13:POKE632,13:POKE198,2:END
60500 C$="":POKE198,.:PRINT"[164]";
60510 FORA=1TOLE+1
60520 GETA$:IFA$=""THEN60520
60530 IFA$=CHR$(13)THENPRINT"[157] ":RETURN
60540 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:C$=LEFT$(C$,A-1):GOTO60520
60550 IF(A=LE+1)THEN60520
60560 IF((A$>="0")AND(A$<="9"))THEN60595
60570 IF(A$=".")THEN60595
60590 GOTO60520
60595 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";:C$=C$+A$:NEXT