diff --git a/blk/121 b/blk/121
index 3c7da94..f159a96 100644
--- a/blk/121
+++ b/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.)
diff --git a/blk/122 b/blk/122
index 3d642da..94b7f2f 100644
--- a/blk/122
+++ b/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.
diff --git a/blk/127 b/blk/127
index f41d99a..b4afedf 100644
--- a/blk/127
+++ b/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 ! ;
diff --git a/blk/128 b/blk/128
index a8bf90e..e38c37f 100644
--- a/blk/128
+++ b/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 ;