![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to files.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to files.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.11, 2000/09/09 20:32:58 | version 1.12, 2000/09/10 19:50:33 |
|---|---|
| Line 34 | Line 34 |
| THEN | THEN |
| newline r> write-file ; | newline r> write-file ; |
| : read-line ( c_addr u1 wfileid -- u2 flag wior ) | |
| (read-line) drop ; | |
| \ include-file 07apr93py | \ include-file 07apr93py |
| : push-file ( -- ) r> | : push-file ( -- ) r> |