Return to key.fs CVS log

Up to [gforth] / gforth / arch / misc

Annotation of gforth/arch/misc/key.fs, revision 1.1

1.1     ! pazsan      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: