COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN
C00004 ENDMK
C⊗;
BEGIN
	REQUIRE "DPYSUB.HDR[1,PDQ]" SOURCE_FILE;
	INTEGER ARRAY DPYBUF[0:1000];
	INTEGER X,Y,I,J;
PROCEDURE SQUARE (INTEGER X,Y,S);
BEGIN 	
	AIVECT (X+S, Y+S);
	AVECT (X+S, Y-S);
	AVECT (X-S, Y-S);
	AVECT (X-S, Y+S);
	AVECT (X+S, Y+S);
END;
PROCEDURE CIRCLE (INTEGER CX,CY,S);
BEGIN
	INTEGER X,Y;
X←S;Y←0;
AIVECT (CX+X,CY+Y);
FOR I←1 STEP 1 UNTIL 100 DO
BEGIN
	X←X-Y/16;
	Y←Y+X/16;
	AVECT (CX + X, CY + Y);
END;END;
DPYSET (DPYBUF);
SQUARE (0,0,300);
SQUARE (0,0,100);
CIRCLE  (0,0,100); CIRCLE (100,100,400);

DPYOUT (0);
INCHRW;
FOR X←20 STEP 10 UNTIL 400 DO
BEGIN SQUARE (X, X/2,X/10); DPYOUT (0);
END;
INCHRW;
END;