1 REM Ins{nt av 2314
10 ; CHR$(12)
20 ; CHR$(12)CUR(0,2)"OPERATIONER P] TV] VEKTORER"
30 ; 
40 ; "VEKTOR A:X,Y,Z-KOORDINATER";
50 INPUT X1,Y1,Z1
60 ; : ; "VEKTOR B:X,Y,Z-KOORDINATER";
70 INPUT X2,Y2,Z2
80 ; 
90 ; "A+B=";X1+X2;",";Y1+Y2;",";Z1+Z2
100 ; "A-B=";X1-X2;",";Y1-Y2;",";Z1-Z2
110 ; "A.B=";X1*X2+Y1*Y2+Z1*Z2
120 ; "A*B=";Y1*Z2-Z1*Y2;",";Z1*X2-X1*Z2;",";X1*Y2-Y1*X2
130 ; 
140 ; : ; "EN TILL? (J/N):"; : GET B$
150 IF B$="n" OR B$="N" THEN 160 ELSE ; CHR$(12) : GOTO 10
160 END