FOO:	DO;

FARP: PROCEDURE EXTERNAL;
END;

SLUG :PROCEDURE;
	DECLARE PTR POINTER;
	DECLARE I INTEGER;
	DECLARE IPTR BASED PTR INTEGER;
	DECLARE J REAL;
	declare k real;
	declare l REAL;
	declare mqaFOO WORD;
	declare FOObar DWORD;

	PTR = @I;
	IPTR = 72;
	CALL IPTFIL;
	CALL SET$INTERRPUT(0, FARP);
	CALL SET$INTERRUPT(IABS(I), FIX(I));
	J = FLOAT(FIX(I));

END SLUG;
	END FOO;