\ 80 ANDY BIGGS' NEW ENCLOSE DLM10OCT82 CODE (ENCLOSE)                           2 # LDA, SETUP JSR, TXA, SEC,              
 8 # SBC, TAX, SEC 1+ STY, BOT 1+ STY,   DEY, N 3 + DEC, BOT 1+ DEC,             BEGIN, INY, 0=                             
   IF, N 3 + INC, BOT 1+ INC, THEN,        N 2+ )Y LDA, N CMP, 0= NOT            UNTIL,                                     
 BOT 4 + STY, BOT 1+ LDA, BOT 5 + STA,   BEGIN, N 2+ )Y LDA, 0=                    IF, SEC STY, BOT STY, BOT 1+ LDA,        
       SEC 1+ STA, TYA, BOT 4 + CMP, 0=        IF, BOT 1+ LDA, BOT 5 + CMP, 0=             IF, SEC INC, 0=                  
             IF, SEC 1+ INC, THEN,             THEN, THEN, NEXT JMP, \ EXIT        THEN, PHA, SEC STY, BOT 1+ LDA,          
   SEC 1+ STA, INY,                        0= IF, BOT 1+ INC, N 3 + INC, THEN,     PLA, N CMP, 0=                           
 UNTIL, BOT STY, NEXT JMP,              END-CODE                                -->                                         
\ 81 PATCH OLD ENCLOSE       DLM10OCT82                                         \ SET CFA OF ENCLOSE TO POINT TO            
\ (ENCLOSE).  THIS WILL MAKE ALL WORDS  \ THAT CALL ENCLOSE CALL (ENCLOSE)      \ INSTEAD.                                  
                                         NEW-TOP ' (ENCLOSE) ' ENCLOSE CFA ! ;S                                             
THIS CORRECTED VERSION OF ENCLOSE WAS   WRITTEN BY ANDY BIGGS AND APPEARED IN   FORTH DIMENSIONS, VOLUME 3, NUMBER 6.       
THIS VERSION WILL WORK WITH ANY LENGTH  BLOCK, INCLUDING THOSE WITH 256 OR      MORE BYTE LENGTH.  THIS FIXES THE           
ERROR IN THE ORIGINAL FIG VERSION OF    ENCLOSE WHICH WOULD LOCK UP IF A BLOCK  CONTAINED 256 OR MORE CONSECUTIVE           
SPACES.                                                                         DANIEL L. MOORE, OCTOBER 10, 1982