home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPC355_4.ZIP / TCOMSRC.ZIP / DEFINIT.SEQ < prev    next >
Encoding:
Text File  |  1990-01-02  |  1.2 KB  |  28 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.                 INIT-CURSOR                     \ get intial cursor shape
  9.                 MARGIN_INIT                     \ initialize margins & TAB
  10.                 50 FUDGE !                      \ init MS timer, GUESS!!
  11.                 CAPS ON                         \ ignore cAsE
  12.                 ?DS: SSEG !                     \ init search segment
  13.                 DOSIO_INIT                      \ init EMIT, TYPE & SPACES
  14.                 $FFF0 SET_MEMORY                \ default to 64k code space
  15.                 DOS_TO_TIB                      \ move command tail to TIB
  16.                 COMSPEC_INIT                    \ init command specification
  17.                 ;
  18.  
  19. ' %DEF-INIT >EXECUTE [FORTH] IS DEF-INIT [TARGET]
  20.  
  21. : %NO-INIT      ( -- )
  22.                 ;
  23.  
  24. ' %NO-INIT >EXECUTE [FORTH] IS NO-INIT [TARGET]
  25.  
  26. FORTH TARGET >TARGET
  27.  
  28.