Directory of image this file is from
This file as a plain text file

	SUBROUTINE FIGUR(IZ,IX,IY)
C ZEICHNET EINE FIGUR - AUSWAEHLBAR MIT IZ - AUF DEM
C DISPLAY 4010 - MITTELPUNKT IX,IY
C	IZ=1	:	STERN
C	IZ=2	:	KREIS
C	IZ=3	:	LEERES QUADRAT
C	IZ=4	:	DREIECK
C	IZ=5	:	PUNKT
C FORTRAN II
C SR : STERN.FT / KREIS.FT / LQUAD.FT / DRECK.FT / PUNKT.FT
	GOTO(1001,1002,1003,1004,1005),IZ
1001	CALL STERN(IX,IY)
	RETURN
1002	CALL KREIS(IX,IY)
	RETURN
1003	CALL LQUAD(IX,IY)
	RETURN
1004	CALL DRECK(IX,IY)
	RETURN
1005	CALL PUNKT(IX,IY)
	RETURN
	END