Re: portable or not? Volatile strings

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"         "