%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:365 File Name:VECTEURS Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->A~Z \ClrText "ABSCISSE VECTEUR 1 "?\->A "ORDONNEE VECTEUR 1 "?\->O "ABSCISSE VECTEUR 2 "?\->X "ORDONNEE VECTEUR 2 "?\->Y AY-XO\->\r AX+OY\->\theta \ClrText \r=0\ And \theta\<>0\=>\Goto1 \theta=0\ And \r\<>0\=>\Goto2 \r\<>0\ And \theta\<>0\=>\Goto3 \Lbl 1 \ClrText \Locate 1,2,"VECTEURS COLINEAIRES" \Locate 1,3,"ET NON ORTHOGONAUX" \Return \Lbl 2 \ClrText \Locate 1,2,"VECTEURS ORTHOGONAUX" \Locate 1,3,"ET NON COLINEAIRES" \Return \Lbl 3 \ClrText \Locate 1,2,"VECTEURS NI" \Locate 1,3,"COLINEAIRES NI" \Locate 1,4,"ORTHOGONAUX" %End