此内容来自第三方平台 (Dailymotion)。如果此视频侵犯了您的版权，请使用 立即删除 工具。
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;
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;
关键词与标签
相关视频
HP Calculators - Prime Graphing Calculator
Banoschausteld
HP Prime Graphing Calculator Review
Rosalynpg
Graphing Calculator 2D Polar and Taylor Calculator Level 2
Vitali Tihomirov
Online Graphing Calculator – Top 20 Scientific Calculators List
Raj5151 111
HP 50g Graphing Calculator
Queinaustachia
Texas Instruments TI-92 Plus Graphing Calculator
Buraughiaverbur