Return to key.fs CVS log

Up to [gforth] / gforth / arch / misc

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: