charlesjean le 28/02/2013 à 21:10
bonjour,
un ami a moi avait fait un prgm comme celui-ci:
Code
lbl 1
Disp "o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Disp " o
Goto 1
ce qui m'a donné l'idée de ces deux codes:
celui-ci pour editer vos annimations:
et celui-là pour les annimer:
Code
ClrHome
If fPart(length(Str1)/16)
Then
Output(1,1,"ERREUR LANCEZ LE PPOGRAMME EDIT"
Stop
End
Input "RALENTISSEURS:",R
Lbl 1
For(A,1,length(Str1),16)
Disp sub(Str1,A,16)
For(B,1,R)
69!
End
End
Goto 1
bonnes annimations!