10 DEFINT a-z:MODE 0:BORDER 0:FOR a=0 TO 15:INK a,0:NEXT:CLG 1:INK 1,26:WHILE l<159:c=l*2:e=1+e MOD 14:MOVE c,l:DRAW 639-c,l,e+1:DRAW 639-c,385-l:DRAW c,385-l:DRAW c,l:l=l+2:WEND:CALL &BB9F,1:FOR a=0 TO 7:PEN a MOD 2:PRINT,,,TAB(4)"PLEIN LES YEUX",:NEXT 20 p=20:m=23:z=-1:CALL &BB9F:WHILE 1:PRINT CHR$(30)" TAPEZ 1="p" 2="m;:WHILE INKEY$="":FOR a=1 TO 2:FOR b=2-6*(z=-1) TO 8+6*(z=-1) STEP z:INK b,p:INK b+7,m:CALL &BD19:NEXT:c=p:p=m:m=c:NEXT:WEND:z=-z:p=(p+INKEY(13)+1)MOD 27:m=(m+INKEY(14)+1)MOD 27:WEND