: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

    Source: geocities.com/paris/arc/1927/ti85

               ( geocities.com/paris/arc/1927)                   ( geocities.com/paris/arc)                   ( geocities.com/paris)