OS/2 Shareware BBS: 10 Tools/10-Tools.zip/plisampl.zip/SQRT

Text File | 1987-09-28 | 100b | 7 lines

i=1;
DO WHILE (i <= 10);
  PRINT(SYSPRINT,'SQRT(',i,') = ',SQRT(i));
  PUTCRLF;
  i=i+1;
END;