Ecriture en riorim

rem ============================================================================
rem       Ecriture en riorim
rem          Par papydall
rem ============================================================================
dim t$,c$
hide 0
t$ = ".tnavius emmargorp el retucéxe zelliuev    "  + chr$(13)
t$ = t$ + " ,egassem ec eril à sap zenevrap en suov iS      " + chr$(13)
t$ = t$ + " !ednom el tuot tulaS    "
application_title "Vous n'avez rien compris à ce charabia ?"
message t$
Decode(t$)
application_title "Le charabia était ... "
message c$
terminate
end : ' ce END après TERMINATE évite le beep_error
rem ============================================================================
SUB Decode(t$)
    dim_local b$,i
    c$ = ""
    for i = 0 to len(t$) -1 : b$ = mid$(t$,len(t$)- i,1) : c$ = c$ + b$ : next i
END_SUB
rem ============================================================================

rem ============================================================================
rem       Ecriture en riorim
rem          Par papydall
rem ============================================================================
dim t$
hide 0
t$ = ".tnavius emmargorp el retucéxe zelliuev    "  + chr$(13)
 t$ = t$ + " ,egassem ec eril à sap zenevrap en suov iS      " + chr$(13)
 t$ = t$ + " !ednom el tuot tulaS    "
application_title "Vous n'avez rien compris à ce charabia ?"
message t$
t$=REVERSE$(t$)
application_title "Le charabia était ... "
message t$
terminate
end : ' ce END après TERMINATE évite le beep_error