home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPC355_2.ZIP / FPCSRC.ZIP / LISTSET.SEQ < prev    next >
Encoding:
Text File  |  1991-04-23  |  975 b   |  23 lines
  1. \ LISTSET.SEQ   Allow adjusting the LIST segment of F-PC
  2.  
  3. \ Assure #LISTSEGS has at least "segments" of free memory and then
  4. \ re-save F-PC back to disk where it came from with the same name if
  5. \ we needed to change the segments available.
  6.  
  7. : LISTSET       ( segments -- )
  8.                 1 ?ENOUGH
  9.                 200 UMAX
  10.                 XDPSEG @ XSEG @ - + =: #LISTSEGS        \ adj #LISTSEGS
  11.                 cr ." Re-saving with adjusted LIST space of "
  12.                 #listsegs h. ."  to >> "
  13.                 ME@     ME$ C@ 0>                       \ can i find my name?
  14.                 IF      ME$                             \ return it if i can
  15.                 ELSE    " F.EXE" ">$                    \ or F.EXE if i can't
  16.                 THEN
  17.                 dup count type
  18.                 $>TIB                                   \ send it to TIB
  19.                 FSAVE                                   \ re-save Forth
  20.                 bye ;
  21.  
  22.  
  23.