Sujet:

Commentaires:
: bon decidement personne ne comprends mon probleme: : je veux superposer un grob avec une boucle de 2 sketches. (c'est simple jusque la non?) : voici la source du prog: : : ERASE:WHILE ANS\=/105 REPEAT 1\|>PAGENUM:\->DISPLAY PAGE:2\|>PAGENUM:\->DISPLAY PAGE:SYSEVAL 239737:END:01\|>XMIN:130\|>XMAX:0\|>YMIN:63\|>YMAX:60\|>X:32\|>Y: : MAKEGROB G2;32 27 (source en hexa du grob): : MAKEGROB G1;20 28 (source en hexa du grob): : MAKEGROB G3;24 26 (source en hexa du grob): : MAKEGROB G4;24 26 (source en hexa du grob): : DO GETKEY K: : IF K==36.1 THEN X+7\|>X:REPLACE G0;(X,Y);G4:\->DISPLAY G0:GROBXOR G0;(X,Y);G4: END: : IF K==34.1 THEN X-7\|>X:REPLACE G0;(X,Y);G3: : \->DISPLAY G0: : GROBXOR G0;(X,Y);G3:END: : IF K==25.1 THEN Y+15\|>Y:REPLACE G0;(X,Y);G1: : \->DISPLAY G0: : GROBXOR G0;(X,Y);G1: : END: : IF K==35.1 THEN Y-2\|>Y:REPLACE G0;(X,Y);G2: : \->DISPLAY G0: : GROBXOR G0;(X,Y);G2: : END: : IF K==21.1 THEN Y+20\|>Y:REPLACE G0;(X,Y);G1: : \->DISPLAY G0: : GROBXOR G0;(X,Y);G1:Y-20\|>Y:REPLACE G0;(X,Y);G1: : \->DISPLAY G0: : GROBXOR G0;(X,Y);G1:END: : UNTIL K==101.1 END: : : moi ce que je voudrais c'est superposer le deplacement du grob (a partir de "do getkey") avec le "WHILE ANS\=/105 REPEAT 1\|>PAGENUM:\->DISPLAY PAGE:2\|>PAGENUM:\->DISPLAY PAGE:SYSEVAL 239737:END:". Le probleme c'est que dans le programme que je vous donne, ca lance la boucle avec les sketches mais pas le grob, celui ci se lance que lorsque je fais "enter" et dès qu'il arrive, c'est les sketches qui se barrent. : merci de m'aider