Defender

visibility 18 vistas schedule hace 12 años timer 0:37
open_in_new Dailymotion
axel_59
Nouvelle calcultrice HP PRIME. Prog HP BASIC <br /><br />EXPORT Defender() <br />BEGIN <br /> LOCAL xv:=10,yv:=20; <br /> DIMGROB_P(G1,640, 48); <br /> DIMGROB_P(G2,320,240); <br /> Y:=32; <br /> FOR X:=0 TO 640 DO <br /> Y:=MIN(MAX(Y-1+IP(RANDOM(3)),0),47); <br /> LINE_P(G1,X,48,X,48-Y); <br /> FREEZE; <br /> END; <br /> RECT(); <br /> FOR X:=0 TO (640-64) DO <br /> xv:=xv+2*(ISKEYDOWN(8)-ISKEYDOWN(7)); <br /> yv:=yv+2*(ISKEYDOWN(12)-ISKEYDOWN(2)); <br /> BLIT_P(G2,0,0,320,240,G1,X,0,X+64,48); <br /> IF GETPIX_P(G2,xv+10,yv+5)==0 THEN BREAK; END; <br /> RECT_P(G2,xv,yv,xv+10,yv+5,0,#20B2AAh); <br /> BLIT_P(G0,G2); <br /> END; <br /> FOR N:=1 TO 100 DO INVERT_P; END; <br />END;