Inverser une chaîne de caractères

' Inverser une chaîne de caractères
dim a$, b$, i%

a$ = "Bonjour les panoramiciens !"

for i% = 1 to len(a$)
    b$ = mid$(a$,i%,1) + b$
next i%

print a$
print b$

dim a$
a$ = "Bonjour les panoramiciens!"
print a$
print reverse$(a$)

rem ============================================================================
rem                     Palindrome
rem ============================================================================
rem  Se dit d’un mot, d’un vers, d’une phrase que l’on peut lire indifféremment
rem  de gauche à droite ou de droite à gauche.
rem ============================================================================
dim phrase$
phrase$ = "Engage le jeu que je le gagne" : print palindrome$(phrase$)
phrase$ = "Esope reste ici et se repose"  : print palindrome$(phrase$)
phrase$ = "Elu par cette crapule"         : print palindrome$(phrase$)
phrase$ = "Karine alla en Irak"           : print palindrome$(phrase$)
print
phrase$ = "Panoramic"                     : print palindrome$(phrase$)

end
rem ============================================================================
FNC Palindrome$(phrase$)
    dim_local i,p$,c$
    ' Supprimer les espaces
    for i = 1 to len(phrase$)
        c$ = mid$(phrase$,i,1)
        if c$ <> " " then p$ = p$ +c$
    next i
    p$ = upper$(p$)
    
    if reverse$(p$) = p$
       result phrase$ + "    est un palindrome"
    else
       result phrase$ + "    n'est pas un palmindrome"
    end_if
END_FNC
rem ============================================================================