diff --git a/interfaces/native/image.c b/interfaces/native/image.c
index 3ab8901..9ea6eea 100644
--- a/interfaces/native/image.c
+++ b/interfaces/native/image.c
@@ -1,6 +1,6 @@
 #include <stdint.h>
-int32_t ngaImageCells = 55458;
-int32_t ngaImage[] = { 1793,13833,55437,55457,201906,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
+int32_t ngaImageCells = 55564;
+int32_t ngaImage[] = { 1793,13833,55510,55563,201906,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
                        7,10,8,10,9,10,10,10,11,10,12,10,13,10,14,10,15,10,16,10,
                        17,10,18,10,19,10,20,10,21,10,22,10,23,10,24,10,25,10,26,10,
                        68223234,1,2575,85000450,1,656912,355,339,268505089,66,65,135205121,66,10,101384453,0,9,10,2049,59,
@@ -51,7 +51,7 @@ int32_t ngaImage[] = { 1793,13833,55437,55457,201906,0,10,1,10,2,10,3,10,4,10,5,
                        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
                        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
-                       0,0,0,0,0,0,59,0,98,58,105,110,105,116,105,97,108,105,122,101,
+                       0,0,0,0,0,0,59,0,112,121,0,107,0,0,0,108,111,99,107,0,
                        0,0,0,0,45,45,53,45,45,45,45,45,45,45,45,45,54,45,45,45,
                        0,0,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,0,
                        0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
@@ -2772,4 +2772,10 @@ int32_t ngaImage[] = { 1793,13833,55437,55457,201906,0,10,1,10,2,10,3,10,4,10,5,
                        114,58,107,101,121,60,105,62,0,2049,48505,2049,48369,10,55371,55410,147,101,100,105,
                        116,111,114,58,107,101,121,60,121,62,0,3841,13947,2049,48459,10,55393,55432,147,101,
                        100,105,116,111,114,58,107,101,121,60,113,62,0,2049,2428,4097,49234,10,55415,55454,
-                       147,101,100,105,116,111,114,58,107,101,121,60,96,62,0,2049,49120,10,0 };
+                       147,101,100,105,116,111,114,58,107,101,121,60,96,62,0,2049,49120,10,55437,55474,
+                       147,101,100,105,116,111,114,58,107,101,121,60,33,62,0,1,13988,1,12893,1,
+                       512,2049,3167,3841,13947,1,2,19,2049,13522,1,13988,1,512,17,1,12893,1,512,2049,
+                       3167,3841,13947,1,2,19,2049,2908,2049,13522,10,55457,55527,147,101,100,105,116,111,114,
+                       58,107,101,121,60,64,62,0,3841,13947,1,2,19,2049,13418,1,12893,1,13988,1,
+                       512,2049,3167,3841,13947,1,2,19,2049,2908,2049,13418,1,12893,1,13988,1,512,17,1,
+                       512,2049,3167,10,0 };
diff --git a/interfaces/native/x86/Block-Editor.forth b/interfaces/native/x86/Block-Editor.forth
index b103199..16f0069 100755
--- a/interfaces/native/x86/Block-Editor.forth
+++ b/interfaces/native/x86/Block-Editor.forth
@@ -349,3 +349,12 @@ These are helpful to quickly navigate through a block.
 :editor:key<q>  TRUE !DoneEditing ;
 :editor:key<`>  tob:initialize ;
 ~~~
+
+~~~
+:editor:key<!>
+  &Block &Sector #512 copy @CurrentBlock #2 * ata:write
+  &Block #512 + &Sector #512 copy @CurrentBlock #2 * n:inc ata:write ;
+:editor:key<@>
+  @CurrentBlock #2 * ata:read &Sector &Block #512 copy
+  @CurrentBlock #2 * n:inc ata:read &Sector &Block #512 + #512 copy ;
+~~~