CHALLANGE ! Dangerous Maze

[justsomeguy]

For those who are running old versions of QB64.

Code: (Select All)

PRINT osFix("need\menu\bord\uni_bord.jpg")

FUNCTION osFix$ (in AS STRING)
    DIM iter AS LONG
    DIM char AS STRING
    DIM fixed AS STRING
    fixed = in
    FOR iter = 1 TO LEN(in)
        char = MID$(in, iter, 1)
        IF INSTR(_OS$, "[WINDOWS]") THEN
            IF char = "/" THEN
                MID$(fixed, iter) = "\"
            END IF
        ELSE
            IF INSTR(_OS$, "[LINUX]") OR INSTR(_OS$, "[MACOSX]") THEN
                IF char = "\" THEN
                    MID$(fixed, iter) = "/"
                END IF
            END IF
        END IF
    NEXT
    osFix = fixed
END FUNCTION