XProfan

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

whileLoop 85

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

wend

clearClip
putClip s$
end

proc zaehleHoch

    parámetros s$,base$,p&
    caso %pCount<3 : p&=len(s$)
    var chp&=instr(mid$(s$,p&,1),base$)
    caso chp&=len(base$) : volver zaehleHoch(mid$(s$,1,p&-1)+left$(base$,1)+mid$(s$,p&+1,len(s$)-p&),base$,p&-1)
    volver mid$(s$,1,p&-1)+mid$(base$,chp&+1,1)+mid$(s$,p&+1,len(s$)-p&)

endProc