Ce code peut être utilisé comme programme, ou comme routine dans vos futurs programmes
Il permet de faire rebondir un texte a l'écran.
Pratique, non ?
Il permet de faire rebondir un texte a l'écran.
- Code:
1->A:1->B:1->C:1->D
Input "TEXTE? ",Str0
length(Str0->N
ClrHome
Repeat getKey
A->E
A+C->A:B+D->B
Output(A,B,Str0
Output(E,1," "
If A=1:1->C
If A=8:-1->C
If B=1:1->D
If B=17-N:-1->D
End
DelVar Str0EffEcr
Pratique, non ?