dim as string  source="N1X120Z120",target,char
  dim as integer i
  
  for i=1 to len(source)
    char=mid(source,i,1)                    'get 1 source string character
    select case char                        'test it
    case "a" to "z","A" to "Z": target+=" " 'add space to target string if alpha character found     
    case else      
    end select
    target+=char                            'build target string 1 character at a time    
  next
  
  target=ltrim(target)                      'remove leading white space
  
  ? source
  ? target
  
  sleep