From: sjack@dontemail.me   
      
   (The last had 3 redundant lines that needed deleting.)   
      
    Frog code (Fig not standard):   
    [#] pno.d -- Pictured Numeric Output exploits   
    --.   
    [r] #>S  ( -- s )   
    -- Pictured numeric returning (counted) string   
    : #>S    #> HOLD 1- ;   
      
    -- String, S , in Frog code is single address pointing to byte   
    -- counted string.   
    --      <# ... #>  ( a u ) TYPE   
    --      <# ... #>S ( a )   TELL   
    --.   
    [r] S<#  ( n -- d ) Immediate   
    -- Macro for Single-number pictured numeric   
    : S<#   "ZERO <#" EVAL ; IMM   
      
    -- Frog leaves '<#' to work with double number and   
    -- uses macro 'S<#' as indicament of working with single number.   
    --    666. <# ... #>  TYPE   
    --    666 S<# ... #>S TELL   
    --.   
    [r] PNO buffer   
    The PNO can be any buffer by pointing HLD to the buffer's end and   
    using an alternative to '>#' :   
      
    mpad 256 + tmp!   
    tmp@ hld !   
    "[m" holds   
    27 hold   
    "world" holds   
    46 hold   
    "[0;33;40mhello" holds   
    27 hold   
    i. hld @ tmp@ om type  --> hello.world  ( yellow on black )   
    --.   
    [r] Source input buffer   
    -- Source input buffer is ring buffer for strings   
    : <#IB 256 SIB + DUP HLD ! TMP! ;   
    : IB#> 2DROP HLD @ TMP@ OM ;   
    : SIB#>S HLD @ TMP@ OM HOLD 1- ;   
      
    <#ib "[m" holds        27 hold SIB#>S   
    <#ib "[0;33;40m" holds 27 hold SIB#>S   
    2dup   
    1 text Hello World!   
    i. tell pad tell tell --> Hello World!  ( yellow on black)   
    1 text How are you?   
    i. tell pad tell tell --> How are you?  ( yellow on black)   
    --.   
    [s]   
    OM      ( a1 a2 -- a1 u ) over -   
    tell    ( a ) count type   
    sib     ( u -- u a ) \ a is buffer from ring of size u+2; last chr is null   
                         \ used for counted string, null terminated string or   
                         \ both.   
    i.                   \ print ' --> '   
    --.   
    [#] //   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)