ASCF 0
*
*  Set the following to what you want.  Note, they both
*  function IDENTICALLY, the Sol version just has some of
*  the high level words from FIG coded in machine language
*  to make the language even faster than it is.
*
SOL EQU 1  This is the Sol version (more machine code)
FIG EQU 0  This is the original Fig Forth (more portable)
SOLOS EQU 0  Is SOLOS always in ROM? (1=yes)
*
*  If the above is set to 1, SOLOS output will be used
*  thus allowing the use of cursor positioning, screen
*  clearing, etc., which can not be done through PTDOS
*  without writing a special (somewhat large) output
*  routine.
*
NOSOLOS EQU 1-SOLOS
SOLOUT EQU  0C019H
*
 COPY NPTDEFS
 XEQ ORIG
 PAGE
 COPY FORTH1:S/1
 PAGE
 COPY FORTH2:S/1
 COPY FORTH3.1/1
 COPY FORTH4:S/1
*