X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..HEAD:/fth/loadp4th.fth

diff --git a/fth/loadp4th.fth b/fth/loadp4th.fth
index a558ea6..bbb380e 100644
--- a/fth/loadp4th.fth
+++ b/fth/loadp4th.fth
@@ -1,46 +1,51 @@
-\ @(#) 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
-
-\ 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
-include? SDAD    savedicd.fth
-
-map
+\ @(#) loadp4th.fth 98/01/28 1.3
+\ Load various files needed by PForth
+\
+\ Author: Phil Burk
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom
+\
+\ Permission to use, copy, modify, and/or distribute this
+\ software for any purpose with or without fee is hereby granted.
+\
+\ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
+\ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
+\ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
+\ THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR
+\ CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
+\ FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
+\ CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+\ OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+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
+include? require    require.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