Implement READ-LINE and WRITE-LINE

[pforth] / fth / loadp4th.fth

diff --git a/fth/loadp4th.fth b/fth/loadp4th.fth
index a558ea6..dd835ce 100644 (file)
--- a/fth/loadp4th.fth
+++ b/fth/loadp4th.fth
@@ -1,46 +1,47 @@
-\ @(#) loadp4th.fth 98/01/28 1.3\r
-\ Load various files needed by PForth\r
-\\r
-\ Author: Phil Burk\r
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom\r
-\\r
-\ The pForth software code is dedicated to the public domain,\r
-\ and any third party may reproduce, distribute and modify\r
-\ the pForth software code or any derivative works thereof\r
-\ without any compensation or license.  The pForth software\r
-\ code is provided on an "as is" basis without any warranty\r
-\ of any kind, including, without limitation, the implied\r
-\ warranties of merchantability and fitness for a particular\r
-\ purpose and their equivalents under the laws of any jurisdiction.\r
-\r
-include? forget  forget.fth\r
-include? >number numberio.fth\r
-include? task-misc1.fth   misc1.fth\r
-include? case    case.fth\r
-include? $=      strings.fth\r
-include? privatize   private.fth\r
-include? (local) ansilocs.fth\r
-include? {       locals.fth\r
-include? fm/mod  math.fth\r
-include? task-misc2.fth misc2.fth\r
-include? [if]    condcomp.fth\r
-\r
-\ load floating point support if basic support is in kernel\r
-exists? F*\r
-   [IF]  include? task-floats.fth floats.fth\r
-   [THEN]\r
-\r
-\ useful but optional stuff follows --------------------\r
-\r
-include? task-member.fth   member.fth\r
-include? :struct c_struct.fth\r
-include? smif{   smart_if.fth\r
-include? file?   filefind.fth\r
-include? see     see.fth\r
-include? words.like wordslik.fth\r
-include? trace   trace.fth\r
-include? ESC[    termio.fth\r
-include? HISTORY history.fth\r
-include? SDAD    savedicd.fth\r
-\r
-map\r
+\ @(#) loadp4th.fth 98/01/28 1.3
+\ Load various files needed by PForth
+\
+\ Author: Phil Burk
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom
+\
+\ The pForth software code is dedicated to the public domain,
+\ and any third party may reproduce, distribute and modify
+\ the pForth software code or any derivative works thereof
+\ without any compensation or license.  The pForth software
+\ code is provided on an "as is" basis without any warranty
+\ of any kind, including, without limitation, the implied
+\ warranties of merchantability and fitness for a particular
+\ purpose and their equivalents under the laws of any jurisdiction.
+
+include? forget  forget.fth
+include? >number numberio.fth
+include? task-misc1.fth   misc1.fth
+include? case    case.fth
+include? $=      strings.fth
+include? privatize   private.fth
+include? (local) ansilocs.fth
+include? {       locals.fth
+include? fm/mod  math.fth
+include? task-misc2.fth misc2.fth
+include? [if]    condcomp.fth
+include? save-input save-input.fth
+include? read-line  file.fth
+
+\ load floating point support if basic support is in kernel
+exists? F*
+   [IF]  include? task-floats.fth floats.fth
+   [THEN]
+
+\ useful but optional stuff follows --------------------
+
+include? task-member.fth   member.fth
+include? :struct c_struct.fth
+include? smif{   smart_if.fth
+include? file?   filefind.fth
+include? see     see.fth
+include? words.like wordslik.fth
+include? trace   trace.fth
+include? ESC[    termio.fth
+include? HISTORY history.fth
+
+map