HTML

;HTML Parser
Type htmlpage
	Field id%						;page number% (reserved)
	Field typeid%						;format: 1=html
	Field filename$						;filename$						
	Field file%						;page file handle%
	Field byte%						;stores byte read from file
	Field buffer%						;page image buffer
	Field tagflag%						;0=text, 1=htmltag, 2=htmlattribute
	Field x%						;stores page imagebuffer x format coord
	Field y%						;stores page imagebuffer y format coord
End Type

Function htmlpageNew.htmlpage(filename$,typeid%=1)		;creates a new html page object
	this.htmlpage=New htmlpage
	this\id%=0
 	this\typeid%=typeid%
	this\filename$=filename$
	Return this
End Function

Function htmlpageRead(this.htmlpage)				;main html page read function filename$="index.html"
	this\file%=ReadFile(this\filename$)			;file handle
	If this\file%						;if no file handle then runtime error message
		While Not Eof(this\file%)			;parse until end of file
			 htmlpageParse(this\file%)		;html parse
		Wend						
		CloseFile(this\file%)				;close file after parsing
	Else
		RuntimeError(this\filename$+" does not exist!")	;if no file handle then runtime error message
	EndIf							;ditto
End Function

Function htmlpageParse(this.htmlpage)
	Select this\tagflag%					;select html text type
		Case 0;text
			this\byte%=ReadByte(file%)		;read html file byte-by-byte
			Select this\byte%
				Case 60;<
 					this\tagflag%=1
				default
					htmlpageFormatDraw(this)
			End Select
		Case 1;html keyword
			word$=htmlpageWordRead$(file%)
			Select 
				Case
			end Select 
		Case 2;html attribute
		Case 3;html attribute value
	End Select	
End Function

Function htmlpageWordRead$(file%)
	While Not Eof(file)
		byte%=ReadByte(file%)
		Select byte%
			Case 32, ;terminate characters: space
			Default
				word$=word$+Chr(byte%)
		End Select	
	Wend
End Function

Function htmlFormatDraw(this.htmlpage)
End Function

Graphics 200,150,0,2
Repeat
	Cls
	Color 255,255,255
	Rect 50,50,100,50,0
	Text 100,75,"Exit",1,1
	Flip
	If MouseDown(1) And MouseX()>=50 And MouseX()<150 And MouseY()>=50 And MouseY()<100 Then Exit
Forever