Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2025-01-04 04:31:04 +00:00
Code Issues Projects Releases Wiki Activity

reformatting

Browse Source
This commit is contained in:
Antoine Vignau 2023-08-14 11:58:14 +02:00
parent e5733cdf08
commit 9214372085
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
toutadisparu/sources st/DISPARU.SRC
View File

@ -419,8 +419,7 @@ FUNCTION affiche_texte$(texte$)
LOCAL longueur_texte%,i%,j%,ligne_max$,b$,return$,return%,longueur%
'
i%=1
WHILE LEFT$(texte$,1)="œ" !ON SUPPRIME D'EVENTUELS SIGNES "œ" (RETOUR CHAR
IOT)
WHILE LEFT$(texte$,1)="œ" !ON SUPPRIME D'EVENTUELS SIGNES "œ" (RETOUR CHARIOT)
texte$=MID$(texte$,2) !AU DEBUT DU TEXTE
WEND
'