Sorry your browser is not supported!

set display mode 800,600,32
`sync to refresh screen
sync on
sync rate 30
`hold file in varible

print "what is your filename?(just name .html will be written automatilcy)"
input save$
`loop
do

`if file do not exist you will make a file 
if file exist(save$)=0
`put something in a file

print "firstly please input your page title (egz - my website)"
input name$

print "now choose do you wont to put in addisional scroolbar or to leave defalt one (addisional is cool)!"
print "please input yes if you want and no if you don`t wont"
input choose$
	

print "now add the secound text line (egz : this site is deticated to game creating using dark basic)"
input name2$


print "now add the third line (if dont have it , just leave blank , and press enter)"
input name3$


print "now add the fourth line (if dont have it , just leave blank , and press enter)"
input name4$


print "now add the fifth line (if dont have it , just leave blank , and press enter)"
input name5$

print "please choose do you won`t to create link popup meny (yes,for yes,no for..)" 
input linkp$

if  linkp$ = "yes" 
print "input name of the form"
input fname$
print "input the name of the button (egz:GO)"
input button$
print "input the site name (egz:google,db,ba...)"
input sname$
print "input the site link (egz:www.google.com,www.yahoo.com,...)"
input slink$

endif





`make a file

open to write 1,save$+".html"

`write the name to file
if  linkp$ = "yes" 

write string 1,"<form name="+FORMNAME$+">"
write string 1,"<select name =meny>"
write string 1,"<option value="+slink$+">"+sname$+"</option>"
write string 1,"</select>"
write string 1,"<input type= button onClick="+"location=document.FORMNAME.menu.options[document.FORMNAME.menu.selectedIndex].value; value="+button$+">"
write string 1,"</form>"

endif	


if choose$ ="yes" 

write string 1,"<style>"
write string 1,"<!--" 
write string 1,"body {scrollbar-face-color: #0000FF; scrollbar-shadow-color: #3300FF;"
write string 1, "scrollbar-highlight-color: #3399FF; scrollbar-3dlight-color: #CCFFFF; scrollbar-darkshadow-color: #000000; scrollbar-track-color: #FFFFFF; scrollbar-arrow-color: #FFFFFF;}"
write string 1,"}"
write string 1,"// -->"
write string 1,"</style>"
	
endif
write string 1,"<P  1cm>"+name$+"</P>"
write string 1,"<P  1cm>"+name2$+"</P>"
write string 1,"<P  1cm>"+name3$+"</P>"
write string 1,"<P  1cm>"+name4$+"</P>"
write string 1,"<P  1cm>"+name5$+"</P>"
`clear screen
cls
endif
`if file open then close it
if file open(1) then close file 1
`open file to read



sync
loop