:Disp "cranwell@yahoo.com"
:Prompt X,Y,Z
:Prompt I,J,K
:liåvc {X,Y,Z}üA
:liåvc {I,J,K}üB
:Input "NEWTONS=?",N
:If N:B*N*güB
:cross(A,B)üW
:Pause W

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

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