%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:1099 File Name:MOYENNES Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl 0 \ClrText \Locate 1,1,"\(-)-~\@F9\e^x\@F9\tanh O MOYENNE O\@F9\tanh \@F9\e^x~-\(-)" \Locate 1,2," " \Locate 1,4," F1: AJOUTER" \Locate 1,5," F2: CONSULTER" \Locate 1,6," F5: RESET" \Locate 1,7," F6: QUITTER" \Lbl 1 \Getkey=79\=>\GotoA \Getkey=69\=>\GotoB \Getkey=29\=>\GotoC \Getkey=39\=>\GotoW \Goto1 \Lbl C \ClrText \Stop \Lbl A \ClrText \Locate 1,2,"---------------------" \Locate 1,3,"- AJOUT DES NOTES -" \Locate 1,4,"---------------------" \Locate 1,6,"NOTE A AJOUTER :" \Locate 1,7," PUSH [EXE]"\Disp\ClrText " " " " "NOTE :"?\->A \Mat K[1,1]\->B A\->\Mat K[B,1] \Mat K[1,1]+1\->\Mat K[1,1] \Goto0 \Lbl B \ClrText \Locate 1,2,"VOTRE MOYENNE :" \Mat K[2,1]+\Mat K[3,1]+\Mat K[4,1]+\Mat K[5,1]+\Mat K[6,1]+\Mat K[7,1]+\Mat K[8,1]+\Mat K[9,1]+\Mat K[10,1]+\Mat K[11,1]+\Mat K[12,1]+\Mat K[13,1]+\Mat K[14,1]+\Mat K[15,1]+\Mat K[16,1]+\Mat K[17,1]+\Mat K[18,1]+\Mat K[19,1]+\Mat K[20,1]+\Mat K[21,1]+\Mat K[22,1]+\Mat K[23,1]+\Mat K[24,1]+\Mat K[25,1]+\Mat K[26,1]+\Mat K[27,1]+\Mat K[28,1]+\Mat K[29,1]+\Mat K[30,1]+\Mat K[30,1]+\Mat K[31,1]+\Mat K[32,1]+\Mat K[33,1]+\Mat K[34,1]+\Mat K[35,1]+\Mat K[36,1]+\Mat K[37,1]+\Mat K[38,1]+\Mat K[39,1]+\Mat K[40,1]+\Mat K[41,1]+\Mat K[42,1]+\Mat K[43,1]+\Mat K[44,1]+\Mat K[45,1]+\Mat K[46,1]+\Mat K[47,1]+\Mat K[48,1]+\Mat K[49,1]+\Mat K[50,1]\->L \Mat K[1,1]\<=2\=>\GotoQ L/(\Mat K[1,1]-2)\->F \Locate 12,4,F \Locate 17,4," " \Do \LpWhile \Getkey\<>31 \Goto0 \Lbl W 2\->\Mat K[1,1] \For 2\->O \To 100 0\->\Mat K[O,1] \Next \Goto0 \Lbl Q \ClrText \Locate 1,4," T'AS PAS DE NOTES" \Locate 8,5,"BOUFFON"\Disp\Goto0 %End