C ACH JA, DAS AUCH
C
C
      INTEGER X,Y
C
C
 1000 CALL PL$RST
      DO 2000 X=0,600,50
         CALL LINE(X,-100,X,100)
 2000 CONTINUE
      
 1500 DO 1600 Y=0,200,50
         CALL LINE(0,Y-100,600,Y-100)
 1600 CONTINUE
      CALL LINE (0,1,600,1)
      CALL LINE (0,-1,600,-1)
C
      CALL PL$MV(0,0)
      CALL PL$PD
      DO 3000 X=0,600
         TMP=X
         PHI=(3.141/180.0)*TMP
         Y=SIN(PHI)*90.0
         CALL PL$MV(X,Y)
 3000 CONTINUE
      CALL PL$PU
C     
C
C
      CALL PL$MV(0,0)
      CALL REBOOT
      END
C
C
C     
      SUBROUTINE LINE(X1,Y1,X2,Y2)
      INTEGER X1,Y1,X2,Y2
      CALL PL$MV(X1,Y1)
      CALL PL$PD
      CALL PL$MV(X2,Y2)
      CALL PL$PU
      RETURN
      END
$0