STRINGS.4TH

( Simple string handling )
( tested on APX Forth for Atari 8-bit )

( as suggested by BFOX9900 )
( https://www.reddit.com/r/Forth/comments/1diqg25/the_word_word_use_examples/ )
0 VARIABLE MYSTRING 80 ALLOT 
: PLACE ( src n dst -- ) OVER OVER  C! 1+ SWAP CMOVE ;
: GETAWORD  BL WORD  HERE COUNT MYSTRING PLACE ; 
: MYSTRING:" GETAWORD ; IMMEDIATE
( test )
MYSTRING:" ASSEMBLY
MYSTRING COUNT TYPE

( beautified & tuned )
0 VARIABLE $ 80 ALLOT 
: $" ASCII " WORD HERE COUNT $ OVER
  OVER C! 1+ SWAP CMOVE ; IMMEDIATE
( test )
$" HELLO WORLD!" $ COUNT TYPE



( --------------------- EXPERIMENTS

0 VARIABLE S$ C/L ALLOT 

: S" ( usage: S" ABC" S$ COUNT TYPE )
  ASCII " WORD HERE COUNT S$ OVER
  OVER C! 1+ SWAP CMOVE ;
  IMMEDIATE

: PRC ( n -- ) COUNT TYPE ;

: SMOVE ( a1 a2 -- )
  OVER COUNT 1+ ( a1 a2 a1 # )
  SWAP DROP CMOVE ;

: S0! ( a1 -- ) ( cnt->0 convert )
  DUP COUNT ( a1 a1' ct )
  ROT SWAP  ( a1' a1 ct )
  2DUP + >R ( a1' al ct R: al+ct )
  CMOVE     ( R: al+ct )
  0 R> C! ; ( -- )  
  
: S0# ( a -- a ct ) ( 0->cnt fn )
  0 ENCLOSE       ( a n1 n2 n3 )
  ROT DROP DROP ; ( a ct )
 
: PR0 ( n -- ) S0# TYPE ;



S" XYZ" S$ PRC S$ PAD SMOVE
S" 123" S$ PRC
PAD S$ SMOVE S$ PRC
S" ABCDEF"
( S$ PRC S$ C/L CDUMP
( S$ S0! S$ C/L CDUMP
S$ PAD SMOVE
S$ S0! S$ PR0

: REDIRECT
  S$ C/L EXPECT S$ PR0
  ' S$ CFA DUP ' WORD 18 + !
               ' QUERY     ! QUIT ;

( ' PAD CFA ' WORD 18 + ! ( WAS: ' TIB CFA )
( ' PAD CFA ' QUERY     ! ( WAS: ' TIB CFA )