home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / plisampl.zip / FILE < prev    next >
Text File  |  1987-09-29  |  1KB  |  64 lines
  1. file=OPEN('FILE.DAT','w');
  2. i=1;
  3. DO WHILE(i <= 5);
  4.   PRINT(file,SQRT(i),' ');
  5.   i=i+1;
  6. END;
  7. DO WHILE(i <= 10);
  8.   PRINT(file,SQRT(i)); PUTCRLF(file);
  9.   i=i+1;
  10. END;
  11. CLOSE(file);
  12. i=1;
  13. file=OPEN('FILE.DAT','r');
  14. DO WHILE(! ENDFILE(file));
  15.   real=GETREAL(file);
  16.   IF (! ENDFILE(file)) THEN
  17.     PRINT(SYSPRINT,i,CHAR(9),real); 
  18.   PUTCRLF;
  19.   i=i+1;
  20. END;
  21. CLOSE(file);
  22. file=OPEN('FILE.DAT','w');
  23. i=1;
  24. DO WHILE(i <= 5);
  25.   PRINT(file,i,' ');
  26.   i=i+1;
  27. END;
  28. DO WHILE(i <= 10);
  29.   PRINT(file,i); PUTCRLF(file);
  30.   i=i+1;
  31. END;
  32. CLOSE(file);
  33. i=1;
  34. file=OPEN('FILE.DAT','r');
  35. DO WHILE(! ENDFILE(file));
  36.   integer=GETINT(file);
  37.   IF (! ENDFILE(file)) THEN
  38.     PRINT(SYSPRINT,integer);
  39.   PUTCRLF;
  40.   i=i+1;
  41. END;
  42. CLOSE(file);
  43. file=OPEN('FILE.DAT','w');
  44. PRINT(file,'line 1'); PUTCRLF(file);
  45. PRINT(file,'line 2'); PUTCRLF(file);
  46. CLOSE(file);
  47. file=OPEN('FILE.DAT','r');
  48. DO WHILE(! ENDFILE(file));
  49.   string=GETSTRING(file);
  50.   IF (! ENDFILE(file)) THEN
  51.     PRINT(SYSPRINT,'"',string,'"'); 
  52.   PUTCRLF;
  53. END;
  54. CLOSE(file);
  55. file=OPEN('FILE.DAT','rb');
  56. l=1;
  57. DO WHILE(l > 0);
  58.   a=GETCHAR(file);
  59.   l=LENGTH(a);
  60.   IF l > 0 THEN
  61.     PRINT(SYSPRINT,a);
  62. END;
  63. CLOSE(file);
  64.