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, 6 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
Added port of gforth to misc (original version, slow) to CVS archive

\ misc-key.fs basic-io for misc processor		01feb97jaw


c: key? $ffff x@ 0<> ;

c: (key)  BEGIN key? UNTIL $fffe x@ ;

c: (emit) $fffc x! ;

c: (type)  BEGIN  dup  WHILE
    >r dup c@ (emit) 1+ r> 1-  REPEAT  2drop ;
\ bounds ?DO i c@ emit LOOP ;



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