:Disp "cranwell@yahoo.com" :Degree:Disp "VEC A" :Prompt X,Y,Z:liåvc {X,Y,Z}üA:Disp "VEC B" :Prompt X,Y,Z:liåvc {X,Y,Z}üB :Lbl M:Menu(1,"AREA",A,2,"ANG",G,3,"PROJ",P,4,"É x",D,5,"EXIT",X) :Lbl A:Disp "AREA":Disp .5norm (cross(A,B))åFrac:Goto M :Lbl G:Disp "DEGSô":Disp cosñ (dot(A,B)/(abs (norm A norm B))) :Goto M :Lbl D:Disp "DOT":Disp dot(A,B) :Disp "CROSS AxB":Disp cross(A,B)åFrac:Disp "CROSS BxA" :Disp cross(B,A)åFrac:Goto M :Lbl P:Disp "Proj a B USEÏå" :Disp "B ALONG A ENTER" :dot(B,A)/(norm A)ò*AüZ:Pause ZåFrac :Disp "B ORTHO A":Pause B-ZåFrac :Goto M :Lbl X