      SUBROUTINE NORMAL(DIST,NEW)
      COMMON/LINKIT/ISTRT,LINKS(6,15)
      COMMON/MOTION/SYMTAB(5,7,20),DIRTAB(9,2)
C  --SET UP--
      CALL INITL(NEW)
      CALL INPUTS
      ISTRT=1
123   FORMAT(1X,I4)
C  -- NORMALIZE HANDS AND FEET
      CALL ROTATE(90.0,0.0,0.0,5)
      CALL ROTATE(-90.0,0.0,0.0,8)
      CALL ROTATE(0.0,0.0,90.0,12)
      CALL ROTATE(0.0,0.0,90.0,15)
C  --ZERO BLOCK 1 OF SYMTAB--
      DO 10 I=1,5
      DO 10 M=1,7
      SYMTAB(I,M,1)=0.0
10    CONTINUE
C  --NORMALIZE REST---
C  --BULD RAC MATRICES WHERE REQD--
C  --HEAD--
      SYMTAB(2,1,1)=1.0
C  --TORS0-
      SYMTAB(2,2,1)=1.0
C  --L ARM
      SYMTAB(1,3,1)=0.00005
      SYMTAB(2,3,1)=-1.0
      CALL ROTATE(0.0,0.0,-90.0,6)
C  --R ARM
      SYMTAB(2,4,1)=-1.0
      SYMTAB(1,4,1)=0.00005
      CALL ROTATE(0.0,0.0,-90.0,3)
C  --L LEG
      SYMTAB(1,5,1)=0.00005
      SYMTAB(2,5,1)=-1.0
      CALL ROTATE(0.0,0.0,-90.0,13)
C  -- R LEG
      SYMTAB(1,6,1)=0.0005
      SYMTAB(2,6,1)=-1.0
      CALL ROTATE(0.0,0.0,-90.0,10)
C  --BODY--
       SYMTAB(2,7,1)=-90.0
      CALL ROTATE(0.0,-90.0,0.0,1)
C  --CONSTRUCT POSITION AND RECORD--
      IFUNC=6
      CALL FILMOD(ISTRT)
      CALL DRAWIT(DIST,NEW,ISTRT,IFUNC)
      CALL PULSE(ID,IF)
      RETURN
      END
