EightBall/str.8b

byte msg1[100]="Enter your first name> "
byte msg2[100]="Enter your last name> "
byte s1[100]={}
byte s2[100]={}
byte full[200]={}
byte space[2]=" "

pr.str msg1
kbd.ln s1,100
pr.msg "'"; pr.str s1; pr.msg "' has "; pr.dec strlen(s1); pr.msg " chars"; pr.nl
pr.str msg2
kbd.ln s2,100
pr.msg "'"; pr.str s2; pr.msg "' has "; pr.dec strlen(s2); pr.msg " chars"; pr.nl
call strcpy(full,s1)
call strcat(full,space)
call strcat(full,s2)
pr.msg "'"; pr.str full; pr.msg "' has "; pr.dec strlen(full); pr.msg " chars"; pr.nl
pr.msg "Comparison s1:s2 ... "; pr.dec.s strcmp(s1,s2); pr.nl
end

'
' Return length of null-terminated string
'
sub strlen(byte str[])
  word i=0
  while str[i]
    i=i+1
  endwhile
  return i
endsub

'
' Copy null-terminated string from src to dst
'
sub strcpy(byte dst[], byte src[])
  word i=0
  while src[i]
    dst[i]=src[i]
    i=i+1
  endwhile
endsub

'
' Append null-terminated string src to dst
'
sub strcat(byte dst[], byte src[])
  word i=0
  word j=0
  while dst[i]
    i=i+1
  endwhile
  while src[j]
    dst[i]=src[j]
    i=i+1
    j=j+1
  endwhile
endsub

'
' Compare null-terminated string s1 to s2
' Return -1 if s1 < s2
' Return  0 if s1 == s2
' Return +1 if s1 > s2
'
sub strcmp(byte s1[], byte s2[])
  word i=0
  while 1
    if ((!s1[i])&&(!s2[i]))
      return 0
    endif
    if (!s1[i])
      return -1
    endif
    if (!s2[i])
      return 1
    endif
    if (s1[i]<s2[i])
      return -1
    endif
    if (s1[i]>s2[i])
      return 1
    endif
    i=i+1
  endwhile
endsub