%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:256 File Name:AIDE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "POUR TOUTE VALIDATION AUTRE QUE ENTRER DES VALEURS, CETTE VALIDATION CE FAIT PAR LA TOUCHE SHIFT POUR UNE MEILLEUR ERGONOMIE. POUR PLUS D'AIDE, VEUILLEZ ENVOYER UN E-MAIL A CETTE ADRESSE : clement.raux@free.fr CELLE ADRESSE EST AUSSI UNE ADRESSE MSN." %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:509 File Name:IMC V2 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \Locate 3,3,"TAILLE EN M?" \Locate 1,7,"clement.raux@free.fr" ?\->T \ClrText \Locate 3,3,"POIDS EN KG?" \Locate 1,7,"clement.raux@free.fr" ?\->P \ClrText P/(T*T)\->A \ClrText \Locate 7,4,"TU ES :" \Locate 1,6,"---------------------" \Locate 7,7,"IMC:" \Locate 11,7,A \If A\<=25\ And A>20:\Then \Locate 7,5,"NORMAL":\IfEnd \If A\<=20\ And A>15:\Then \Locate 7,5,"MAIGRE":\IfEnd \If A\<=15\ And A>10:\Then \Locate 7,5,"TRES MAIGRE":\IfEnd \If A\<=10:\Then \Locate 7,5,"AIE":\IfEnd \If A\<=30\ And A>25:\Then \Locate 7,5,"ENVELOPPE":\IfEnd \If A\<=40\ And A>30:\Then \Locate 7,5,"GROS":\IfEnd \If A\<=60\ And A>40:\Then \Locate 7,5,"OBESE":\IfEnd \If A>60:\Then \Locate 7,5,"OBESE ~REGIME!!!":\IfEnd "CE PROGRAMME A ETE DEVELOPPE PAR CLEMENT." %End