/* Programme test2.pli */
/* plic -C -dELF -lsiaxgo -ew "-cn(^) -i/lib/include" test2.pli -o test2pli.o */
/* ld -z muldefs -Bstatic -M -o test2pli --oformat=elf32-i386 -melf_i386 -e main test2pli.o /lib/libprf.a > /dev/null */
/* ./test2pli */

TEST2:	PROCEDURE OPTIONS (MAIN);

	DECLARE SYSPRINT OUTPUT UNBUFFERED;
	DECLARE SYSIN INPUT UNBUFFERED;
	DECLARE B REAL FIXED BINARY (15,0) INIT (1);
	DECLARE I REAL FIXED BINARY (15,0);
	DECLARE C REAL FIXED BINARY (31,0);
	DECLARE R REAL FLOAT DECIMAL (6);

	PUT SKIP EDIT ('Borne:?') (A);
	PUT SKIP EDIT ('') (A);

LOOP1:	DO WHILE (B > 0);
	  GET EDIT (B) (A);
	  I = 1;
LOOP2:	  DO WHILE (I <= B);
	    C = I**2;
	    R = SQRT (I);
	    PUT SKIP EDIT ('I= ',I,' I^2= ',C,' I^1/2= ',R) (A,F(4),A,F(5),A,F(7,4));
	    I = I + 1;
	  END LOOP2;
	  IF (B > 0) THEN PUT SKIP EDIT ('Borne:?') (A);
	  PUT SKIP EDIT ('') (A);
	END LOOP1;
	PUT EDIT ('Fin du programme test2.pli') (A);

END TEST2;