#!
Zplay©
123456789 = changer de motif   (caractère 9 = espace (effacement)
f = effacer l'écran
c = effacer
espace = mettre un caractère
q = mode dessin continu
!#
niveaugourou 0
MontrerCurseur(*(1))
Caractere=«+»
tatata=*(2)
x=&tatata
y=&tatata
§1
gotoXY (*(0) *(0))                                                              
GOTOPRINTDUTEXTE («Caractère= »)
GOTOPRINTDUTEXTE() &Caractere
gotoXY (*(0) *(23))
GOTOPRINTDUTEXTE()  &y «Y=» « » &x «Coordonées X=»
gotoXY (*(40) *(23))
GOTOPRINTDUTEXTE(«h pour l'aide»)
gotoXY (&x &y)


PlusMoinsOuAutre=TapeUneTouche()


Droite=&TOUCHEDROITE
Gauche=&TOUCHEGAUCHE
Haut=&TOUCHEHAUT
Bas=&TOUCHEBAS


TantQue }&PlusMoinsOuAutre eg &Gauche{
TantQue }&x eg *(0){
GOTOPASMALIN %1
FinTantQue
          x=&x-*(1)
          arret
FinTantQue


TantQue }&PlusMoinsOuAutre eg &Haut{
TantQue }&y eg *(1){
GOTOPASMALIN %1
FinTantQue
          y=-*(1)
          arret
FinTantQue


TantQue }&PlusMoinsOuAutre eg &Bas{
TantQue }&y eg *(22){
GOTOPASMALIN %1
FinTantQue
          y=+*(1)
          arret
FinTantQue

TantQue }&PlusMoinsOuAutre eg &Droite{
TantQue }&x eg *(70){
GOTOPASMALIN %1
FinTantQue
          x=&x+*(1)
          arret
FinTantQue

TantQue }&PlusMoinsOuAutre eg *(102){
NettoyerEcran()
GOTOPASMALIN %1
FinTantQue


TantQue }&PlusMoinsOuAutre eg *(32){
GOTOPRINTDUTEXTE() &Caractere
arret
FinTantQue

TantQue }&PlusMoinsOuAutre eg *(99){
GOTOPRINTDUTEXTE (« »)
arret
FinTantQue

TantQue }&PlusMoinsOuAutre eg *(104){
gotoXY(*(0) *(23))
GOTOPRINTDUTEXTE(«123456780 pour changer le caractère, espace pour mettre un point, c pour effacer, f pour tout effacer, q pour passer en dessin continu»)
TapeUneTouche()
NettoyerEcran()
arret
FinTantQue












#! Dessin continu !#
TantQue }&PlusMoinsOuAutre eg *(113){
Huhu=TapeUneTouche()
TantQue }&Huhu eg &Gauche{
TantQue }&x eg *(0){
GOTOPASMALIN %1
FinTantQue
          x=&x-*(1)
          arret
FinTantQue
TantQue }&Huhu eg &Haut{
TantQue }&y eg *(1){
GOTOPASMALIN %1
FinTantQue
          y=-*(1)
          arret
FinTantQue
TantQue }&Huhu eg &Bas{
TantQue }&y eg *(23){
GOTOPASMALIN %1
FinTantQue
          y=+*(1)
          arret
FinTantQue
TantQue }&Huhu eg &Droite{
TantQue }&x eg *(70){
GOTOPASMALIN %1
FinTantQue
          x=&x+*(1)
          arret
FinTantQue
TantQue }&Huhu eg *(113){
GOTOPASMALIN %1
FinTantQue
GOTOPRINTDUTEXTE() &Caractere
gotoXY(&x &y)


FinTantQue

















#! choix des caractères    !#
TantQue }&PlusMoinsOuAutre eg *(49){
                                    Caractere=«+»
GOTOPASMALIN %1
FinTantQue
TantQue }&PlusMoinsOuAutre eg *(50){
                                    Caractere=«@»
GOTOPASMALIN %1
FinTantQue
TantQue }&PlusMoinsOuAutre eg *(51){
                                    Caractere=«-»
GOTOPASMALIN %1
FinTantQue
TantQue }&PlusMoinsOuAutre eg *(52){
                                    Caractere=«|»
GOTOPASMALIN %1
FinTantQue
TantQue }&PlusMoinsOuAutre eg *(53){
                                    Caractere=«/»
GOTOPASMALIN %1
FinTantQue
TantQue }&PlusMoinsOuAutre eg *(54){
                                    Caractere=«#»
GOTOPASMALIN %1
FinTantQue
TantQue }&PlusMoinsOuAutre eg *(55){
                                    Caractere=«\»
GOTOPASMALIN %1
FinTantQue
TantQue }&PlusMoinsOuAutre eg *(48){
                                    Caractere=« »
GOTOPASMALIN %1
FinTantQue
TantQue }&PlusMoinsOuAutre eg *(56){
                                    Caractere=«_»
GOTOPASMALIN %1
FinTantQue

GOTOPASMALIN %1