Remove Line:dline @áHTMLáEditorá@ $sline(@áHTMLáEditorá@,1).ln Insert Line:iline @áHTMLáEditorá@ $sline(@áHTMLáEditorá@,1).ln $$?="Enter What you want to add:" Copy Line:set %htmlsave $sline(@áHTMLáEditorá@,1) Insert Copied Line:iline @áHTMLáEditorá@ $sline(@áHTMLáEditorá@,1).ln %htmlsave - Change Body Tag:set %htmlbgcolor $$?="Enter BackGround Color" | set %htmltextcolor $$?="Enter Text Color" | set %htmllinkcolor $$?="Enter Link Color" | set %htmlvlink $$?="Enter Visited Link Color" | dline @áHTMLáEditorá@ 5 | iline @áHTMLáEditorá@ 5 Change Title:set %htmltitle $$?="Enter New title:" | dline @áHTMLáEditorá@ 3 | iline @áHTMLáEditorá@ 3 $+ %htmltitle $+ HTML Tools .Align ..Center:aline @áHTMLáEditorá@ ..Right:aline @áHTMLáEditorá@ ..Left:aline @áHTMLáEditorá@ .Bold:aline @áHTMLáEditorá@ .Center:aline @áHTMLáEditorá@
.Comment Tag:set %htmlc $$?="Enter What you would like to comment" | aline @áHTMLáEditorá@ .Font ..Color:set %htmlf $$?="Enter Color" | aline @áHTMLáEditorá@ ..Size:set %htmlf $$?="Enter Size" | aline @áHTMLáEditorá@ ..Face:set %htmlf $file="Enter a font you would like:" c:\windows\fonts\*.ttf | set %htmlf $nopath($remove(%htmlf,$right(%htmlf,4))) | aline @áHTMLáEditorá@ .Headers ..1:aline @áHTMLáEditorá@

..2:aline @áHTMLáEditorá@

..3:aline @áHTMLáEditorá@

..4:aline @áHTMLáEditorá@

..5:aline @áHTMLáEditorá@

..6:aline @áHTMLáEditorá@
.Image:set %tempimg $dir="Find an Image File" $mircdir | aline @áHTMLáEditorá@ .Italic:aline @áHTMLáEditorá@ .Line Break:aline @áHTMLáEditorá@
.Link:set %temp $$?="Enter URL to link to:" | set %temp1 $$?="Enter Text, or html tag for link:" | aline @áHTMLáEditorá@ [ $+ [ %temp1 ] ] $+ .Mailto:set %temp $$?="Enter address to mail to:" | set %temp1 $$?="Enter Text, or html tag for link:" | aline @áHTMLáEditorá@ [ $+ [ %temp1 ] ] $+ .ParaGraph:aline @áHTMLáEditorá@

.Table ..Start:set %temp $$?="Enter Border (must be a #)" | set %temp1 $$?="Enter CellPadding (#)" | set %temp2 $$?="Enter Cell Spacing (#)" | aline @áHTMLáEditorá@ ..End:aline @áHTMLáEditorá@
..TR:aline @áHTMLáEditorá@ ..TH:aline @áHTMLáEditorá@ ..TD:aline @áHTMLáEditorá@ - New file::loop | set %temp $$?="Save Changes to File? (y/n)" | if ((%temp != y) && (%temp != n)) { goto loop } | if (%temp == y) { savebuf $lines(@áHTMLáEditorá@,0) @áHTMLáEditorá@ $$?="Enter a filename:" | window -c @áHTMLáEditorá@ | htmleditor } | if (%temp == n) { window -c @áHTMLáEditorá@ | htmleditor } | halt Open file:clear @áHTMLáEditorá@ | set %temp $dir="Enter HTML file to edit:" $mircdir*.htm | /loadbuf 1- $+ $lines(%temp) @áHTMLáEditorá@ %temp Save File:set %temp $$?="Enter FileName (.htm file):" | if ($exists(%temp)) { :setloop | set %tempyn $$?="File already exists, Overwrite (Y/N)" | if ((%tempyn != y) && (%tempyn != n)) { goto setloop } | if (%tempyn == y) { .remove %temp | savebuf $lines(@áHTMLáEditorá@,0) @áHTMLáEditorá@ %temp } | if (%tempyn == n) { halt } } | else { savebuf $lines(@áHTMLáEditorá@,0) @áHTMLáEditorá@ %temp } View .With Netscape:savebuf $lines(@áHTMLáEditorá@,0) @áHTMLáEditorá@ temp.htm | run c:\program files\netscape\navigator\program\netscape.exe $mircdirtemp.htm .With MIE:savebuf $lines(@áHTMLáEditorá@,0) @áHTMLáEditorá@ temp.htm | run c:\program files\internet explorer\iexplore.exe $mircdirtemp.htm