LOGICAL*1 DATUM
      DIMENSION DATUM(9)
      DIMENSION XARR(59)
      DIMENSION YARR(59)
C      DATA XARR/-7.,-6.,-5.,-4.,-3.,-2.,-1., 0.,
C     1           1., 2., 3., 4., 5., 6., 7., 0., 0./
C      DATA YARR/49.,36.,25.,16., 9., 4., 1., 0.,
C     1           1., 4., 9.,16.,25.,36.,49., 0., 0./
      DATA IPAT1/ZAAAAAAAA/
      DATA IPAT2/Z88888888/
      DO 5 I=1,57
      XARR(I)=-7.+FLOAT(I-1)*0.25
      YARR(I)=XARR(I)**2+1.
    5 CONTINUE
      CALL DATE  (DATUM)
      CALL LPLOTS( 0.00, 0.00,0)
C      CALL LFACTR(0.5)
      CALL LPLOT ( 1.00, 1.00,3)
      CALL LPLOT ( 0.00, 0.00,2)
      CALL LPLOT ( 0.00,27.00,2)
      CALL LPLOT (19.00,27.00,2)
      CALL LPLOT (19.00, 0.00,2)
      CALL LPLOT ( 0.00, 0.00,2)
      CALL LG8CHR(0.3,0.3,0.2,0.,0.,1.,1.,
     1            DATUM,9,0,ALEN,XEND,YEND)
      XPOS=19.-0.3-ALEN
      CALL LG8CHR(XPOS,0.3,0.2,0.,0.,1.,1.,
     1            DATUM,9,1,ALEN,XEND,YEND)
      CALL LORIGN( 2.00, 3.00,0)
      XPOS=0.00
      YPOS=0.00
      SIZE=1.00
      PEN=SIZE/7.
   10 CONTINUE
      CALL LG8DIN(XPOS,YPOS,SIZE,PEN,0.,
     1            '^Uberschrift',12,0,ALEN,XEND,YEND)
      IF (ALEN.LT.15.00) GO TO 20
      SIZE=SIZE*15.00/ALEN
      PEN=SIZE/7.
      GO TO 10
   20 XPOS=(15.00-ALEN)/2.
      YPOS=22.50-SIZE/2.
      CALL LG8DIN(XPOS,YPOS,SIZE,PEN,0.,
     1            '^Uberschrift',12,1,ALEN,XEND,YEND)
C
      CALL LSCALE(XARR,15.,57,1)
      CALL LSCALE(YARR,21.,57,1)
C      CALL LASPCT(2.0)
      CALL LAXIS ( 0.00, 0.00,'X - Achse',-9,
     1            15.00, 0.,XARR(58),XARR(59))
      CALL LAXIS ( 0.00, 0.00,'Y - Achse',9,
     1            21.00,90.,YARR(58),YARR(59))
      CALL LAXIS ( 0.00, 2.00,'Z - Achse',-9,
     1            15.00,30.,999.00, 2.00)
      CALL LLINE (XARR,YARR,57,1,4,2)
C
      CALL LGRID ( 0.00, 0.00,15, 1.00, 21,
     1             1.00,IPAT1)
      CALL LGRID ( 0.00, 0.00,75, 0.20,84,
     1             0.25,IPAT2)
C
      XM=7.5
      YM=13.5
      RAD=4.0
      XS=XM+RAD*COSD(30.)
      YS=YM+RAD*SIND(30.)
C
      CALL LPLOT (XM,YM,3)
      CALL LPLOT (XS,YS,2)
      CALL LCIRCL(XS,YS,120.,420.,RAD)
      CALL LPLOT (XM,YM,2)
C
      XM=8.5
      YM=13.5
      RAD=4.0
      XS=XM+RAD*COSD(30.)
      YS=YM-RAD*SIND(30.)
C
      CALL LPLOT (XM,YM,3)
      CALL LPLOT (XS,YS,2)
      CALL LCIRCL(XS,YS,60.,120.,RAD)
      CALL LPLOT (XM,YM,2)
C
      CALL LPLOT ( 0.00, 0.00,999)
      STOP
      END