CALL AYPSTR(86)
      CALL AYORIG(20.0,30.0)
      PI=4.0*ATAN(1.0)
      XM=140.0
      HXM=0.5*XM
      YM=120.0
      HYM=YM*0.5
      CALL MOVETO(0.0,0.0)
      CALL LINETO(XM,0.0)
      CALL LINETO(XM,YM)
      CALL LINETO(0.0,YM)
      CALL LINETO(0.0,0.0)
      CALL LINEWD(0.5)
      CALL MOVETO(HXM,0.0)
      CALL LINETO(HXM,YM)
      CALL MOVETO(0.0,HYM)
      CALL LINETO(XM,HYM)
      CALL LINEWD(1.5)
      DO 1 I=-40,40
         X=(PI*I)/40.0
         XX=XM*(I+40)/80.0
         YY=(SIN(X)+1.0)*HYM
         IF(I.EQ.-40) CALL MOVETO(XX,YY)
         IF(I.GT.-40) CALL LINETO(XX,YY)
 1    CONTINUE
      CALL LINEWD(1.3)
      CALL SETDAS(5,3,1)   
      DO 2 I=-40,40
         X=(PI*I)/40.0
         XX=XM*(I+40)/80.0
         YY=(COS(X)+1.0)*HYM
         IF(I.EQ.-40) CALL MOVETO(XX,YY)
         IF(I.GT.-40) CALL LINETO(XX,YY)
 2    CONTINUE   
      CALL AYPEND
      STOP
      END