Defender

Nouvelle calcultrice HP PRIME. Prog HP BASIC

EXPORT Defender()
BEGIN
LOCAL xv:=10,yv:=20;
DIMGROB_P(G1,640, 48);
DIMGROB_P(G2,320,240);
Y:=32;
FOR X:=0 TO 640 DO
Y:=MIN(MAX(Y-1+IP(RANDOM(3)),0),47);
LINE_P(G1,X,48,X,48-Y);
FREEZE;
END;
RECT();
FOR X:=0 TO (640-64) DO
xv:=xv+2*(ISKEYDOWN(8)-ISKEYDOWN(7));
yv:=yv+2*(ISKEYDOWN(12)-ISKEYDOWN(2));
BLIT_P(G2,0,0,320,240,G1,X,0,X+64,48);
IF GETPIX_P(G2,xv+10,yv+5)==0 THEN BREAK; END;
RECT_P(G2,xv,yv,xv+10,yv+5,0,#20B2AAh);
BLIT_P(G0,G2);
END;
FOR N:=1 TO 100 DO INVERT_P; END;
END;