00100	ENTRY VECTO;
00200	BEGIN "FAKE"
00300	INTERNAL PROCEDURE VECTO(REAL U,V);
00400	BEGIN END;
00500	INTERNAL PROCEDURE MOVETO(REAL U,V);
00600	BEGIN END;
00900	INTERNAL PROCEDURE INIT;
01000	BEGIN END;
01050	INTERNAL INTEGER SHOPNT;
01100	END "FAKE";