Return to tt.fs CVS log | Up to [gforth] / gforth |
version 1.4, 2000/09/03 22:29:16 | version 1.5, 2006/12/30 20:06:26 |
---|---|
Line 312 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c | Line 312 create brick-val 1 c, 2 c, 3 c, 3 c, 4 c |
again ; | again ; |
: to-upper \ char --- char ; convert to upper case | : to-upper \ char --- char ; convert to upper case |
dup [char] a >= over [char] z <= and if bl - then ; | dup [char] a [char] z 1+ within if |
bl - | |
then ; | |
: interaction \ --- flag | : interaction \ --- flag |
case key to-upper | case key to-upper |