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$,base$,p&
    case %pCount<3 : p&=len(s$)
    var chp&=instr(mid$(s$,p&,1),base$)
    case chp&=len(base$) : return zaehleHoch(mid$(s$,1,p&-1)+left$(base$,1)+mid$(s$,p&+1,len(s$)-p&),base$,p&-1)
    return mid$(s$,1,p&-1)+mid$(base$,chp&+1,1)+mid$(s$,p&+1,len(s$)-p&)

endProc