Heres the source:
rem Html Editor
set window on
set window title "Easy Html Beta 4"
set window size 640,480
print "Html editor Beta 4"
input "Title:",tit$
input "Body:",bod$
input "",bod2$
input "",bod3$
input "",bod4$
input "",bod5$
input "Background color(red,green,blue,white,black):",bgc$
input "Text color(red,green,blue,white,black):",txc$
print "Creating file. Please wait."
tit2$=tit$+".html"
open to write 1,tit2$
1$="<html>"
if bgc$="red" then 2$="<body bgcolor="red">"
if bgc$="green" then 2$="<body bgcolor="green">"
if bgc$="blue" then 2$="<body bgcolor="blue">"
if bgc$="white" then 2$="<body bgcolor="white">"
if bgc$="black" then 2$="<body bgcolor="black">"
if txc$="red" then 3$="<font color="#FF0000">"
if txc$="green" then 3$="<font color="#00FF00">"
if txc$="blue" then 3$="<font color="#0000FF">"
if txc$="white" then 3$="<font color="#FFFFFF">"
if txc$="black" then 3$="<font color="000000">"
4$="<title>"
5$=tit$
6$="</title>"
7$="<body>"
8$=bod$
9$="<br>"
10$=bod2$
11$="<br>"
12$=bod3$
13$="<br>"
14$=bod4$
15$="<br>"
16$=bod5$
17$="</body>"
18$="</html>"
write string 1,1$
write string 1,2$
write string 1,3$
write string 1,4$
write string 1,5$
write string 1,6$
write string 1,7$
write string 1,8$
write string 1,9$
write string 1,10$
write string 1,12$
write string 1,13$
write string 1,14$
write string 1,15$
write string 1,16$
write string 1,17$
write string 1,18$
wait 500
print "Done. Press any key to preview. Not an exact preview!"
wait key
rem Red color
if bgc$="red" and txc$="red" then INK rgb(255,0,0),rgb(255,0,0)
if bgc$="red" and txc$="green" then INK rgb(0,255,0),rgb(255,0,0)
if bgc$="red" and txc$="blue" then INK rgb(255,0,0),rgb(0,0,255)
if bgc$="red" and txc$="white" then INK rgb(255,0,0),rgb(0,0,0)
if bgc$="red" and txc$="black" then INK rgb(255,0,0),rgb(255,255,255)
rem Green color
if bgc$="green" and txc$="red" then INK rgb(0,255,0),rgb(255,0,0)
if bgc$="green" and txc$="green" then INK rgb(0,255,0),rgb(0,255,0)
if bgc$="green" and txc$="blue" then INK rgb(0,255,0),rgb(0,0,255)
if bgc$="green" and txc$="white" then INK rgb(0,255,0),rgb(0,0,0)
if bgc$="green" and txc$="black" then INK rgb(0,255,0),rgb(255,255,255)
rem Blue color
if bgc$="blue" and txc$="red" then INK rgb(0,0,255),rgb(255,0,0)
if bgc$="blue" and txc$="green" then INK rgb(0,0,255),rgb(0,255,0)
if bgc$="blue" and txc$="blue" then INK rgb(0,0,255),rgb(0,0,255)
if bgc$="blue" and txc$="white" then INK rgb(0,0,255),rgb(0,0,0)
if bgc$="blue" and txc$="black" then INK rgb(0,0,255),rgb(255,255,255)
rem White Color
if bgc$="white" and txc$="red" then INK rgb(0,0,0),rgb(255,0,0)
if bgc$="white" and txc$="green" then INK rgb(0,0,0),rgb(0,255,0)
if bgc$="white" and txc$="blue" then INK rgb(0,0,0),rgb(0,0,255)
if bgc$="white" and txc$="white" then INK rgb(0,0,0),rgb(0,0,0)
if bgc$="white" and txc$="black" then INK rgb(0,0,0),rgb(255,255,255)
rem Black color
if bgc$="black" and txc$="red" then INK rgb(255,255,255),rgb(255,0,0)
if bgc$="black" and txc$="green" then INK rgb(255,255,255),rgb(0,255,0)
if bgc$="black" and txc$="blue" then INK rgb(255,255,255),rgb(0,0,255)
if bgc$="black" and txc$="white" then INK rgb(255,255,255),rgb(0,0,0)
if bgc$="black" and txc$="black" then INK rgb(255,255,255),rgb(255,255,255)
cls
set window title tit$
print " "
print bod$
print bod2$
print bod3$
print bod4$
print bod5$
print "Preview done. Press any key to exit"
wait key
tit3$=tit$+".txt"
open to write 2,tit3$
write string 2,1$
write string 2,2$
write string 2,3$
write string 2,4$
write string 2,5$
write string 2,6$
write string 2,7$
write string 2,8$
write string 2,9$
write string 2,10$
write string 2,11$
write string 2,12$
write string 2,13$
write string 2,14$
write string 2,15$
write string 2,16$
write string 2,17$
write string 2,18$
end
Just Dont say you did it.
I only did this to learn open to write and open to read and other stuff
My site: http://awesomegames.galekus.com/home/
Forum: http://awesomegames.galekus.com/forum
