home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / misclang / runpli1a.zip / SQRT < prev   
Text File  |  1987-09-28  |  100b  |  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.