00100	ENTRY FLIB;
00200	BEGIN "FLIB"
00300	INTERNAL INTEGER ACADEMY,XESTRT,XBITS;
00400	INTERNAL PROCEDURE INTFRM(REAL A,B,C;INTEGER D,E,F,G,H; REAL Y,Z);
00500	BEGIN END;
00600	INTERNAL PROCEDURE SINIT(INTEGER I);
00700	BEGIN END;
00800	INTERNAL PROCEDURE DISPLAY(INTEGER I);
00900	BEGIN END;
01000	INTERNAL PROCEDURE SND(REAL ARRAY A; INTEGER I,J,K,L,M,N,O;REAL X,Y,Z,W);
01100	BEGIN END;
01200	INTERNAL PROCEDURE ENDBUFF;
01300	BEGIN END;
01400	INTERNAL PROCEDURE SHUTTER;
01500	BEGIN END;
01600	END "FLIB"