'BEGIN' 'COMMENT' FUNCTION COMPUTER;
	'REAL' A,B; 'INTEGER' I;
	SKIP;
	START: READ (1,A);SKIP;
	WRITE (1, "FOR A VALUE OF",A);SKIP;
        WRITE (1, "        SINE        COSINE        ARCTANGENT");SKIP;
	B:= SIN(A); WRITE (1,B);
	B:=COS(A); WRITE (1,B);
        B:=ARCT(A); WRITE (1,B);SKIP;
        WRITE (1, "      NAT LOG       EXPONENTIAL     SQR ROOT");SKIP;
	B:=LN(A); WRITE (1,B);
	B:=EXP (A); WRITE (1,B);
	B:=SQRT (A); WRITE (1,B);SKIP;
        WRITE (1, "   INTEGER PART     REAL PART       SIGN");
        WRITE (1, "           ABSOLUTE VALUE");SKIP;
	I:=ENTIER (A); WRITE (1,I);
        B:=REAL (I); WRITE (1,"          ",B);
	B:=SIGN (A); WRITE (1,B);
	B:=ABS (A); WRITE (1,B);SKIP;SKIP;
	'GOTO' START
'END'
$
        