120 "B" CLEAR : CLS : INPUT "A=";A#,"B=";B#,"C=";C#,"D=";D#
  121 INPUT "Rx=";E#,"Ry=";F#,"Rz=";G#,"Fx=";H#,"Fy=";I#,"Fz=";J#
  122 L#=-D#-A#*H#-B#*I#-C#*J#:M#=A#*E#+B#*F#+C#*G#: IF L#<>0 AND M#=0 PRINT "parallel": END 
  123 IF L#=0 AND M#=0 PRINT "G.in Ebene": END 
  124 K#=L#/M#:X#=H#+K#*E#:Y#=I#+K#*F#:Z#=J#+K#*G#
  125 PRINT "x=";X#: PRINT "y=";Y#: PRINT "z=";Z#