1 REM Ins{nt av 2314
10 ; CHR$(12)
20 ; CHR$(12)CUR(0,2)"ANALYS AV TV] VEKTORER"
30 ; 
40 REM DIM EJ N\DV[NDIGT
50 ; "VEKTOR 1:X,Y,Z";
60 INPUT X(1),Y(1),Z(1)
70 ; : ; "VEKTOR 2 X,Y,Z";
80 INPUT X(2),Y(2),Z(2)
90 ; 
100 FOR I=1 TO 2
110 M(I)=SQR(X(I)^2%+Y(I)^2%+Z(I)^2%)
120 IF M(I)=2 THEN 260
130 ; "VEKTOR ";I;":"
140 ; "L[NGDEN";M(I)
150 S=57.2957
160 J=X(I)/M(I)
170 IF J=0 THEN J=.00001
180 ; "VINKELN MOT X-AXELN";ATN((SQR(1-J^2%))/J)*S
190 J=Y(I)/M(I)
200 IF J=0 THEN J=.00001
210 ; "VINKELN MOT Y-AXELN";ATN((SQR(1-J^2%))/J)*S
220 J=Z(I)/M(I)
230 IF J=0 THEN J=.00001
240 ; "VINKELN MOT Z-AXELN";ATN((SQR(1-J^2%))/J)*S
250 ; 
260 NEXT I
270 J=0
280 IF M(1)=0 THEN 350
290 IF M(2)=0 THEN 350
300 J=(X(1)*X(2)+Y(1)*Y(2)+Z(1)*Z(2))/M(1)/M(2)
310 IF J<>0 THEN 340
320 J=90
330 GOTO 350
340 J=ATN((SQR(1-J^2%))/J)*S
350 ; "VINKELN MELLA VEKTORERNA";J
360 ; 
370 ; : ; "EN TILL? (J/N):"; : GET B$
380 IF B$="n" OR B$="N" THEN 390 ELSE ; CHR$(12) : GOTO 10
390 END