\ F-PC.SEQ       Extend file for KERNEL.COM

FLOAD TIMER.SEQ                 \ Timing and measurment words.
FLOAD TIMESTUF.SEQ              \ More timing words

0COMPILER                       \ reset the compiled line counter

WARNING OFF                     \ Don't warn me about any re-definitions.

CR .( Loading the extensions to KERNEL.COM )

\ What follows is the file load commands required to add all of the
\ extensions to KERNEL.COM to make F-PC.EXE. Some of these files are not
\ required, and may be commented out. These files are marked at the right
\ edge of the column for easy identification.

FLOAD COMMENT.SEQ  .( .)        \ Allows multi-line comments in source.

comment:

  The F-PC Forth system has been optimized to run on DOS versions 3.0 or
higher. It can be run on DOS 2.x, but some functions will not be available,
or will work somewhat differently. Specifically the file EXEC.SEQ
contains a number of useful words which use a DOS 3.x SPAWN SHELL function.
Since DOS 2.x doesn't support this call, they will not be loaded on a DOS 2.x
system.

  On a DOS 3.x system you will be able to use many of the DOS commands
directly.  Here are some examples:

                DIR  COPY  DEL  CHDIR  REN  A:  B:  C:

  Some additional commands can be added by removing comments around some
of the less used commands in the file EXEC.SEQ:

  Installation is continuing. A "." is printed for each file loaded, you
will be prompted when it is time to continue.

                Please be patient, LOADING...

comment;

FLOAD UTILS.SEQ    .( .)        \ Some low level utilities.
FLOAD VOCABS.SEQ   .( .)        \ Forths ONLY ALSO vocabulary structure.
FLOAD DEFERS.SEQ   .( .)        \ Adds DEFERS and UNDEFERS
FLOAD DECOM.SEQ    .( .)        \ decompiler,                  may be removed
FLOAD DUMP.SEQ     .( .)        \ dump utility,                may be removed
FLOAD CASE.SEQ     .( .)        \ A CASE utility needed by PASM.SEQ
FLOAD PASM.SEQ     .( .)        \ Prefix/Postfix assembler for 8086/8088
FLOAD DEBUG.SEQ    .( .)        \ high level debugger,         may be removed
FLOAD PATHSET.SEQ  .( .)        \ Includes paths on files,     may be removed
\ FLOAD MULTASK.SEQ  .( .)        \ Multi tasking,               may be removed
FLOAD SEARCH.SEQ   .( .)        \ String comparison & search stuff
FLOAD WORDS.SEQ    .( .)        \ WORDS,                       may be removed
FLOAD IBMCURSR.SEQ .( .)        \ IBM cursor shape control words
FLOAD MONOCROM.SEQ .( .)        \ Monochrome support, always needed.
FLOAD COLOR.SEQ    .( .)        \ Support for Color, will auto load lf needed
FLOAD SAVESCR.SEQ  .( .)        \ Screen save and restore.

WARNING ON CAPS ON

fload hello.seq   .( .)         \ Cold start initialization & introduction.
fload qvideo.seq  .( .)         \ SPEED UP SCREEN REDISPLAY FOR EDITOR
fload view.seq    .( .)         \ Source VIEWing words
fload status.seq  .( .)         \ Status line,                 may be removed
fload fl.seq      .( .)         \ File selection.
fload ledit.seq   .( .)         \ Line editor utility          may be removed
fload wfl.seq     .( .)         \ WINDOW File selection        may be removed
fload filstat.seq .( .)         \ Display file loaded or open  may be removed
fload environ.seq .( .)         \ Environment words.
fload exec.seq    .( .)         \ DOS interface for things like DIR,COPY ect.
fload saveexe.seq .( .)         \ SAVE-EXE

warning off                     \ don't warn me about editor re-definitions.

fload install.seq               \ allow user to install their View Path.
fload boxtext.seq               \ ability to draw boxes
fload editstuf.seq              \ Allow loading editor NOT as an overlay
fload sedcode.seq               \ SED assembly definitions.
fload seditor.seq               \ My editor SED. Written by Tom Zimmer.
fload printing.seq              \ The printing part of SED.
fload edithelp.seq              \ Editor help screen definitions
fload editset.seq               \ Allow editor command key redefinition.
fload topedit.seq               \ Top level editing words

fload optional.seq              \ user defined options are specified here

warning on

mark empty                      \ Mark the end of the dictionary.
yhere fence !                   \ Set fence to prevent FORGETing beyond YHERE
uninstall

.compstat

true =: withpath                \ we want to include the file path in the
                                \ file variable we create for each file loaded.

8000 =: #listsegs               \ give me a BIGGER dictionary

save-exe F-PC

bye                             \ All done, leave now.