XProfan

English

p.specht

CRISPR is a gentechnische shears, circa Genabschnitte the RNA to exchange. In Gen-Databases becomes such a thing beforehand accounts, to see, where one best cut and supplant. the Analog take action can on Stringvariablen utilize:

One more steadily String s$ should on position n& against String R$ on defined length ausgetauscht go. for demonstration a Button constantly pressed hold:

Compile Mark Separation

Window Title "DNA: Stringabschnitt austauschen"

proc replace$

    parameters stg$,at&,rep$
    ' stg$ definiert too always The Ausgabelänge
    ' at& = Einfügeposition of -(len(rep$)+2) To len(stg$)+1 (=keine Einfügung)
    return mid$(left$(stg$,at&-1)+rep$+mid$(stg$,at&+len(rep$),len(stg$)+1-(at&+len(rep$))),if(&Loop<1,-1*(&Loop-2),1),len(stg$))

Endproc

Font 2:Cls
declare s$,r$,ls&,lr&,forever&,i&
S$="GenabschnittDerZuBehandelnIst+" : s$=s$+s$
ls&=len(s$)

Repeat

    inc i&
    r$=left$("....................................VIRUSBEFALL...................................",i&)
    lr&=len(r$)

    WhileLoop ls&+1,-1*(lr&-2),-1

        Print replace$(s$,&Loop,r$)

        if %csrlin>22 : waitinput : cls : endif

        Endwhile

    Until i&=ls&

    WaitInput
    End