home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FFA.ZIP / HELLO.SEQ < prev    next >
Encoding:
Text File  |  1988-01-11  |  2.2 KB  |  60 lines
  1. \ HELLO.SEQ     Contains the sign on word for Forth.
  2.  
  3. VARIABLE INSTALLED      INSTALLED ON
  4.  
  5. : <.HELLO>      ( --- )
  6.                 DARK
  7.         CR CR 25 SPACES >REV ."   Full Segment Forth  " >NORM
  8.         CR
  9.         CR TAB  >ATTRIB1
  10.                 ." 8088 - 8086 - 80286 Forth                 Version - "
  11.                 cdate 2@ DECIMAL swap 1980 - 1 .r ." ." 0 256 UM/MOD
  12.                 hex 1 .r decimal .##
  13.                 ctime 2@ drop 0 256 UM/MOD 36 base ! 1 .r drop decimal
  14.                 >NORM
  15.         CR TAB ." Based on Original F83      by Henry Laxen &  Michael Perry"
  16.         CR TAB ." Separated Heads            by John D. Hopper"
  17.         CR TAB ." Handles & Sequential files by Tom Zimmer"
  18.         CR TAB ." Compiler Optimization      by Tom Zimmer"
  19.         CR TAB ." Direct Threading           by Robert L. Smith & Tom Zimmer"
  20.         CR TAB ." Prefix/Postfix Assembler   by Robert L. Smith & Tom Zimmer"
  21.         CR TAB ." Separate : (colon) LISTs   by Tom Zimmer & Robert L. Smith"
  22.         CR TAB >ATTRIB1
  23.                ." 8087 Floating Point        by Mark Smiley & Robert Smith  "
  24.                >NORM
  25.         CR TAB  3 SPACES .FREE CR
  26.         CR TAB 10 SPACES
  27.                 >ATTRIB1
  28.                 ." Bewildered?  Type: HELP for assistance"
  29.                 >NORM
  30.         CR      ;
  31.  
  32. DEFER .HELLO    ' <.HELLO> IS .HELLO
  33.  
  34. : HELLO         ( --- )
  35.                 .HELLO
  36.                 SP0 @  'TIB !
  37.                 >IN     OFF
  38.                 SPAN    OFF
  39.                 #TIB    OFF
  40.                 LOADING OFF
  41.                 ONLY FORTH ALSO DEFINITIONS
  42.                 DEFAULT
  43.                 CR TAB ." Current File = " SHNDL @ >HNDLE @ -1 <>
  44.                 IF      .FILE ."  of " SHNDL @ ENDFILE D. ." bytes"
  45.                 ELSE    >attrib1 ." No file Open" >norm
  46.                 THEN    CR interpret
  47.                 INSTALLED @ 0=
  48.         IF      CR BEEP >REV
  49. ." *** FF has not yet been installed, VIEW and HELP Won't function correctly ***"
  50.                 >NORM CR CR TAB 9 SPACES
  51.                 ." Leave and run INSTALL.BAT to install FF"
  52.         THEN    CR ;
  53.  
  54. ' HELLO IS BOOT
  55.  
  56. : MARK          ( -- )
  57.                 CREATE YHERE , DOES> DUP 2+ SWAP @
  58.                 (FRGET)  FORTH DEFINITIONS  ;
  59.  
  60.