( pattern creation:     ^ ~ QUADPAT BINPAT QUAD PATTERN PDUMP ) <STKH   0 { VARIABLE PBASE }                                    { : ^ } ( --- ; store bytes on stack in ram )                   { -1 >R BEGIN DUP -1 = IF DROP 1 ELSE >R 0 THEN END               BEGIN R> DUP -1 = IF DROP 1 ELSE } B, { 0 THEN END BASE ! ; } { : QUADPAT } 4 PBASE ! { ; } { : BINPAT } 2 PBASE ! { ; }      { : ~ } { BASE @ -1 } PBASE { @ BASE ! ; } ( START OF PATTERN ) { : PATTERN } DECIMAL DATA { ; } { : QUAD } 4 BASE ! { ; }      STK> ;S                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         