PROCls_init

  FNls_set          ls=s$
  FNls_get          s$=ls
  FNls_len         num=LEN(ls)
  FNls_left         ls=LEFT$(ls,num)
  FNls_right        ls=RIGHT$(ls,num)
  FNls_mid          ls=MID$(ls,num,num)
  FNls_add          ls=ls+ls
  FNls_cmp         val=(ls=ls)
PROCls_free

  FNls_asc         num=ASC(ls)
  FNls_val         num=VAL(ls)


PROCls_print      PRINT ls;
PROCls_wr         BPUT#out,ls;
  FNls_rd           ls=BET$#in
PROCls_poke        $addr=ls
  FNls_peek        ls=$addr

str1%=FNls_set("Hello")
str2%=FNls_add(str1%,str1%):PROCls_free(str1%)
PRINT">";:PROCls_print(str2%):PRINT"<"