1> ( Block Editor 1/1 )
  2  .: (bb)  .c@++ 0=; swap 1+ swap me [
  3  : bb  0 { s2 @ (bb) drop s0 ! 0 } 1+ ;
  4  : ++ .c@ 0=; .c@++ 10 =; me [
  5  .: out  2dup =;; ;
  6  .: (--)  out 1- .c@ 10 !=me 1+ ;
  7  : --  out 1- (--) ;
  8  .: rem  4095 { s1 @ s2 @ - - 0 } ;
  9  .: (ii)  10 s0 @ c! ;
 10  : ii  { dup dup 1+ rem cmove> (ii) 0 } ;
 11  : dd  2dup { ++ s0 @ s2 @ rem <cmove 2 } ;
 12  : ee  { s0 @ rem 0 edit 0 } ;
 13  .: (ll)  1- .0=; >r ++ r> me [
 14  : ll  nip over swap (ll) drop ;
 15  .: 10<_ 10 .u>=; sp ;
 16  .: mark s1 @ s3 @ !=; 62 emit ;;
 17  .: head  sp 10<_ dup (.) mark sp ;
 18  .: (line)  .c@++ dup emit 10 !=me ;
 19  .: line  head sp >r (line) r> ;
 20  .: (ss)  over c@ 0=; line 1+ s5 @ .u>; me [
 21  .: eof  over c@ 0>; head 9148386 emit cr ;
 22  .: pre  over dup s3 @ ll ;
 23  .: vis  { (ss) eof 3 } ;
 24  : ss  cls { pre s3 @ vis 0 } ;
 25  : ww  { s2 @ swap blkwr 1 } ;
 26  : ed  >r 1 -1 r> block dup cls ss ;
 27  : rr  { s4 ! s5 ! 2 } ;
 28  .: nn  2dup { ++ s2 @ - nip 1 } ;
 29  .: 2swap  >r -rot r> -rot ;
 30  .: xfer  s2 @ s0 @ a> cmove> ;
 31  .: open  dup dup a> + b> a> - cmove> ;
 32  .: room?  bb 4095 swap - a> <;; ;
 33  .: cp  room? open xfer ;
 34  .: (pad)  199 block dup 150 ll -- ;
 35  .: pad  prev @ >r (pad) r> prev ! ;
 36  .: .a  nn >a ;
 37  .: .b  rem >b ;
 38  : pp  2dup .b pad .a 2swap { cp pad dd 4 } ;
 39  : yy  2dup .a pad ++ .b { cp 4 } dd ;
 40  : xx  { 4 } ;
 41 ○