bwBASIC/SCBP/OPS2VEC.BAS

10 PRINT "OPERATIONS ON TWO VECTORS"
20 PRINT
30 PRINT "VECTOR A: X,Y,Z COORDINATES";
40 INPUT X1,Y1,Z1
50 PRINT "VECTOR B: X,Y,Z COORDINATES";
60 INPUT X2,Y2,Z2
70 PRINT
79 REM - PERFORM VECTOR ADDITION, PRINT RESULTING VECTOR COORDINATES
80 PRINT "A+B=";X1+X2;",";Y1+Y2;",";Z1+Z2
89 REM - PERFORM VECTOR SUBTRACTION, PRINT RESULTING VECTOR COORDINATES
90 PRINT "A-B=";X1-X2;",";Y1-Y2;",";Z1-Z2
99 REM - CALCULATE DOT PRODUCT, PRINT
100 PRINT "A B=";X1*X2+Y1*Y2+Z1*Z2
109 REM - CALCULATE CROSS PRODUCT, PRINT RESULTING VECTOR COORDINATES
110 PRINT "A*B=";Y1*Z2-Z1*Y2;",";Z1*X2-X1*Z2;",";X1*Y2-Y1*X2
120 PRINT
129 REM - RESTART OR END PROGRAM?
130 PRINT "MORE DATA? (1=YES, 0=NO)";
140 INPUT X
150 IF X=1 THEN 20
160 END