NNNNNN&p O`  @`! #@%`O`  @`! #@%`INFECTED Ԝ2. Ԝ2.. INFECTEDTOS 2INFECTEDTXT 2'`,o.. .N <//Bg?<JNAa oBNA n"| Sf$|N`FIDDENpN(z~GPECIALN)fV=úCOS NbL_s5DIOS]Nz<hEBIOSN-E{9YEINEAN49o{KISSEMBLER@NJ:*3i9e(nxG~%f!V] X3>h'Nu PPLICATIONNJOLD yNT TACKDEPTHNPDN URRENTN*IDTHN ICTLIMITN0ASEN LDN yPLUNIN7N#DOX // oN$?DOgX +/+/ oN _ PN%EAVE1 _ `N#OFfXNuY _ PNFIND"[ Sr~ GSE$HƇ։fJ4 fDQX&g'<`Bg'<`Bg'<`B'< Nu$C"R( fB NufRANCH y0N#NugBRANCH y Jf0N#NuERFORM [ PNNu0N LEARSTACK&yNuP!&SNuP@' Nu0N'LEARRS W.yBNУP!.[Nu>IO HH&Nu>I* H&NuXTENDJkBNu' "&Nu*i &Nu*y &Nu* &Nu6* &Nu/H &Nu/ &Nu/ &Nu6/ &Nu+RNu+%TNu+1VNu+=XNu+IZNu+U\Nu+a^Nu+mPNu+y Nu-XSNu-)UNu-WNu-9YNu-[Nu-]Nu-_Nu-IQNu- NuALSE3BNuRUE%'Jn`<>Jf`g`Cm`Un`=o`>1f`=lt`<Jk JkrQ`JjRQDD`=, +gBNu&NuITHINz" oBNuo&NuXECUTE [NNuTOGGLEF [ NuVEN+gRNuXITXNuEXITJgXNuOUNTN SRBPNuOOP"NuMOVEk "[ [JgSfNuMOVE> "[ [Jg  SfNuILL[ " [JgSfNuNCLOSE  SrR0g'0ggR`fR''Nu'R'Nu>CFA SX&Nu>PFA S &Nu>LFA S&Nu>NFA S]YJ jS&Nu>LFA< Nu>CFAV]Nu>NFA SYJ jS&Nu>LFAvYNu>PFA\NuICK '3NuOLL\p "3"K IX!!YnX'NuƲ Я'Nu''/Nu! /Я'Nu''/Nu!7 /Я 'Nu''/NuR\/Nu@'NuR@ /NuDROPGXNu2DROPPNu _ NuUSH"W [.//<NѣP@B'Nu'Nu'h'/Nu'/Nu'e'/ Nu'/Nu''/Nu* &Nu/% "H&NuMOD "HAH&Nu*O &Nu/e "7ABSNuMOD "HA7ABSNu+! [RNu+! [XNu+! [ PNu! [ Nu-!~ [SNu-! [YNu-! [ PNu! [ Nu@$ S&Nu! [ NuP@ S P&NuP! [ P NuP+ NuPICK4 &NuP+7 NuOVE "[ [JgnSf`  SfNuNSTR,(".&t"G*S$D fQ&'<` RRQBNu=., F"Gz f Q&`n&`&S'BNu,] y #NuONVERT [4209nv"|R0k*  o o_lHBBBԁԃ2HBJkR`67S'NuNIT'' ' NuUT"h$h 2 5@ 4NuET$h 5@ 4&NuINE1| $[!Z"!Z!R 1@, 1@* 1@( 1@&NuLINE1| $[!Z.!Z21Z$!Z!R 1@* 1@( 1@&NuHOW"h$hBj5|BQ NuIDE Nu RANSFORM"hr\$["Q NuNDRAW$[ NuRAW$[ ["  Nu ECTANGLE1| $[1Z$!Z.!Z21Z6!Z8!Z\1|@p20 _"_Q00NuOLYGON"[&.,SF*((1Y$!Y.!Y21Y6!Y8!YNAXH&NuEAD//?+?<?NAPX&NuRITE//?+?<@NAPX&NuNLINK/?<ANA\H'NuSEEK ? ?/?<BNAPT'NuHMOD| ? ?/?<CNAPTH'NuETDIR ?/?<GNAPH'NuALLOC/?<HNA\&NuFREE[/?<INA\H'NuETBLOCKf//Bg?<JNAPXH&NuXEC/// ??<KNANuFIRST ?/?<NNAPH'NuNEXT?<ONATH'NuENAME//Bg?<VNAPXH'NuSDTOF; ? ?/?<WNAPTNuDUP,Jg'NuOUNDS &ѫNuUP'NuWAP &'@NuROPzXNuVER'+NuOTwLH&NuROTjLH'@NuRI''NuIP&NuNDER؇L'@&'NuDUP.'+'+NuSWAPVLHH NuDROPPNuOVERk'+ '+ NuROTL?HH0Nu&;CODE y, P\ NuTATENSPNONTEXTN0OFVOCSN#5NENCEN OC-LINKN.ISKNSN ORTHCASH۪N*IRST('<8NuIMITٵ'<NuREVhNP0/BUF'<Nu/BLK'<NuSCRiNCRףNLKhN/L'<@NuTIBNTIBNPANNUTN ISK-ERRORNOLDR/W?9f "SAA??</?<JgSW?<NMH#NuIB'9FNuMIT NfRNuPACE'< NCANCODEON HIFTSTATENASTKEYN NKEY'<NETKEYNBSNuEY$N'K 9~&'9DNu'9lNt  o^0 y~#~&NuS5NZfNu/WNLOCK. y f&Num yg f &Y#Nu`m y#&X/g ''BN'''<N y Nu2A4B6Cyg33t3|3Nu33r3z3~NuECIMALń3 nNuEX3nNuIN33nNuLANKs< NRASEBN MPTY-BUFFERS y"9BNCSP#NuATEST y,'NuESTRICTЅ y, P  Nu EFINITIONS8#,NuLSO"'<'<'<Nv 9gR9NuOSS7 9gS9'<'<'<NXNuNLYְ3NrCe y, P NuRRORN6YPEJjB &ѫNh WBPNRe oNXPNu TRAILING'BN k gNSRe oNXPNu." Wp''T@@їN." W'pT@@їNuPACES(JjBBNN*Re oNXPNuR/'JjDNNNN< 'NN.̳'JjDNNNN g0 g gN ?N3n`3 n`3nB`XJgD#lNuD.nN6 &ѫN W'NRe oNXPN*ORDJ"g'9"N`'9F 9Г&'@N ѹ$k$[ y&SBQ NuINDCFA Spr"HS@ Aam Azn AQAIPA/09H'<'ѫN W P 'gNJgNuXXe oNXPB y,g&gNJgXNu yg,g&gNNuXNuNfirst adress, only NuNsecond adress, only NuNdn NuNan NuN(an) NuN(an)+ NuN-(an) NuNd(an) NuN d(a,x.w/l) NuN.w NuN.l NuNd(pc) NuN d(pc,x.w/l) NuN# NuNccr NuNsr NuNusp NuN bcc .s<-- ? N/ JgXXNuJgN.`NJpgNhpgNtpgNpgNpgNp gNp@gN <gN <gN <gN <gN <gN <gN < gN* <@gN6NINDN`JgX&RJfDNu NTERPRETER~'< NN`JfNNN`J9fDPJg2NNNur beim compilieren verwenden.N [NN`JgP [NN`x"yPJ+g [ PNug2`#`T2N"#`DJyg ygN `NNuJyg ygN `NNuJyg ygN `NNu09|HyrHyzNu09zHytHy|Nu'<r'<NͶB9NuPNuAXNu'< 79~Bc79vBcN^B79Bc79xBcN^NN6U'N REATEHEADO 9Xm,NNDas Dictionary ist voll. N'< NN`Jg8 '9NNschon mal im Dictionary. NX$|*Rpv"4MgRCaQ*RyBo9C- MRP"y," $"NuAJ9g6NN"Nur im Ausfhrungsmodus verwenden.N 9Xm,NNDas Dictionary ist voll. N'< NN`Jg8 '9NNschon mal im Dictionary. N$|*Rpv"4MgRCaQ*RyBo9C- MRP"y,#" $&' '< #PNuaN'< N y0Nu#B9 [ NuIECURSIVE y,"y PX2N"#NuEFER'Nt y0N L#Nu09|HHyzNu09zHHy|NuREATE߅Nt y0N #NuARIABLENt y0N B#Nu ARIABLES'< N [ f ;fNuJfUNup R@NÚ` _(N@:Nt y0'< 0Nu#NONSTANTcNt y0'< 0Nu#NOVEP.L,'<H#!!vNN |~Hf"Ndn d(an) or d(an) dn!N y~f NP@`N>NNNOVEP.W,i'<N|#vNN |~Hg"Ndn dn or -(an) -(an)!N*_N> y~f@U'N*_0NV3vN09z*_NTeOES>b y0N 0'#Nu*_3x3vNN3pNNZJyg &'@NNnN*_#vNNNNZN*_ y~f:3xN6pNNZJyg &'@NN#vNN0<NNZNNLN*_#vNNN>NT NTERPRETN OCABULARY2Nn yB P#PX''<N#N#NuEORTHN >T(Hn<TD b¬EQ&  9W }G Q$Í͐ѾORTH-STN$N3 nBvNu*_3 yf83vNNNZ y~fN`NLN#vNNN@N*_3vNpNNZNƈEPTH 9'NuTACK_ 9yNuSHf"NNDer Stack ist leer.Nu '9'NʤN Я'N,'< N N4JgN'< ї⑱k oNXPNu3x*_3vNN3N|3xNʮUITB"B9NRN*NJ9fJ9ygNN ok. N` OLDERROR.&yNRN<3 nN#"#$J"gN Screen Nr. '9"NZNN Line Nr. '9'<@Nt'NZN'9"N &'@'<@NN ѓ'<@N.NB"UN'<^`'9F'9N.N*'<'<N y0N"S&X#"'<NudASE'9#'<NugNDCASE'<N y0X#g$[$`#NufBORT" y Jf0N'X#N̺NN$[$NuA@9NuB\#NuA؟'<)NXNuB('<)NN6N.ESCIIc'< NR SBPNBYTE'<lN3nBSNNZNZN:'<N>PDATEg yNuLINE)/'< "&'<Nt ѓN ѓ'<@NuLINENتNxN.C->J"f,NNNur beim laden verwenden.NBR"J9g'9lN'9"NZ#lNuOAD~'<"N'<NB#"NLOADp 9"ѓNrISTiN/9l3 nN#N Screen Nr. NZ'<'<NXN Я'''<N N*'9NN4JgNRe oNXPNB#lNuNDEXN'<lN3 nR &'@NN Я''<N N*B Я'NN4JgNRe oNXPNRIAD'VNN4 Я'NپRe oNXPNuHRURNNn Я'NrRe oNXPNuTHRURNNۨ Я'N٦Re oNXPNu ORGET-ITT 9g6NN"Nur ein CONTEXTvocabulary erlaubt.N 9హ,g:NN'CONTEXT und CURRENT mssen gleich sein.N/ 8l*NNDurch FENCE geschtzt. N yPo P`#P"yo N$Nr'''Y [BX'N"W Q m P`"Xe oNXP S&JfX#NuORGETN.NN۸ AVE-SYSTEM'< NN6'< l& [B#8'<'<N3`3 9# 9F#BNJ/Jj2NNFile kann nicht erzeugt werden.N'9'<NJj0NN#File kann nicht beschrieben werden.'NJg0NN#File kann nicht geschlossen werden.NuNPUTlN*N'9F'<N"_ y0Jg("[  lN distance ? N`"["BQ0#N"_ y0Jg"[  lND@`"["PN3vN _0yz y0Jf Nlabel isn't setted N"[  lN distance ? NNODEJ9g0NNNur beim ausfhren verwenden.NNtBy3nNABNnBBN NN _''NuABS'< N [ f ;fNuJfUNup R@N`LEARdX [BNuLRLABS'< N [ f ;fNuJfUNup R@N.N [B`QUNF0N1N2N3N4N5N6)N7=N8QN9eNAyNBNCNCNDNDNENFNXG,#vNN y~fNP yf@@`@`N> yf@`@HNVOVE,q y@~f3xN60,'<gNu,'<fNu,'<oNu,'<lNu=,'<mNu=,'<nNuC,C'<eNuS,'<dNu,'<jNuS,'<hNuC,H'<iNu,'<kNuF,N'9NuHEN,'9NLSE,'<`NN'9NuEGIN,'9NuGAIN,r'<`N'9 &'@NNTIL,JN'9 &'@NHILE,N'9 &'@NuEPEAT,NNO,'9NuOOP,3vN09z@Q'N'9  lN distance ? NN(A,A.W)'< '< N0(A,D.W)'< '< N0(A,A.L)'<  &R'< N0(A,D.L)!'<  &R'< N0 (PC,A.W)'< '< Nh (PC,D.W)x'< '< Nh (PC,A.L)'<  &R'< Nh (PC,D.L)'<  &R'< NhUBQ.B,NQUBQ.W,NQ@UBQ.L,.NQOVEM.W,NHOVEM.L,[NHOVE.B,N"OVE.W,N"0OVE.L,N" OR.B,NOR.W,N@OR.L,NMPM.B,NƔMPM.W, NƔHMPM.L,NƔDDQ.B, NPDDQ.W,FNP@DDQ.L,\NPCHG,N@CLR,NSET,NTST,NDDX.B,NDDX.W,N@UBX.B,NUBX.W,N@BCD,JNDD.L,N\ЀDDA.L,NʦDDI.L,NŪDDX.L,NрND.L,N\NDI.L,@NŪSL.L,NHSR.L,NHRA,1Nޖ`SR,NޖaSR.S,NaEQ,ONޖgNE,NޖfLR.L,NBMP.L,/NMPA.L,FNʦMPI.L,vNŪ ORI.L,NŪ SL.L,NHSR.L,NHOVEA.L,Nʦ @ULU,NBCD,NHEG.L,ENDEGX.L,pN@OT.L,NFR.L,N\RI.L, NŪOL.L,qNHOR.L,NHOXL.L,NHOXR.L,$NHTE,N^NsTS,N^NuBCD,2NUB.L,N\UBA.L,NʦUBI.L,NŪUBX.L, NWAP,NhH@ST.L,+NJ0N1N 2N@3N`4N5 N6N7N0N1/N$2AND3NdPvNd4SN5N6N7NPNA0)^NA1)N(A2)NHA3)NhSP)NhA4) NA5)GNA6)[NA7)JNRP)NA0)+N A1)+N,A2)+NLA3)+NlSP)+NlA4)+NA5)+NA7)+oNRP)+6NA6)+"N(A0)N(A1)rN0(A2)NP(A3)&Np(SP)Np(A4)N(A5)N(A6)N(A7)N(RP)N(A0)NN (A1)bN 5(A2)N U(A3)N u(SP)vN u(A4)N (A5)N (A6)&N (RP)N (A7):N WNLN>(PC)N]NSPN@RwN CRRNDD.B,zN\DD.W,N\@DDA.W,bNʦDDI.B,NŪDDI.W,3NŪ@ND.B,N\ND.W,N\@NDI.B,NŪ!NDI.W,(NŪ@SL,NSL.B,YNHSL.W,mNH@SR,NSR.B,NHSR.W,NH@RA.S,N`CC, NޖdCC.S,NdCS,NޖeCS.S, NeEQ.S,NgGE,NޖlGE.S,ENlGT,WNޖnGT.S,kNnHI,}NޖbHI.S,NbLE,NޖoLE.S,NoLS,NޖcLS.S,NcLT,NޖmLT.S,NmMI,NޖkMI.S,)NkNE.S,1NfPL,;NޖjPL.S,cNjVC,uNޖhVC.S,NhVS,NޖiVS.S,NiHK,nNALR.B,YNBLR.W,NB@MP.B,NMP.W,N@MPA.W,2NʦMPI.B,pNŪ MPI.W,^NŪ @BRA,MNQBT,NPBCC,NTBCS,NUBEQ,NWBLE,N_BLS,NSBLT,N]BGE, N\BGT,N^BHI,0NRBMI,BN[BNE,TNVBPL,fNZBVC,xNXBVS,NYIVS,NORI.B, NŪ! ORI.W,NŪ @XT.W,-NhHXT.L,NhHLLEGAL,N^JMP,NNSR,3NNEA,NʦASL,[NSL.B,qNHSL.W,NHHSR,NSR.B,NHSR.W,NHHOVEA.W,UNʦ0@ULS,NIVU,NEG.B,:NDEG.W,/ND@EGX.B,QN@EGX.W,ZN@@OP,N^NqOT.B,NFOT.W,NF@R.B,}N\R.W,N\@RI.B,NŪ!RI.W,NŪ@EA,NH@ESET,9N^NpOL,5NOL.B,INHOL.W,]NHXOR,NOR.B,NHOR.W,NHXOXL,NOXL.B,NHOXL.W,NHPOXR,NOXR.B,NHOXR.W,NHPTR,N^NwT,NPHI,JNRLS,]NSCC,qNTCS,NUNE,NVEQ,NWVC,NXVS,NYPL,NZMI,N[GE,N\LT,%N]GT,9N^LE,MN_UB.B,DN\UB.W,uN\@UBA.W,JNʦUBI.B,bNŪUBI.W,NŪ@AS,NJRAPV,N^NvST.B,NJST.W,NJ@BORT}&yNRN@'<bNn'<?N'<cNn'<0NN'<vNnNNNNN'<%NN42 NNNN'<!NN FORTH ST NNNN'<NN(C) 1986 by DATA BECKERNNNN'< NN Version 2.3 NNNN'<NN$Implemented by Anton RommerskirchenN&yNNN#N LDCOLORS'<BND Я'BN NRe oNXPNu LDPALETTENwpwppwU33ss EWPALETTENwusppprauVW'UFFERANUFFERBN URRENTBYTE9NNFNUMwNLLNUMNERMIN1N29NATRATEKNNFSUMNAXSTATEN_TOPNYCLENILL1NdNN,RN^NuILLA'<e'<N'<e'<NvN '<fNN Я' ѓN &'@NN, ѓ [VRe oNXPRe oNXPNuIRJOITA\'<'<NNhN,NZN= catalytic rate G NuALT-ITI'< &'@ND'<'<NNSTOPPEDNuHICHKEYLN'<+NTNh [RNN'<-NzNh [SNN'< NNNN'<NN.NNXNuOPYATOBNN,''<g ѓ &'@'<(? ѓ'<dNnNN,'<' ѓNN,R'<dNn'<eBNNN, Я''<fNNR ѓ SBPNN, Я''<fNN'<e ѓ ѓ [VNN, Я''<fNN'<d ѓ ѓ SBPNN, Я''<fNN ѓ [VRe oNXPNN,'<g ѓ SBPNN,'<( ѓ [VNN,'< ѓ SBPNN,'<(> ѓ [VNN,'<' ѓ SBPNN,'<e ѓ [VNN,'<(< ѓ SBPNN, [VNN,NN,'<(NnNuEALTHYBNNDBNND'<'<'<'<'<'<e'<f'<g'<BNNN, ѓNN, ѓ SBP'NJfNNN,NJfNN [RNN [RNXRe oNXPNN,N@N,NJNN,NRN,NJ ѓNN,NN, ѓ [VNu OPYATOSCREEN'<e'<N(N('<e'<NN Я'N '<fNN Я' ѓNN, ѓ SBP'<NJNRe oNXPRe oNXPNuNFECTEDsBN~NDBNND'<'<'<'<'<'<e'<f'<g'<BNNN, ѓNN, ѓ SBP'N~N, ѓN~NDNJfNN [RRe oNXPN~N,NN,NJNhN, ѓ'NN,N&JfN^XNN,NN,NN, ѓ [VNuLL+BNN,NN, ѓ [VNu NFECT-LOOP'<e'<N N('<e'<N N '<fNN Я' ѓ'NNDNN, ѓ SBPBN NN*N xNN,N pNN xN8XRe oNXPRe oNXPNuYCNUMrN [R'<'<NNN,NZN . cycle NuAINLOOPNN NNN,N.N, NJfN 6NNuNIT'9'< ѓ'NND'<) ѓNNDNN,'<(NNN,'<(NNuAINPROC BN.NDN BNN'<'<NN 'HODGEPODGE' '<'<NNA Self-organizing'<'<NNSoup!'<'<NN'Active keys: SPACE=new start, + and - '<'<NN by H. Pesch'<'<NN&After Scientific American 8/88 p. 86f. NBNNDBNNDN'<'<NN N NN,N.N, '<NJfN 2N.N,'<NJfN NVNN>Nu inf Dies ist die Forth-Version eines Programms das ich lieber in Assembler geschrieben htte. Die "Hodgepodge-Machine" nannten Forscher an der Uni Bielefeld einen Zell- automaten, den A. K. Dewdney in der Nummer 8/88 von Scientific American beschrieb. Dieses Programm sollte man sich in der niedrigen Auflsung ansehen! Aber es luft auch in Schwarzweiss. Jede Zelle wird durch einen Bildpunkt dargestellt. Um Euch nicht zu lang- weilen benutze ich nur 100 mal 100 Punkte in der linken oberen Ecke. Jede Zelle kann in 96 verschiedenen Zustnden sein (0-95) Im Zustand "0" ist die Zelle "gesund". Im Zustand "95" ist sie "krank". Dazwischen ist sie mehr oder weniger "infiziert". In dieser Simulation wird der Grad der Infiziertheit farbig dargestellt: weiss = gesund, dunkelblau = krank. Zu Beginn erhalten die Zellen einen zuflligen Zustandswert von 0 bis 95. Danach werden sie auf dem Monitor abgebildet, worauf ihr nchster Zustand errechnet wird. Der hngt vom "Befinden" der acht Nachbarzellen ab. Die Formel zur Berechnung findet sich im genannten Artikel. Das Interessante ist, wie aus einer zuflligen Verteilung allmhlich durch Wechselwirkung Muster entstehen, die sehr organisiert aussehen. Die Fhigkeit zur Selbstorganisation durch Wechselwirkung ist DIE Grund- eigenschaft alles Seins. Aktive Tasten: Space = alles nochmal! + = infektser - = weniger infekts Esc = Schluss! Das Programm ist frei kopierbar! H. Pesch