: TST [ ...FLAG 0! ] >R  [ 4 BIG_PROC ]
0 &L 10 SWAP  !
0 &L  @ DOT
[ $$L, $2 , ] ZTYPE
RET 3 NEGATE  iss  @ +  VJUMP $1 
VLABEL $1  END_PROC ;
4 L_VAR !
$CREATE $2  HS," qwerty%0a%00"
 $INIT


: TST [ ...FLAG 0! ] >R  [ 4 BIG_PROC ]
0 &L 5  SWAP C!
0 &L  C@ DOT
[ $$L, $2 , ] ZTYPE
RET 3 NEGATE  iss  @ +  VJUMP $1 
VLABEL $1  END_PROC ;
1 L_VAR !
$CREATE $2  HS," qwerty%0a%00"
 $INIT

: DOT . ;
: ZTYPE ASCIIZ> TYPE ;

 HERE TO L_VAR 0 ,
: TST  [ ...FLAG 0! ] >R  [ 4 BIG_PROC ]
 czz  @ DOT
\ RET 3 NEGATE  iss  @ +  VJUMP $1 
 VLABEL $1  END_PROC
 ;
7 L_VAR !
 $INIT
  4 TST
