' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵLȿõ` F`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-U@Š@跻~!Wo*9~~ɬƬ~~~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵL õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` F d֠ĭz"# 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` # d ֠z# u`187:C(3,1)141:C(4,0)93:C(4,1)141:C(5,0)93:C(5,1)47:P1::3:C(1,0),C(1,1):I25:C(I,0),C(I,1):{:A$"L = ""400":V23.8:H30:2:58000:K02:ERASEĐESCK3::P145K:7050:P:K2āJJ045(K1)1:C(JJ,0)C(JJ,2):C(JJ,12)X(1):X(5)X(1):X(8)X(1):X(3)X(1)D4SN:X(4)X(3)::X(6)X(1)SND4:X(7)X(6){X(1),Y(1):II29:X(II),Y(II):IIII19:C(8(P1)II,2)X(II)::C(8(P1)II,3)Y(II):IIX SQUARESivC(1,0)93:C(1,1)47:C(2,0)187:C(2,1)47:C(3,0)1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:s$ZWZW1::ZY:ZX:D$;"PR#0":16368,0:MP|#j24:31:"TIME:";:24:36:T;:20:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:#ZWZW1::ZY:ZX:D$;"PR#0":16368,0:#0D$(4):D$"UNLOCK WALK":D$"SAVE WALK":D$"LOCK WALK"D36:T;:20:D$"PR#1":ZWCALL SCREEN":J1$(6)"DESCRIPTION":J1$(7)"RETURN TO DISK CONTENTS":N7:H8W"-40000:v"ޖ21(A$)2:V:A$:VV2:"3000:"PRESS TO CONTINUE...";:A$:#`3000:"IS THE PRINTER READY (Y/N) : ";:A$:3000:A$"Y"A$"y"ı: SCREEN DU3(N4)(N7)4!I1N:V:H:I") "J1$(I):VVS:j!22:I1N1:I;", ";:I:" OR ";N;:" ";:MAX(N){!25000:21:J"(J$"RANDOM WALKS":J1$(1)"SIMPLE RANDOM WALK":J1$(2)"STICKY SINGLE DOT":J1$(3)"STICKY LINE":J1$(4)"STICKY CIRCLE"::J1$(5)"RE(B$)(MIN$)(B$)(MAX$)SHOW1:NU(B$):o i(AA48AA57)ĖHO:VO:I1(MAX$):" ";:I:HO:VO:27000 iB$B$A$:A$;:CC1:27020 @4000: GENERAL MENU J1:M1$;:I218:M2$;:I:M1$ rH121((J$)2):3:H1:J$!|V5(N4)(N5):S9ZAMAX48ĺ(7);:25010(aNU(A$):<xi LARGE # INPUTsiESC0:B$"":C0:SHOW0:HO(36)1:VO(37)1:NU5iA$:AA(A$):AA27ESC1:iC(MAX$)AA13ĖHO:VO:I1(MAX$):" ";:I:HO:VO:(7);:27000iAA13C0ESC1:/ iAA13ͱ9SN1:ENNFSNEN129H1:14900:ENNFıK:SNEN1:H20:14900:s4:ENSN9:ENNFENNF: FILE DISPLAY>:V1:ISNEN:H:3V:I;": ";(HN$(I),(HN$(I))3):VV1:I:a SINGLE DIGIT INPUTaESC0:NU0:16368,0:A$:ZA(A$):aZA48I1NF:F$HN$(I)INF:FOUND1:ESC1S8I:FOUNDHN$(NF1)F$:NFNF1:8600t8D$"BSAVE";F$;",A$400,L$400"z99 SHOW FILES ON DISK9:34,0::V1:A$"*** DATA ON THIS DISK ***":570009NF0A$"NO FILES ON THIS DATA DISK":V4:57000:T8F$HN$(NU):9^8D$"BLOAD"F$",A$400":RE1:58000:L8 ** SAVE DATA\8NF0İ87008NF19Ģ24:1:868:"20 FILES MAXIMUM - DELETE A FILE";:A$:824:1:868:"FILE NAME: ";:F$8(F$)0ı8F$(F$,10):8:FOUND0:F$"RW."F$("DELETE ";F$/7INUNF1:HN$(I)HN$(I1):IH8NFNF1:8600:::^@8 ** RECALL DATAdE8G8NF0A$"NO FILES TO RECALL":V16:57000:58000:J816:4:"NUMBER OF DATA FILE TO RECALL: ":16:35:MIN$"1":MAX$(NF):PS2:NU1:27000O8ESC7NF0A$"NO FILES TO DELETE":V16:57000:58000:716:4:"NUMBER OF DATA FILE TO DELETE: ":16:35:MIN$"1"::MAX$(NF):270007ESCı7:" DELETE ";(HN$(NU),(HN$(NU))3);" (Y/N) ";:AN$:AN$"Y"AN$"y"ı7F$HN$(NU) 7D$;ETE A FILE":" 3) RETURN TO LIFE MENU":MAX3:NF20ĺ" 4) DISPLAY MORE FILES":MAX5722:1:" YOUR SELECTION : ";:250007ESCĉ::7NU14400,14300,14280,148007ADDī140157REı7142007:7 DELETE FILES74RIVE "(DN)::57000:A$"DURING FILE WORK.":57000:58000:16:ESCġ:P6210l6D$;"VERIFY KEYRW,D";DN6::ESC0:RE06:F1$"KEYRW":8700:ADD06EN0:14800: SHOW FILES x734,15:16:1:958[7" 1) RECALL A FILE":" 2) DEL9)15:I1019:C(I)C(I10)::I2039:C(I)C(I20):IC'3:1:0W'232,0:233,56:0*M1$"****************************************":M2$"* *":9230:*6**DATA FILESF6::V8:A$"KEEP THE DATA DISK IN D(N/X(1)X(10)SN(12(Y(1)Y(10))):X(2)X(1):X(5)X(1):X(9)X(1):X(6)X(1):X(3)X(1)D3SN:X(4)X(3)::X(7)X(1)SND3:X(8)X(7)(X/X(1),Y(1):II210:X(II),Y(II):II(b/K2āII110:C(9(P1)II,2)X(II)::C(9(P1)II,3)Y(II):II(l/)2 PA:Y(8)Y(7)y':/Y(1)Y(9)X(2)X(1)SND3:X(3)X(2):X(6)X(2):X(7)X(2):X(4)X(1)SN2D3:X(5)X(4):X(8)X(4):X(9)X(4)'D/X(1)X(10)SN(12(Y(1)Y(10))):Y(2)Y(1)SND3:Y(3)Y(2):Y(6)Y(2):Y(7)Y(2):Y(4)Y(1)SN2D3:Y(5)Y(4):Y(9)Y(4):Y(8)Y(4).8:H30:2:58000::#&/ SQUARES]&/X(1)C(P,0):Y(1)C(P,1):X(10)C(P1,0):Y(10)C(P1,1)&&/D((X(10)X(1))2(Y(10)Y(1))2): '0/Y(1)Y(10)SN(12(X(1)X(10))):Y(2)Y(1):Y(5)Y(1):Y(6)Y(1):Y(9)Y(1):Y(3)Y(1)D3SN:Y(4)Y(3)::Y(7)Y(1)SND347:P1::3:C(1,0),C(1,1):I25:C(I,0),C(I,1):_%/:A$"L = ""400":V23.8:H30:2:58000:s%/K02:ERASEĐ% /ESCK2::% /P149K:12050:P:K2āJJ049(K1)1:C(JJ,0)C(JJ,2):C(JJ,1)C(JJ,3):JJ:& /A$"L = "(((3)(K1)400)):V23$'3:1:0$'232,0:233,56:$0*M1$"****************************************":M2$"* *":$*$. SQUARES3%.C(1,0)93:C(1,1)47:C(2,0)187:C(2,1)47:C(3,0)187:C(3,1)141:C(4,0)93:C(4,1)141:C(5,0)93:C(5,1):A$"A coastline is similar to a fractal line":2:A$"instead of a standard geometric shape.":2#$V23.8:H1::A$"Press any key..."::2:A$:#' INIT COND#'C(630,3):IT1:9000:IT0#'D$(13)(4):SP155#B'D$"BLOAD CLEARGR": $3400 (13312) traight line close up.":2:A$"Fractal Dimensions describe the":2"#H1:A$"roughness of lines.":2:A$"A circle has a fractal dimension = 1":2"$:H1:A$"Snowflake curve = 1.26":2:A$"Rectangle curve = 1.5":2::A$"Peano curve = 2.0 ":2:`# $VV1limited":2p!#A$"area. Even a microscopic section of the":2:A$"curve would show a pattern of triangles.":2!#A$"Self-similarity is common to fractals.":VV.5:2:9230B"#:V1:H1:A$"In contrast to the snowflake, a circle":2:A$"looks like a s2:A$"adding an equilateral triangle to the":2:A$"middle 1/3 of every line segment":2:A$"in the curve.":2 !#H1:VV1:A$"If this process were repeated an infinite":2:A$"number of times, the snowflake would":2:A$"have an infinite perimeter in a : CREDITU2#230,64:62450:3:1:0::232,0:233,56:V8:H7:A$"Fractal Curves":2P#V19:H1:A$"Programmed by John Elberfeld":2:A$"Copyright 1989: EduTech":2:ITın #9230::V1:H14:A$"INTRODUCTION":2:A$"The snowflake curve is created by":SND3:Y(3)Y(2):Y(4)Y(1)SN2D3:Y(5)Y(4):X(1)X(6)SN(12(Y(1)Y(6))):X(2)X(1):X(5)X(1):X(3)X(1)D3SN:X(4)X(3):X(1),Y(1):II26:X(II),Y(II):IIK3āII16:C(5(P1)II,2)X(II)::C(5(P1)II,3)Y(II):II (#::RE0:Y(6)C(P1,1)4D((X(6)X(1))2(Y(6)Y(1))2):Y(1)Y(6)SN(12(X(1)X(6))):Y(2)Y(1):Y(5)Y(1):Y(3)Y(1)D3SN:Y(4)Y(3):Y(1)Y(6)X(2)X(1)SND3:X(3)X(2):X(4)X(1)SN2D3::X(5)X(4):.X(1)X(6)SN(12(Y(1)Y(6))):Y(2)Y(1):H30:2:ER0:58000:)hK03:ERASEĐ:iESCK3::jP15K:8050:P:K3āJJ05(K1)1:C(JJ,0)C(JJ,2):C(JJ,1)C(JJ,3):JJ:mA$"L = "(((53)(K1)100)):V23.8:H30:2:58000::r SQUARES|X(1)C(P,0):Y(1)C(P,1):X(6)C(P1,0)X(3):/X(1),Y(1):II26:X(II),Y(II):IIqK2āII16:C(5(P1)II,2)X(II)::C(5(P1)II,3)Y(II):IIw@ SQUARES^C(1,0)0:C(1,1)140:C(2,0)279:C(2,1)140:P1::3:C(1,0),C(1,1):I22:C(I,0),C(I,1):c:A$"L = ""100":V23.8N:Y(4)Y(3):UY(1)Y(6)X(2)X(1)SND3:X(3)X(2):X(4)X(1)SN2D3::X(5)X(4):X(1)X(6)SN(12(Y(1)Y(6))):Y(2)Y(1)SND3:Y(3)Y(2):Y(4)Y(1)SN2D3:Y(5)Y(4):X(1)X(6)SN(12(Y(1)Y(6))):X(2)X(1):X(5)X(1):X(3)X(1)D3SN:X(4))C(JJ,3):JJ:LA$"L = "(((53)(K1)400)):V23.8:H30:2:58000::Z SQUARESX(1)C(P,0):Y(1)C(P,1):X(6)C(P1,0):Y(6)C(P1,1)D((X(6)X(1))2(Y(6)Y(1))2): Y(1)Y(6)SN(12(X(1)X(6))):Y(2)Y(1):Y(5)Y(1):Y(3)Y(1)D3S:x10,165:X01.04:10269(X),165R(X)(1X)150:X:10,165279,15:10269(X(0)),165X(1)SC269X(1)10,165X(1)SC:I1NP:269X(I)10,165(X(I1))SC269X(I1)10,165X(I1)SC(16384)155INPI:iV23.8:H1:A$"ESC=MENU 22:A$"X(N)":H39(A$):2:V22:H18:A$"R = "(R):2:NU7600,7700,7800:7900zI0NP:269X(I)10,165(X(I1))150(16384)155INPI:10269(X(0)),165X(1)SC:I1NP:269X(I)10,165(X(I1))150(16384)155INP(I 2) LINES - 100":" 3) COB WEBS - 100":1:16:"ENTER SELECTION : ";:MA$"3":NUGF:26000:GFNUPYNP100(GF1)1000(GF1):12510:SC150(MAMI):11050:10,1010,165270,165:V1:H40(EQ$):A$EQ$:2:V1:H1:A$"X(N+1)":2:V22:A$(MI):2:V12535,(XP255):X(R):XPXP1(SP2)3(SP3):(16384)127Ĺ16368,0:58000:ESRR2:16368,0qR:11000:kXTI$"LOGISTICS MAPPING - X(N+1) VS X(N)":EQ$"X(N+1) = R*X(N)*(1-X(N))":NP200:12000:1:12:"GRAPH FORM : 1) DOTS - 1000":" PNU:ES600012518,25(SP3)50(SP2)100(SP1):12511,11(SP1):12526,180:12527,179R2:MI0:R23.14Ĺ12526,90:12527,179(2R2):MIR2adXP12:11050:5800:12288256:RR1R2(R2R1)(250)(1(SP2)3(SP3)):5900:12534,(XP256(XP255)):u1:7:"ENTER ENDING R ("R1" TO +6) : ";:MI$(R1):MA$"6.0000":NE$"N":DE$"Y":NUR2:25000:R2NU:FL1:ES6000 1:10:"1-SLOW, MORE DETAIL 3-FAST, LESS DETAIL":1:9:"ENTER SPEED (1,2 OR 3) : ";:MI$(1):MA$"3":NE$"N":DE$"N":NUSP:25000:S(27)ESC1:2 2X PRINT/2bD$;"PR#1"z2gD$;"BLOAD IIGS INFO,A$8A00,D1":D$;"BLOAD DUMP.HIRES.R,A$8C00":358402lD$;"PR#0":2xESC0:24:1:868:" TO CONTINUE,

