00100	REQUIRE "DPYSUB[1,3]" LOAD_MODULE;
00300	REQUIRE "DISPLY[1,PDQ]" LOAD_MODULE;
00400	EXTERNAL PROCEDURE RVECT(INTEGER X,Y);
00500	EXTERNAL PROCEDURE RIVECT(INTEGER X,Y);
00600	EXTERNAL PROCEDURE RPT(INTEGER X,Y);
00650	EXTERNAL PROCEDURE RPOINT(INTEGER X,Y);
00700	EXTERNAL PROCEDURE AIVECT(INTEGER X,Y);
00800	EXTERNAL PROCEDURE AVECT(INTEGER X,Y);
00900	EXTERNAL PROCEDURE APT(INTEGER X,Y);
00950	EXTERNAL PROCEDURE APOINT(INTEGER X,Y);
01000	EXTERNAL PROCEDURE GVECT(INTEGER X,Y,OP,SIZ,BRT);
01100	EXTERNAL PROCEDURE DPYSET(INTEGER ARRAY BUF);
01200	EXTERNAL INTEGER PROCEDURE DPYPARS;
01300	EXTERNAL PROCEDURE DPYRESET(INTEGER BUF);
01400	EXTERNAL INTEGER PROCEDURE GETPOG;
01500	EXTERNAL PROCEDURE RELPOG(INTEGER POG);
01600	EXTERNAL PROCEDURE CLRBFR;
01700	EXTERNAL PROCEDURE HYDPOG(INTEGER POG);
01800	EXTERNAL PROCEDURE DPYOUT(INTEGER POG);
01850	EXTERNAL BOOLEAN OVERLAY;
01900	EXTERNAL PROCEDURE TYPLOC(INTEGER P1,P2);
01950	EXTERNAL PROCEDURE DPYTYP(INTEGER POS,JMPS,LINESPERJUMP);
02000	EXTERNAL PROCEDURE PGSEL(INTEGER POG);
02100	EXTERNAL PROCEDURE UPGMVM(INTEGER VAL;INTEGER ADR);
02200	EXTERNAL INTEGER PROCEDURE UPGMVE(INTEGER ADR);
02300	EXTERNAL PROCEDURE DPYCLR;
02350	EXTERNAL INTEGER PROCEDURE DPYTST;
02400	EXTERNAL PROCEDURE DPYBIG(INTEGER SIZE);
02500	EXTERNAL PROCEDURE DPYBRT(INTEGER BRT);
02600	EXTERNAL PROCEDURE DPYSST(STRING S);
02700	EXTERNAL INTEGER DPYPTR;
02800	
02900	EXTERNAL PROCEDURE ACPOGS(INTEGER MASK);
03000	EXTERNAL PROCEDURE ACCPOG(INTEGER POG);
03100	EXTERNAL PROCEDURE DACPOG(INTEGER POG);
03200	EXTERNAL INTEGER POGON;
03300	
03400	
03500	EXTERNAL PROCEDURE CALCOMP(STRING FILE;INTEGER ARRAY BUFR);
03600	EXTERNAL PROCEDURE COMLST(STRING COMS);
03700	EXTERNAL INTEGER PROCEDURE MKSCALE(INTEGER X0,Y0,DX;REAL DY;INTEGER I0,IM;STRING UNITS);
03800	EXTERNAL INTEGER PROCEDURE ARRGRF(INTEGER ARRAY A;INTEGER I0,IM,X0,Y0,XN,YN;STRING XUNIT,YUNIT);
03900	EXTERNAL PROCEDURE MKCIRCLE(REAL RADIUS,X0,Y0;INTEGER RES);
04000	EXTERNAL BOOLEAN CALFLG;
04100	EXTERNAL PROCEDURE OVERPIC(STRING PICNAM;INTEGER ARRAY DPYBUF;INTEGER NX,NY,L);
04200	EXTERNAL PROCEDURE DDOVER(INTEGER ARRAY PIC;INTEGER ARRAY DPYBUF;INTEGER NX,NY,L);
04300	EXTERNAL PROCEDURE DDCLR;