home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PLI / RUNPLI1A.ARC / SQRT < prev   
Encoding:
Text File  |  1987-09-28  |  100 b   |  7 lines
  1. i=1;
  2. DO WHILE (i <= 10);
  3.   PRINT(SYSPRINT,'SQRT(',i,') = ',SQRT(i));
  4.   PUTCRLF;
  5.   i=i+1;
  6. END;
  7.