/**/

main:
    
    do i = c2d("A") to c2d("Z")
        c = d2c(i)
        endc.c = 0
    end

    if ~open(fi,"qsls.dat","read") then do
        say "Open Error qsls.dat"
        exit 20
    end

    do while ~eof(fi)
        z = readln(fi)
        call = word(z,1)
        if call = "" then iterate
        endchar = substr(call,length(call),1)
        endc.endchar = endc.endchar + 1
    end

    call close fi
/*
    do i = c2d("A") to c2d("Z")
        c = d2c(i)
        say d2c(i)" "endc.c
    end
*/
    txt = translate("organspende rettet leben")
    oxx = ""
    flt = ""

    do x = 1 to length(txt)
        c = substr(txt,x,1)
        if c = " " then do
            oxx = oxx" "
            iterate
        end
        if endc.c > 0 then do
            endc.c = endc.c - 1
            oxx = oxx"*"
        end
        else do
            oxx = oxx"-"
            flt = flt||c","
        end
    end

    say
    say txt
    say oxx
    say
    if flt = "" then do
        say "Diplom kann beantragt werden."
        rc = 0
    end
    else do
        flt = substr(flt,1,length(flt) - 1)
        say "Diplom kann nicht beantragt werden, es fehlen"
        say "Calls's mit folgenden  Endbuchstaben im Suffix:"
        say "    >>> "flt" <<<"
        rc = 1
    end
    say

    exit rc