10 CLS
20 PRINT"OPERATIONS ON TWO VECTORS"
30 PRINT
40 PRINT "VECTOR A: X,Y,Z COORDINATES ";
50 INPUT X1,Y1,Z1
60 PRINT "VECTOR B: X,Y,Z COORDINATES ";
70 INPUT X2,Y2,Z2
80 PRINT
90 PRINT "A+B=";X1+X2;",";Y1+Y2;",";Z1+Z2
100 PRINT "A-B=";X1-X2;",";Y1-Y2;",";Z1-Z2
110 PRINT "A.b=";X1*X2+Y1*Y2+Z1*Z2
120 PRINT "A*B=";Y1*Z2-Z1*Y2;",";Z1*X2-X1*Z2;",";X1*Y2-Y1*X2
130 PRINT
140 PRINT "MORE DATA? (1=YES, 0=NO)";
150 INPUT X
160 IF X=1 THEN 30   
170 END