Le javanais

REM ===========================================================================
REM  Auteur: Parpaiun
REM  Date-version: 17_07_2015
REM ===========================================================================
LABEL reprise, incruste
caption 0,"Texte en clair traduit en argot J A V A N A I S"
width 0,900
dim i,j,l$,r$,sp$,sw,t$,v$
rem On définit toutes les voyelles avec ou sans accents pour que leur
rem  traitement soit pris en compte:
v$="aâàeéèëêioôuûù"
'
rem Syllabe parasite:
rem  Essayez avec une ou plusieurs voyelles suivies d une seule consonne
sp$="av"
'
i=0: sw=0
'
rem  Tapez ici en minuscules votre texte en clair à traduire !
t$="employons les moyens pour ouir le gazouillis de l'oisillon"
'
print: t$ = " " + t$
font_size 0,14
print t$: print
'
reprise:
i= i+1: if i > len(t$) then END
l$ = mid$(t$,i,1)
'
rem  Analyse de la lettre
for j = 1 to len(v$)
 if l$ = mid$(v$,j,1) then goto incruste
next j
print l$;
sw=0
goto reprise
'
incruste:
if sw = 1 then print l$;: goto reprise
print sp$;l$;
sw=1
goto reprise
*