define(&i, integer, 0)
define(&bolding, boolean, False)
define(&writing, boolean, True)
define(&data, string, '')

&data := @(1,1,100)

for(&i,1,1,length(&data))
  if(mid(&data, &i, 1) = '<')
    &writing := False
  endif()
  if(not(&writing))
    if(mid(&data, &i, 2) = '/b')
      &bolding := False
    elseif()
      if((mid(&data, &i, 1) = 'b') and not(mid(&data, &i-1, 1) = '/'))
        &bolding := True
      endif()
    endif()
    if(mid(&data, &i, 1) = '>')
      &writing := True
    endif()
  elseif()
    if(&bolding)
      setstyle(&Style1.b)
    elseif()
      setstyle(&Style1)
    endif()
    show(mid(&data, &i, 1))
  endif()
endfor()