C  STEREOSCOPIC PROGRAM
      DIMENSION IVECT(600)
      COMMON/EYCEP/SP(3),C(3),UP(3)
      COMMON/BULK/I3STRT,I3END,O(6,200)
      COMMON/PAINT/I2STRT,I2END,PICT(4,200)
      COMMON/LIMITS/XMIN,XMAX,YMIN,YMAX
      COMMON/FRAME/XL,XR,YU,YD
      DO 1 I=1,3
      C(I)=0.0
1     UP(I)=0.0
      SP(2)=50.0
      SP(3)=250.0
      UP(2)=10.0
      I2STRT=1
C
 99   FORMAT (I4)
100   FORMAT (6F10.5)
      READ (7,99) N
      READ (7,100) ((O(I,J),I=1,6),J=1,N)
      YMIN=-100.0
      YMAX=100.0
      YD=YMIN
      YU=YMAX
      I3STRT=1
      I3END=N
C
101   FORMAT (2F6.2)
102   READ (4,101) R,S
      CALL CLEAR (.FALSE.)
      XMIN=-50.0
      XMAX=150.0
      XL=-50.0
      XR=50.0
      SP(1)=R
      CALL ROTER
      CALL MAPPER(250.0)
      CALL VECTOR (2,PICT,I2STRT,I2END,IVECT,1,LAST,5,0,0)
      CALL DRAW (IVECT,1,LAST)
C
      XMIN=-150.0
      XMAX=50.0
      XL=-50.0
      XR=50.0
      SP(1)=S
      CALL ROTER
      CALL MAPPER(250.0)
      CALL VECTOR (2,PICT,I2STRT,I2END,IVECT,300,LAST,5,0,0)
      CALL DRAW (IVECT,300,LAST)
      GO TO 102
      STOP
      END
