home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / LASER / FPC35_5.ZIP / FPCSRC.ZIP / HELLO.SEQ < prev    next >
Encoding:
Text File  |  1989-10-22  |  2.1 KB  |  58 lines
  1. \ HELLO.SEQ     Contains the sign on word for Forth.
  2.  
  3. only forth also definitions hidden also
  4.  
  5. : <.HELLO>      ( --- )
  6. ." \d\n\n\n\s34\r  F-PC  \n"
  7. ." \n\t┌───────────────────────────────────────────────────────────▄"
  8. ." \n\t│ 80x8x Forth ─── Version:\1 3.50 \0 Date:"
  9.         decimal     cdate 2@ form-date  count type
  10.         ."   Time:" ctime 2@ drop dtbuf off   build-hm
  11.                                   dtbuf count type decimal    ."   █"
  12. ." \n\t├───────────────────────────────────────────────────────────█"
  13. ." \n\t│ Based on F83 by           ── Henry Laxen, Michael Perry,  █"
  14. ." \n\t│ F-PC by                   ── Tom Zimmer & Robert L. Smith █"
  15. ." \n\t└▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█\n"
  16. ." \n\n\s13" >ATTRIB1 .FREE >NORM
  17. ." \n\n\s18\1 Bewildered?   Press: \r F1 \1 for assistance "
  18. ." \n\n\t\t\1 Press \r ESC \1 to toggle the menubar on or off. "
  19.         CR      ;
  20.  
  21. : .FILE         ( --- )
  22.                 .seqhandle ."  of " seqhandle ENDFILE D. ." bytes" ;
  23.  
  24. : <.CURFILE>    ( --- )
  25.                 CR TAB ." Current File = " seqhandle >HNDLE @ -1 <>
  26.                 IF      .FILE
  27.                 ELSE    ." \1 No file Open "
  28.                 THEN    CR ;
  29.  
  30. DEFER .HELLO    ' <.HELLO>      IS .HELLO
  31. DEFER .CURFILE  ' <.CURFILE>    IS .CURFILE
  32.  
  33. : HELLO         ( --- )
  34.                 SP0 @  'TIB !
  35.                 >IN     OFF
  36.                 SPAN    OFF
  37.                 #TIB    OFF
  38.                 LOADING OFF
  39.                 ONLY FORTH ALSO DEFINITIONS
  40.                 DEFAULTSTATE
  41.                 DEFAULT
  42.                 >in @ bl word swap >in ! c@ 0=
  43.                 if      .hello
  44.                         .curfile
  45.                 then    interpret ;
  46.  
  47. ' HELLO IS BOOT
  48.  
  49. : MARK          ( -- )
  50.                 CREATE YHERE ,
  51.                 XHERE PARAGRAPH +       \ absolute paragraph of new def
  52.                 DUP XDPSEG !            \ set new XHERE segment
  53.                 xseg @ - ,
  54.                 DOES> DUP 2+ dup @ +XSEG xdpseg ! xdp off
  55.                 2+ SWAP @
  56.                 (FRGET)  FORTH DEFINITIONS  ;
  57.  
  58.