In article <66badc17$1@news.ausics.net>, dxf   wrote:   
   >On 13/08/2024 5:34 am, albert@spenarnc.xs4all.nl wrote:   
   >> ...   
   >> In my book the code should be   
   >>   
   >>                         "        "   
   >>                         "######  "   
   >>                         "  ##    "   
   >>                         "        "   
   >> DEF-BRICK BRICK1   
   >>   
   >> Instead of   
   >>   
   >> DEF-BRICK BRICK1        S"         "   
   >>                         S" ######  "   
   >>                         S"   ##    "   
   >>                         S"         "   
   >>   
   >> The code (untested) could be   
   >> : DEF-BRICK CREATE   
   >>     2>R 2>R 2>R 2>R   
   >>     2R> ,, 2R> ,, 2R> ,, 2R> ,,   
   >>  DOES>  ... ;   
   >   
   >OTOH it's no less difficult to write...   
   >   
   >: M"  [CHAR] " PARSE  HERE  OVER ALLOT  SWAP MOVE ;   
   >   
   >: DEF-BRICK  CREATE  DOES>  ROT 4 * ROT + 2* CHARS + ;   
   >   
   >DEF-BRICK BRICK1         M"         "   
   >                         M" ######  "   
   >                         M"   ##    "   
   >                         M"         "   
   >   
      
   There you are!   
   My solution is even more extreme, because it avoids   
   parsing words altogether, apart from   
   denotations^H^H^H^H^H^H numbers.   
      
   Groetjes Albert   
   --   
   Don't praise the day before the evening. One swallow doesn't make spring.   
   You must not say "hey" before you have crossed the bridge. Don't sell the   
   hide of the bear until you shot it. Better one bird in the hand than ten in   
   the air. First gain is a cat purring.            - the Wise from Antrim -   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)