' +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 ~(` i d ֠z# u`_"P1(105)256(106):LGN(P12):P2(P13)256(P14):IP2P2LGN1:A(I):A96ĹI,A32m"ނI:A$;:"3000:"PRESS TO CONTINUE...";:A$:"`3000:"IS THE PRINTER READY (Y/N) : ";:A$:3000:A$"Y"A$"y"ı#j24:31:"TIME:" 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:VV2:LCĺA$;:218: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:P!(J$"GAME OF LIFE":J1$(1)"CREATE STARTING PATTERN":J1$(2)"RECALL STARTING(MA$)AA13ĖHO:VO:I1(MA$):" ";:I:HO:VO:(7);:27000WiAA13C0ES1:iAA13(B$)(MI$)(B$)(MA$)SH1:NU(B$):i(AA48AA57)ĖHO:VO:I1(MA$):" ";:I:HO:VO:27000iB$B$A$:A$;:CC1:27020 @::1:M1$;:IH:OV:(A(OH,OV));:PH:PV::(A(PH,PV));::PH:PV:OHPH:OVPV:20320NOTa:aES0:NU0:16368,0:A$:ZA(A$):ZA49ZAMA48ĺ(7);:25010aNU(A$):xiES0:B$"":C0:SH0:HO(36)1:VO(37)1:NU5iA$:AA(A$):AA27ES1:AiCOAA82İ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)42OAA32A(PH,PV)32HOO77)(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:RE20290OAA7920290LE 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):PVPV(AA10)(AAA ON THIS DISK ***":57000:NF0A$"NO FILES ON THIS DATA DISK":V4:57000:f9SN1:ENNFSNEN1~9H1:14900:ENNFı:SNEN1:H20:149004:ENSN9:ENNFENNF>:V1:ISNEN:H:3V:I;": ";(HN$(I),(HN$(I))3):VV1:I:6 N3000:"ON MAXIMUM - DELETE A FILE";:A$:P824: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:M934,0::V1:A$"*** DATLL":V16:57000:58000:wJ816: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İ8700 8NF19Ģ24:1:868:"20 FILESMI$"1":MA$(NF):27000:ESıt7:" 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$"NO FILES TO RECAMORE FILES":MA5G722:1:" YOUR SELECTION : ";:25000:ESĉ::r7NU14400,14300,14280,14800:ADī14015|7REı7142007:7:NF0A$"NO FILES TO DELETE":V16:57000:58000:716:4:"NUMBER OF DATA FILE TO DELETE: ":16:35:during file work.":57000:58000:16:ESCġ:76210Q6D$;"VERIFY KEY,D";DNx6:F1$"KEY":8700:AD0:EN0:14800x734,15:16:1:958:" 1) RECALL A FILE":" 2) DELETE A FILE":" 3) RETURN TO LIFE MENU":MA3:NF20ĺ" 4) DISPLAY $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 "(DN)::57000:A$"tern may have an":2:A$"overwhelming effect on the final result.":2s$V23.8:H1:A$"Press any key...":2:A$:I'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":8300:BL$"SETTEXT,Arowth 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:H1E#A$"LIFE demonstrates how a slight variation":2:A$"in the starting pat7 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":2:A$"the same ghe 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":2:A$"0,1,4,5,6,ised 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$"INTRODUCTION":2:A$"TL$:8780!210P"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":2:V12:H1:A$"Dev14500:2800V T 3000:"ESC=END F=FREEZE ARROW=SPEED";:24:31:"TIME:";:24:36:T;:i 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:I1NF:HN$(I):I:C) Z LO,N(N256)256:LO1,(N256):o 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:2800  AA83İM1ĺ(7);:TM1 GAA27ī2100= 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,44:942,254:938:00S 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))1) FAA27T{ 3288:260: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: 50000 ::V8:H1: 34,23:T0:2800:2924576:A$"X":5%(A$)0ı^PY(V1)88:PX(H1)7:99PX,PY:16208:VV2:H1:j50000z10000:IT0241000::NU20000,14000,9000,200:REİ2000F50220260:A$"Loading Disk Contents...":57005:D$"RUN CONTENTS,D1"           *(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 is in DA$;:CC1:27020()@:: GENERAL MENUK)J1:M1$;:I218:M2$;:I:M1$k)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:21:A(A$):AA27ESC1:`(iC(MAX$)AA13ĖHO:VO:I1(MAX$):" ";:I:HO:VO:(7);:27000w(iAA13C0ESC1:(iAA13(B$)(MIN$)(B$)(MAX$)SHOW1:NU(B$):(i(AA48AA57)ĖHO:VO:I1(MAX$):" ";:I:HO:VO:27000)iB$B$A$:;'UR(OH21)0ĺ"-";8'U: PRINT NUMBER FROM ARRAYR'a SINGLE DIGIT INPUTy'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$:A0J&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(OH21)75)2(AA8)2(AA74)4%pSPHPH2(PH0)2(PH22):`%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::2130OP%$HSPH(36)1:PV6:OHPH::219002$MSPH:6:K$RS(16384)12821320x$\S16368,0:AA(16384):AAAA32(AA96):$aSAA21AA75AA74AA8AA13AA27AA82AA48AA49AA50AA51AA95AA45ĺ(7);:21310%fSPHPH2(AA21)2(AA(PH1)(PH40):M#OOH:3:20900:PH:3:PH::OHPH::20900::PH:3:20320S#Op#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 START OF LO2İ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:PHPH1:PHPH2(AA96):~!yOAA21AA32AA75AA74AA8AA13AA27AA82AA48AA49AA50AA51AA95AA45ĺ(7);:20310!~OPHPH(AA21)(AA75)(AA8)(AA74)!OPHPH(PH1)(PH40):!OAA13Ģ3:OH:20900:20410: ESC!OAA27ġ:Q"OAA8EN:H:3V:I;": ";(HN$(I),(HN$(I))3):VV1:I:K N EDITOR DIRECTIONSV N3000:j .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):AAAA3HOW FILES ON DISKH9: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 DISPLAY3 >:V1:ISN"F$.8I1NF:F$HN$(I)INF:FOUND1:ESC1Y8I: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"99 S::8 ** SAVE DATAb8: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:F$"CA.E8:G8NF0A$"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:A$:: ":16:35:MIN$"1"::MAX$(NF):2700017ESCı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 DATA14400,14300,14280,14800(7ADDī1401527REı=7142007::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 DELETE:6EN0:14800: SHOW FILES 6x734,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ĉ::7NU *"*-6**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:ADD0"OPEN":RD$D$"READ":WR$D$"WRITE":CL$D$"CLOSE":8300:Y'D$"BLOAD MACHCELLS,A$3000"f'3:1:0'(14336)(100)(14337)1ĺD$;"BLOAD STANDARD,A14336":232,0:233,56:0*M1$"****************************************":M2$"* 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:I95'D$(13)(4):OP$D$ditions.":2:A$"Some rules produce complex patterns":2#H1:A$"from the simplest initial conditions.":2:VV1:A$"Cellular Automata are models of many":2Q$H1:A$"physical processes. For example, a":2:A$"short portion of DNA, with the right":ts 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:92308#:V1:H1:A$"Some rules tend to produce the same":2:A$"pattern from all initial conLinear 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 sum of i(A$)2:2@<#V12:H1:A$"Popularized by John Von Neumann":2uF#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":2:A$""DN"D$;"OPEN KEYCA"4"23:1:D$;"READ KEYCA"H"NF:NF0ī8770t$"I1NF:HN$(I):HN$(I)(HN$(I),18):IB"D$;"CLOSE"L"50000V"(#::RE0: CREDIT 2#230,64:62450:3:1:0::232,0:233,56:V8:A$"Linear Cellular Automata":H21CASE REMOVED IF NEEDED0! ** WRITE FILE NAMES:!210D!ADD1_!D$;"VERIFY KEYCA,D"DNp!OP$" KEYCA"!D$;"WRITE KEYCA"!NF:I1NF:HN$(I):I!CL$:8780! ** READ FILE NAMES ! ONERR GOTO 210"23:1:D$"VERIFY KEYCA,DCELL VALUE"-3000:"C=CONTINUE S=SAVE";:rA$: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 : LOWER nter 'R' to produce a random line.":57005R21000:AA274000: ENTER NEW RULE:I039:12800I,A(I):I:I09:13312I,R(I):I:12288 h: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 nds on the":57005:A$"sum 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$"EA$"Press when done.":57005:A$"Enter 'R' to produce a random line.":57005w 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"j V8:H1:A$"The new value of a cell depeI V5:H1:A$"Enter your 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.":57005W SK must be in Drive 1 now":57005:58000:6 50000< ] 24:1:868:: BOTTOM LINE|  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ĺ"-"; ENTS,D1" 3288:::V8:H1: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: 50000 * 3288:D$;"PR#0":::V8:H1:A$"MASTER DI:% 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 ::V8:H1:"Loading Disk Contents...":57005:D$"RUN CONT               נ̠Š`͠"`    ΠΠԠ }_ny}uks{~~~%?~08U} ~_4|~w{{+wc *j~ y{%o{~1Otppp}{{pn|t*+/$W?}~<@p`h~~tp]~t{}{x~ytxxtp0\>{w7Wgh|?wg{PUW"n|gcsq|~olww}{x~z{{^~|o~~}{~}|~ZH rtpp *+{_o}}wo{~{~w@n|!~"/_m?9C@`@@Pp@S@>@@sO&{|~?}~}~ry?_mp``0@@@G@cQps ?8UWW___"~{?; ;@ _3COg|h@pp *++//?&cw7g???}(xpp`@`@Nzx~8b0~~~ {{$UWW_'~zx~t0 @`]w_]?{Xxx|pp@wok^}|~{@@@px _}~~nz;@p`@@@`xxm|vn`@npx!o1}|~xwq ~r{{{y`` j`H ??w}} }__?opA```d`p~v!}~~?wv`@O/Uu}_??~A['wG _~_{wwpg- as!}w~{x|@@j _~!$w??/l?!] }~fx`p}}~}?/?{??~[og{u{s {doo/? =/o}/su/gocwhp```x`@  Uu$~o}aA{O~~od c]|}|/?? *z"?oCC1 -@|mfb'?udppx`Uu#woWE~~{?}@@Lboww ;A*jz~*?~8P& *w o_ {~o}?x% 7_?;{w?oowo}{o ~~_|l U_ }} ?y}{w_?ooO{}?_~}~k{_?v{ggk{}SO7#// */}~~{ o&|x~}Ay3? {o/ #?/?7{~{q1s_/?538/W   ?__wo?=|}{vo??? _=@`Sc_owo]}{}~t0<??wF@@??W~ {H~~~xzq{{z}xF  ?  o8/??``l~zx``~||h``` p`w~ww8@y6O}w~=|o?w80 {~v~}~_~np BO?/\?z0 ? }!~? ~{ ??:???_~.? {tO fp@C?O__{yl`??_ ??w?_?=@}}`z~~|}p>????~~  w4ogowy9pA@A@@fwo{w|{g?_ _?~4 novo_kko'__OOsOOW? +?wFr})O_~ ^_}L`@wow??_6 ??|~/Dz u~~~~}~~~ysg?7_?^~ _?>3G??O}' oo?_ ? Oo__{.~??_wA||xx`qpx||pph` 7;?'?w?8osq} gbpyP@8~wv|szxpxx;;o?O7'@oW?}q3[3]m{;9@si}}{ so/w9??w?_>{}|_???5w_sf?)??o{??7_g??wwgwGw}~wopp@p` {78{?}`WOcpv~} {sqy~z|`@%~}~{w{~yyy|~~W`@ -?w?~y}w~ wz}{;_ g{{!~mt+?o?[<?~?~<0GOO}_wougoogugewWw}.{}}pr?g|ww noSo*Bg<~~}|q|tv|~N`` @,}~}?v0o/o?s _[O?A`Xxy{g?~|ywx~}}#~_>?    wofww ww wwpwpp wwf`f``w`p ww``ffwDpo``pwf`fwppppp"popw fw`ppppppppppppw wppp""ppwpwwwp`zp  0BDzzjj*j*jVU*+-%%55 UW~|ppx^^\^~txp~\^_\YWWWUWWWY\_^\~pxt~^\^^xpp|~W U55%%-+* UTTTVVVRSSS[[[ZRVTUTVRZ[[[SSSRVVVTTT U".@*UWWW_orXbXro_WWWUWWWU755%%%---)))+*UTVZJ*/?7?zxxx\xxxz?7?/*JZVTU *+% U}> @L@ >} U%+* UVj*j*jjzzd`p`p`xy>||x@``@`@@@`08,//,80`@@@`@``@x||>yx`p`p`dZJJJj*5UUUE)+zzj*jjz_?f?_zjj*jzz+)EUUU*)-5UUWVW__{ogCCC@@CCCgo{__WVWUU5-)*URJz::?;/+///}|`pxp p||? f ?||p pxp`|}///+/;?::zJRU*+)))---%%%557UWWWj*)-5 JRTU5-+***j~wwO ?? D ?? Oww~j***+-5UTRJ 5)*jZV UWW{yxp0R0pxy{WW UVZj*)5RU5-+ *~~wo^ow~~ *+-5UR5*jJJJZZRVTUUu}}u}}}75b57}}}u}}uUUTVRZ5UTVZJj5%-+*jJZRVTUu~x|p``@@@@``p|x~uUTVRZJj*+-%5jJRVTU5%-)+*jzz:~^ ^~:zzj*+)-%5UTVRJj 5-)*jJRVtuuUUuuuUu}]6]}uUuuuUUuutVRJ??~~zjzzz~~~>:>>.**)UTVZJ3,5%-+ *%UugguU% *+-%5.&jJZVTUT*jjjzo~\$\~ozjjj*TUTVZJj( 5%)+*jUWWW__{wqa(aqw{__WWWUj*+)%5"jJZVTU5-+ *??ws``$``sw?? *+-:ZTU-*.>>.*-UTZ:;-*jTUuuwwuuUTj*-=9ZVU55%-+:zjzzzzjz:+-%55UVZ;5%)***jJZZRRVVVT Uw??w UTVVVRRZZJj***)%71JZVTU)**.>>:>~~~zzzjz~~????T3ՕkkK[[SSWWWU++UWWWSS[[Kkk5%-)+ *RVUVR *+)-%!Օ&JRTU%**zzzz**%UTRJ&15)*ZVUUVZ*)51    `$`2    `/`    `>$`    z#??????   Ǯ̠Р ǮǠР ΠӠ'ŠԠ !Ӡ"ΠӠӠ̠ Ǯ̠Ԡ ׮Š ׮Šàˠ à̠Ӡ Ԡ̠Ҳ Ӡ Ϡ͠٠ΠӠ̠נ׮Ԡנ̠Š`͠$#`D  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    *࠰נ̠Š୭`͠&&`    D$(4):D$"UNLOCK CELLS":D$"SAVE CELLS":D$"LOCK CELLS"D`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,0:9-0rive 1":57005:58000:?+H21(A$)2:H:V:VV2:LCĺA$;:Z+ޖ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...";:A$:T,̠ԍ̠ЍǠЍǠЍ;: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"D΍ӍӍӍӍӠ̍Ԡ̍̍Ӎ̍̍Ա̍Ա̍Ա̍Ա̍Ա̍Ա̍Ա̍Ա̍ԱA  :98:1:"DATA DISK - BOOT WITH MASTER DISK":? נ̠Š`͠,/`    נ̠ŠPᠠLOOP AND SET HCOLOR FLAG IF MAGNITUDE > 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 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  LOR 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 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:PPFIRSTH   ׮ō׮ԍ׮ō׮ōP 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 OPSTP: 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:PPFIRSTH3wff`g3 0wfvw 36@F0``g0  vwps 3nnp`  9333 p``fppfdG@ &0pgw07wpD@ `DDDfpw33771"߽ `N@D@@@@DDD      ss3ssp3 fgfwwNff1p33`3103 w0pw$ ff @DDD@DN'`f0091pppppptppppppttppppppttpptpptttptppptppp`wp @D@"  gf000 DND@N    )0X1,Y)0X,Y1)0X,Y1)0CC1:30: IF NEXT TO DOT LEAVE POINT SHOWING AND START NEW DOT MOVING J70: MOVE THE SAME POINT TO A NEW LOCATION X1X1 X38X38) Y1Y1M Y39Y39: KEEP DOT ON SCREENx (16384)127Ā: CHECK FOR KEY PRESS ,X,Y:0:XO,YO: PLOT THE NEW POINT AND ERASE THE OLD 6(C201):XOX:YOY: RESET COLOR, STORE PREVIOUS X,Y VALUESh @X1,Y:30: ALERT USER THAT STARTING POINT PART OF CLUSTER] <XOX:YOY: STORE PREVIOUS POSITION FMOVE(4(9)1): CREATE RANDOM # BETWEEN 1 + 4 TO DETERMINE NEXT MOVE PMOVE1XX1:200 ZMOVE2XX1:200 dMOVE3YY1:200 nMOVE4YY1 RANDOM WALKSN:7:20,20: INITIAL CONDITIONS AND STATIONARY POINTANGLE23.14(9):X(2020(ANGLE)):Y(2020(ANG)): CHOSE STARTING POINT ON CIRCLE WITH 20,20 AS CENTER((C201): CHANGE COLOR EVERY 20 DOTS5 2X,Y)0ĺ(7)   `"`    `  /`    `/`    `/`    `$/`  `:/`!! ! ! ! ` 8/`"" " " "