home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
f88
/
hello.bak
< prev
next >
Wrap
Text File
|
1988-06-08
|
2KB
|
64 lines
\ HELLO.SEQ Contains the sign on word for Forth.
VARIABLE INSTALLED INSTALLED ON
: <.HELLO> ( --- )
mbuf.init \ buffer in ram for a screen
DARK
CR CR 25 SPACES >ATTRIB4 ." Full Segment Forth "
CR
CR TAB >ATTRIB1
." 8088 - 8086 - 80286 Forth Version - "
cdate 2@ DECIMAL swap 1980 - 1 .r ." ." 0 256 UM/MOD
hex 1 .r decimal .##
ctime 2@ drop 0 256 UM/MOD 36 base ! 1 .r drop decimal
>NORM
CR TAB ." Based on Original F83 by Henry Laxen & Michael Perry"
CR TAB ." Separated Heads by John D. Hopper"
CR TAB ." Handles & Sequential files by Tom Zimmer"
CR TAB ." Compiler Optimization by Tom Zimmer"
CR TAB ." Direct Threading by Robert L. Smith & Tom Zimmer"
CR TAB ." Prefix/Postfix Assembler by Robert L. Smith & Tom Zimmer"
CR TAB ." Separate : (colon) LISTs by Tom Zimmer & Robert L. Smith"
CR TAB >ATTRIB1
." 8087 Floating Point by Mark Smiley & Robert Smith "
>NORM
CR TAB 3 SPACES .FREE CR
CR TAB 10 SPACES
>ATTRIB1
." Bewildered? Type: HELP for assistance"
>NORM
CR ;
: .FILE ( --- )
.SHNDL ." of " SHNDL @ ENDFILE D. ." bytes" ;
DEFER .HELLO ' <.HELLO> IS .HELLO
: HELLO ( --- )
.HELLO
SP0 @ 'TIB !
>IN OFF
SPAN OFF
#TIB OFF
LOADING OFF
ONLY FORTH ALSO DEFINITIONS
DEFAULT >attrib1
CR TAB ." Current File = " SHNDL @ >HNDLE @ -1 <>
IF .FILE ." of " SHNDL @ ENDFILE D. ." bytes"
ELSE ." No file Open"
THEN >norm CR interpret
INSTALLED @ 0=
IF CR BEEP >ATTRIB7
." *** FF has not yet been installed, VIEW and HELP Won't function correctly ***"
>NORM CR CR TAB 9 SPACES
." Leave and run INSTALL.BAT to install FF"
THEN CR ;
' HELLO IS BOOT
: MARK ( -- )
CREATE YHERE , DOES> DUP 2+ SWAP @
(FRGET) FORTH DEFINITIONS ;