\ HELLO.SEQ     Contains the sign on word for Forth.

VARIABLE INSTALLED      INSTALLED ON

: <.HELLO>      ( --- )
                DARK
CR CR 34 SPACES >REV ."   F-PC  " >NORM
CR TAB ." ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
CR TAB ." ³ 80x8x Forth ÄÄÄÄ Version:1.03b  Date:"
        cdate 2@ DECIMAL
        0 256 UM/MOD hex .## ." /" decimal .## ." /" 1900 - decimal .##
        decimal ."   Time:"
        ctime 2@ drop 0 256 UM/MOD .## ." :" .## decimal   ."  ³"
CR TAB ." ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
CR TAB ." ³ Based on Original F83      ÄÄ Henry Laxen & Michael Perry ³"
\ CR TAB ." ³ Separated Heads            ÄÄ John D. Hopper              ³"
\ CR TAB ." ³ Handles & Sequential files Ä¿     ÚÄÄÄÄÄÄÄÄÄÄÄÄ¿          ³"
\ CR TAB ." ³ Compiler Optimization       ³     ³ Tom Zimmer ³          ³"
\ CR TAB ." ³ Separate : (colon) LISTs    ³     ÀÄÄÄÄÄÄÄÄÄÄÄÄÙ          ³"
\ CR TAB ." ³ Direct Threading            ³            &                ³"
\ CR TAB ." ³ Prefix/Postfix Assembler    ³     Robert L. Smith         ³"
\ CR TAB ." ³ Control BREAK deferred     ÄÙ                             ³"
\ CR TAB ." ³ 8087 Floating Point        ÄÄ Mark Smiley & Robert Smith  ³"
\ CR TAB ." ³ Software Floating Point    ÄÄ Robert Smith                ³"
CR TAB ." ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
        INSTALLED @
IF      CR TAB  4 SPACES .FREE CR
        CR TAB 10 SPACES
                >ATTRIB1
                ." Bewildered?  Type: "
                >rev ."  HELP " >attrib1
                ."  for assistance"
                >NORM
THEN    CR      ;

: .FILE         ( --- )
                .SHNDL ."  of " SHNDL @ ENDFILE D. ." bytes" ;

: <.CURFILE>    ( --- )
                CR TAB ." Current File = " SHNDL @ >HNDLE @ -1 <>
                IF      .FILE
                ELSE    >attrib1 ." No file Open" >norm
                THEN    CR ;

DEFER .HELLO    ' <.HELLO>      IS .HELLO
DEFER .CURFILE  ' <.CURFILE>    IS .CURFILE

: HELLO         ( --- )
                SP0 @  'TIB !
                >IN     OFF
                SPAN    OFF
                #TIB    OFF
                LOADING OFF
                ONLY FORTH ALSO DEFINITIONS
                DEFAULT
                >in @ bl word swap >in ! c@ 0=
                if      .HELLO
                then    INSTALLED @
        IF      >in @ bl word swap >in ! c@ 0=
                if      .curfile
                then    interpret
        ELSE    interpret CR BEEP >REV
." *** F-PC has not yet been installed, VIEW and HELP may not work properly ***"
                >NORM CR CR TAB 5 SPACES
                ." Type INSTALL to setup F-PC for your environment" CR
        THEN    ;

' HELLO IS BOOT

: MARK          ( -- )
                CREATE YHERE , DOES> DUP 2+ SWAP @
                (FRGET)  FORTH DEFINITIONS  ;