// HTM.VDM May 1999, Fritz Heberlein (sla019@ku-eichstaett.de)
//
// calls a menu of html shortcuts (those used in html.vtm) and prompts
// for one.
// Assign it to a function key in your startup.vdm, section
// "File-type specific configuration" by adding something like:
// Key_Add("F12","[VISUAL EXIT] callf(100,'htm.vdm')",noconfirm)
// Shortcuts "00" and "TM" call txt2html.vdm and htmltabl.vdm, respective,
// written by Scott Lambert.
m($
00 CREATE HTML FILE
컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴컴�
AD ADDRESS FM FORM PM PARAM NAME=""
AH A HREF="" FO FONT RO ROWS
AL ALINK="" FR FRAME SRC="" SA SAMP
AN A NAME="" FS FONT SIZE="" SE SELECT
AP APPLET CODE="" FT FRAMESET SK STRIKE
BA BACKGROUND="" Hn H1 /2/3 ST STRONG
BD B HI HEIGHT="" TA TABLE
BF BASEFONT SIZE="" HR HR TB TABLE BORDER=""
BG BGCOLOR="" IM IMG SRC="" TD TD
BO BODY IN INPUT TE TEXT=""
BR BR IS ISINDEX TH TH
CA CAPTION IT I TM CALL TABLE MACRO
CD CODE KB KBD TO TBODY
CE CENTER LI LI TR TR
CI CITE LK LINK="" TT TT
CM !---- LS LISTING TX TEXTAREA
DD DD ME MENU UL UL
DF DFN NF NOFRAMES VA VAR
DI DIR NO NOBR VL VLINK=""
DL DL OL OL WB WBR
DT DT OP OPTION WI WIDTH=""
EM EM PA P XM XMP $)
#80=BufNum
Get_input(10,"enter shortcut / Q to quit",nocr|statline|COUNT,2)
Buf_Switch(36)
Buf_Empty(OK)
Reg_Ins(10)
BOF()
if (search("Q",noerr)) { bufswitch(#80) breakOut(extra)}
//
if (search("00",noerr)) { bufswitch(#80) callf(122,'txt2html.vdm') BreakOut(extra)}
//
if (search("AD",noerr)) { bufswitch(#80)
if (block_begin==-1)
{ IT("")
Char(-10)
BreakOut(extra)}
else{ rcb(9,bb,be,delete)
IT("")
Char(-10)
regins(9)
BreakOut(extra)} }
//
if (search("AH",noerr)) { bufswitch(#80) IT(``)
Char(-6)
BreakOut(extra)}
//
if (search("AL",noerr)) { bufswitch(#80) IT(/ALINK=""/)
Char(-1)
BreakOut(extra)}
//
if (search("AN",noerr)) { bufswitch(#80) IT('')
Char(-6)
BreakOut(extra)}
//
if (search("AP",noerr)) { bufswitch(#80) IT('