Cb Main programm!ST                            !   #$ %  " # ' ( & *+ , - ) / $ ( . 12 %  0 ' 4 ( 3  6  5   8  7 : ;  9   2 < : +  =   ? @ >  AB/C D E B ABBG A  A F HI I F   KJML NNO  PNOaP[NAFOA8OQ ABB(OROS !"#A # TU$NQc]% NVN&EO"O5O7O'O0'JO3'L O',̤ƥƥɥɥɥƦɥåƤƤɥɥƤɥɥæ€l 4 ,c9999tdc13c10c0tc.05c.92c.1c.9ttttvlabel1c.02c.18c-99999vlabel2c.84vlabel5c.59c.98c.60c.71vtext1c.19c.95vtext2vframe1c.58c.62c.82vcom1c.03c.35c.73vlabel4c.24c.65vlabel3c.37c.5c.69c.80vlabel6c.3vtext3c.50c.55vtext4c.29vcom2c.78vcom3c.72vlabel9c.79c.6vlabel7vlabel8vtext5c.01c.61c1ec.90c.2c.8vtext7c0.05c-1c11vn10c200vstepsc50vx1vx2vwindowc2c3c4vresultc10004c27linfo1 evilcommand1 tvnvlvl1lcommand1 tlcommand1 tvrvjlcommand1 tlcommand1 tvfvtext8lcommand2 tlevaluation tvr1levaluation tdInformation@I,Show Information@S,Hide Information@H,@,Author@A,Exit@x,"","","","",vch$ttcEvolving to Target Text using Character set by selection - press Esc key to quitcTarget stringcCharacter setcThe number of steps it would take for completely random steps (no selection, natrual or artificial) iscA Brown Fox Jumps Over the Grey Squirrelc abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ,.c See only some steps and Do itcDo It - Cummulative SelectioncUpdate Interval everycMax Number of Steps you are allowingcstepsc200c50cSee each step of 'Do It' buttoncBack to see original of 'Do It' buttonc0cBy Natural Selection it tookvop$cVScroll|HScrollvop2$cVScroll|HScroll|readonlyvoptions$cCLOSE|SIZE|TITLEcInformationvb$vevent$cMENUcWHO DID THIS ?cProduced by Orland Hooge|Chilliwack, B.C.|CanadacOKtccKEYPRESScCONTROL DESELECTEDvtext$va$linfo1 tcThis program is to show that things (in this case words)cevolve much faster from a random jumble of letters when cthere is natural selection rather than just pure randomness c(mutations in organisms).cThe program starts with random collection of characters cfrom the Character set textbox and evolves into the cTarget string. You can change both. Make sure the cCharacter set includes all the characters in the final Target cstring.cTo start click the 'Do it - Cummulative Selection' button cand the large textbox will show the result so far after every cso many steps indicated by the steps textbox. You can calso determine the maximum number of steps allowed. If cthis number is too low, the likliihood of evolving into the cTarget string is less. To see each step click the 'See ceach step of 'Do It' button. Click the button cbelow that to see the original steps.cIf there are enough allowed steps and the Target string is creached the word DONE will show and the textbox under c'By Natural Selection it took' will show the number ofcsteps needed.c-------------------------------------cProduced by Orland Hooge, Chilliwack, B.C.,cCanada.comjhooge@uniserve.com.chttp://users.uniserve.com/~omjhooge/welcome.html.lcommand1 evmm$lcommand1 tvbb$c) vt5$c - DONE -lcommand2 tvaa$lcommand2 elevaluation tlevaluation tlevaluation e1,1:1win2,1:2,0:4menu$1,1:10000m$stc_initsn,s2,tc_menu_setsn,s,tc_win_settitlesn,tc_showsn,tc_win_activesn,n,n,n,n,tc_setrectuserssn,s,n,n,n,n,tc_stext_createsn,s,n,n,n,n,tc_edit_createsn,s,n,n,n,n,tc_groupbox_createsn,s,n,n,n,n,tc_pushbtn_createsn,s,n,n,n,n,tc_txed_createsshowcontrolssn,s,n,n,n,n,tc_win_createsn,n,n,n,tc_txed_setcolorsn,s,n,n,n,tc_eventsinfo1sn,tc_erasess,s,s,n,n,td_messagescommand1scommand2scommand3sn,s,tc_edit_gettextstc_cleanupsn,s,tc_txed_settextsn,s,tc_gettextsn,s,tc_settextsevaluationsn,s,tc_txed_gettextfTrueCtrl.trcfTrueDial.trcinfo1 in Main programsAWWAWW))((*))((+))((,))((-))((((.))((/))((0))((1))((2))))((3))((4))((5))((6))((7))((8))((9))((:))))((;))((<))((=))((>))))((?))((@))((A))((B))))((C(F(/{command1 in Main programs=JYXAYA XD$D0Z$E$F>F [( (\B[\] ]F9F$G[^XA^A@]]\]]A]]_(__FGFGA` `FFHFFGFFF>F`D `FFHFFGFFDJa`QaA`L]]]`Lb]bB>I `FIFFFHFFGFFF>Fc >IIJF>F`Z>EZAb bFdFc<>I `FIFFFHFFGFFF>F>IIJF>F`Z>EZAb bF=F^`AZ>ENʤ¦ʤ¦ʤҤƤƤæcommand2 in Main programs#$K>K$LZeXAeA XMLML/>Lʤ¦command3 in Main programs>Eevaluation in Main programsVc[fXAfA.GXXNXXONO@hh\hhAhhg(ggOOGXXAc `A`P `OOHOOGOOPʤФ¦showcontrols in Main programs7)&.<=903"57>