WE: why case-insensitive again?

blk/121

@@ -4,13 +4,13 @@ keystokes described below. The modifier starts at zero, but
 most commands interpret a zero as a 1 so that they can have an
 effect.
 
-'G' selects the block specified by the modifier as the current
+'g' selects the block specified by the modifier as the current
 block. Any change madde to the previously selected block is
 saved beforehand.
 
 '[' and ']' advance the selected block by modifier.
 
-';' resets the modifier
+';' resets the modifier. 'q' quits.
 
-H and L move the cursor by "modifier" characters. J and K, by
-lines.                                                  (cont.)
+'h' and 'l' move the cursor by "modifier" characters. 'j' and
+'k', by lines.                                          (cont.)

blk/122

@@ -1 +1 @@
-W moves forward by a word. S moves backward by a word.
+'w' moves forward by a word. 'W' moves backward by a word.

blk/127

@@ -3,11 +3,11 @@
 : pos+ POS @ + 1024 MOD POS ! ;
 : cmv ( n -- , char movement ) acc@ * pos+ ;
 : $; 0acc ;
-: $G ACC @ selblk 0acc ;
+: $g ACC @ selblk 0acc ;
 : $[ BLK> @ acc@ - selblk ;
 : $] BLK> @ acc@ + selblk ;
-: $H -1 cmv ; : $L 1 cmv ; : $K -64 cmv ; : $J 64 cmv ;
-: $W POS @ BLK( + BEGIN C@+ WS? UNTIL BEGIN C@+ WS? NOT UNTIL
+: $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ;
+: $w POS @ BLK( + BEGIN C@+ WS? UNTIL BEGIN C@+ WS? NOT UNTIL
     1- BLK( - 1023 MIN POS ! ;
-: $S POS @ BLK( + BEGIN C@- WS? UNTIL BEGIN C@- WS? NOT UNTIL
+: $W POS @ BLK( + BEGIN C@- WS? UNTIL BEGIN C@- WS? NOT UNTIL
     1+ BLK( - DUP 0< IF DROP 0 THEN POS ! ;

blk/128

@@ -1,7 +1,7 @@
 : handle ( c -- f )
-    UPPER DUP '0' '9' =><= IF num 0 EXIT THEN
+    DUP '0' '9' =><= IF num 0 EXIT THEN
     DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
-    'Q' = ;
+    UPPER 'Q' = ;
 : VE clrscr 0acc 0 POS ! contents
     BEGIN status setpos KEY handle UNTIL 18 aty ;