100 "A" CLEAR : DEGREE : CLS : INPUT "Ax=";A#,"Ay=";B#,"Az=";C#:D#= û ( SQU A#+ SQU B#+ SQU C#): PAUSE "lAl=": PRINT D#
  101 PAUSE "a=": PRINT  ACS (A#/D#): PAUSE "b=": PRINT  ACS (B#/D#): PAUSE "g=": PRINT  ACS (C#/D#): CLS 
  102 INPUT "Bx=";E#,"By=";F#,"Bz=";G#:H#= û ( SQU E#+ SQU F#+ SQU G#): PAUSE "lBl=": PRINT H#
  103 PAUSE "a=": PRINT  ACS (E#/H#): PAUSE "b=": PRINT  ACS (F#/H#): PAUSE "g=": PRINT  ACS (G#/H#)
  104 X#=(A#*E#+B#*F#+C#*G#):I#=X#/(D#*H#): PAUSE "cos a=": PRINT I#: PAUSE "Winkel=": PRINT  ACS I#
  105 PAUSE "A X B":J#=B#*G#-C#*F#:K#=C#*E#-A#*G#:L#=A#*F#-B#*E#
  106 PAUSE "Cx=": PRINT J#: PAUSE "Cy=": PRINT K#: PAUSE "Cz=": PRINT L#
  107 PAUSE "lCl=": PRINT D#*H#* SIN  ACS I#
  108 PAUSE "A auf B":O#=X#/( SQU E#+ SQU F#+ SQU G#)
  109 PAUSE "Dx=": PRINT O#*E#: PAUSE "Dy=": PRINT O#*F#: PAUSE "Dz=": PRINT O#*G#
  110 PRINT "lDl="; û ( SQU (O#*E#)+ SQU (O#*F#)+ SQU (O#*G#))
  111 PAUSE "A->B=": PRINT  û ( SQU (E#-A#)+ SQU (F#-B#)+ SQU (G#-C#))
  112 PAUSE "Skalarpr=": PRINT D#*H#*I#
  113 PAUSE "sp.Wink.E-G":P#= ABS I#: PAUSE "sin=": PRINT P#: PAUSE "Winkel=": PRINT  ASN P#: END