Data update

2023-07-22 21:42:12 -07:00 · 2023-07-22 21:42:12 -07:00 · 07c7092a52
commit 07c7092a52
parent 9817d9b99b
140 changed files with 2712 additions and 241 deletions
--- a/Task/File-input-output/Forth/file-input-output-1.fth
+++ b/Task/File-input-output/Forth/file-input-output-1.fth
@ -3,8 +3,8 @@
    r/o open-file throw >r
    w/o create-file throw r>
    begin
-        pad maxstring  2 pick  read-file throw
-    ?dup while
+        pad 84  2 pick  read-file throw
+        ?dup while
        pad swap  3 pick  write-file throw
    repeat
    close-file throw