Nouveau sur le forum je recherche des programmes de BTS MUC (prix psycho, calculs commerciaux...)

J'ai trouvé ça et je voudrai le traduire pour ma casio 25

ClrText
"-==PRIX PSYCHO==-"
Do:GetKey
LpWhile Not Ans
Do
"COMBIEN DE PRIX?"
"ENTREZ VALEUR PUIS"
"APPUYEZ SUR [EXE]"
?→A
{A,9}→Dim Mat A
For 1→B To A
ClrText:" ":" "
Locate 1,1,"NIVEAU DE PRIX"
Locate 1,2,B
?→C
C→Mat A[B,1]
Next
0→D
For 1→B To A
ClrText:" ":" "
Locate 1,1,"REPONSES PRIX EXCF ?"
Locate 1,2,B
?→C
C→Mat A[B,2]
D+C→D
Next
For 1→B To A
Mat A[B,2]*100/D→Mat A[B,3]
Next
For 1→B To A
For 1→G To B
Mat A[G,3]+Mat A[B,4]→Mat A[B,4]
Next
Next
0→D
For 1→B To A
ClrText:" ":" "
Locate 1,1,"REP QLT INSF"
Locate 1,2,B
?→C
C→Mat A[B,5]
C+D→D
Next
For 1→B To A
Mat A[B,5]*100/D→Mat A[B,6]
Next
For A→B To 1 Step –1
For A→G To B Step –1
Mat A[G,6]+Mat A[B,7]→Mat A[B,7]
Next
Next
ClrText
Locate 1,1,"CALCUL NON ACHAT"
For 1→B To A
Mat A[B,4]+Mat A[B,7]→Mat A[B,8]
Next
Locate 1,2,"CALCUL ACHAT"
For 1→B To A
100-Mat A[B,4]-Mat A[B,7]→Mat A[B,9]
Next
0→E
For 1→B To A
Mat A[B,9]→D
If D≥E
Then D→E
B→F
IfEnd
Next
Locate 1,3,"LE MEILLEUR PRIX EST"
Locate 3,4,Mat A[F,1]
Do:GetKey
LpWhile Not Ans
Mat A
ClrText
"RECOMMENCER?"
"[EXE]:OUI"
Do:GetKey
LpWhile Not Ans
Ans≠31⇒Break
LpWhile 1

Et une autre question comment ne pas répéter une phase de calcul déjà effectuer, donc le résultat est utile pour la suite du programme.

Merci