Return to key.fs CVS log | Up to [gforth] / gforth / arch / misc |
1.1 pazsan 1: \ misc-key.fs basic-io for misc processor 01feb97jaw
2:
3:
1.2 ! pazsan 4: c: (key?) $ffff x@ 0<> ;
1.1 pazsan 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: