REM UN PROGRAMME REALISE PAR : Jean Philippe Santolaria
open window 640,512

10
setdrawbuf curbuff
curbuff = 1 - curbuff
setdispbuf curbuff
clear window

setrgb 1,150,0,0
setrgb 2,0,150,0
setrgb 3,0,0,150
gtriangle 0,0 to 640,0 to 640,512
gtriangle 0,0 to 0,512 to 640,512


setrgb 1,255,255,255
text 320,255,"TOUCHES DIRECTIONNELLES:","cc"
text 320,275,"DEPLACER RECTANGLE","cc"
text 320,295,"TRANSPARENT:","cc"

setrgb 1,0,0,0
rect 270+raidg,206+raidh to 370+raidg,306+raidh

for ex=0 to 100 step 2
line 270+raidg,206+raidh+ex to 370+raidg,206+raidh+ex
next 

speed=5

 k=peek("port1")
if and(k,64)<>0 then
raidh=raidh+speed
fi

if and(k,16)<>0 then
raidh=raidh-speed
fi


if and(k,128)<>0 then
raidg=raidg-speed
fi

if and(k,32)<>0 then
raidg=raidg+speed
fi



goto 10


