BEGIN
    REAL N;
    INTEGER I;
    STRING SDUM;

    WHILE TRUE DO
    BEGIN
	OUTSTR('15&'12&'12&"NUMBER PLEASE: ");
	SDUM←INCHWL;
	N←REALSCAN(SDUM,0);
	I←N;
	OUTSTR("NUMBER "&CVF(N)&" TRUNCATED IS "&CVS(I));
    END;

END;