image of READY prompt

Wang2200.org

Listing of file='13' on disk='vmedia/glbr_22.wvd.zip'

# Sector 235, program filename = '13'
0005 PRINT "VECTOR A?"
0010 INPUT X1,Y1,Z1
0015 PRINT "VECTOR B?"
0020 INPUT X2,Y2,Z2
0025 PRINT
0030 PRINT "A+B=(";X1+X2;",";Y1+Y2;",";Z1+Z2;")"
0035 PRINT "A-B=(";X1-X2;",";Y1-Y2;",";Z1-Z2;")"
0040 PRINT "AB=";X1*X2+Y1*Y2+Z1*Z2
0045 PRINT "AXB=(";Y1*Z2-Z1*Y2;",";Z1*X2-X1*Z2;",";X1*Y2-Y1*X2;")"
0050 PRINT
0055 PRINT "MORE INPUT? (1=YES,0=NO)"
0060 INPUT X1
0065 PRINT
0070 IF X1=1 THEN 5
0075 END