TO PRINT";:S31100:S3:22:1:A$:(16384)27ESC12TENTS":N10:H81-40000:;1ޖ21(A$)2:V:A$:VV2:1A$"E-ERASE P-PRINT":H1:V23.8:2:A$"ESC-MENU":V22.8:2:A$:0:QI173191:0,QI110,QI::QI182191:200,QI279,QI::3:1ER0:A$"E"A$"e"ER1:1A$"P"A$"p"İ58200:2A$ES":J1$(1)"SNOWFLAKE - LINE":J1$(2)"SNOWFLAKE - CURVE":J1$(3)"SQUARE - LINE":J1$(4)"SQUARE - CURVE":J1$(5)"RECTANGLE - LINE":J1$(6)"RECTANGLE - CURVE":1*J1$(7)"PAENO - LINE":J1$(8)"PAENO - CURVE"::J1$(9)"DESCRIPTION":J1$(10)"RETURN TO DISK CON4000: GENERAL MENU8/J1:M1$;:I218:M2$;:I:M1$X/rH121((J$)2):4:H1:J$|/|V6(N4)(N5):S3(N4)(N7)/I1N:V:H:I") "J1$(I):VVS:/22:I1N1:I;", ";:I:" OR ";N;:" ";:MAX$(N)/27000:21:0(J$"FRACTAL CURVK.iC(MAX$)AA13ĖHO:VO:I1(MAX$):" ";:I:HO:VO:(7);:27000b.iAA13C0ESC1:.iAA13(B$)(MIN$)(B$)(MAX$)SHOW1:NU(B$):.i(AA48AA57)ĖHO:VO:I1(MAX$):" ";:I:HO:VO:27000.iB$B$A$:A$;:CC1:27020/@I)::C(9(P1)II,3)Y(II):II#-T3=-a SINGLE DIGIT INPUTd-aESC0:NU0:16368,0:A$:ZA(A$):-aZA49ZAMAX48ĺ(7);:25010-aNU(A$):-xi LARGE # INPUT-iESC0:B$"":C0:SHOW0:HO(36)1:VO(37)1:NU5.iA$:AA(A$):AA27ESC1:1)SN2D3:Y(5)Y(4):Y(9)Y(4):Y(8)Y(4),63X(1)X(10)SN(12(Y(1)Y(10))):X(2)X(1):X(5)X(1):X(9)X(1):X(6)X(1):X(3)X(1)D3SN:X(4)X(3)::X(7)X(1)SN2D3:X(8)X(7),@3X(1),Y(1):II210:X(II),Y(II):II-J3K2āII110:C(9(P1)II,2)X(I3)Y(1)D3SN:Y(4)Y(3)::Y(7)Y(1)SND3:Y(8)Y(7)+"3Y(1)Y(9)X(2)X(1)SND3:X(3)X(2):X(6)X(2):X(7)X(2):X(4)X(1)SN2D3:X(5)X(4):X(8)X(4):X(9)X(4)),,3X(1)X(10)SN(12(Y(1)Y(10))):Y(2)Y(1)SND3:Y(3)Y(2):Y(6)Y(2):Y(7)Y(2):Y(4)Y(JJ:?*2A$"L = "(((3)(K1)100)):V23.8:H30:2:58000::M*2 SQUARES*3X(1)C(P,0):Y(1)C(P,1):X(10)C(P1,0):Y(10)C(P1,1)*3D((X(10)X(1))2(Y(10)Y(1))2):4+3Y(1)Y(10)SN(12(X(1)X(10))):Y(2)Y(1):Y(5)Y(1):Y(6)Y(1):Y(9)Y(1):Y(ENOa)2C(1,0)44:C(1,1)95:C(2,0)234:C(2,1)95:P1::3:C(1,0),C(1,1):I22:C(I,0),C(I,1):)2:A$"L = ""100":V23.8:H30:2:58000:)2K02:ERASEĐ)2ESCK2::*2P19K:12050:P:K2āJJ09(K1)1:C(JJ,0)C(JJ,2):C(JJ,1)C(JJ,3):)"LOGISTIC MAPPING"),)N9:H8:40000:,PÉ::V8:H1:A$"A MAJOR ERROR JUST HAPPENED":57005:A$"BE SURE THE MASTER DISK IS IN DRIVE 1":57005:A$:,H21(A$)2:H:V:VV2:LCĺA$;:,ޖH:V:VV2:LCĺA$;:<-P1(105)256(106):LGN(P12:NUMS:26000:21:MSNU:,(J$"GRAPHS":J1$(1)"EXPONENTIAL GROWTH GRAPH":J1$(2)"LOGISTIC GRAPH":J1$(3)"LOGISTIC BIFURCATION":J1$(6)"R*SIN GRAPH":J1$(7)"R*SIN BIFURCATION":J1$(8)"DESCRIPTION":J1$(9)"RETURN TO CONTENTS":J1$(4)"LOGISTIC MUSIC":J1$(56368,0:NU;(8);:A$:ZA(A$):ZA13ıL*eZA49ZA(MA$)48ĺ(7);:26010`*eNU(A$):NU;:+@::1:M1$;:I218:M2$;:I:M1$:H121((J$)2):4:H1:J$:V7:S1:I1N:V:H:I") "J1$(I):VVS::22:I1N1:I;", ";:I:" OR ";N;:" ";:MA$(N)N":DE$"N":ES0:25150()b(7);:25020?)bZ1ĺ(7);:25020)b" ";(8);(8);::" ";::(8);:ZZ1:(B$)1B$"":25020)bB$(B$,(B$)1):25020)8cNE$"Y"Z1ĺ(7);:25020)LcZ1(B$,1)"E"ĺ(7);:25020)Vc25100)e:&*eES0:18ĺ(7);:25020#(aAA13ī252004(aAA8ī25300F(aAA45ī25400h( bDE$"Y"AA46ĺ(7);:25020( bAA43AA57AA47AA44ĺ(7);:25020(4bB$B$A$:A$;:868:Z(>bZMA:Z:(pbZ1ī25150)b((B$)(MI$)(B$)(MA$))ĪNU(B$):NE$"(0)X:I0NP:X(I1)RX(I)(1X(I)):I:MA1:MI0:'aV(37)1:H(36)1:ES0:16368,0:B$"":EF0:MA1(MA$):HE0:NU0ĢV:H:NU;:V:H'aZ1MA'aA$:AA(A$)32((A$)96):A$(AA):AA72HE1:25150'aAA27ES1:25150(aZMAAA13AA$".9900":NE$"N":DE$"Y":NUX0:25000:X0NU:ES12000&.1:10:"CHOOSE FROM 0 TO 1000":1:9:"PLOT ITERATIONS STARTING WITH # ";:MI$"0":MA$"1000":NE$"N":DE$"N":NUNI:25000:NINU:ES12000&/&011020:XX0:NI0āI0NI1:XRX(1X):I3'0XCALCULATING...";::0%*+:230,64:62450::3:L%.11010:R4R.0001R0%."ENTER R (.0001 TO +4) : ";:MI$".0001":MA$"4.0000":NE$"N":DE$"Y":NUR:25000:RNU:ESġ:%.X0.99X00X0.56&.1:7:"ENTER X(0) (.0001 TO .99) : ";:MI$".0001":MA***************":M2$"* *":$*0:I181191:40,I240,I::3:V23.8:A$"P-Print C-Continue...":H20(A$)2:2:16368,0:A$:A$"P"A$"p"İ58200$*$+::16368,0:1:1:TI$:1:3:EQ$:1:5:% +1:24::"te chaos."##2?#$V23.8:H1:A$"Press any key...":2:A$:#'9000:X(1002):D$(13)(4):SP3:MS1:GF1:60100:D$"BLOAD CLEARGR":D$;"BLOAD MACH BIFUR,A$3000":D$"BLOAD MACH SINBI,A$3100":A$t'3:1:0:232,0:233,56:M1$"*************************epeated":2:H1 ##A$"iterations. Note the abrupt changes":2:A$"caused by small variations in R.":2:A$"The solid vertical lines are the":2:A$"chaotic regions. Close examination":2:A$"shows simple periodic changes between":2:A$"regions of complen a limitted area.":2:9230::V1:H1"#A$"Both the R*SIN and Logistics equations":2:A$"are very sensitive to R.":2:A$"Compare the Graphs for R=2 and R=3.7":2:H1:A$"The Bifurcation diagrams plot about 250":VV1:2:A$"values of X generated by r$"01 - approaches infinity":2:A$"R=1 - remains constant":2:A1:INI20;": ";X(I20);:I:8900:::I4060:I39:1:INI;": ";X(I);:21:INI21;": ";X(I20);:I:8900:"24:1:"C=CONTINUE P=PRINT";:16368,0:A$:A$"P"A$"p"İ60000:"A$(27)ġ:"`(#RE0:11050:1:0::232,0:233,56:V8:H7:A$D=DISPLAY DATA P=PRINT":2:16368,0:A$:A$"D"A$"d"İ8000::49239,0:49234,0:49237,0:49232,0:7900A$"P"A$"p"İ58200::49239,0:49234,0:49237,0:49232,0:79006n@::1:1:EQ$;:" R=";R;" X0=";X0:I019:I3:1:INI;": ";X(I);:2ORESSf*0:I181191:40,I240,I:::3:V23.8:A$"Finished. Press any key...":H20(A$)2:2:A$:+::16368,0:1:1:TITLE$:1:3:EQ$:1:5: +1:24::"CALCULATING...";::*+:230,64:3086::3::6 DATA FILE WORK]6::V8:A$"13)(4):SP3:D$"BLOAD MANDEL,A$3000"E'D$"BLOAD HRMANDEL,A$3300"c'D$"BLOAD CLEARGR,A$3700"w'3:1:0:XB10'232,0:233,56:0*M1$"****************************************":M2$"* *"*: PRINT KEY "coordinates. Be patient!":2N$V23.8:H1::A$"Press any key..."::2:A$:T'i'IT1:9000:IT0:'D$(13)(4):SP3:5'D$(13)(4):OP$D$"OPEN":RD$D$"READ":WR$D$"WRITE":CL$D$"CLOSE":8300:D$"BLOAD UN-PACK":D$"BLOAD PACK"&'D$(rm 450":VV1:2$:H1:A$"multiplications and 750 additions":2:A$"for each dot in the black area.":2::A$"The HIgh RESolution graph needs hours.":2: $A$"The LOw RESolution graph may take less":2:A$"than an hour, depending on the chosen":2:A$":2:A$"on the graph.":2:9230#:V1:H1:A$"The colors on the graph indicate how":2:A$"quickly 'Z' approaches infinity.":2:A$"The black areas are 'C' locations where":2#H1:A$"the value of 'Z' remains small.":2:A$"The computer must perfoary parts, behaves when iterated.":2#H1:A$"Z(N+1) = Z(N)^2 + C":2:VV1:A$"Z may approach infinity, or not,":2:A$"depending on the value of 'C' chosen.":2 #A$"The real and imaginary parts of 'C'":VV1:2:A$"act as 'x' and 'y' coordinates 4:31:"TIME:";:24:36:T;:20:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:6ZWZW1::ZY:ZX:D$;"PR#0":16368,0::NT.":H1:V23.8:2:A$"ESC-MENU":V22.8:2:A$:0:I173191:0,I110,I::I182191:200,I279,I::3:5ER0:A$"E"A$"e"ER1:5A$(27)ESC1:55`3000:"IS THE PRINTER READY (Y/N) : ";:A$:3000:A$"Y"A$"y"ı: SCREEN DUMPs6j2));:ZZ:54ZWZW1::ZY:ZX:D$;"PR#0":16368,0:GLE - LINE":J1$(6)"RECTANGLE - CURVE":4*J1$(7)"PAENO - LINE":J1$(8)"PAENO - CURVE"::J1$(9)"DESCRIPTION":J1$(10)"QUIT":N10:H84-40000:4ޖ21(A$)2:V:A$:VV2:g5A$"E-ERASE C-CO20(A$)2:2:A$:0:I181191:40,I240,I:::3:N3ESC0:A$(27)ESC1:T33`24:1:868:"IS THE PRINTER READY (Y/N) : ";:A$:A$"Y"A$"y"ı: SCREEN DUMP4j23:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ:J1$(3)"LOGISTIC BIFURCATION":J1$(4)"R*SIN GRAPH":J1$(5)"R*SIN BIFURCATION":J1$(6)"DESCRIPTION":2*J1$(7)"RETURN TO CONTENTS":N7:H82-40000:2ޖ21(A$)2:V:A$:VV2:230:I181191:40,I230,I:::3:V23.8:A$"ESC-MENU C-CONTINUE":Hй956,206:957,181:958,3:959,240:960,9:961,2021962,208:963,245:964,174:965,180:966,3:967,76:968,182:969,3:970,96:971,0:972,0: ;:" ";:MAX$(N)126000:21:d2(J$"GRAPHS":J1$(1)"EXPONENTIAL GROWTH GRAPH":J1$(2)"LOGISTIC GRAPH"OCK GRAPHS":D$"SAVE GRAPHS":D$"LOCK GRAPHS"D48:952,192:953,136:954,208:955,5:956,206:957,181:958,3:959,240:960,9:961,2020962,208:963,245:964,174:965,180:966,3:967,76:968,182:969,3:970,96:971,0:972,0:3,136:954,208:955,5:W1::ZY:ZX:D$;"PR#0":16368,0:/950,173:951,48:952,192:953,136:954,208:955,5:956,206:957,181:958,3:959,240:960,9:961,202/962,208:963,245:964,174:965,180:966,3:967,76:968,182:969,3:970,96:971,0:972,0:-00D$(4):D$"UNL234,0:49232,0:49237,0&.bD$;"PR#1"1.g" 3H"R.lD$;"PR#0":: GRAPHICS DUMP.`24:1:868:"IS THE PRINTER READY (Y/N) : ";:A$:A$"Y"A$"y"ı.j23:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ$/ZWZ):P2(P13)256(P14):IP2P2LGN1:A(I):A96ĹI,A32J-ނI:A$;:-0:I181191:40,I230,I::3:V23.8:A$"ESC-MENU C-CONTINUE":H20(A$)2:2:A$:0:I181191:40,I240,I::3-ESC0:A$(27)ESC1:--X PRINT._49239,0:49 34,0:49232,0:49237,0:&+bD$;"PR#1"q+gD$;"BLOAD IIGS INFO,A$8A00,D1":D$;"BLOAD DUMP.HIRES.R,A$8C00":35840+lD$;"PR#0":: GRAPHICS DUMP868:" TO CONTINUE,

TO PRINT";:S31100:S3:22:1:A$:(16384)27ESC1+($:(1$(5)"RETURN TO MENU":N5:H8:40000:J*ޖ21(A$)2:V:VV2:LCĺA$;:*P1(105)256(106):LGN(P12):P2(P13)256(P14):IP2P2LGN1:A(I):A96ĹI,A32*ނI:A$;:*A$*ESC0:A$(27)ESC1:**X PRINT+_49239,0:492RES MANDELBROT SET":J1$(4)"DESCRIPTION":J1$(3)"RECALL MANDELBROT SET"o)*J1$(5)"RETURN TO CONTENTS":N5:H8|)-40000:&*J$"HI RES MENU":J1$(1)"CONTINUE PLOTTING POINTS":J1$(2)"SAVE THE GRAPH":J1$(3)"PRINT THE GRAPH":J1$(4)"REDISPLAY GRAPH":J1218:M2$;:I:M1$2(rH121((J$)2):3:H1:J$V(|V5(N4)(N5):S3(N4)(N7)|(I1N:V:H:I") "J1$(I):VVS:(22:I1N1:I;", ";:I:" OR ";N;:" ";:MAX$(N)(26000:21:G)(J$"FRACTALS":J1$(1)"LORES MANDELBROT SET":J1$(2)"HI":25020$'bB$(B$,(B$)1):250203'8c NEGATIVET'BcNEG$"Y"Z1ĺ(7);:25020y'LcZ1(B$,1)"E"ĺ(7);:25020'Vc25070'e'eESC0:NU0:16368,0:A$:ZA(A$):'eZA49ZA(MAX$)48ĺ(7);:26010'eNU(A$):'@:(J1:M1$;:I;:868:Z&>bZMAX:Z:*&pb RETURN HIT:&zbZ1ī25150&b((B$)(MIN$)(B$)(MAX$))ĪNU(B$):NEG$"N":DEC$"N":ESC0:25150&b(7);:25020&b BACKSPACE&bZ1ĺ(7);:25020&b" ";(8);(8);::" ";::(8);:ZZ1:'b(B$)1B$"(7);:250200%aAA13ī25200: RETURN ROUTINESM%aAA8ī25300: BACKSPACEe%aAA45ī25400: NEG%aZ1MAX2((A$)(MIN$)(A$)(MAX$))ĺ(7);:25020% bDEC$"Y"AA46ĺ(7);:25020% bAA43AA57AA47AA44ĺ(7);:25020 &4bB$B$A$:A$$"G."F$:8000:$a5$aV(37)1:H(36)1:ESC0d$a16368,0:B$"":EF0:MAX1(MAX$):HELP0:$aNU0ĢV:H:NU;:V:H$aZ1MAX$aA$:AA(A$)32((A$)96):A$(AA)$aAA72HELP1:25150$aAA27ESC1:25150 %aZMAXAA13AA8ĺ SPACES:":57000.#8::"INFO. NAME - ";:F$?#8:(F$)0ı#8(F$)15ė:A$"FILE NAME ERROR!":V14:57000:A$"MUST BE UNDER 15 LETTERS AND SPACES":57000:58000:#8:FO0:I1NF:F$HN$(I)FO1:INF#8I:FOHN$(NF1)F$:NFNF1:8600$8F6302,0:D$;"BLOAD"F$",A$8000":3256:3:0:1k"f8B$"P-Print":VV1(B$):H38:VVV1:A$(B$,VV,1):2:VV"h8A$:A$"P"A$"P"İ58200:14440"m85005:ADD1:"8 ** SAVE GRAPH"814000#8:V16:A$"CHOOSE A FILE NAME":57000:A$"OF 15 LETTERS ORHN$(I1):I:NFNF1:8600:::7!@8 ** DISPLAY GRAPHq!E8:NF0A$"NO FILES TO RECALL.":V16:57000:58000:!J8V16:A$"NUMBER OF INFO. TO SHOW - ":57000:16:35:MIN$"1":MAX$(NF):NUNF:PS2:25000:ESCı-"Y8F$"G."HN$(NU):230,64:62450::1elete.":V16:57000:58000: 7V16:A$"Number of file to delete - ":57000:16:35:MIN$"1":MAX$(NF):PS2:NUNF:25000:ESCı 7:" DELETE ";HN$(NU);" (Y/N) ";:AN$:AN$"Y"AN$"y"ı !7F$"G."HN$(NU):D$;"DELETE ";F$:INUNF1:HN$(I) 3) CONTINUE"_724:5:"(1, 2, OR 3) ? ";:MIN$"1":MAX$"3":NU3:PS4:25000:ESCıo7NU3ĥ2207NU3ĉ::8:"PROGRAM DISK MUST BE IN DRIVE 1":58000:7NU14400,143007142007 DELETE GRAPH  7:NF0A$"No files to dstored on this disk.":V6:57000:14120?7NF13ĪZNF:14110P7NF12ĪZ127I1Z:1:3I:I;": ";HN$(I):I:NF12āI13NF:20:I9:I;": ";HN$(I):I(734,15::18:x714000:34,15::18:" 1) RECALL GRAPH":" 2) DELETE GRAPH":" Keep the Data Disk in Drive "(DN)::57000:A$"DURING FILE WORK.":57000:58000:16:ESCġ:g62106D$;"VERIFY KEYTM,D";DN634,0:6V1:6F1$"KEYTM":8700:ADD066V1:A$"GRAPHS ON FILE: (20 MAX)":57000'6NF0A$"No data andelbrot":V16:H1:2nP#V19:H1:A$"Programmed by John Elberfeld":2:A$"Copyright 1989: EduTech":2:ITıxZ#9230%#:V1:H14:A$"INTRODUCTION":2:A$"The Mandelbrot Set demonstrates how a":2:A$"complex number, with both real and":2:A$"imaginNF:I1NF:HN$(I):I:CL$:ADD1:: WR FILE NMS!OP$F1$;",D";DN:RD$F1$:NF:I0NF1:HN$(I1):I:CL$:: READ FILE NMS (#RE0:2#11050:1:0::232,0:233,56:V8:A$"FRACTALS - THE MANDELBROT SET":H21(A$)2:2:A$"Discovered by Benoit M14080:: GR@LO740968256151612:7409682563:LE(LO)(LO1)25632768:D$;"BSAVE"F$",A$8000,L"LE;",D";DN:: SAVE GRAPHl F$"CONTROL DATA":OP$F$",D1":RD$F$:DN:CARD:LC:CL$:: READ PROG DATA 1!OP$;F1$;",D";DN:WR$;F1$:-2":MAX$"2.0000":NEG$"Y":DEC$"Y":NUYB:25000:YBNU:ESC400013:1:"ENTER ENDING IMAGINARY ("YB"/+2) : ";::MIN$(YB):MAX$"2.0000":NEG$"Y":DEC$"Y":NUYE:25000:YENU:ESC4000230,64:3086:14109:: TEXT230,64:3086:+2) : ";::MIN$"-2":MAX$"2.0000":NEG$"Y":DEC$"Y":NUXB:25000:XBNU:ESCġ:9:1:"ENTER ENDING REAL ("XB"/+2) : ";::MIN$(XB):MAX$"2.0000":NEG$"Y":DEC$"Y":NUXE:25000:XENU:ESC4000@11:1:"ENTER STARTING IMAGINARY (-2/+2) : ";::MIN$"900  3510>49239,0:49234,0:49232,0:49237,0:13442:vB49239,0:49234,0:49232,0:49237,0:16368,0:A$:t:5005:14500:58200:<:716368,0:(16384)27Č13442:A$: INPUT DATAO7:1:"ENTER STARTING REAL (-2/YS): USE USR TO SET UP YSTEP AT $3200yv CL13353:CL,MC1:CL7,MC3:CL14,MC5:CL21,MC9:CL28,MC50:CL35,MC50 16368,0:13082 (16384)128ľA$:3510 16368,0:(16384)27Č13442:3210 5005:42000:NU3600,3700,3800,3650,3D 12288: SET UP USER\N 12303,50:12302,00:X(XB): USE USR TO SET UP XSTART AT $3200X 12303,50:12302,08:X(XS): USE USR TO SET UP XSTEP AT $3208b 12303,50:12302,16:X(YB): USE USR TO SET UP YSTART AT $3200&l 12303,50:12302,24:X((YEYB)191:RXB:CYB:230,64:3086:: CLEAR SCREENA& MC1500 C13:C23:C31:C42:C55:C66:12864,C1:12865,C2:12866,C3:12867,C4:12868,C5:12869,C6: SET COLOR PATTERN AT $3240: 12832,MC:12840,255:12848,190: MAX COUNT, X WIDTH, Y HEIGHT 12314# (16384)128ī2999M 16368,0:(16384)27Č12672:2210g 16368,0:A$:5000:s HIRES TITLE$"MANDELBROT SET - HI RES":EQ$"Z(N+1) = Z(N)^2 + C":11010:XB10XB2:XE1.2:YB1.2:YE1.2 40006 :XST(XEXB)255:YSTS): USE USR TO SET UP XSTEP AT $3208i z12303,50:12302,16:X(YB): USE USR TO SET UP YSTART AT $3200 12303,50:12302,24:X(YS): USE USR TO SET UP YSTEP AT $3200 CL12585:CL,MC1:CL7,MC3:CL14,MC5:CL21,MC9:CL28,MC15:CL35,MC2512866,C3:12867,C4:12868,C5:12869,C6: SET COLOR PATTERN AT $3240 R12832,MC:12840,40:12848,47: MAX COUNT, X WIDTH, Y HEIGHT \12288: SET UP USER f12303,50:12302,00:X(XB): USE USR TO SET UP XSTART AT $3200% p12303,50:12302,08:X(X SET":EQ$"Z(N+1) = Z(N)^2 + C":11010:XB10XB2:XE1.2:YB1.2:YE1.2T 4000 4:XST(XEXB)40:YST(YEYB)48:RXB:CYB:5010 >MC35:230,32:49234,0:49232,0:49236,0:49238,0: PAGE 1 GRD HC12:C26:C33:C44:C55:C61:12864,C1:12865,C2:"DATA DISK IS EXPECTED TO BE IN DRIVE ";DN::"PUT DATA DISK IN DRIVE ";DN;" OR"::"REBOOT SYSTEM AND CHANGE PROGRAM CONTROL.":58000:: 3288:D$;"PR#0":::8:1:"MASTER DISK MUST BE IN DRIVE 1 NOW":58000::  LO RESJ TITLE$"MANDELBROT#28672:24577%A$"X":A$:54(A$)0ımPY(V1)88:PX(H1)7:99PX,PY:16208:VV2:H1:x1000041000 NU2000,3000,14200,9000,2007::8:1:"LOADING DISK CONTENTS...":D$"RUN CONTENTS,D1" 3288:::8:1:               ! ! ! !!1:PHPH(PH1)(PH40):T#OOH:3:20900:PH:3:PH::OHPH::20900::PH:3:20320Z#Ow#QA(OH)0A(OH)4ĺA(OH);#QA(OH)0ĺ"-";#Q: PRINT NUMBER FROM ARRAY#R EDITOR DIRECTIONS#R3000:#S SCREEN EDITOR#4S2:6:OV6:OH2 $>S STAROAA82İ3000:"DESTROY CURRENT LINE (Y/N) : ";:A$:20900:3000:A$"Y"A$"y"20300"OAA82āOH239:3:OH:A(OH)(4(9)):20900::20300"OAA49AA50AA51A(PH)AA48:PHPH1:PHPH(PH1)(PH40):#OAA48AA32AA95AA45A(PH)0:PHPHAAAA32(AA96):!yOAA21AA32AA75AA74AA8AA13AA27AA82AA48AA49AA50AA51AA95AA45ĺ(7);:20310!~OPHPH(AA21)(AA75)(AA8)(AA74)!OPHPH(PH1)(PH40):!OAA13Ģ3:OH:20900:20410: ESC!OAA27ġ:X":ISNEN:H:3V:I;": ";(HN$(I),(HN$(I))3):VV1:I:R N EDITOR DIRECTIONS] N3000:q .O SCREEN EDITOR LO20:3:OV3:OH20 VO START OF LOOP `OPH(36)1:PV3:OHPH::20900 eOPH:3: jO(16384)12820320!tO16368,0:AA(16384):9 SHOW FILES ON DISKO9:34,0::V1:A$"*** DATA ON THIS DISK ***":570009NF0A$"NO FILES ON THIS DATA DISK":V4:57000:9SN1:ENNFSNEN19H1:14900:ENNFı:SNEN1:H20:14900:4:ENSN9:ENNFENNF: FILE DISPLAY: >:V1F$"CA."F$58I1NF:F$HN$(I)INF:FOUND1:ESC1`8I:FOUNDHN$(NF1)F$:NFNF1:86008:21:1:OH140:20900:OH:22:1:958:" 0 1 2 3 4 5 6 7 8 9 = SUM":23:2:I09:R(I)" ";:I:"= NEW CELL VALUE";:D$"BSAVE";F$;",A$400,L$400"9A$::::8 ** SAVE DATAi8:V21:H1:A$"Place DATA disk in Drive "(DN):57005:A$:NF0İ87008NF19Ģ24:1:868:"20 FILES MAXIMUM - DELETE A FILE";:A$:824:1:868:"FILE NAME: ";:F$8(F$)0ı8F$(F$,10): 8:FOUND0:DATA E8AG8NF0A$"NO FILES TO RECALL":V16:57000:58000:J816:4:"NUMBER OF DATA FILE TO RECALL: ":16:35:MIN$"1":MAX$(NF):PS2:NU1:27000O8ESCıT8F$HN$(NU):: ^8D$"BLOAD"F$",A$400":3000:24:1:"PRESS ANY KEY...";:16368,0:DELETE: ":16:35:MIN$"1"::MAX$(NF):2700087ESCı7:" DELETE ";(HN$(NU),(HN$(NU))3);" (Y/N) ";:AN$:AN$"Y"AN$"y"ı7F$HN$(NU)7D$;"DELETE ";F$7INUNF1:HN$(I)HN$(I1):I8NFNF1:8600:::@8 ** RECALL 7NU14400,14300,14280,14800/7ADDī1401597REıD7142007::V8:H1:A$"PROGRAM DISK must be in Drive 1":57005:58000::7 DELETE FILES77NF0A$"NO FILES TO DELETE":V16:57000:58000:-716:4:"NUMBER OF DATA FILE TO ADD0%6EN0:14800: SHOW FILES =x734,15:16:1:9587" 1) RECALL A FILE":" 2) DELETE A FILE":" 3) RETURN TO LIFE MENU":MAX3:NF20ĺ" 4) DISPLAY MORE FILES":MAX5722:1:" YOUR SELECTION : ";:250007ESCĉ:: *""*46**DATA FILES6::V8:A$"Keep the Data Disk in Drive "(DN)::57000:A$"During file work.":57000:58000:16:ESCġ:62106D$;"VERIFY KEYCA,D";DN6500006::ESC0:RE06:F1$"KEYCA":8700:OP$D$"OPEN":RD$D$"READ":WR$D$"WRITE":CL$D$"CLOSE":8300:`'D$"BLOAD MACHCELLS,A$3000"m'3:1:0'(14336)(100)(14337)1ĺD$;"BLOAD STANDARD,A14336":232,0:233,56:0*M1$"****************************************":M2$"* 03 0 T0 {03(3;L0(032 dLH0 dLH0 dLH0 d3 L0`(30LX0'}2}2}2ʝ30Lc0'342L}0RWPT`TQ` (YX):YNYH9(28XYXZ):ZNZH9(XYZFR):XXN:YYN:ZZN:hpXNMIXNMAXXN35(XNMA)35(XNMI)qYNMIYNMAXYN35(YNMA)35(YNMI)r10269(XNMIN)(MAXMIN),180170(YNMIN)(MAXMIN):(16384)155I999sIx11000:: FINISHE000":NEG$"Y":DEC$"Y":NUY0:25000:Y0NU:ESC60001:13:"ENTER Z(0) VALUE (-2 TO +2) : ";:MIN$(2):MAX$"2.000":NEG$"Y":DEC$"Y":NUZ0:25000:Z0NU:ESC700011020:XX0:YY0:ZZ0:FR83:H9.01:MI35:MA35=n11050:1800:I1999:XNX.1ʰ11010::SV$".1, .1, .1":11060:X00X02X02Y02Y02X0.1:Y0.1:Z0.11:9:"ENTER X(0) VALUE (-2 TO +2) : ";:MIN$(2):MAX$"2.000":NEG$"Y":DEC$"Y":NUX0:25000:X0NU:ESCı31:11:"ENTER Y(0) VALUE (-2 TO +2) : ";:MIN$(2):MAX$"2.(A)(B):MINMAX 11020:11050:SI1:7800:SI0:XO0:I12000:XNA(I)B((2)I):10269(XNMIN)(MAXMIN),180170(XOMIN)(MAXMIN):XOXN:(16384)155I20000 I 11000:: FINISHEDp LORENZEMzTITLE$"LORENZ ATTRACTOR":EQ$" ":A2B2A2B2A1:B2 1:5:"ENTER A VALUE (0 TO 2) : ";::MIN$".000":MAX$"2.0000":NEG$"N":DEC$"Y":NUA:25000:ANU:ESCı 1:7:"ENTER B VALUE (0 TO 2) : ";::MIN$(.000):MAX$"2.0000":NEG$"N":DEC$"Y":NUB:25000:BNU:ESC3000 MAXis in Drive 1":57005:58000:F+H21(A$)2:H:V:VV2:LCĺA$;:a+ޖH:V:VV2:LCĺA$;:+P1(105)256(106):LGN(P12):P2(P13)256(P14):IP2P2LGN1:A(I):A96ĹI,A32+ނI:A$;:,3000:"PRESS TO CONTINUE...";:21:*(J$"LINEAR CELLULAR AUTOMATA":J1$(1)"CREATE STARTING PATTERN":J1$(2)"RECALL RESULTS":J1$(3)"DESCRIPTION":J1$(4)"RETURN TO DISK CONTENTS":N4:H8*-40000:+PÉ::V8:H1:A$"A major error just happened":57005:A$"Be sure the MASTER DISK B$A$:A$;:CC1:27020/)@:: GENERAL MENUR)J1:M1$;:I218:M2$;:I:M1$r)rH121((J$)2):4:H1:J$)|V6(N4)(N5):S3(N4)(N6))I1N:V:H:I") "J1$(I):VVS:)22:I1N1:I;", ";:I:" OR ";N;:" ";:MAX(N)*25000:iA$:AA(A$):AA27ESC1:g(iC(MAX$)AA13ĖHO:VO:I1(MAX$):" ";:I:HO:VO:(7);:27000~(iAA13C0ESC1:(iAA13(B$)(MIN$)(B$)(MAX$)SHOW1:NU(B$):(i(AA48AA57)ĖHO:VO:I1(MAX$):" ";:I:HO:VO:27000)iB$OH21);'UR(OH21)0ĺ"-";?'U: PRINT NUMBER FROM ARRAYY'a SINGLE DIGIT INPUT'aESC0:NU0:16368,0:A$:ZA(A$):'aZA49ZAMAX48ĺ(7);:25010'aNU(A$):'xi LARGE # INPUT'iESC0:B$"":C0:SHOW0:HO(36)1:VO(37)1:NU5(:21300Q&SAA49AA50AA51R(PH21)AA48:PHPH2:PHPH2(PH0)2(PH22):&SAA48AA32AA95AA45R(PH21)0:PHPH2:PHPH2(PHO)2(PH22):&SOH:6:21900:PH:6:PH::OHPH::21900::PH:6:21320&S'UR(OH21)0R(OH21)4ĺR(2(AA75)2(AA8)2(AA74);%pSPHPH2(PH0)2(PH22):g%zSAA27AA13Ģ6:OH:21900:21410: ESC%SAA82İ3000:"DESTROY CURRENT LINE (Y/N) : ";:A$:21900:3000:A$"Y"A$"y"21300&SAA82āI09:6:2I2:R(I)(4(9)):OH2(I1):21900:T OF LOOP,$HSPH(36)1:PV6:OHPH::219009$MSPH:6:R$RS(16384)12821320$\S16368,0:AA(16384):AAAA32(AA96):$aSAA21AA75AA74AA8AA13AA27AA82AA48AA49AA50AA51AA95AA45ĺ(7);:21310%fSPHPH2(AA21)d  d`0 q`  )L_0L_0L_0%' d   d qD q1 q q 0L0`  8,0:B$"":EF0:MAX1(MAX$):HELP0:@"aNU0ĢV:H:NU;:V:HM"aZ1MAXu"aA$:AA(A$)32((A$)96):A$(AA)"aAA72HELP1:25150"aAA27ESC1:25150"aZMAXAA13AA8ĺ(7);:25020"aAA13ī25200: RETURN ROUTINES #aAA8ī2530(A$)2:2:16368,0:A$:A$"P"A$"p"İ58200:5!*h!+::16368,0:1:1:TITLE$:1:3:EQ$:1:5:! +1:24::"CALCULATING...";::!*+:230,64:3086::3::!4+1:22:"SUGGESTED VALUES : ";SV$:!a!aV(37)1:H(36)1:ESC0$"a1636P3* B'D$"BLOAD CLEARGR": $3400 (13312)7 '3:1:0K '232,0:233,56: 0*M1$"****************************************":M2$"* *" */!*0:I181191:40,I230,I:::3:V23.8:A$"P=Print C=Continue...":H20e, weather, and water drops.":2: $A$"Three dimensional attractors provide":2:A$"even more information about the":2:A$"dynamical systems of equations.":2$V23.8:H1::A$"Press any key..."::2:A$:''X(1002),Y(302) 'D$(13)(4):Sd infinity":2:A$"or produce graphs of only a few distinct":2#H1:A$"points. ":2:VV1:A$"All these graphs deal with real numbers.":2!$:H1:A$"Attractors are not well understood by":2:A$"anyone, but appear in the study of":2::A$"turbulenc different patterns.":2#A$"Strange attractors are fractals. The":2:A$"graphs have endless fine detail not":2:A$"visible on Apple II screens.":2:9230?#:V1:H1:A$"Some initial conditions and parameters":2:A$"produce values that tend towarnge Attractors show order in ":2:A$"systems of equations that seem random.":2:A$"Equations have many different forms.":2#H1:VV1:A$"Many initial conditions produce similar":2:A$"graphs, even though the plotted points":2:A$"follow completely;:16368,0:A$:A$"P"A$"p"İ60000:-"8(#RE0:u2#11050:1:0::232,0:233,56:V8:H7:A$"ATTRACTORS":2P#V19:H1:A$"Programmed by John Elberfeld":2:A$"Copyright 1989: EduTech":2:9230:ITı}#:V1:H14:A$"INTRODUCTION":2:A$"StraA$):A$MA$:2:@<J::1:1:EQ$;:" R=";R;" X0=";X0HTI019^I3:1:INI;": ";X(I);:21:INI20;": ";X(I20);:hI:8900r::I4060:I39:1:INI;": ";X(I);:21:INI21;": ";X(I20);:I:8900:'"24:1:"C-CONTINUE P-PRINT" VALUES":A$:OVER1:cxMI$((MIN100.5)100):MA$((MA100.5)100):V1:A$EQ$:H40(A$):2}A$"A="(A)" B="(B):V23.8:H20(A$)2:210,1010,180279,180:H1:V1SI:A$MA$:2:H1:V22.5:A$MI$:2:H2:V23.8:A$MI$:2:V23.8:H39(M6384)155I999!I:OVER7000V11050:HE1:7800:HE0:I1999:10269(X(I)MIN)(MAXMIN),180170(X(I1)MIN)(MAXMIN):(16384)155I999[I`11000:: FINISHED::8:1:"X IS APPROACHING INFINITY"::"PLEASE CHOOSE OTHER A AND B+2) : ";:MIN$(2):MAX$"2.000":NEG$"Y":DEC$"Y":NUY0:25000:Y0NU:ESC700011020:X(1)X0:X(0)Y0:MI0:MA0:OVER0:I1999:X(I1)ABX(I1)X(I)X(I):X(I1)MIMIX(I1):X(I1)MAXMAXX(I1):MAX1E10MI1E10I999:7700:(1:"ENTER B VALUE (.0001 TO 2) : ";::MIN$(.0001):MAX$"2.0000":NEG$"N":DEC$"Y":NUB:25000:BNU:ESC7000q1:9:"ENTER X(0) VALUE (-2/+2) : ";:MIN$(2):MAX$"2.000":NEG$"Y":DEC$"Y":NUX0:25000:X0NU:ESC7000O{1:11:"ENTER Y(0) VALUE (-2/D X HENONbTITLE$"HENON ATTRACTOR":EQ$"X(N+1)=A+BY(N)-X(N)^2 Y(N+1)=X(N)":11010:SV$"1.4, .3, 0, 0":11060:A0A1.4:B.3l1:5:"ENTER A VALUE (.0001 TO 2) : ";::MIN$".0001":MAX$"2.0000":NEG$"N":DEC$"Y":NUA:25000:ANU:ESCıln1:70/ . . : . . :/0`HH)hJJ hhhi .i .i nhi) @ih(`hh` :57000PB$"PRINT D$;"(34)"PR#0"(34)": TEXT : HOME : VTAB 10: HTAB 1: PRINT "(34)"NO GRAPHICS WITH CURRENT PRINTER"(34)": GET A$"&7000:CARD8:l RETURN TO MENU:: LOWER CASEV1:A$"*** LOWER CASE ***":57000'3:ZY:ZX:D$;"PR#0":16368,0:19:((ZZ));:ZZ:>.ZWZW1::ZY:ZX:D$;"PR#0":16368,0::J..`24:1:868:"IS THE PRINTER READY (Y/N) : ";:A$:A$"Y"A$"y"ı.j23:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:/ZWZW1::((ZZ));:ZZ::-ZWZW1::ZY:ZX:D$;"PR#0":16368,0:Y128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:-ZWZW1::ZY:ZX:D$;"PR#0":16368,0:;:A$:A$"Y"A$"y"ı.j23:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY3$"Y"A$"y"ıl,j23:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:,ZWZW1::ZY:ZX:D$;"PR#0":16368,0::$:A$"Y"A$"y"ı -j23:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:(6)"HENON ATTRACTOR":N8:H8*+-40000:+0:I181191:40,I230,I:::3:V23.8:A$"ESC-MENU C-CONTINUE":H20(A$)2:2:A$:0:I181191:40,I240,I:::3:+ESC0:A$(27)ESC1:+,`24:1:868:"IS THE PRINTER READY (Y/N) : ";:A$:A1920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:\*ZWZW1::ZY:ZX:D$;"PR#0":16368,0:*0D$(4):D$"UNLOCK ATTRACTORS":D$"SAVE ATTRACTORS":D$"LOCK ATTRACTORS"D1$(5)"R*SIN BIFURCATION":J1$(7)"DESCRIPTION":+*J1$(8)"RETURN TO CONTENTS":J1$#0":: GRAPHICS DUMP)xESC0:24:1:868:" TO CONTINUE,

TO PRINT";:S31100:S3:22:1:A$:(16384)27ESC1))`24:1:868:"IS THE PRINTER READY (Y/N) : ";:A$:A$"Y"A$"y"ı/*j23:D$"PR#1":ZW1:ZX08040:ZY1024"ESC-MENU P-PRINT":H20(A$)2:2:A$:0:I181191:40,I240,I:::3:d(ESC0:A$(27)ESC1:~(A$"P"A$"p"İ58200((X PRINT(_49239,0:49234,0:49232,0:49237,0:(bD$;"PR#1"(g:12525,64:12528,7:12524,0:(17))lD$;"PR(6)"DESCRIPTION":T'*J1$(7)"RETURN TO CONTENTS":J1$(5)"LORENZ ATTRACTOR":N7:H8a'-40000:'PÉ::V8:H1:A$"A MAJOR ERROR JUST HAPPENED":57005:A$"BE SURE THE MASTER DISK IS IN DRIVE 1":57005:A$:H(0:I181191:40,I230,I:::3:V23.8:A$(N5):S3(N4)(N7)<&I1N:V:H:I") "J1$(I):VVS:t&22:I1N1:I;", ";:I:" OR ";N;:" ";:MAX$(N)&26000:21:'(J$"ATTRACTORS":J1$(1)"GINGERBREAD MAN":J1$(2)"SIN ATTRACTOR":J1$(3)"SIN ATTRACTOR II":J1$(4)"HENON ATTRACTOR":J1$Y"Z1ĺ(7);:250209%LcZ1(B$,1)"E"ĺ(7);:25020D%Vc25070J%eq%eESC0:NU0:16368,0:A$:ZA(A$):%eZA49ZA(MAX$)48ĺ(7);:26010%eNU(A$):%@:%J1:M1$;:I218:M2$;:I:M1$%rH121((J$)2):3:H1:J$&|V5(N4)((B$)(MIN$)(B$)(MAX$))ĪNU(B$):NEG$"N":DEC$"N":ESC0:25150Z$b(7);:25020j$b BACKSPACE$bZ1ĺ(7);:25020$b" ";(8);(8);::" ";::(8);:ZZ1:$b(B$)1B$"":25020$bB$(B$,(B$)1):25020$8c NEGATIVE%BcNEG$"0: BACKSPACE%#aAA45ī25400: NEG`#aZ1MAX2((A$)(MIN$)(A$)(MAX$))ĺ(7);:25020# bDEC$"Y"AA46ĺ(7);:25020# bAA43AA57AA47AA44ĺ(7);:25020#4bB$B$A$:A$;:868:Z#>bZMAX:Z:#pb RETURN HIT#zbZ1ī25150H$b @ `@ @ @@ @@0@@ TRANSFERED+ A(3) = PR - PROGRAM NUMBER 0@ @H` lX@#D0@! @  "Interface card instructions contain":57000d",A$"detailed commands for printing graphics":57000",A$"located on Apple's HI-RES PAGE 2.":57000",VV1:A$"A typical print statement is: ":57000",17:1#$,"PRINT ";(34);"CONTROL-I G2RD";(34rd into the program.":57000.!+58000:ESCıB!+ SET OWN LINEJ!+:!+V1:A$"If OPTION 7 (CREATE PRINT COMMANDS) is":57000!+A$"selected, the user may add a single":57000!+A$"program line for any interface card.":57000!+VV1,"+A$he":57000@ +A$"procedure of choosing print commands.":57000~ +VV1:A$"Example: Selecting OPTION 1 (GRAPPLER),":57000 +A$"2 (SILENTYPE) OR 3 (PKASO) enters the":57000 +A$"specific print statement needed for the":57000!+A$"selected ca6f+V1:A$"*** GRAPHICS INTERFACE CARDS ***":57000up+VV1:A$"Graphics interface cards require a print":57000z+A$"statement in a program to define proper":57000+A$"print parameters.":57000 +VV1:A$"A menu of options helps simplify tprint commands may be added":57000T>+A$"to fulfill specific needs.":57000:VV1H+A$"Select the printer set-up from the menu.":57000M+VV1:A$"If no match is found, select option 8.":57000W+58000:ESCı\+ GRAPHICS CARD PRESENTa+:INTOUTS ***":57000O +VV1:A$"Imagewriters, and dot matrix printers":57000+A$"connected to specific graphics interface":57000 +A$"cards, can print high resolution graphs":57000*+A$"while in the program.":57000:VV1#4+A$"Customized "'PB$"REM": DEFAULT VALUE 4'D$(13)(4)Mt'900: READ IN DATA^0* MENU DATA:*M1$"****************************************"D*M2$"* *"** FIRST PAGE*:+V1:A$"*** GRAPHICS PR$;"WRITE PRINTER"A{"PRINT CHR$(4);"(34)"LOAD"(34)";F$"R~"58210"PQ$c"58215"PB$n"RUN"~D$;"CLOSE"J(#MS8PQ$"PRINT D$; "(34)"PR#1"(34)<#MS8PQ$"REM NO CARD"F#' DATA' ** INITIAL VALUESAA28PC$PC$(AA)AAA27ĪPC$PC$" CTRL-"(AA64)" "\AA27PC$PC$" ESC "pPA$(8)6950wI&PC$" "0X SAVE INFOZ9000]D$;"OPEN PRINTER,D1"bD$;"DELETE PRINTER"lD$;"OPEN PRINTER"vD:PA$:PA$(13)ı=PA$(8)(PB$)2ĪPB$"":6900:6010l(PA$)8ĪPB$(PB$,(PB$)1):6900:6020PB$PB$PA$:6900:602020:5(PB$)1ĪPC$"":6950PA$(8)ĪAA(PA$):6920PC$""I1(PB$):AA((PB$,I,1))"REM" :1AV4:A$"Printing line will be - ":57000H5^9:PA$(8):690812:"IS THIS CORRECT (Y/N)? ";:31000AN$"N"ıCARD77000p INPUT ANYTHING ROUTINEzPB$"":PC$"":16368,020:5(PC$)program line which will cause":57000:A$"the current printer and interface card":57000:A$"to print PAGE 2 of hi-res graphics.":57000A$"The line number will be added for you.":570006000 ** END OF OPTIONSCARD8PB$""ĪPB$: ";:MAX$"2":MIN$"1":25000:LC0:NU1LC13Q ** TYPE IN OWN OPTIONS]::V2A$"NEW PRINTER COMMANDS":57000VV2:A$"Type in a single program line":57000A$"of printer commands for graphics dump.":57000A$"Enter the 1:"This sentence is mostly lower case"V6:A$"IF THE ABOVE SENTENCE IS NOT CLEAR,":57000:A$"YOU DO NOT HAVE LOWER CASE DISPLAY.":5700012:1:" 1) LOWER CASE AVAILABLE":14:1:" 2) LOWER CASE NOT AVAILABLE"- 18:1:"YOUR SELECTION (1/2) 3  )LQ3LQ3LQ3&'  d   d 0L3`L8]H HHHH X\ahWoyxhnhVhh sZLsH hLHHPH`HkHxHHHHXhpxhpxhpxhpxhpxhpxhpxhpxnT14>A<G NT14>ET14>eT14>qT14>QT14>pT14>PT14>R ,,bD$;"PR#1"$,g" GRD"+,`ꂦ88)0):V(E):E,207:L$("0000"((218)T(219)),5):L(121)T(122)49:I15:LI,((L$,I,1))::25030:E,V:216,0:82):P2(P13)256(P14):IP2P2LGN1:A(I):A96ĹI,A32L+ނI:A$;:^+ SPACE BAR+ESC0:24:1:" PRESS TO CONTINUE";:A$:(16384)27ESC1++bD$;"PR#1"+g" GRD"`++bD$;"PR#1"+g" GRD"" GRD"::8:1:"THE PROGRAM HAS TRAPPED A MAJOR ERROR."::"PLEASE BE SURE THE MASTER DISK IS IN"::"DRIVE 1 AND IT IS NOT WRITE PROTECTED!"*Zú:"THIS OPTION WILL NOW BE RE-RUN":58000:*ޖ21(A$)2:V:VV2:LCĺA$:>+P1(105)256(106):LGN(P1D8ĺ"NO GRAPHICS"8)11:3:"3) INITIALIZE DATA DISK"[)ؤ15:3:"5) DISPLAY MAIN MENU")⤢13:3:"4) LOWER CASE DISPLAY : ";:LC1ĺ"Available")礭LCĺ"NOT AVAILABLE") 22:1:"NUMBER OF ITEM TO CHANGE : ";:MIN$"1":MAX$"5":25000)*PÉJ$)(B7:3:"1) DATA DISK DRIVE : ";DNO(t9:3:"2) GRAPHICS COMMANDS : ";h(~CARD1ĺ"GRAPPLER+"(CARD2ĺ"SILENTYPE"(CARD3ĺ"PKASO"(CARD4ĺ"SUPER SERIAL"(CARD5ĺ"II C"(CARD6ĺ"II GS"(CARD7ĺ"USER CREATED")CARMAGEWRITER/II GS"4'DJ1$(7)"CREATE PRINT COMMANDS"J'EJ1$(8)"NO MATCH"o'FJ1$(9)"RETURN TO CONTROL PANEL"'PN9:H8:40000'Z' MAIN MENU':'1:M1$;:I218:M2$;:I:M1$'$J$"PROGRAM CONTROL PANEL"(8H121((J$)2):4:H1:S:9&22:I1N1:I;", ";:I:"OR ";N;"? ";:MAX$(N)S&MIN$"1":25000:21:&(J$"INTERFACE SELECTION":J1$(1)"GRAPPLER+"&2J1$(2)"SILENTYPE"&"&*.26:>#'+/37;?#'+/37;?((((PPPP-*(( @0560?05:?DINSX]16;@EJOTY^27CHMRW\aHْ , q hɛhhLߐɠ `, qHH hΔh k`!8xʭix`n譐荏 0dd  MΖΕL`ϒȹ q` Β0 x qLq qLq` q q qLq qLqL` q`Œ q`}ЪΜ },0], J.~~=m MΛ ͍͎L } LLߐHi #i)`,0`Jx,T,U,T(` L8H h,lH)ph`͢͡L  LLHi #i)`,0`Jx,T,U,T(` HHPH`HkHxHHHHXhpxhpxhpxhpxhpxhpxhpxhpxnT14>A<G NT14>ET14>eT14>qT14>QT14>pT14>PT14> 'עɠP%%P&P%P&P%%P&'עPɠ%P&&%&%P&&'עɠP&&P'P&P'P&&P''עPɠ&P'&&P''`עɠ(&&('(&('(&&(''ע(ɠ&(''&'&('''עɠ(''P$('P$(''P$'עPɠ'P$$'$'P$$'עɠP$$P%P$P%P$$P%'עPɠ$P%%$%$P%%ɠ''($'($''($'ע(ɠ'($$'$'($$'עɠ($$(%($(%($$(%'ע(ɠ$(%%$%$(%%'עɠ(%%(&(%(&(%%(&'ע(ɠ%(&&%&%(&&'Bɠ%$%%$'ɠ$%%$%$%%'עɠ%%&%&%%&'עɠ%&&%&%&&'עɠ&&'&'&&''עɠ&''&'&'''ע   z# ȠҠ àϠ ͠ ЮӮҠ Ԡ̠" Πˠ Ӡ̠ ٠ à  נ ԠӠ& àϠӠϠŠ ȱ ˠ ˠ ԮΠ Ӡ+ӠӠ'Ӡ)̠ !͠"ԠȠ٠ˠ ̠ έˠ ȠРŠ.ȠРƵӠ0ȠҠȠɠ ҠŠ Ӡ ˠĠ̠ҠĠ ight":2:A$"rules, controls the production of much":2:A$"more complex molecules.":2:$V23.8:H1::A$"Press any key..."::2:A$:' INITIAL CONDITIONS'IT1:9000'A(42),HN$(21),B(42)'D$(13)(4):I042:A(I)0:I@5'D$(13)(4):ial conditions.":2:A$"Some rules produce complex patterns":2#H1:A$"from the simplest initial conditions.":2:VV1:A$"Cellular Automata are models of many":2X$H1:A$"physical processes. For example, a":2:A$"short portion of DNA, with the rum of its own value and its two":2#A$"neighbors. Each cell evolves following ":2:A$"the same rules. Each rule produces its":2#A$"own unique pattern.":2:9230?#:V1:H1:A$"Some rules tend to produce the same":2:A$"pattern from all init2:A$"Linear Cellular Automata consist of a":2:A$"line of cells. Each cell may be assigned":2:A$"a value of 0,1,2 or 3. Each row of cells":2##H1:A$"represents a new generation.":2:VV1:A$"The evolution of a cell is determined":2:A$"by the sa":H21(A$)2:2G<#V12:H1:A$"Popularized by John Von Neumann":2|F#V15:H1:A$" and Stephen Wolfram":2P#V19:H1:A$"Programmed by John Elberfeld":2:A$"Copyright 1989: EduTech":2:ITıU#9230#:V1:H14:A$"INTRODUCTION":KEYCA,D"DN"D$;"OPEN KEYCA";"23:1:D$;"READ KEYCA"O"NF:NF0ī8770{$"I1NF:HN$(I):HN$(I)(HN$(I),18):IB"D$;"CLOSE"L"50000V"(#::RE0: CREDIT2#230,64:62450:3:1:0::232,0:233,56:V8:A$"Linear Cellular Automat LOWER CASE REMOVED IF NEEDED7! ** WRITE FILE NAMESA!210K!ADD1f!D$;"VERIFY KEYCA,D"DNw!OP$" KEYCA"!D$;"WRITE KEYCA"!NF:I1NF:HN$(I):I!CL$:8780! ** READ FILE NAMES ! ONERR GOTO 210 "23:1:D$"VERIFY "= NEW CELL VALUE"43000:"C=CONTINUE S=SAVE";:yA$:AA(A$):AAAA32(AA96):AA67AA27AA83ĺ(7);:4810AA67AA27ıAA83İ14500:: SAVEl F$"CONTROL DATA":OP$F$",D1":RD$F$:DN:CARD:LC:CL$:: READ PROG DATA :dom line.":57005921000:AA274000: ENTER NEW RULEY12798,0:12799,0:12800,0::I040:12800I,A(I):I:I09:13312I,R(I):I:12288h:21:1:OH140:20900:OH:22:1:958:" 0 1 2 3 4 5 6 7 8 9 = SUM":23:2:I09:R(I)" ";:I:m of the values of the cell and its":57005:A$"two immediate neighbors.":57005: A$"Below each sum enter 0,1,2 or 3 as the":57005:A$"new cell value based on that sum.":57005:A$"Press when done.":57005:A$"Enter 'R' to produce a ran done.":57005:A$"Enter 'R' to produce a random line.":57005^ 20000: ENTER LINE CHANGES 5:1:958:" 0 1 2 3 4 5 6 7 8 9 = SUM":6:2:I09:R(I)" ";:I:"= NEW CELL VALUE"Q V8:H1:A$"The new value of a cell depends on the":57005:A$"suour starting values by typing":57005:A$"the numbers 1, 2 or 3 in the spaces":57005:A$"in the line above. A space with no":57005 :A$"number receives a '0' value.":57005:A$"Use arrow keys to move down the line.":57005> A$"Press when 50000 # ::V8:H1:D 24:1:868:: BOTTOM LINEc  START CELLULAR AUTOMATON ::1:A$"CELLULAR AUTOMATON-LINEAR FORMAT":21(A$)2:A$ 3:1:I140:I:A(I)0A(I)4ĺA(I); A(I)0ĺ"-"; I V5:H1:A$"Enter yD1" 3288:260:A$"DATA DISK is expected to be in Drive "(DN):57005:A$"Put DATA DISK in Drive "(DN)" or":57005:A$"reboot system and change Program Control":58000::225 3288:260:A$"MASTER DISK must be in Drive 1 now":57005:58000:A% 26000A$"X":5)(A$)0ıbPY(V1)88:PX(H1)7:99PX,PY:16208:VV2:H1:z50000: SAVE LIFE10000:IT0:241000:NU4000,14000,9000,200F50220 260:A$"Loading Disk Contents...":57005:D$"RUN CONTENTS,                   (I)B((2)I):10269(XNMIN)(MAXMIN),180170(XOMIN)(MAXMIN):XOXN:(16384)155I2000iHI 11000:: FINISHED HENON TITLE$"SIN ATTRACTOR : T = 1,2,3...":EQ$"X(N+1)=ASIN(T)+BSIN(2^.5*T) Y(N+1)=X(N)":11010::SV$"1, 2":11060:".000":MAX$"2.0000":NEG$"N":DEC$"Y":NUA:25000:ANU:ESCı1:7:"ENTER B VALUE (0 TO 2) : ";::MIN$(.000):MAX$"2.0000":NEG$"N":DEC$"Y":NUB:25000:BNU:ESC2000MAX(A)(B):MINMAXb411020:11050:SI1:7800:SI0:XO0:I12000:XNA2:H2:V23.8:A$MI$:2:V23.8:H39(MA$):A$MA$:2:A  SIN I TITLE$"SIN ATTRACTOR : T = 1,2,3...":EQ$"X(N+1)=ASIN(T) + BSIN(2T) Y(N+1)=X(N)":11010::SV$"1, 1.5":11060:A2B2A2B2A1:B1.5>1:5:"ENTER A VALUE (0 TO 2) : ";::MIN$TY"::"PLEASE CHOOSE OTHER A AND B VALUES":A$:OVER1: MI$((MIN100.5)100):MA$((MA100.5)100)::V1:A$EQ$:H40(A$):2 :V23.8:A$"X0="(X0)" Y0="(Y0):H20(A$)2:25 10,1010,180279,180:H1:V2:A$MA$:2:H1:V22.5:A$MI$:# [MAX1E10MI1E10I999:1700:< ](16384)155I999N `I:OVER7000 11050:1800:I1999:10269(X(I)MIN)(MAXMIN),180170(X(I1)MIN)(MAXMIN):(16384)155I999 I 11000:: FINISHED8 ::8:1:"X IS APPROACHING INFINI0NU:ESCı 1:11:"ENTER Y(0) VALUE (-2 TO +2) : ";:MIN$(2):MAX$"2.000":NEG$"Y":DEC$"Y":NUY0:25000:Y0NU:ESC1000 L11020:X(1)X0:X(0)Y0:MI0:MA0:OVER0:I1999:X(I1)1X(I1)(X(I)):X(I1)MIMIX(I1): VX(I1)MAXMAXX(I1):  HENON TITLE$"GINGERBREAD MAN":EQ$"X(N+1)=1-X(N-1)+ABS(X(N)) Y(N+1)=X(N)":11010::SV$"-.1, 0":11060:X00X02X02Y02Y02X0.1:Y00 1:9:"ENTER X(0) VALUE (-2 TO +2) : ";:MIN$(2):MAX$"2.000":NEG$"Y":DEC$"Y":NUX0:25000:X" 24577A$"X":A$:5-(A$)0ıfPY(V1)88:PX(H1)7:99PX,PY:16208:VV2:H1:} ONERR GOTO 500001000041000 NU1000,2000,3000,7000,6000,9000,2007 ::8:1:"LOADING DISK CONTENTS...":D$"RUN CONTENTS"                    -CONTROL PANEL";:23:21W %A$:A$"H"A$"h"A$(27)A$(32)ĺ(7);:2080] 'c 3 230,64:62450:::::SE$" ":TI$"CHAOS PLUS...":A1$"JOHN ELBERFELD":A2$" ":CR$"1989". RE$"7/91 ":LE(TI$):V682:21LE22:V:H1LE4:"se.":57000G A$" IF THE REST OF THIS PAGE CAN NOT BE":VV1:57000 A$"READ, YOU MUST INDICATE THAT LOWER CASE":57000 A$"IS NOT AVAILABLE - PRESS THE KEY.":57000 23:9:" - MAIN MENU"; "24:1:"-HELP HELP":V1::57000L A$" Pressing the runs the":VV1:57000t A$"main menu for the disk.":57000 A$" Pressing the key runs a program":VV1:57000 A$"which allows you to describe the":57000 A$"hardware set-up in uĉ::10:1:"LOADING PROGRAM CONTROL PANEL...":D$;"RUN SET GRAPHICS"Q 2000Z 230| F$"CONTROL DATA": READ DATA D$;"OPEN ";F$ D$;"READ ";F$: DN:CARD:LC D$;"CLOSE"   HELP SCREEN :: A$"INTRODUCTION AND$"BLOAD MACH CP (3F50),A$3F50"+ f3:1:0> D$(13)(4):b D$;"BLOAD MACH CLEARGR,A$3700" D$;"BLOAD STANDARD,A14336" 232,0:233,56: 3000 " " A$(32)ĉ::10:9:"LOADING MAIN MENU...":D$"RUN CONTENTS"G A$(27) 2457738100) TITLEJ PROGRAMS BY JOHN ELBERFELDh COPYRIGHT 1989: EDUTECH REVISION NOV 11, 89--JKE230,64:62450:230,32:62450:49234,0:49239,0:49232,0: CLEAR HGR  D$(13)(4):1000d5000: eD       LLߐ m m mm  m m  ڏ}}\H)?%) hJJJe = Θ0Μ߭}H)?%) hJJJe̋`͌V = Θ0Λ߭ ΞΝ0Λ ΞΝ,0], J.~~=m MΜ}L 0$̋͌L@ ȹΩȹȹ ,0L8~m~imm m m ΊΉ  ڏh +2h 2h 2 2 L[3E2!2d%D22C2B2A2 @2 )212 W12122 2 2 +0:LA302122 2 +)2)2(22 2 2 +LA3`3L  0 `33 +`2 2 +2 2 +0212)2 2!2`2h2 2 +!2ʎ!2L"42` 2P +2h 2X +2P 2X 2p +2X 2P 2p 2 2` +2` 2` 2 +2P 2X 2 +2 2 2 2 GAME OF LIFE":J1$(6)"RANDOM WALKS":J1$(5)"FRACTAL LINES":J1$(3)"GRAPHS OF CHAOS":J1$(4)"ATTRACTORS":J1$(7)"THE MANDELBROT SET":0:J1$(9)"END":J1$(8)"THREE BODY ORBITS":N9:H7:40000:20"THREE BODY ORBITS":N9:H7:40000:232$;:I:M1$:H121((J$)2):4:H1:J$:V6(N4)(N5):S3(N4)(N6)nEI1N:V:H:I") "J1$(I):VVS::J22:I1N1:I;", ";:I:"OR ";N;"? ";:MA$(N):NU1:PS3:MI$"1":25000:21:(J$"DISK CONTENTS":J1$(1)"CELLULAR AUTOMATA":J1$(2)"THERAVITY.":F$"TBODY":D$"EXEC PRINTER": 'D$(13)(4):M1$"****************************************":M2$"* *": a: a16368,0:A$:(A$)1(A$)(MA$)ĺ(7);:25010 aNU(A$):G@::1:M1$;:I218:M:10:9:"INSERT YOUR NEXT DISK":12:10:"AND PRESS ,":14:8:"OR TURN THE COMPUTER OFF.":16368,0 (16384)155Ĭ (16384)1414820 D$;"PR#6"' $::5:1:"THREE BODY ORBITS SHOWS THE MOTION OF"::"THREE MASSES AFFECTED BY GATTRACTORS DEMONSTRATE THAT ORDER MAY"::"EXIST IN SITUATIONS THAT SEEM RANDOM.":F$"ATTRACTORS":D$"EXEC PRINTER": \::5:1:"THE MANDELBROT SET DRAWS FRACTAL IMAGES"::"IN BOTH LOW AND HIGH RESOLUTION."::F$"FRACTALS":D$"EXEC PRINTER":m :VERY LINE SEGMENT"::"IN A FIGURE."::F$"FLAKE":D$"EXEC PRINTER": ::5:1:"CHAOTIC CHANGES OCCUR TO GRAPHS WHEN"::"VERY SMALL CHANGES ARE MADE TO"::"PARAMETERS USED IN THE ITERATION PROCESS"::F$"GRAPHS":D$"EXEC PRINTER":u ::5:1:"RTANCE OF INITIAL CONDITONS."::D$;"RUN LIFE" :5:" 'RANDOM WALKS' SIMULATES THE "::"CREATION OF FRACTAL LINES FOUND IN"::"MANY NATURAL SITUATIONS."::D$"RUN WALK"E 0::5:1:"FRACTAL LINES ARE CREATED BY REPEATING"::"A SIMPLE CHANGE TO E 2457738000^::10000:41000:NU4100,4200,4500,4600,4400,4300,4700,4900,4800:5:"CELLULAR AUTOMATA INTRODUCES A METHOD"::"OF CREATING COMPLEX PATTERNS."::D$;"RUN CELLS". h:5:" THE GAME OF 'LIFE' DEMONSTRATES THE"::"IMPO     "WRITE":CL$D$"CLOSE":BL$D$"BLOAD":83006'C(39)O'D$(13)(4):SP155d$'D$"BLOAD USRND"m.'7563'D$"BLOAD SWALK"8'D$"BLOAD RWALK":D$;"BLOAD MACH CLEARGR,A$3700"6t'C(0)4:C(1)14:C(2)6:C(3)7:C(4)3:C(5)1:C(6)9:C(7)11:C(8)13:C(rostatic discharge, electrochemical":2:A$"deposits, and fluid-fluid displacements.":2:VV1:A$"The circle resembles soot in a chimney.":2:$V23.8:H1::A$"Press any key..."::2:A$:+'IT1:9000:D$(13)(4):OP$D$"OPEN":RD$D$"READ":WR$D$A$"Sticky blocks move until they hit and":2:A$"stick to another block on the screen.":2:A$"The patterns formed are FRACTALS.":2#V8:H1:A$"This Diffusion Limited Aggregation (DLA)":2:A$"simulates natural shapes found in ":2$:H1:A$"electanders aimlessly across the":2:A$"screen. In these programs, blocks that":2#A$"hit the side of the screen bounce back.":2:VV1:A$"Particles suspended in a liquid display":2#A$"Brownian Motion-a special Random Walk.":2:9230#:V1:H1:#9230::V1:H14:A$"INTRODUCTION":2:A$"A square going on a RANDOM WALK moves":2:A$"in steps of exactly one block in 1 of 4":2:A$"directions. The direction - up, down,":2N#H1:A$"left or right, is selected randomly.":2:VV1:A$"The block w770/$"I1NF:HN$(I):HN$(I)(HN$(I),18):I:B"CL$:P(#::RE0: CREDIT2#230,64:62450:3:1:0::232,0:233,56:V8:H7:A$"Random Walks and FRACTALS":2P#V19:H1:A$"Programmed by John Elberfeld":2:A$"Copyright 1989: EduTech":2:ITıEXT:1994::::Tl F$"CONTROL DATA":OP$F$",D1":RD$F$:DN:CA:LC:CL$:^!210!AD1:D$;"VERIFY KEYRW,D"DN:OP$"KEYRW":WR$;"KEYRW":NF:I1NF:HN$(I):I:CL$:!210"D$;"VERIFY KEYRW,D"DN:OP$"KEYRW":RD$;"KEYRW":NF:NF0ī868,0:A$:AA(A$):AAAA32(AA96):AA67AA27AA83ĺ(7);:2810X AA27ġ:2130e AA67ı AA83İ14500:2800: SAVET 3000:"ESC-END F-FREEZE";:24:31:"DOT:";:24:36:T;: 24:1:868:: BOTTOM LINE:1:1:958::: TO TCAA70AA27AA8AA10AA11AA21ĺ(7);:2100UHAA70İ2800:2900:2100RAA27İ3000:"END WALK (Y/N) : ";:A$:A$"Y"A$"y"İ2800:2900:2010\4000: 3000:"ESC-MENU C-CONTINUE S-SAVE";:24:31:"DOT:";:24:36:T;:E 163ANG)):7,(2019(ANG)):2050G RW3X(32(1)1):6,X:7,1:2050n RW4Ĺ6,20:7,20:20,20)0İ2800 COLC((T35)):25,COL:COL:TT1:T350İ2800 412288 924:36:T;:(16384)128ī2010 >16368,0:AA(16384):AAAA32(AA96)8:3086::14080:49235,0:958:7:RW2č20,20:2005N RW3Ď0,3939:2005 RW4āI06.29.05:X(2019(I)):Y(2019(I)):X,Y:I 34,23:T0:2900 202,((9)256):203,((9)256):768: SEED RW2ANG23.14159(1):6,(2019(AA96):AA84AA27AA8AA10AA11AA21ĺ(7);:1020_ AA84TRTR:26,TR10:1020l AA27ı $SPSP50(AA11AA21)50(AA8AA10):SP1ĺ(7);:SP5 .SP255ĺ(7);:SP255 827,SP:1020  SINGLE DOT5 RWNU::21:1:230,642 202,((9)256):203,((9)256):768: SEED :21:1:230,64:3086::14080:49235,0:958:15:6,20:7,20:25,15:26,10:27,0:T0 3000:"ESC-MENU T-TRAIL ARROWS-SPEED";: 13056:(16384)1281020= 16368,0:AA(16384):AAAA32(288:::8:1:"DATA DISK IS EXPECTED TO BE IN DRIVE ";DN::"PUT DATA DISK IN DRIVE ";DN;" OR"::"REBOOT SYSTEM AND CHANGE PROGRAM CONTROL":58000:: 3288:D$;"PR#0":::8:1:"MASTER DISK MUST BE IN DRIVE 1 NOW":58000::  START BASIC WALK 24580A$"X":5)(A$)0ıbPY(V1)88:PX(H1)7:99PX,PY:16208:VV2:H1:r10000:IT0}41000 NU1000,2000,2000,2000,14000,9000,2007220::8:1:"LOADING DISK CONTENTS...":D$"RUN CONTENTS,D1" 3          NF:HN$(I):I:CL$:8780#!210a"D$;"VERIFY KEY,D"DN:OP$"KEY":RD$;"KEY":NF:NF0ī8770$"I1NF:HN$(I):HN$(I)(HN$(I),18):IB"CL$L"50000V"(#::RE0:230,64:62450:3:1:0::232,0:233,56:V8:H11:A$"The Game of LIFE":22800  AA83İ14500:2800g T 3000:"ESC=END F=FREEZE ARROW=SPEED";:24:31:"TIME:";:24:36:T;:z 24:1:868: l F$"CONTROL DATA":OP$F$",D1":RD$F$:DN:CA:LC:CL$:8780 !210!AD1:D$;"VERIFY KEY,D"DN:OP$"KEY":WR$;"KEY":NF:I144:942,254:938:: Z LO,N(N256)256:LO1,(N256): 3000:"C=CONTINUE P=PRINT S=SAVE";:24:31:"TIME:";:24:36:T; A$:AA(A$):AAAA32(AA96):AA67AA27AA80AA83ĺ(7);:2810 AA27ġ:2130  AA67ı  AA80İ60000:)1) FAA27TM1ĺ(7);:TM11 GAA27ī2100N HAA70İ2800:2900:2100 RAA27İ3000:"END GAME (Y/N) : ";:A$:A$"Y"A$"y"İ2800:2900:2100 \: ( N9216:LO60:2650:N10191:LO62:2650:N1024:LO66:2650:938,160:939,0:940,76:941,,23:T0:2800:2900d 412288:12800:12544:2600:TT1:24:36:T;:SP1TM::(16384)128ī2100 >16368,0:AA(16384):AAAA32(AA96):AA70AA27AA8AA10AA11AA21ĺ(7);:2100 EAA27TM(TM(500(AA8AA10))(500(AA11AA21)ENTS,D1" 3288:260:A$"Put DATA DISK in Drive "(DN)" or":57005:A$"reboot system and change Program Control"::57005:58000::225 3288:260:A$"MASTER DISK must be in Drive 1 now":57005:58000: 50000 ::V8:H1: 3424576:A$"X":5%(A$)0ı^PY(V1)88:PX(H1)7:99PX,PY:16208:VV2:H1:j50000z10000:IT0241000::NU20000,14000,9000,200:REİ2000F50220205 260:A$"Loading Disk Contents...":57005:D$"RUN CONT        ! ENU";DD 24:1:"-HELP -CONTROL PANEL";:23:21QN 49239,0X A$:A$"H"A$"h"A$(27)A$(32)ĺ(7);:3160b %3:I047:0,39I:::7:5:"@000000000000000000000000000000@":5:"@3@000333C333300@0033333333C333@":5-";:H:V:7:19LE2:"-";:22LE2:"-";:V3 A$SE$:57000:V7:A$TI$:57000:V10:A$"BY":57000:V12:A$A1$:57000:V14:A$A2$:57000 V16:A$"VERSION "RE$:57000:V21:A$"(C) COPYRIGHT "CR$": EDUTECH":57000: 23:9:" - MAIN MLOR FLAG IF MAGNITUDE > 2' _XXN:YYN. dNB NU100Ġ6:200U NU50Ġ5:200g NU9Ġ4:200y NU5Ġ3:200 NU3Ġ2:200 NU1Ġ1:200 NU1Ġ15 HO,VE VE HO R,0OPSTP: SET UP HORIZONTAL COORDINATESd (VE0YHIGH:QQFIRSTVEQSTP: SET UP VERTICAL COMPONENTS 2X0:Y0:0:NU0: INTIAL VALUES OF X AND Y, AND COLOR <N1150 FXNX2Y2P PYN2XYQ Z(XN2YN2)2NUN:N150: END LOOP AND SET CO L   9`PL +...8HHHHhhhhhhhhۅ . i8   ` L#0:7000:CA5:@PB$"PRINT D$;"(34)"BLOAD IIGS INFO,A$8A00,D1"(34)":PRINT D$;"(34)"BLOAD DUMP.HIRES.R,A$8C00"(34)":CALL35840":E:V10:A$"II GS SELECTED":57000:7000:CA6:NO GRAPHICS:V10:A$"COMPUTER LACKS INTERFACE CARD":A$"SUPER SERIAL SELECTED":57000:7000:CA4:PB$"PRINT D$;"(34)"BLOAD IIC INFO,A$8A00,D1"(34)":PRINT D$;"(34)"BLOAD DUMP.HIRES.R,A$8C00"(34)":CALL35840: PRINT CHR$ (9) CHR$ (76) CHR$ (32) CHR$ (69)":V10:A$"II C SELECTED":5700ARD2: PKASO =PB$"PRINT"(34)(9)"3H"(34)c(:V10:A$"PKASO SELECTED":57000v27000:CARD3:xPB$"PRINT D$;"(34)"BLOAD SSC INFO,A$8A00,D1"(34)":PRINT D$;"(34)"BLOAD DUMP.HIRES.R,A$8C00"(34)":CALL35840":/}:V10PLER INTERFACE 6VPB$"PRINT"(34)(9)"G2"(34)``:V10:A$"GRAPPLER+ SELECTED":57000sj7000:CARD1:SILENTYPEPB$"PRINT:POKE-12525,64:POKE-12528,7:POKE-12524,0:PRINT CHR$(17)":V10:A$"SILENTYPE SELECTED":570007000:CCARDLC D$;"CLOSE"&8 WRITE DATASF$"CONTROL DATA":300[:nD$;"OPEN ";F$D$;"DELETE ";F$D$;"OPEN ";F$D$;"WRITE ";F$DNCARDLCD$;"CLOSE" PRINTER COMMANDSL ** GRAPN DISK""(4);"EXEC PRINTER"::  PRINTER SELECTIONB%:M'11000X*41000b/MSNU4NU1100,1200,1300,1400,1500,1600,4000,1800,850>R: READ DATAF$"CONTROL DATA":300D$;"OPEN ";F$D$;"READ ";F$DN13:6:" 4) DATA DISK IN DRIVE 4"i 22:1:"SELECT DRIVE (1/4) : ";:MAX$"4":MIN$"1":NUDN:25000t ESCı DNNU:  ** INITIALIZATION :A$"LOADING INITIALIZATION PROGRAM":V8:57000 F$"CLEAN DISK":300950:F$"CLEA and DATA MAY BE LOST.":57000- 58000::8 ESCı[ 1:M1$;:I218:M2$;:I:M1$ V3:A$"*** DATA DISK DRIVE ***":57000 7:6:" 1) DATA DISK IN DRIVE 1" 9:6:" 2) DATA DISK IN DRIVE 2" 11:6:" 3) DATA DISK IN DRIVE 3"% will":57000w A$"avoid swapping data and master disks,":57000:A$"a process required in a 1 drive system.":57000 VV1:A$"If a drive is selected, but the drive is":57000 A$"not connected, the program will not":57000:A$"function properlyER2 b::V1:A$"*** DATA DISK DRIVE ***":57000p lVV1:A$"Data may be saved on a data disk placed":57000 vA$"in drives 1, 2, 3, or 4 (IF THERE).":57000 {A$"Only a single slot may be used.":57000 VV1:A$"Using a second drive for data950: SAVE DATA + D$;"RUN CONTENTS"1 ; ,350Y 110:D$;"VERIFY";F$;",D1"_ 6l ^::V8: h8:1:"INSERT THE MASTER DISK IN DRIVE 1 NOW." r24:1:" PRESS TO CONTINUE";:16368,0:A$ w X CHANGE DRIVE NUMB# SET GRAPHICS) JOHN ELBERFELDE REVISED NOV 11, 1989Q50000\A$"X"g 10000y 42000: MENUNU600,800,700,2000,20010 ** RETURN TO MAIN MENU:A$"Loading Main Menu...":V10:57000:F$"TITLE":300               h +2h 2h 2 2 L[0E2!2d%D22C2B2A2 @2 d)212 121202 2 2 +0:LA002122 2 +)2)2(22 2 2 +LA0`0L  0 `00 +`2 2 +2 2 +0212)2 2!2`2h2 2 +!2ʎ!2L"12` 2P +2h 2X +2P 2X 2p +2X 2P 2p 2 2` +2` 2` 2 +2P 2X 2 +2 2 2 2 S TL8H hlxH)0h(`MYDEN-iHT IT! *:z YOU MAY RE-NUMBER THESE LINES AND CHANGE THE VARIABLE:868:"20 FILES MAXIMUM - DELETE A FILE";:A$:a824:1:868:"FILE NAME: ";:F$:(F$)0ı8F$(F$,10)::FO0:F$"DA."F$:I1NF:F$HN$(I)INF:FO1:ES18I:FOHN$(NF1)F$:NFNF1:86008D$"BSAVE";F$;",A$400,L$400,D"DN:^934,0:"NO FILES TO RECALL":V16:57000:58000:J816:4:"NUMBER OF DATA FILE TO RECALL: ":16:35:MI$"1":MA$(NF):PS2:NU1:27000:ESıT8F$HN$(NU):D$"BLOAD"F$",A$400":RE1:824:1:"PLACE DATA DISK IN DRIVE "DN;:A$:NF0İ870018NF19Ģ24:1ELETE: ":16:35:MI$"1":MA$(NF):27000:ESı7:" DELETE ";(HN$(NU),(HN$(NU))3);" (Y/N) ";:AN$:AN$"Y"AN$"y"ı7F$HN$(NU):D$;"DELETE ";F$:INUNF1:HN$(I)HN$(I1):I:NFNF1:8600:::8NFNF1:8600:::)@8:NF0A$" 4) DISPLAY MORE FILES":MA5X722:1:" YOUR SELECTION : ";:25000:ESĉ::7NU14400,14300,14280,14800:ADī140157REı7142007:7:NF0A$"NO FILES TO DELETE":V16:57000:58000:/716:4:"NUMBER OF DATA FILE TO D(DN)::57000:A$"during file work.":57000:58000:16:ESCġ:H6210b6D$;"VERIFY KEY,D";DN6:F1$"KEY":8700:AD0:EN0:14800!x734,15:16:1:958:" 1) RECALL A FILE":" 2) DELETE A FILE":" 3) RETURN TO LIFE MENU":MA3:NF20ĺ00:BL$"SETTEXT,A$3100":BL$"NEIGH1,A$3200":BL$" CLEARMEM,A$3000":3:1:0:232,0:233,56'M1$"****************************************":M2$"* *":6::ES0:RE0>6::V8:A$"Keep the Data Disk in Drive " the starting pattern may have an":2:A$"overwhelming effect on the final result.":2$V23.8:H1:A$"Press any key...":2:A$:Z'IT1:9000:HN$(21),A(40,24):D$(13)(4):OP$D$"OPEN":RD$D$"READ":WR$D$"WRITE":CL$D$"CLOSE":BL$D$"BLOAD":832:A$"the same growth patterns and final":2:A$"results when confined to the same area.":2:V8:H1:A$"Many different initial conditions can":2:A$"produce the same final results.":2:V13:H1V#A$"LIFE demonstrates how a slight variation":2:A$"in2:A$"0,1,4,5,6,7 or 8 neighbors will die.":2:A$"A living cell with 3 neighbors will":2:A$"survive. An empty cell experiences birth.":2:A$"A cell with 2 neighbors shows no change.":2:9230::V1:H1#A$"The same initial conditions ALWAYS have":DUCTION":2:A$"The Game of LIFE deals with living and":2:A$"empty cells, and the rules controlling":2:A$"the birth, survival and death of a cell.":2:V10:H1:A$"The number of neighbors around a cell":2#A$"control its fate. A living cell with"::V12:H1:A$"Devised by John Horton Conway, 1970":2:V15:H1:A$"Popularized by Martin Gardner":2:V16:H1:A$"Scientific American":2:V19:H1)#A$"Programmed by John Elberfeld":2:A$"Copyright 1989: EduTech":2:ITı#9230::V1:H14:A$"INTRO:"@3@CC33CC@3C3C33@33C333CCC3@CC3@":5:"@3@CCC3@C@3@C@33@33@@C3@CC3@3@3@":5:"@CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC@"::49238,0:Pìޖ21(A$)2:V:VV2:A$:27>7 7 777`-7,7,7-7-7`(PH,PV)32YOOH:OV:(A(OH,OV));:PH:PV::(A(PH,PV));::PH:PV:OHPH:OVPV:20320_Oea:aES0:NU0:16368,0:A$:ZA(A$):ZA49ZAMA48ĺ(7);:25010aNU(A$):xiES0:B$"":C0:SH0:HO(36)1:VO(37)1:NU5 iA$:AA(A$):AAOAA7920290]OAA82İ3000:"DESTROY CURRENT SCREEN (Y/N) : ";:A$:A$"Y"A$"y"20290OAA82İ3000:"RANDOM LIFE DENSITY (1/9) : ";:MA9:25000:I1NU96:122(9):238(9):"*";::RE1:20290OAA56AA42AA58A(PH,PV)42 OAA32AVPV(AA10)(AA77)(AA11)(AA73):PHPH(AA21)(AA75)(AA8)(AA74):PVPV(PV0)(PV24):PHPH(PH1)(PH40):AA27AA80AA112ĺ(A(OH,OV));:20410OAA79Ģ24:1:868:"DESTROY CURRENT SCREEN (Y/N) : ";:A$:A$"Y"A$"y"İ14000:RE20290 :G N3000:"ONE MINUTE...";:H140:V124:A(H,V)32:V:H:::RE1BO3000:"P=PLAY *=LIFE -> =MOVE R=RANDOM O=OLD";:10:10:OV10:OH10::(32);::OH:OV`OPH(36)1:PV(37)1:(16384)12820320tO16368,0:AA(16384):AAAA32(AA96):P:V1:A$"*** DATA ON THIS DISK ***":57000:NF0A$"NO FILES ON THIS DATA DISK":V4:57000:w9SN1:ENNFSNEN19H1:14900:ENNFı:SNEN1:H20:149004:ENSN9:ENNFENNF>:V1:ISNEN:H:3V:I;": ";(HN$(I),(HN$(I))3):VV1:I24576:A$"X":A$:5)(A$)0ıbPY(V1)88:PX(H1)7:99PX,PY:16208:VV2:H1: ALAN CROMER-JKE NOV 8910000:IT041000::NU20,9000,86::8:1:"LOADING MAIN MENU...":D$"RUN CONTENTS"D$(13)(4)      --u -)>--75w-Nm)>7m)>wmuMm)>7m)?wuI1m)>7m)>??.MuMm)?w?m)NMm)>7m)>?w ?oI-----u) -7w5w-N65757575o-75*uIRm)>7m)>7--oII?--5??7--5??7--5??7--u@@@C?.- ??N -5?*m ->??w- -*m ->??w--75w-u1I)>*-5;.M5;--NR-;.-w--N -7m:?w57uIR-->7m)>?w ?oI57--;.M5;.MuN*>.>.N5 ->.>.?M .57m?7-?7mu6->.>.>-u m)>??.M5;.Mu---;.M5;.Mu3R-;.M5;-u ---;.M??.>MIR-->7m)>?w 5om;757uIRR-w-3)-;.M:?N)>w-u --;.>.>.N m)>7m)>7m)>w-u m)>7m)>7m)?wuI3m)>7m)>7--5??7m)Nsm)>w--;.Mu1m)>w-757uI--57--u---;.>.>.-u5wwwu--->.>.>*-u7I?--???N->7->oI I??MI 5wRRR--->w--N57--;.M5;.-u 3R--7m??.>.--N--7m??.>.NI)-;.>. ->w-u 3m)>7m)>??.M5;.Mu6-7575-u1I)>.>.>w-u m)7-?.-7m)N-575757--u7m)>??.-->7m)>7m)N3m)>7- 5?7m)>7m)N3)-;.M5;.M5;-u 3--;.M??.>.NI3)-;.M5;.M5?w-o3--;.M??.-7m)N.--7--75;-u -޿m??.M5;-u ---557uI-)-;.M?m)>w-u )-;.M5??N)*uI** RRw:.o Iwwu---ޛ-- *wuI.)-;N)7*N 7 ->7->*--??-M )-;.M5;.-->7m)N3--;.M??.M5;.-u 3)-;.>.M;-u n--;.M5;.M5;.-u 7mu ? m:?-?w-??NuIm;N)m;N u-)-;.M;-m;w--o 57 57wuw57uImm w-???N-m u.I:.??w)>VI:J:.o R?RIuII:uII)-;.M5;.M5;-u ?)5?w)>.>--N)-;N ?7--u>--57?N5;-u I->?m5;.-->.Nad(?FQ\q"/CW^hs~!3HTbu3G]o~,;N`jx 0APcp}" 5757*Nnm57MR ) 5------     368,0:58000:16368,0:; (16384)155Ĺ16368,0:14000E 1200P I13h XP(CXX(I,1)140) YP(CYX(I,2)90) XP0YP0XP279YP1912026 XP,YP  TXTXD  K12 D(1,K)X(2,K)X(3,K) D(2,K)X(3,K)K  GOSUB 3000% AA(16384)A AA160Ĺ16368,0:1200p AA208AA240Ĺ16368,0:58000:16368,0: AA155Ĺ16368,0:14000 2000 1000  CHECK KEY BOARD (16384)160Ĺ16368,0:1185 (16384)208(16384)240Ĺ16I,1)2D(I,2)2! )R(I)S(I)1.55 +R(I)0.015000; .F 8K12t BA(1,K)G(2)D(3,K)R(3)G(3)D(2,K)R(2) LA(2,K)G(1)D(3,K)R(3)G(3)D(1,K)R(1) VA(3,K)G(1)D(2,K)R(2)G(2)D(1,K)R(1) `I13 jV(I,K)V(I,K)A(I,K)D ~I  16368,0 2000" 3000- I138 K12W V(I,K)V(I,K)A1(I,K)DHAa K:Ig r K12 I13:X(I,K)X(I,K)V(I,K)D:I D(1,K)X(2,K)X(3,K) D(2,K)X(3,K)X(1,K) D(3,K)X(1,K)X(2,K) K I13 $S(I)D(HALF.5 E.000001 2200 CX10:CY9.69 #NK1C (7000I *[ +NK1K139.6l .G(2)K1G(2)} /G(3)K1G(3) 0G(1)K1G(1) ::230,64:62450:3:1:0::232,0:233,56 3 V23.8:H1:A$"BAR:STOP/START ESC:RESET P:PRINT":2P AND SET COLOR FLAG IF MAGNITUDE > 23 _XXN:YYN: dNN NU100Ġ6:200a NU50Ġ5:200s NU9Ġ4:200 NU5Ġ3:200 NU3Ġ2:200 NU1Ġ1:200 NU1Ġ15 HO,VE VE HO POPSTP: SET UP HORIZONTAL COORDINATESd (VE0YHIGH:QQFIRSTVEQSTP: SET UP VERTICAL COMPONENTS 2X0:Y0:0:NU0: INTIAL VALUES OF X AND Y, AND COLOR <N1150 FXN(XY)(XY)P PXYXY:YNXYXYQ% Z(XNXNYNYN)4NUN:N150: END LOO MANDELBROT SETY PFIRST2:PLAST1.2:QFIRST1.2:QLAST1.2: SET UP COORDINATESoXWIDE39:YHIGH47PSTP(PLASTPFIRST)XWIDE:QSTP(QLASTQFIRST)YHIGH: SET UP STEPS:49234,0:1998: SET UP LO RES GRAPHICS& HO0XWIDE:PPFIRSTHA$:[,`3000:"IS THE PRINTER READY (Y/N) : ";:A$:3000:A$"Y"A$"y"ı: SCREEN DUMP,j24:31:"TIME:";:24:36:T;:20:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:-ZWZW1::ZY:ZX:D$;"PR#0":16368,0VV2:LCĺA$;:p"P1(105)256(106):LGN(P12):P2(P13)256(P14):IP2P2LGN1:A(I):A96ĹI,A32~"ނI:A$;:"3000:"PRESS TO CONTINUE...";:A$:"`3000:"IS THE PRINTER READY (Y/N) : ";:A$:3000:A$"Y"A$"y"ı#j"RECALL STARTING PATTERN":J1$(3)"DESCRIPTION":J1$(4)"RETURN TO DISK CONTENTS":N4:H8:40000:!Pð260:A$"A major error just happened":57005:A$"Be sure the MASTER DISK is in Drive 1":57005:58000:!H21(A$)2:H:V:VV2:LCĺA$;:"ޖH:V:@::1:M1$;:I218:M2$;:I:M1$:H121((J$)2):4:H1:J$:V6(N4)(N5):S3(N4)(N6):I1N:V:H:I") "J1$(I):VVS::22:I1N1:I;", ";:I:" OR ";N;:" ";:MA(N):25000:21:a!(J$"GAME OF LIFE":J1$(1)"CREATE STARTING PATTERN":J1$(2)27ES1:RiC(MA$)AA13ĖHO:VO:I1(MA$):" ";:I:HO:VO:(7);:27000hiAA13C0ES1:iAA13(B$)(MI$)(B$)(MA$)SH1:NU(B$):i(AA48AA57)ĖHO:VO:I1(MA$):" ";:I:HO:VO:27000iB$B$A$:A$;:CC1:27020 iii΀0G ?  ? ]ۭ8m荃ȱ荄mm  `RWPT`TQ`X(1)SND4:X(3)X(2):X(4)X(1)SND2:X(6)X(4):X(5)X(4):X(7)X(1)SN3D4:X(8)X(7)X(1)X(9)SN(12(Y(1)Y(9))):Y(2)Y(1)SND4:Y(3)Y(2):Y(4)Y(1)SND2:Y(6)Y(4):Y(5)Y(4):Y(7)Y(1)SN3D4:Y(8)Y(7)RX(1)X(9)SN(12(Y(1)Y(9))):X(000:: SQUARESMX(1)C(P,0):Y(1)C(P,1):X(9)C(P1,0):Y(9)C(P1,1)sD((X(9)X(1))2(Y(9)Y(1))2):Y(1)Y(9)SN(12(X(1)X(9))):Y(2)Y(1):Y(5)Y(1):Y(8)Y(1):Y(3)Y(1)D4SN:Y(4)Y(3)::Y(6)Y(1)SND4:Y(7)Y(6)XY(1)Y(9)X(2)2,1)95::P1::3:C(1,0),C(1,1)C(2,0),C(2,1)::A$"L = ""100":V23.8:H30:2:58000:jK02:ERASEĐ{ESCK2::P18K:2050:P:K2āJJ08(K1)1:C(JJ,0)C(JJ,2):C(JJ,1)C(JJ,3):JJ:A$"L = "(((2)(K1)100)):V23.8:H30:2:581)2D(AN)3HX(3)X(2)D(AN1.0472)3:Y(3)Y(2)D(AN1.0472)3X(1),Y(1)X(2),Y(2)X(3),Y(3)X(4),Y(4)X(5),Y(5)K3āII15:C(4(P1)II,2)X(II)::C(4(P1)II,3)Y(II):IIp SQUARES-LINESVC(1,0)0:C(1,1)95:C(2,0)279:C(58000::' ROUTINE TO PLOT POINTS_X(1)C(P,0):Y(1)C(P,1):X(5)C(P1,0):Y(5)C(P1,1)D((X(5)X(1))2(Y(5)Y(1))2):AN((Y(5)Y(1))(X(5)X(1)))3.14159(X(5)X(1))X(2)X(1)D(AN)3:Y(2)Y(1)D(AN)3:X(4)X(1)2D(AN)3:Y(4)Y(2,0)279:C(2,1)140:U::3:0,140279,140:A$"L = ""100":V23.8:H30:2:58000:iK03:ERASEĐzESCK3::P14K:1040:P:K3āJJ034(K1)1:C(JJ,0)C(JJ,2):C(JJ,1)C(JJ,3):JJ: A$"L = "(((43)(K1)100)):V23.8:H30:2:)SND4:X(7)X(6);HX(1),Y(1):II29:X(II),Y(II):IIxRII19:C(8(P1)II,2)X(II)::C(8(P1)II,3)Y(II):II~\ 24:1:868:: BOTTOM LINE:1:1:958::: TO TEXT:1994:::: FLAKE LINEC(1,0)0:C(1,1)140:C(X(1)SN3D4:X(8)X(7)4X(1)X(9)SN(12(Y(1)Y(9))):Y(2)Y(1)SND4:Y(3)Y(2):Y(4)Y(1)SND2:Y(6)Y(4):Y(5)Y(4):Y(7)Y(1)SN3D4:Y(8)Y(7)>X(1)X(9)SN(12(Y(1)Y(9))):X(2)X(1):X(5)X(1):X(8)X(1):X(3)X(1)D4SN:X(4)X(3)::X(6)X(1Y(9)C(P1,1)3D((X(9)X(1))2(Y(9)Y(1))2): Y(1)Y(9)SN(12(X(1)X(9))):Y(2)Y(1):Y(5)Y(1):Y(8)Y(1):Y(3)Y(1)D4SN:Y(4)Y(3)::Y(6)Y(1)SND4:Y(7)Y(6)*Y(1)Y(9)X(2)X(1)SND4:X(3)X(2):X(4)X(1)SND2:X(6)X(4):X(5)X(4):X(7).8:H30:2:58000:& K01:ERASEĐ7 ESCK1:: P148K:2050:P:K1āJJ048(K1)1:C(JJ,0)C(JJ,2):C(JJ,1)C(JJ,3):JJ: A$"L = "(((2)(K1)400)):V23.8:H30:2:58000::  SQUARES  X(1)C(P,0):Y(1)C(P,1):X(9)C(P1,0):15:C(4(P1)II,2)X(II)::C(4(P1)II,3)Y(II):II; VI  SQUARES C(1,0)93:C(1,1)47:C(2,0)187:C(2,1)47:C(3,0)187:C(3,1)141:C(4,0)93:C(4,1)141:C(5,0)93:C(5,1)47:P1::3:C(1,0),C(1,1):I25:C(I,0),C(I,1): :A$"L = ""400":V23((Y(5)Y(1))(X(5)X(1)))3.14159(X(5)X(1)) .X(2)X(1)D(AN)3:Y(2)Y(1)D(AN)3:X(4)X(1)2D(AN)3:Y(4)Y(1)2D(AN)3 8X(3)X(2)D(AN1.0472)3:Y(3)Y(2)D(AN1.0472)3 BX(1),Y(1)X(2),Y(2)X(3),Y(3)X(4),Y(4)X(5),Y(5)5 LII:1040:P:K2āJJ034(K1)1:C(JJ,0)C(JJ,2):C(JJ,1)C(JJ,3):JJ: A$"L = "(((43)(K1)300)):V23.8:H30:2:58000::  ROUTINE TO PLOT POINTS X(1)C(P,0):Y(1)C(P,1):X(5)C(P1,0):Y(5)C(P1,1)/ $D((X(5)X(1))2(Y(5)Y(1))2):ANN CONTENTS"  FLAKE CURVEy C(1,0)58:C(1,1)141:C(2,0)139:C(2,1)1:C(4,0)58:C(4,1)141:C(3,0)220:C(3,1)141:P1 ::3:58,141139,1220,14158,141:A$"L = "((300)):V23.8:H30:2:58000: K02:ERASEĐ ESCK2::E P134K<, 24577A$"X":A$:5-(A$)0ıfPY(V1)88:PX(H1)7:99PX,PY:16208:VV2:H1:q10000 SAVE FLAKE41000 NU5000,1000,8000,7000,6000,2000,13000,12000,9000,2007 ::8:1:"LOADING DISK CONTENTS...":D$"RU                ! 570002-A$"CH 3 IN C AND CH 4 IN D.":570007<-V16:32000: ABCD READ=.R. PRINT OUT DATAl.12700: SELECT BLOCK.J17:A(J)(373651034(BLOCK1)J):J.A(3)1A(3)3A(6)1A(6)4ĉ::A$"NO VALID DATA IN THIS LOCATION":57000:58,:-V1:A$"STORING DATA":57000S -VV1:A$"DATA MAY BE STORED IN ANY OF FOUR AREAS":57000-A$"AND RECALLED FOR LISTING OR GRAPHING":57000-A$"FROM ANY OF THE FOUR AREAS.":57000(-VV1:A$"IN GENERAL, PLACE CH 1 IN A, CH 2 IN B,":255ĉ::V7:A$"DATA TRANSFER INVALID - TRY AGAIN.":57000:58000:H+29,A(1):28,A(2)]+ POKE IN LENGTH+ CALL MACHINE LANGUAGE PROGRAM AT $300 OR 768+776: MOVED UP TO AVOID USING HIMEM IN MACH LANG+, LOCATION FOR STORING DATASELECTED$+ A(4) = PAR H - MSB OF PARAMETER SELECTEDS+ A(5) = PAR L - LSB OF PARAMETER SELECTED+ A(6) = BLOCK - BLOCK OF DATA SELECTED+ A(7) = GAIN+ POKE NUMBER OF BYTES INTO ADDRESS ON PAGE 1 USED BY MACHINE PROGRAM2+A(1)3A(2)O%P%w%%%%%%%&'&(&O&P&w&&&&&&&'''('O'P'w'''''`'עPɠ$P%%$%$P%%'עɠP%%P&P%P&P%%P&'עPɠ%P&&%&%P&&'עɠP&&P'P&P'P&&P''עPɠ&P'&&P''$'$($O$P$w$$$$$$$%'%(%ע(ɠ%(&&%&%(&&'עɠ(&&('(&('(&&(''ע(ɠ&(''&'&('''עɠ(''P$('P$(''P$'עPɠ'P$$'$'P$$'עɠP$$P%P$P%P$$P%ɠ&''&'&'''עɠ''($'($''($'ע(ɠ'($$'$'($$'עɠ($$(%($(%($$(%'ע(ɠ$(%%$%$(%%'עɠ(%%(&(%(&(%%(&'2^ɠ$%$%$$%$'עɠ$$$$$'ɠ$%%$%$%%'עɠ%%&%&%%&'עɠ%&&%&%&&'עɠ&&'&'&&''עHOPSTP: SET UP HORIZONTAL COORDINATESf (VE0YHIGH:QQFIRSTVEQSTP: SET UP VERTICAL COMPONENTS 2X0:Y0:0:NU0: INTIAL VALUES OF X AND Y, AND HCOLOR <N1150 FXN(XY)(XY)P PXYXY:YNXYXYQ) Z(XNXNYNYN)4NUN:N150: END  MANDELBROT SETY PFIRST2:PLAST1.2:QFIRST1.2:QLAST1.2: SET UP COORDINATESqXWIDE279:YHIGH191PSTP(PLASTPFIRST)XWIDE:QSTP(QLASTQFIRST)YHIGH: SET UP STEPS:49234,0:1998: SET UP LO RES GRAPHICS( HO0XWIDE:PPFIRST    P?ti?ii?????0G ? ? ? ]ۭ?8?m??ȱ?m?m?  `V23.8:H17:A$((R10000.5)10000):2:pTI$"BIFURCATION DIAGRAM":EQ$"X(N+1) = R * SIN ( X(N) )":11010:R10R20R11:R26"ENTER STARTING R (.0001 TO +6) : ";:MI$".0001":MA$"6.0000":NE$"N":DE$"Y":NUR1:25000:R1NU:ESıR2R1R26SP2)3(SP3)E(16384)127Ĺ16368,0:58000:ESRR2:16368,0UR:11000:10,1010,180279,180:H1:V1:A$"1":2:H1:V22.5:A$"0":2:H2:V23.8:A$(R1):2:V23.8:H39((R2)):A$(R2):2:16368,0:* 0:I181191:100,I190,I:I:3:$"N":DE$"N":NUSP:25000:SPNU:ES500012518,25(SP3)50(SP2)100(SP1):12511,11(SP1):XP12:11050:5800:12526,180:12527,179:12288:RR1R2(R2R1)(250)(1(SP2)3(SP3)):5900:12534,(XP256(XP255)):12535,(XP255):X(R):XPXP1(:R1NU:ESıR2R1R241:7:"ENTER ENDING R ("R1" TO +4) : ";:MI$(R1):MA$"4.0000":NE$"N":DE$"Y":NUR2:25000:R2NU:FL2:ES5000)1:10:"1-SLOW, MORE DETAIL 3-FAST, LESS DETAIL":1:9:"ENTER SPEED (1,2 OR 3) : ";:MI$(1):MA$"3":NEX(I) X(I)MAMAX(I)+ I:MI0MI07 1562:TI$"BIFURCATION DIAGRAM":EQ$"X(N+1) = R * X(N) * ( 1-X(N) )":11010:R10R20R24R14R11:R24 "ENTER STARTING R (.0001 TO +4) : ";:MI$".0001":MA$"4.0000":NE$"N":DE$"Y":NUR1:25000:"CHOOSE FROM 0 TO 1000":1:9:"PLOT 80 ITERATIONS STARTING WITH # :";:MI$"0":MA$"1000":NE$"N":DE$"N":NUNI:25000:NINU:ES3000 11020:XX0:NI0āI0NI1:XR(X):I X(0)X:I080:X(I1)R(X(I)):I:MA9E9:MI9E9:I080:X(I)(MI)MI.0001)R1% X0.0001X0.99X0.5 "ENTER R (.0001 TO +6) : ";:MI$".0001":MA$"6.0000":NE$"N":DE$"Y":NUR:25000:RNU:ESı 1:7:"ENTER X(0) (.0001 TO .99) : ";:MI$".0001":MA$".9900":NE$"N":DE$"Y":NUX0:25000:X0NU:ES3000 1:10) = R*X(N)*(1-X(N))":12000:NP80:MUĖ1:13:"CHOOSE FROM 1 TO 255":1:12:"ENTER NOTE DURATION : ";:MI$"1":MA$"255":NE$"N":DE$"N":NUDU:25000:DUNU:ES2000 12510:1570:  TI$"SINE FUNCTION":EQ$"X(N+1) = R * SIN (X(N) )":11010:(R6)(R:A$"ESC=MENU D=DISPLAY DATA P=PRINT":2:16368,0:A$:A$"D"A$"d"İ8000::49239,0:49234,0:49237,0:49232,0:15908A$"P"A$"p"İ58200::49239,0:49234,0:49237,0:49232,0:1590;TI$"LOGISTICS EQUATION - POPULATION GROWTH":EQ$"X(N+1H40(EQ$):A$EQ$:2:V1:H1:A$(MA):2:V22:A$(MI):2:V22:A$(80NI):H39(A$):2:V22:H18:A$"R = "(R):2:10,165(X(0)MI)SC:I180:I310,165(X(I)MI)SC #MUĹ948,(1.9X(I))255:949,DU:950:(16384)128I80 2Ix6V23.8:H1(MI10(I4).5)10(I4):I38t I:I038:((MA)10I)1((MA)10I)10MA(MA10(I4).5)10(I4):I38 ((MA)10(I))1((MA)10(I))10MA(MA10(I4).5)10(I4):I38 I "SC150(MAMI):11050:10,1010,165270,165:V1:I1:XRX:IZ X(0)X:I080:X(I1)RX(I):I:MA9E9:MI9E9:I080:X(I)(MI)MIX(I)o X(I)MAMAX(I) I:MI0MI0 I038:((MI)10I)1((MI)10I)10MI(MI10(I4).5)10(I4):I38! ((MI)10(I))1((MI)10(I))10MI";:MI$".1":MA$"100.000":NE$"N":DE$"Y":NUX0:25000:X0NU:ES1000s 1:10:"CHOOSE FROM 0 TO 50":NI50NI0 1:9:"PLOT 80 ITERATIONS STARTING WITH # :";:MI$"0":MA$"50":NE$"N":DE$"N":NUNI:25000:NINU:ES1000 11020:XX0:NI0āI0N" MU1:2000:i TI$"STANDARD EXPONENTIAL GROWTH":EQ$"X(N+1) = R * X(N)":11010:R1.3R1.3R1z X0.1X0.1 "ENTER R (-1.3 TO +1.3) : ";:MI$"-1.3":MA$"1.300":NE$"Y":DE$"Y":NUR:25000:RNU:ESıE 1:7:"ENTER X(0) (.1 TO 100) : .(24577:A$"X":A$:5)(A$)0ıbPY(V1)88:PX(H1)7:99PX,PY:16208:VV2:H1:n50000IT1:10000:IT041000:MU0:NU1000,2000,5000,500,7000,3000,6000,9000,200:7 ::8:1:"LOADING DISK CONTENTS...":D$"RUN CONTENTS                1"CONTROL DATA":OP$F$",D1":RD$F$:DN:CA:LC:CL$:k(#::RE0:230,64:62450:3:1:0::232,0:233,562#:V8:H11:A$"Three Body Orbits":2:V12:H1:A$"Devised by Alan Cromer":2:V15:H11:A$"Northeastern University":]3#H1:V17:A$"Programmed :DEC$"Y":NEG$"Y":NUVO(I,2):25000:ESC7000Ip:V(I,2)NU:VO(I,2)NUOZ22:1lTX.01:D.01$23:1:":PLOT

:PRINT :REENTER";.QQ$:QQ$" "ı8QQ$"R"QQ$"r"ġ:40BQQ$"P"QQ$"p"İ60000L74605l F$S*B(I):22:MIN$"-10":MAX$"10.01":DEC$"Y":NEG$"Y":NUXO(I,2):25000:ESC7000m4X(I,2)NU:XO(I,2)NUHB(I):27:MIN$"-50":MAX$"50.01":DEC$"Y":NEG$"Y":NUVO(I,1):25000:ESC7000RV(I,1)NU:VO(I,1)NU.fB(I):33:MIN$"-50":MAX$"50.01"0001 27 _XXN:YYN> dNR NU100Ē3:200e NU50Ē2:200w NU9Ē1:200 NU5Ē6:200 NU3Ē5:200 NU1Ē2:200 NU1Ē1 HO,VE VE HO P000::.:%.V2:A$"*** DATA DISPLAY ***":57000G.4:1:A(3)12900,12910,12930l/6:1:"BLOCK OR CHANNEL #";A(6)/8:1:"PARAMETER VALUE: ";A(4)256A(5)/10:1:"RANGE SETTINE!xx`x0 yyyx@x`yy)xxx`yyLYx y yyyиxxx@xH)xJJ xxhx .x .x nxx) @x_$00 x x(&H x x xh` x  0L ' 0 0 0 +0 0 +`0 +d 0 +00 00000 00 0 0 抮00 W00`0  0 0 0 +`ԠҤĢƤ͠ϠčԠĤңԠŠ  ԠϠӠȠԠҢԠ΍M1$;:I218:M2$;:I:M1$:H121((J$)2):4:H1:J$:V6(N4)(N5):S3(N4)(N6):EI1N:V:H:I") "J1$(I):VVS::22:JI1N1:I;", ";:I:" OR ";N;:" ";:MA$(N):25000:21:e(J$"THREE BODY ORBITS":J1$(1)"CREATE & TEST ORBITS":J18);::" ";::(8);:ZZ1:(B$)1B$"":25020MbB$(B$,(B$)1):25020m8cNE$"Y"Z1ĺ(7);:25020LcZ1(B$,1)"E"ĺ(7);:25020Vc25100Ć *PRESS SPACE BAR*Ά22:6؆"(PRESS SPACE BAR TO CONTINUE)"↾A$솱W@::1:7AA47AA44ĺ(7);:25020C*bMA2(A$)(MA$)NU(A$):25150_4bB$B$A$:A$;:868:Zm>bZMA:Z:}pbZ1ī25150b((B$)(MI$)(B$)(MA$))ĪNU(B$):NE$"N":DE$"N":ES0:25150b(7);:25020bZ1ĺ(7);:250201b" ";(8);(A1(MA$):NU0ĢV:H:NU;:V:H.aZ1MAWaA$:AA(A$)32((A$)96):A$(AA):naAA27ES1:25150aZMAAA13AA8ĺ(7);:25020aAA13ī25200aAA8AA95ī25300aAA45ī25400 bDE$"Y"AA46ĺ(7);:25020 bAA43AA5616368,06:6V5F6A$"DO YOU WISH TO CONTINUE":57000l6A$"WITH THIS PART? (Y/N)":57000z6:20:X$6X$"Y"X$"y"406X$"N"X$"n"ı6140207 7D$;"RUNCONTENTS""aV(37)1:H(36)1:ES0:16368,0:B$"":EF0:M**********":M2$"* *":W$'3:1:0:232,0:233,56r'GO(3),VO(3,2),XO(3,2)'G(3),V(3,2),X(3,2),D(3,2),R(3)'A(3,2),S(3),A1(3,2)'B(3),EC(3),SM(3)'IN(2),N$(2),A$(2),E$(2),T$(2),M$(2)*6 RESETe mass must be between .0001 and 1000.":2:A$"":2:b$V23.8:H1:A$"Press any key...":2:A$:'IT1:9000:HN$(21):D$(13)(4):OP$D$"OPEN":RD$D$"READ":WR$D$"WRITE":CL$D$"CLOSE":BL$D$"BLOAD":8300:;'M1$"******************************at are":2:A$"affected by each other's gravity.":2#9230::V1:H1:A$"The units are arbitrary. The position ":2:A$"X & Y coordinates must be between":2:A$" -10 and +10. The velocity components":2:4#A$"must be between -50 and +50.":2:A$"Thl conditions can":2:A$"change orbits unpredictably.":2:#A$"The same initial conditions ALWAYS have":2:A$"the same orbits-there is no randomness.":2:VV14#A$"You set the masses and initial positions":2:A$"and velocities of three objects thby Alan Cromer":2:A$" with John Elberfeld":2:VV1:A$"Copyright 1989: EduTech":2:ITı#9230::V1:H14:A$"INTRODUCTION":2:A$"Three bodies moving near each other":2:A$"can be tracked using Newton's Laws.":2::#A$"Small changes in initia:@-0D$(4):D$"UNLOCK CELLS":D$"SAVE CELLS":D$"LOCK CELLS"1gh! 0`)_ȱ`1L ' 1 0 0 +0 0 +`0 +d 0 +00 10000 10 0 0 抮00 W00`0 0 0 +`HHPH`HkHxHHHHXhpxhpxhpxhpxhpxhpxhpxhpxnT14>A<G NT14>ET14>eT14>qT14>QT14>pT14>PT14> 7P7 7 777PRTV`9787879797TQ` D :ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:ZWZW1::ZY:ZX:D$;"PR#0":16368,0:":,PRINTER READY (Y/N) : ";:A$:3000:A$"Y"A$"y"ı#j24:31:"TIME:";:24:36:T;:20:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:ZWZW1::ZY:ZX:D$;"PR#0":16368,0:::24:36:T;:20:D$"PR#1":ZW1AN$:16368,0:AN$" "AN$"P"Č1052:590005"~"`3000:"IS THE PRINTER READY (Y/N) : ";:A$:3000:A$"Y"A$"y"ı#j22:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:ZWZW1::ZY:ZX:D$;"PR#0":16368,0ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:ZWZW1::ZY:ZX:D$;"PR#0":16368,0:!0D$(4):D$"UNLOCK TBODY":D$"SAVE TBODY":D$"LOCK TBODY"DZZ));:ZZ:ZWZW1::ZY:ZX:D$;"PR#0":16368,0:0TO CONTINUE,

TO PRINT";:00":35840 l(13)(4)"PR#0"& v x24:1:" TO CONTINUE,

TO PRINT";:AN$:16368,0:AN$" "AN$"P"Č1052:59000 `24:1:868:"IS THE PRINTER READY (Y/N) : ";:A$:24:1:868:A$"Y"A$"y"ıl!j22:D$"PR#1":ZW1:V3`3000:"IS THE PRINTER READY (Y/N) : ";:A$:3000:A$"Y"A$"y"ı: SCREEN DUMP3j24:31:"TIME:";:24:36:T;:20:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:3ZWZW1::ZY:ZX:D$;"PR#0":16368,0:;4$(2)"RECALL STARTING PATTERN":J1$(2)"DESCRIPTION":J1$(3)"RETURN TO DISK CONTENTS":N3:H8:40000:ޖ21(A$)2:V:A$:VV2: printD$(13)(4)16368,0bD$;"PR#1" gD$;"BLOAD IIGS INFO,A$8A00,D1":D$;"BLOAD DUMP.HIRES.R,A$8CEAL ("XB"/+2) : ";::MIN$(XB):MAX$"2.0000":NEG$"Y":DEC$"Y":NUXE:25000:XENU:ESC200011:1:"ENTER STARTING IMAGINARY (-2/+2) : ";::MIN$"-2":MAX$"2.0000":NEG$"Y":DEC$"Y":NUYB:25000:YBNU:ESC2000R13:1:"ENTER ENDING IMAGINARY ("YB"00:/::F$"PRINT.PIC":D$"EXEC PRINTER":8<:7b16368,0:(16384)27Č13442:A$:s INPUT DATA7:1:"ENTER STARTING REAL (-2/+2) : ";::MIN$"-2":MAX$"2.0000":NEG$"Y":DEC$"Y":NUXB:25000:XBNU:ESCı[9:1:"ENTER ENDING RMC1:CL7,MC3:CL14,MC5:CL21,MC9:CL28,MC50:CL35,MC50V 16368,0:13082o (16384)128ī3510 16368,0:(16384)27Č13442:3210 42000:NU3600,3700,3800,3900 351049239,0:49234,0:49232,0:49237,0:13442:t145: USE USR TO SET UP XSTART AT $3200gX 12303,50:12302,08:X(XS): USE USR TO SET UP XSTEP AT $3208b 12303,50:12302,16:X(YB): USE USR TO SET UP YSTART AT $3200l 12303,50:12302,24:X(YS): USE USR TO SET UP YSTEP AT $3200Av CL13353:CL,& MC1500 C13:C23:C31:C42:C55:C66:12864,C1:12865,C2:12866,C3:12867,C4:12868,C5:12869,C6: SET COLOR PATTERN AT $3240: 12832,MC:12840,255:12848,190: MAX COUNT, X WIDTH, Y HEIGHTD 12288: SET UP USER$N 12303,50:12302,00:X(XB) 16368,0:(16384)27Č12672:2210: 16368,0:A$:J SIN GRAPH TITLE$"MANDELBROT SET - HI RES":EQ$"Z(N+1) = Z(N)^2 + C":11010:XB10XB2:XE1.2:YB1.2:YE1.2 4000  :XST(XEXB)255:YST(YEYB)191:RXB:CYB:: CLEAR SCREEN z12303,50:12302,16:X(YB): USE USR TO SET UP YSTART AT $3200 12303,50:12302,24:X(YS): USE USR TO SET UP YSTEP AT $3200 CL12585:CL,MC1:CL7,MC3:CL14,MC5:CL21,MC9:CL28,MC50:CL35,MC50 12314 (16384)128ī2999& PLOTTING POINTS":J1$(2)"SAVE THE GRAPH":J1$(3)"PRINT THE GRAPH":J1$(4)"RETURN TO MENU":N4:H8:40000:00:I181191:40,I230,I:::3:V23.8:A$"ESC-MENU C-CONTINUE":H20(A$)2:2:A$:0:I181191:40,I240,I:::3:1ESC0:A$(27)ESC1::I1N1:I;", ";:I:" OR ";N;:" ";:MAX$(N)A/26000:21:/(J$"FRACTALS":J1$(1)"LORES MANDELBROT SET":J1$(2)"HIRES MANDELBROT SET":J1$(3)"DESCRIPTION":/*J1$(4)"RETURN TO CONTENTS":N4:H8/-40000:k0J$"HI RES MENU":J1$(1)"CONTINUE.e-.eESC0:NU0:16368,0:A$:ZA(A$):T.eZA49ZA(MAX$)48ĺ(7);:26010c.eNU(A$):k.@:.J1:M1$;:I218:M2$;:I:M1$.rH121((J$)2):3:H1:J$.|V5(N4)(N5):S3(N4)(N7).I1N:V:H:I") "J1$(I):VVS:0/225150-b(7);:25020&-b BACKSPACE=-bZ1ĺ(7);:25020j-b" ";(8);(8);::" ";::(8);:ZZ1:-b(B$)1B$"":25020-bB$(B$,(B$)1):25020-8c NEGATIVE-BcNEG$"Y"Z1ĺ(7);:25020-LcZ1(B$,1)"E"ĺ(7);:25020.Vc250706384)27ESC1,o5020?, bDEC$"Y"AA46ĺ(7);:25020j, bAA43AA57AA47AA44ĺ(7);:25020,4bB$B$A$:A$;:868:Z,>bZMAX:Z:,pb RETURN HIT,zbZ1ī25150-b((B$)(MIN$)(B$)(MAX$))ĪNU(B$):NEG$"N":DEC$"N":ESC0:20D$(4):D$"UNLOCK FLAKE":D$"SAVE FLAKE":D$"LOCK FLAKE"D24:31:"TIME:";:24:36:T;:20:D$"PR#1":ZW1:ZX08040:ZY10241920128:ZW:ZZZXZYZXZY39:((ZZ));:ZZ:ZWZW1::ZY:ZX:D$;"PR#0":16368,0:#0D$(4):D$"UNLOCK LIFE":D$"SAVE LIFE":D$"LOCK LIFE"DLIFE":D$"SAVE LIFE":D$"LOCK LIFE"0 $'`! @@ @ @ @` 0@@ @ @D  ş堰G L & & & .ee'Lѥȥ񥰶ݥcpq` [` ~  LNTINUE";:18:A$:!bD$;"PR#1"jgD$;"BLOAD IIC INFO,A$1000,D1":D$;"BLOAD DUMP.HIRES.R,A$1200":4608"6088 )WHLC L , Ɇ ɀL  , ҅LзLg000%$۾A$:ESC0:(16384)27ESC1+.۱oޖ21(A$)2:V:VV2:LCĺA$;:: CENTER PRINTING P1(105)256(106):LG(P12):P2(P13)256(P14):IP2P2LG1:A(I):A96ĹI,A32ނI:A$;:24:5:"PRESS TO CO13Y28Č1052:31010<@yY28ĺ(8);" ";(8);:Y11:31010VJyY213AN$Y2$:" ":wTyY2$(Y2):Y2$;:Y12:31010~Pæڲ ESC ROUTESV18:A$"Press the to INITIALIZE":57000:A$"or":57000:A$"press to reach DISK MENU.":57:57000:58000:18:1:9000, ' INITIALIZE 'D$(13)(4):D$;"OPEN CONTROL DATA,D1":D$;"READ CONTROL DATA":DN:CARD:LC:D$;"CLOSE": yY11: Y OR N INPUT "yY1$:Y2(Y1$):Y296ĪY2Y232 ,yY11Y278Y289Č1052:310106yY12Y2"and prepare it to accept data.":57000:56000:ESCī9000@ Z (# RETURN TO DISK MENUe 2#9500 7#D$;"VERIFY SET GRAPHICS,D1":::V8:A$"Return to disk menu":57000 <#D$;"RUN SET GRAPHICS,D1" %::V8:A$"Insert your MASTER DISK in DRIVE 1"d during initialization":57000:A$"Be sure the disk is NOT write protected":57000:56000:ESCī9000m 12  INTRODUCTION ::V6:A$"Insert a blank or old disk in DRIVE "(DN)".":57000:A$"This program will initialize the disk":57000: A$"7 `D$;"OPEN KEYTM":D$;"WRITE KEYTM":0:D$;"CLOSE"m jD$;"OPEN KEYCA":D$;"WRITE KEYCA":0:D$;"CLOSE" tD$;"OPEN KEY":D$;"WRITE KEY":0:D$;"CLOSE" ~D$;"OPEN KEYRW":D$;"WRITE KEYRW":0:D$;"CLOSE" 9000e ::V6:A$"An ERROR occurre x12c ::V6:A$"THIS WILL DESTROY ALL THE MATERIAL":57000:A$"STORED ON THIS DISK.":57000 12:1:"INITIALIZE (Y/N) : ";:31000 AN$"N"ī9000 $2000 .24:14::"INITIALIZING";::18 LD$;"INIT HELLO,D";DN VD$;"DELETE HELLOk+ NOV 11,89CLEAN DISK JOHN ELBERFELD6A$"X"A 10000_ 5000: INTRODUCTION j1000D$(13)(4):D$;"VERIFY TITLE,D";DN::2A$"This is your MASTER DISK":V6:57000:A$"Please insert a DATA DISK.":57000:56000:ESCī9000" " " """""""""   1V$.!(`L$1L$1 L$1""