home *** CD-ROM | disk | FTP | other *** search
-
- \ FLOAD INC80.SEQ \ the entire library word list
-
- 3 constant three INCLUDEWORD THREE
- 4 constant four INCLUDEWORD FOUR
-
- : MAIN ( -- )
- three four + . ;
-
- \s STOP HERE
-
- You might also try the following definition for MAIN:
-
- : MAIN ( -- )
- three four + . ;
-
- You will be amazed at how much larger the generated image gets.
-
- You can also remove the comment from line 2 and perform the FLOAD to
- see how TCOM80 will generate a full Forth system plus MAIN.
-
-