From Aleksej,

[pforth] / fth / loadp4th.fth

\ @(#) 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
\r
map\r