Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/File-input-output/Ring/file-input-output.ring
+++ b/Task/File-input-output/Ring/file-input-output.ring
@ -0,0 +1,19 @@
+fn1 = "ReadMe.txt"
+fn2 = "ReadMe2.txt"
+
+fp = fopen(fn1,"r")
+str = fread(fp, getFileSize(fp))
+fclose(fp)
+
+fp = fopen(fn2,"w")
+fwrite(fp, str)
+fclose(fp)
+see "OK" + nl
+
+func getFileSize fp
+     c_filestart = 0
+     c_fileend = 2
+     fseek(fp,0,c_fileend)
+     nfilesize = ftell(fp)
+     fseek(fp,0,c_filestart)
+     return nfilesize