Index: editor.rx
===================================================================
--- editor.rx
+++ editor.rx
@@ -1,6 +1,6 @@
-( retro editor v11-2010.10.29 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
+( retro editor v11-2010.11.15 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ )
 ( Key     Action                                                              )
 ( ---     -------------------------------------------------                   )
 (  i      Move cursor up                                                      )
 (  j      Move cursor left                                                    )
 (  k      Move cursor right                                                   )
@@ -92,10 +92,13 @@
   : e          (  - ) thisBlock 1600 eval ;
   : ea         (  - ) @offset @#blocks 1600 * eval ;
 ---reveal---
   : setBlocks  ( n- ) !#blocks @memory 1600 @#blocks * - !offset new ;
   : edit ( - )
+    @fh 22 > @fw 80 > and dup
+    [ "requires an 80x22 or greater display, sorry!\n" puts ] ifFalse
+    0; drop
     @fb [ ^console'colors off ] ifTrue active on
     &remap &remapKeys :is clear ^console'bold
     [ display key edit? match @active ] while ;
   : $$i line -- ;
   : $$j column -- ;