I'm wondering if anybody wants to help create a web browser if so just add onto this forum.
here is my code so far.
set display mode 1024, 768, 32
sync on
sync rate 0
backdrop on
color backdrop 0
dim html$(15)
`html$(1) = "<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">"
`html$(2) = "<html xmlns="http://www.w3.org/1999/xhtml">"
html$(3) = "<head>"
`html$(4) = "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />"
html$(5) = "<title>Untitled Document</title>"
html$(6) = "</head>"
html$(7) = ""
html$(8) = "<body>"
html$(9) = "<strong>"
html$(10) = " <a href="test">"
html$(11) = " This is a test"
html$(12) = " </a>"
html$(13) = "</strong>"
html$(14) = "</body>"
html$(15) = "</html>"
do
code()
sync
loop
function code()
for i = 1 to array count(html$())
for j = 1 to len(html$(i))
ch$ = mid$(html$(i), j)
if ch$ <> " " or rd = 1
rd = 1
if tag < 0 then tag = 0
if ch$ = "<" then tag = 1:cmd$ = ""
if ch$ = ">" then tag = -1
if tag = 1 and ch$ <> "<"
cmd$ = cmd$ + ch$
endif
if link = 1 then ink rgb(0, 0, 255), 0
if link = 0 then ink rgb(255, 255, 255), 0
if tag = 0 and out = 1
text CX*10, CY*20, ch$
CX = CX + 1
endif
if cmd$ = "a href" then link = 1
if cmd$ = "/a" then link = 0:CY = CY + 1
if cmd$ = "body" then out = 1
if cmd$ = "/body" then out = 0
endif
next j
rd = 0
next i
endfunction
