XProfan

!
kleine Debug-Hilfe

Proc PfadTest

    Parameters s$
    Declare i%, j%, c$
    Print " "
    Color 0,15
    Print "Der Pfad lautet:"
    j% = Len(s$)

    While (i% < j%)    WhileLoop ersetzt, vermeidet Probleme

        Inc i%
        c$ = Mid$(s$,i%,1)

        If c$ = Chr$(32)    Leerzeichen " "

            Color 0,10
            Print c$;

        ElseIf c$ = Chr$(92)    Backslash ""

            Color 15,12
            Print c$;

        ElseIf c$ = Chr$(47)    Slash "/"

            Color 15,9
            Print c$;
            Else    der Rest
            Color 0,15
            Print c$;

        EndIf

    EndWhile

    Color 0,15
    Print " "
    WaitKey

EndProc

Cls
PfadTest("C:Masm32\der Test\")
PfadTest($ProgDir+"PfadTest.ini")
Fin