Untitled

 0 ( EDITOR - CJL 17/03/25 )                                       
 1 : LINES   6 LSHIFT ;                                            
 2 : VIEW    LINES  SCR @ BLOCK + ;                                
 3 : LINE    VIEW UPDATE ;                                         
 4 : SCREEN  PAGE  SCR @ LIST ;                                    
 5 : WIPE    0 LINE  16 LINES BLANK  SCREEN ;                      
 6 : READ    PAD 64 BLANK  0 PARSE PAD SWAP MOVE ;                 
 7 : COPY    VIEW PAD 64 MOVE ;                                    
 8 : PUT     LINE  PAD SWAP  64 MOVE  SCREEN ;                     
 9 : WRITE   READ PUT ;                                            
10 : NEXT    1 SCR +!  SCREEN ;                                    
11 : BACK    -1 SCR +!  SCREEN ;                                   
12 : SAVE    SAVE-BUFFERS SCREEN ;                                 
13 : EMPTY   EMPTY-BUFFERS SCREEN ;                                
14                                                                 
15