home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / init80.seq < prev    next >
Encoding:
Text File  |  1990-05-09  |  594 b   |  20 lines
  1. \ DEFINIT.SEQ      Default Initialization for TCOM      by Tom Zimmer
  2.  
  3. FORTH DECIMAL TARGET >LIBRARY       \ A Library file
  4.  
  5. : %DEF-INIT   ( -- )            \ some additional default initialization
  6.                                 \ done for all applications
  7.                 DECIMAL                         \ always select decimal
  8.                 CAPS ON                         \ ignore cAsE
  9.                 ;
  10.  
  11. ' %DEF-INIT >EXECUTE [FORTH] IS DEF-INIT [TARGET]
  12.  
  13. : %NO-INIT      ( -- )
  14.                 ;
  15.  
  16. ' %NO-INIT >EXECUTE [FORTH] IS NO-INIT [TARGET]
  17.  
  18. FORTH TARGET >TARGET
  19.  
  20.