sub prob(status,detail)
  select case num mod 20
  case 0
    document.write "<tr bgcolor=AAB3EE>"
  case 10
    document.write "<tr bgcolor=AABBEE>"
  end select
  document.write "<td align=center>"
  if detail then document.write "<a href=#"&num&"><b>"&num&"</b></a>" else document.write num
  document.write "<td align=center class="&status&">"&status
  num=num+1
end sub

sub detail(prob,title)
  document.write "</blockquote>"
  document.write "<hr size=1>"
  document.write "<a name="&prob&">"
  document.write "<font color=red><b>Prob "&prob&": "&title&"</b></font> <a href=#top>回頁首</a>"
  document.write "<blockquote>"
end sub