[h316.git] / programs / plotter / src / achja.f

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
Commit	Line	Data
fcb7b340	1	C ACH JA, DAS AUCH
	2	C
	3	C
	4	INTEGER X,Y
	5	C
	6	C
	7	1000 CALL PL$RST
	8	DO 2000 X=0,600,50
	9	CALL LINE(X,-100,X,100)
	10	2000 CONTINUE
	11
	12	1500 DO 1600 Y=0,200,50
	13	CALL LINE(0,Y-100,600,Y-100)
	14	1600 CONTINUE
	15	CALL LINE (0,1,600,1)
	16	CALL LINE (0,-1,600,-1)
	17	C
	18	CALL PL$MV(0,0)
	19	CALL PL$PD
	20	DO 3000 X=0,600
	21	TMP=X
	22	PHI=(3.141/180.0)*TMP
	23	Y=SIN(PHI)*90.0
	24	CALL PL$MV(X,Y)
	25	3000 CONTINUE
	26	CALL PL$PU
	27	C
	28	C
	29	C
	30	CALL PL$MV(0,0)
	31	CALL REBOOT
	32	END
	33	C
	34	C
	35	C
	36	SUBROUTINE LINE(X1,Y1,X2,Y2)
	37	INTEGER X1,Y1,X2,Y2
	38	CALL PL$MV(X1,Y1)
	39	CALL PL$PD
	40	CALL PL$MV(X2,Y2)
	41	CALL PL$PU
	42	RETURN
	43	END
	44	$0
	45
	46