OpenGL Commands

Hi.
At first I thought to create a little program that will add the documents of each command in the OpenGL.Bmx from Chapter 5 of the Blue Book but I lost my way thru the html file.
So I created the minimum program to high light the OpenGL commands

SuperStrict

Local file:TStream = OpenFile("opengl.bmx")
Local doc:String = "Rem~nbbdoc:~nEnd Rem~n"
Local newFile:TStream = WriteFile("newopengl.bmx")
Local OriginalFile:TStream = WriteFile("OriginalOpengl.bmx")
Local line:String
While Not Eof(file)
	line = ReadLine(file)
	WriteLine( OriginalFile , line)
	If line.find("Const") = 0 
		WriteString(newFile , doc)
		Print "ok"
	Else
		If line.find("Function") = 0 Then WriteString(newFile , doc)
	End If
	WriteLine(newFile , line)
Wend
End

By the way I have done this thing you will have to save the file in the same directory that contains the OpenGL.Bmx witch is if the main directory of BlitzMax is C:\BlitzMax the directory C:\BlitzMax\mod\pub.mod\opengl.mod
This will create the files:
newopengl.bmx
and
originalopengl.bmx
after that delete or rename the opengl.bmx
and rename the newopengl.bmx to opengl.bmx
Build the module, docmods and you are done.

I thing that if someone find a way around the html file that I had posted and create an app to pass all the information inside the opengl.bmx that will be great.