File:  [gforth] / gforth / arch / misc / key.fs
Revision 1.1: download - view: text, annotated - select for diffs
Thu May 29 19:43:09 1997 UTC (24 years, 11 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
Added port of gforth to misc (original version, slow) to CVS archive

    1: \ misc-key.fs basic-io for misc processor		01feb97jaw
    2: 
    3: 
    4: c: key? $ffff x@ 0<> ;
    5: 
    6: c: (key)  BEGIN key? UNTIL $fffe x@ ;
    7: 
    8: c: (emit) $fffc x! ;
    9: 
   10: c: (type)  BEGIN  dup  WHILE
   11:     >r dup c@ (emit) 1+ r> 1-  REPEAT  2drop ;
   12: \ bounds ?DO i c@ emit LOOP ;
   13: 
   14: 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>