%Header Record Format:MCS1 Type Number:1 File Name:PRIXPSY Option Name: Communication SW:0 Capacity:912 Data Type:PG %Data Record Password: BaseN:0 \ClrText \Locate 3,3,"-==PRIX PSYCHO==-" \Locate 1,6,"\Prog : MEITHAL" \Locate 1,7,"MEITHAL\thetaHOTMAIL.COM" \Do:\Getkey \LpWhile \Not \Ans \Do \ClrText:" ":" ":" " \Locate 1,1,"COMBIEN DE PRIX?" \Locate 1,2,"ENTREZ VALEUR PUIS" \Locate 1,3,"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\Disp\ClrText "RECOMMENCER?" "[EXE]:OUI" \Do:\Getkey \LpWhile \Not \Ans G\<>31\=>\Break \LpWhile 1 \@00 %End