HP Prime for All
English
Русский
HP Apps : Memory
| Name | Memory |
| Description | A little memory game, where the numbers 1 to 9 appear on the screen and are hidden by rectangles. |
| Author | Unknown |
Source code (download):
Source code formatted by website engine
EXPORT C_noir := #0h;
EXPORT C_noir1 := #130E0A:32h;
EXPORT C_blanc := #FFFFFF:32h;
EXPORT C_blanc1 := #F4FEFE:32h;
EXPORT C_gris := #7D7D7D:32h;
EXPORT C_vert := #78C832:32h;
EXPORT C_vert1 := #096A09:32h;
EXPORT C_vert2 := #3A9D23:32h;
EXPORT C_vert3 := #9EFD38:32h;
EXPORT C_bleu := #1919EB:32h;
EXPORT C_bleu1 := #3A8EBA:32h;
EXPORT C_bleu2 := #77B5FE:32h;
EXPORT C_rouge := #FF0000:32h;
EXPORT C_rouge1 := #B82010:32h;
EXPORT C_rouge2 := #850606:32h;
EXPORT C_saumon := #F88E55:32h;
EXPORT C_amety := #884DA7:32h;
EXPORT C_argent := #CECECE:32h;
EXPORT C_azur := #007FFF:32h;
EXPORT C_beige := #C8AD7F:32h;
EXPORT C_beurre := #F0E36B:32h;
EXPORT C_bordo := #6D071A:32h;
EXPORT C_boutor := #FCDC12:32h;
EXPORT C_cafe := #462E01:32h;
EXPORT C_carmin := #960018:32h;
EXPORT C_emerod := #01D758:32h;
EXPORT C_fer := #848484:32h;
EXPORT C_feu := #FF4901:32h;
EXPORT C_fushia := #FD3F92:32h;
EXPORT C_jade := #87E990:32h;
EXPORT C_jaune := #FFFF00:32h;
EXPORT C_lilas := #B066D2:32h;
EXPORT C_marrine := #03224C:32h;
EXPORT C_marron := #582900:32h;
EXPORT C_menthe := #16B84E:32h;
EXPORT C_noiset := #955628:32h;
EXPORT C_or := #FFD700:32h;
EXPORT C_orange := #FF7F00:32h;
EXPORT C_rose := #FD6C9E:32h;
EXPORT C_rose1 := #FD3F92:32h;
EXPORT C_violet := #7F30FF:32h;
Filmat()
BEGIN LOCAL i, x, y, f;
FOR i FROM 1 TO 9 DO f := 0;
REPEAT x := RANDINT(1, 8);
y := RANDINT(1, 6);
IF M1(y, x) == 0 THEN M1(y, x) := i; f := 1;
END;
UNTIL f;
END;
END;
Afmat(m)
BEGIN LOCAL i, j, x, y;
RECT_P();
FOR i FROM 1 TO 6 DO FOR j FROM 1 TO 8 DO IF M1(i, j) > 0 THEN x := j*40-32; y := i*40-32;
IF m THEN TEXTOUT_P(STRING(M1(i, j)), G0, x, y, 7, C_noir);
ELSE
RECT_P(x-7, y-7, x+31, y+31, C_gris);
END;
END;
END;
EXPORT Test_du_singe()
BEGIN LOCAL x, y, i, j, n, r, t;
LOCAL m, o;
M1 := MAKEMAT(0, 6, 8);
Filmat();
CHOOSE(m, "Observation", "Libre", "4 sec.", "6 sec.", "8 sec.");
Afmat(1);
n := 1; t := TICKS;
IF m > 1 THEN t := m*2; o := 1;
WAIT(t);
Afmat(0);
END;
REPEAT WHILE MOUSE(4) < 0 DO IF n == 1 AND NOT o THEN t := ROUND((TICKS-t) / 1000, 1);
END;
x := MOUSE(2); y := MOUSE(3);
WHILE MOUSE(4) ≥ 0 DO IF r == n THEN IF n == 1 AND NOT o THEN Afmat(0);
END;
n := n+1; r := n;
RECT_P(i*40-40, j*40-40, i*40, j*40);
WHILE GETKEY < 0 DO IF n == 10 THEN MSGBOX("BRAVO "+CHAR(10) + "Temps d'observation : "+STRING(t) + " sec.");
END;
END;