// test-string.txt

ax = array { 65 66 67 }

to testString | a b =
  a = "this is a string"
  prints a nl
  print strlen a nl
  b = array ((strlen a) + 1)
  strcpy b a 
  prints b nl
  print streq a b nl
  a = "123"
  print atoi a nl
  strpack b ax 0 3
  prints b nl
  print streq a b nl

testString
