: lf times cr repeat lf ;
: clear 25 lf ;


 0 variable lastBlock
 : block 1024 * blocks + ;
 : select dup lastBlock ! ;
 : vl times dup 60 type cr 60 + repeat vl ;
 : view lastBlock @ block 16 vl ;
 : edit select block readstring drop drop view ;
 : delete select block 1024 0 fill view ;
 : edit-line 60 * lastBlock @ block + readstring drop drop view ;
 : delete-line 60 * lastBlock @ block + 57 0 fill view ;

