Ben justement ya vrément pas grand choz ds le prog et ca me fé carémt ch**
If p=0 Then // <---- Ca foire ici..
¨and dim(s)<13 Then
Ca en fait c t pour voir si ca venait du "dim" Les trémas c les commentaire (le (c) n'est pas dans la police apparement)
Bon je vais faire mon boulet :
*************************
Le prog principal était entier ca c "pos()" :
**********
Prgm //Bon en gros ca c les figures ke fait le mek (p = numéro de la figure)
If p=0 and dim(s)<13 Then //***Si p=0 il fait celle la
ClrIO //***(déplacement a droite ms bon on sen fout..)
Disp s&" "
Disp s&" |"
Disp s&" +"
Disp s&" (|\"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
s&" "»s
Disp s&" "
Disp s&" |"
Disp s&" +"
Disp s&" | "
Disp s&" |"
For p,1,40
EndFor
¨--------------
ElseIf p=1 and dim(s)>0 Then //*** Si c = à 1 il fé ca etc...
ClrIO
Disp s&" "
Disp s&" |"
Disp s&" +"
Disp s&" /|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
left(s,dim(s)-1)»s
Disp s&" "
Disp s&" |"
Disp s&" +"
Disp s&" |"
Disp s&" |"
For p,1,40
EndFor
¨--------------
ElseIf p=2 Then /*** encore
ClrIO
Disp s&" "
Disp s&" 0"
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,80
EndFor
¨-------------
ElseIf p=3 and dim(s)<13 Then //***Encore et tjs pareil
ClrIO
Disp s&" "
Disp s&" 0"
Disp s&" -|-"
Disp s&" | "
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" "
Disp s&" "
Disp s&" 0 ouch !"
Disp s&" \|/"
Disp s&"__|__"
For p,1,40
EndFor
ClrIO
Disp s&" "
Disp s&" 0"
Disp s&" -|-"
Disp s&" | "
Disp s&" / \"
For p,1,40
EndFor
¨--------------
ElseIf p=4 and dim(s)<13 Then /***ZZzzzzzzzzzz
ClrIO
Disp s&" "
Disp s&" 0"
Disp s&" -|-"
Disp s&" | "
Disp s&" ( )"
For p,1,40
EndFor
ClrIO
Disp s&" 0 youpi !"
Disp s&" \|/ "
Disp s&" | "
Disp s&" / \"
Disp s&""
For p,1,40
EndFor
ClrIO
Disp s&""
Disp s&" 0 "
Disp s&" \|/"
Disp s&" | "
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&"vlam ! "
Disp s&" "
Disp s&" ?!"
Disp s&" "
Disp s&"_Ÿ_0__"
For p,1,80
EndFor
ClrIO
Disp s&" "
Disp s&" 0 bobo!"
Disp s&" (+"
Disp s&" |)"
Disp s&" / \"
For p,1,60
EndFor
¨--------------
ElseIf p=5 and dim(s)<6 and int(rand(0))=1 Then
ClrIO
Disp s&" "
Disp s&" ^0"
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" "
Disp s&" ^0^"
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" -0-"
Disp s&" "
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" ^0^"
Disp s&" "
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" -0-"
Disp s&" "
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" ^0^"
Disp s&" "
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" -0-"
Disp s&" "
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" ^0^"
Disp s&" "
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" -0-"
Disp s&" "
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" ^0^"
Disp s&" "
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" "
Disp s&" -0-"
Disp s&" +"
Disp s&" (|)"
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&" "
Disp s&" "
Disp s&" + ^0^"
Disp s&" (|)"
Disp s&" / \"
For p,1,30
EndFor
ClrIO
Disp s&" "
Disp s&" "
Disp s&" + "
Disp s&" (|)"
Disp s&" / \ -0-"
For p,1,20
EndFor
ClrIO
Disp s&" "
Disp s&" "
Disp s&" +"
Disp s&" (|) sprotch!"
Disp s&" / \ ___"
For p,1,40
EndFor
ClrIO
Disp s&" ?! "
Disp s&" "
Disp s&" +"
Disp s&" (|)"
Disp s&" / \ ___"
For p,1,80
EndFor
¨--------------
ElseIf p=7 and dim(s)<13 Then
ClrIO
Disp s&" "
Disp s&" 0"
Disp s&" -|-"
Disp s&" | "
Disp s&" ( )"
For p,1,40
EndFor
ClrIO
Disp s&" 0 youpi !"
Disp s&" \|/ "
Disp s&" | "
Disp s&" / \"
Disp s&""
For p,1,40
EndFor
ClrIO
Disp s&""
Disp s&" 0 "
Disp s&" \|/"
Disp s&" | "
Disp s&" / \"
For p,1,40
EndFor
ClrIO
Disp s&"vlam ! "
Disp s&" "
Disp s&" ?!"
Disp s&" "
Disp s&"_Ÿ_0__"
For p,1,80
EndFor
ClrIO
Disp s&" "
Disp s&" 0 bobo!"
Disp s&" (+"
Disp s&" |)"
Disp s&" / \"
For p,1,60
EndFor
¨--------------
EndIf
EndPrgm
****************
En gros c un pti économiseur d'écran avec un bonom ki fé des truks..
Noubli pa ke les trémas c les commentaire
A oui et pui si tu le copies fo enlever les "//"
