Diff for /gforth/tt.fs between versions 1.4 and 1.5

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

Removed from v.1.4  
changed lines
  Added in v.1.5


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