diff --git a/README.md b/README.md
index 943c4fa..47fbd7e 100644
--- a/README.md
+++ b/README.md
@@ -33,6 +33,11 @@ Press `<left>` and `<right>` to move the cursor.
 
 Toggle between insert and replace modes by pressing `<shift>-I`.
 
+`<shfit>-a` goes to start of line.
+`<shift>-e` goes to end of line.
+`<shift>-f` move forward to `)`
+`<shift>-b` move back to `(`
+
 ![Insert](insert.gif) ![Replace](replace.gif)
 
 # Language Specification:
diff --git a/picolisp.p8 b/picolisp.p8
index 050b1be..8a9ef57 100644
--- a/picolisp.p8
+++ b/picolisp.p8
@@ -879,6 +879,15 @@ function insert(s, pos, c)
   local postfix = sub(s, pos, #s)
   return prefix .. c .. postfix
 end
+function seek(t, p, dir, side, stop)
+  p+=dir
+  --while sub(t, p, p)
+  while sub(t, p+dir*side, p+dir*side) != stop and p < #t and p > 0 do
+    p = p + dir
+  end
+  p = max(min(#t, p), 0)
+  return p
+end
 blink_frame = 0
 show_cursor = true
 cursor_width = 1
@@ -968,6 +977,15 @@ function repl()
           cursor_fn=replace
           cursor_width = 3
         end
+      elseif c == "\128" then -- cap A (start of line)
+        p = 0
+      elseif c == "\132" then -- cap E (end of line)
+        p = #t
+      elseif c == "\133" then -- cap F (forward 1 token)
+        p = seek(t, p, 1, 1, ")")
+      elseif c == "\129" then -- cap B (back 1 token)
+        p = seek(t, p, -1, 0, "(")
+      elseif c == "\150" then -- cap w (delete in parens)
       end
     end
   until getval("done", prelude)