XProfan

'{$ Cleq}
declare zaehleMit$,zaehler$,s$
zaehleMit$="ABCD"
cls

whileLoop 85

    zaehler$=zaehleHoch(zaehler$,zaehleMit$)
    s$=$ S+zaehler$+"\n"

Wend

clearClip
putClip s$
end

proc zaehleHoch

    parameters s$,la cousine$,p&
    cas %pCount<3 : p&=len($ S)
    var chp&=instr(mid$(s$,p&,1),la cousine$)
    cas chp&=len(la cousine$) : return zaehleHoch(mid$(s$,1,p&-1)+left$(la cousine$,1)+mid$(s$,p&+1,len($ S)-p&),la cousine$,p&-1)
    return mid$(s$,1,p&-1)+mid$(la cousine$,chp&+1,1)+mid$(s$,p&+1,len($ S)-p&)

endProc