image of READY prompt

Wang2200.org

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

# Sector 592, program filename = '14'
0001 SELECT R
0005 DIM X(6),M(4),A(3)
0010 PRINT
0015 PRINT "INPUT VECTORS 1/LINE (X,Y,Z,CARRIAGE RETURN)"
0030 INPUT X(1),X(2),X(3)
0040 INPUT X(4),X(5),X(6)
0045 PRINT
0050 FOR I=1 TO 4 STEP 3
0060 M(I)=SQR(X(I)^2+X(I+1)^2+X(I+2)^2)
0070 IF M(I)=0 THEN 180
0080 PRINT "FOR VECTOR ";INT(I/4)+1
0090 PRINT "  MAGNITUDE=";M(I)
0100 FOR J=1 TO 3
0110 B=X(I+J-1)/M(I)
0120 A(J)=ATN(SQR(1-B^2)/B)*57.29578
0130 NEXT J
0140 PRINT "  ANGLE BETW. VECTOR AND X-AXIS=";A(1)
0150 PRINT "  ANGLE BETW. VECTOR AND Y-AXIS=";A(2)
0160 PRINT "  ANGLE BETW. VECTOR AND Z-AXIS=";A(3)
0170 PRINT
0180 NEXT I
0185 B=0
0190 IF M(1)=0 THEN 260
0200 IF M(4)=0 THEN 260
0210 B=(X(1)*X(4)+X(2)*X(5)+X(3)*X(6))/M(1)/M(4)
0220 IF B<>0 THEN 250
0230 B=90
0240 GOTO 260
0250 B=ATN(SQR(1-B^2)/B)*57.29578
0260 PRINT "ANGLE BETW. VECTORS= ";B
0280 PRINT
0290 PRINT "MORE INPUT? (1=YES,0=NO)"
0300 INPUT B
0310 IF B=1 THEN 10
0320 SELECT D
   : END