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