%s = "0123456789abcdefghijklmnopqrstuvwxyz"

  %i = @input(Enter something...)

  if %i
    %x = 1
    REPEAT 
      if @greater(@pos(@substr(%i, %x), %s), 0)
        %a = %a@substr(%i, %x)
      else 
        %n = %n@substr(%i, %x)
      end 
      %x = @succ(%x)
    UNTIL @greater(%x, @len(%i))
    INFO Alpha-numeric:@cr()@cr()%a@cr()@cr()@cr()Not alpha-numeric:@cr()@cr()%n
  end