home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / htmlkeys.zip / htmlkeys.e < prev    next >
Text File  |  1997-08-31  |  115KB  |  3,599 lines
  1. COMPILE IF NOT DEFINED (HTMLKEYS_INCLUDED)
  2. define HTMLKEYS_INCLUDED = ''  -- prevents problems from multible inclusions
  3. include 'htmlconst.e'
  4.  
  5.  
  6.  
  7.  compile if not defined (INCLUDING_WEBOPTIONS)
  8. include 'weboptions.e'
  9.  compile endif
  10. include 'stdconst.e'
  11. const                                        -- These are the defaults
  12.  compile if not defined(HTML_URL_KLUDGE)
  13.     HTML_URL_KLUDGE=1
  14.  compile endif
  15.  compile if not defined(HTML_IF_ARG_BLANK)
  16.     HTML_IF_ARG_BLANK='exit'
  17.  compile endif
  18.  compile if not defined(JAVA_HTML_BROWSER)
  19.     JAVA_HTML_BROWSER='explore -q'
  20.  compile endif
  21.  compile if not defined (HTML_DOC_HTML)
  22.     HTML_DOC_HTML=''
  23.  compile endif
  24.  compile if not defined (HTML_DOC_INF)
  25.     HTML_DOC_INF=''
  26.  compile endif
  27. HTML_EXTENSIONS='HTM HTML htm html xtml XTML'
  28.  
  29. defload
  30.     universal load_ext, kase
  31.     if wordpos(load_ext, HTML_EXTENSIONS) then    -- Determine if it is an HTML file
  32.         kase=1
  33.         tArrName=MakeTempName()
  34.         do_array 1, arrayID, tArrName
  35.         .userstring=arrayID
  36.         'loadFileArr'
  37.         uPath=.filename
  38.         uPath=translate(uPath, '/', '\')
  39.         uPath=leftstr(uPath, lastPos('/', Upath))
  40.         setFileArrEl('U_PATH', uPath)
  41.         keys HTML_KEYS                    -- Load HTML keys
  42.         call addHTMLmenu()
  43.     endif
  44.     if wordpos(load_ext, 'XTML xtml') then
  45.         'toggle_parse 1 epmkwds.htm'
  46.     endif
  47.  
  48. defkeys HTML_KEYS OVERLAY                    -- Define HTML keys
  49.     def '!'-'~'    =
  50.         if lastkey(2) = 0 then
  51.             return
  52.         else
  53.             if check_mark_on_screen() then
  54.                 deletemark
  55.             endif
  56.         keyin lastkey()
  57.         endif
  58.     def C_TAB    =call tabber()
  59.     def S_TAB    =call back_tabber()
  60.     def F2 =
  61.         'Address_tags'
  62.     def F3 =
  63.         'Blockquote_tags'
  64.     def F4 =
  65.         'Center_tags'
  66.     def F5 =
  67.         'Div_tags'
  68.     def F6 =
  69.         'Rule_tags'
  70.     def F7 =
  71.         'Paragraph_tags'
  72.     def F8 =
  73.         'Preform_tags'
  74.     def C_F1
  75.         'Citation_Tags'
  76.     def C_F2
  77.         'Code_Tags'
  78.     def C_F3
  79.         'Definition_Tags'
  80.     def C_F4
  81.         'Emphasis_tags'
  82.     def C_F5
  83.         'Keyboard_tags'
  84.     def C_F6
  85.         'Sample_Tags'
  86.     def C_F7
  87.         'Strong_Tags'
  88.     def C_F8
  89.         'Variable_tags'
  90.     def S_F2 =
  91.         'Bold_Tags'
  92.     def S_F3 =
  93.         'Big_Tags'
  94.     def S_F4 =
  95.         'Font_Tags'
  96.     def S_F5 =
  97.         'Italics_Tags'
  98.     def S_F6 =
  99.         'Small_Tags'
  100.     def S_F7 =
  101.         'Strike_tags'
  102.     def S_F8 =
  103.         'Subscript_Tags'
  104.     def S_F9 =
  105.         'Superscript_Tags'
  106.     def S_F11 =
  107.         'Typewriter_Tags'
  108.     def S_F12 =
  109.         'Underline_Tags'
  110.     def A_1 =
  111.         'H1_Tags'
  112.     def A_2 =
  113.         'H2_Tags'
  114.     def A_3 =
  115.         'H3_Tags'
  116.     def A_4 =
  117.         'H4_Tags'
  118.     def A_5 =
  119.         'H5_Tags'
  120.     def A_6 =
  121.         'H6_Tags'
  122.     def C_A =
  123.         'Anchor_Tags'
  124.     def C_B =
  125.         'Basefont_Tags'
  126.     def C_C =
  127.         'Caption_Tags'
  128.     def C_D =
  129.         'DictionaryList_Tags'
  130.     def C_E =
  131.         'TableEntry_Tags'
  132.     def C_F =
  133.         'Form_Tags'
  134.     def C_H =
  135.         'TableHeading_Tags'
  136.     def C_I =
  137.         'Image_Tags'
  138.     def C_J =
  139.         'Applet_Tags'
  140.     def C_L =
  141.         'ListItem_Tags'
  142.     def C_M =
  143.         'Map_Tags'
  144.     def C_N =
  145.         'NewPage_Tags'
  146.     def C_O =
  147.         'OrderedList_Tags'
  148.     def C_R =
  149.         'TableNewRow_Tags'
  150.     def C_S =
  151.         'Script_Tags'
  152.     def C_T =
  153.         'Table_Tags'
  154.     def C_U =
  155.         'UnorderedList_Tags'
  156.     def C_Y =
  157.         'Directory_Tags'
  158.     def A_L =
  159.         'Link_Tags'
  160.     def A_M =
  161.         'Meta_Tags'
  162.     def A_Y =
  163.         'Style_Tags'
  164.     def A_T =
  165.         'DeeTee_Tags'
  166.     def A_D =
  167.         'DeeDee_Tags'
  168.     def A_M =
  169.         'Menu_Tags'
  170.     def A_P =
  171.         'Parameter_Tags'
  172.     def A_I =
  173.         'Input_Tags'
  174.     def A_S =
  175.         'Select_Tags'
  176.     def A_O =
  177.         'Option_Tags'
  178.     def A_X =
  179.         'Textarea_Tags'
  180.     def A_A =
  181.         'Area_Tags'
  182.     def A_Z
  183.         'Last_Tag'
  184.     def C_ENTER =
  185.         'Linebreak_Tags'
  186.  
  187. ;-----------------------------TAG Defcs
  188. defc Address_tags =
  189.     universal LastDone
  190.     lastDone='Address_tags'
  191.     noArgTags('ADDRESS')
  192.  
  193. defc Anchor_tags =
  194.     universal LastDone
  195.     lastDone='Anchor_tags'
  196.     theLink=GetFileArrEl('A_LINK')
  197.     theName=''
  198.     theText=''
  199.     theLink=entrybox('<A> Enter the link','',theLink,,255)
  200.     if upcase(theLink)=='#OOPS' then
  201.         return
  202.     endif
  203.     if theLink='' then
  204.         theName=entrybox('<A> Enter the name','','',,255)
  205.     endif
  206.     do while (theLink=='')&(theName=='')
  207.  compile if HTML_IF_ARG_BLANK='exit'
  208.         if (theLink=='')&(theName=='') then
  209.             return
  210.         endif
  211.  compile endif
  212.         theLink=entrybox('<A> Enter the link','',theLink,,255)
  213.             if upcase(theLink)=='#OOPS' then
  214.                 return
  215.             endif
  216.             if theLink='' then
  217.                 theName=entrybox('<A> Enter the name','','',,255)
  218.             endif    
  219.         if upcase(theLink)=='#OOPS' then
  220.             return
  221.         endif
  222.         if upcase(theName)=='#OOPS' then
  223.             return
  224.         endif
  225.     enddo
  226.     Anchor_all(theLink, theName, '')
  227.  
  228. defc Applet_tags =
  229.     universal LastDone
  230.     lastDone='Applet_tags'
  231.     theCode=GetFileArrEl('APPLET_CODE')
  232.     theCodeBase=GetFileArrEl('APPLET_CODEBASE')
  233.     theName=GetFileArrEl('APPLET_NAME')
  234.     theAlt=GetFileArrEl('APPLET_ALT')
  235.     theVspace=GetFileArrEl('APPLET_VSPACE')
  236.     theHspace=GetFileArrEl('APPLET_HSPACE')
  237.     theWidth=''
  238.     theHeight=''
  239.     theAlign=GetFileArrEl('APPLET_ALIGN')
  240.     if theAlign='' then
  241.         theAlign='/LEFT/RIGHT/TOP/BOTTOM/MIDDLE/#OOPS'
  242.         setFileArrEl('APPLET_ALIGN', theAlign)
  243.     endif
  244.  compile if HTML_IF_ARG_BLANK = 'exit'
  245.     do while upcase(rightstr(theCode ,5))/=='CLASS'
  246.         theCode=entrybox('<APPLET> Enter the class','fds',theCode,,255)
  247.         if upcase(theCode)=='#OOPS'| upcase(theCode)=='' then
  248.             return
  249.         endif
  250.     enddo
  251.     theWidth=entrybox('<APPLET> Enter the Width', '', theWidth, , 255)
  252.     do while Valid_Number(theWidth)=FALSE
  253.         theWidth=entrybox('<APPLET> Enter the Width', '', theWidth, , 255)
  254.     enddo
  255.     if upcase(theWidth)=='#OOPS'| upcase(theWidth)=='' then
  256.         return
  257.     endif
  258.     theHeight=entrybox('<APPLET> Enter the Height', '', theHeight, , 255)
  259.     do while Valid_Number(theHeight)=FALSE
  260.         theHeight=entrybox('<APPLET> Enter the Height', '', theHeight, , 255)
  261.     enddo
  262.     if upcase(theHeight)=='#OOPS'|upcase(theHeight)=='#OOPS' then
  263.         return
  264.     endif
  265.  compile else
  266.     do while upcase(rightstr(theCode, 5))/=='CLASS'
  267.         theCode=entrybox('<APPLET> Enter the class','',theCode,,255)
  268.         if upcase(theCode)=='#OOPS' then
  269.             return
  270.         endif
  271.     enddo
  272.     do while Valid_Number2(theWidth)=FALSE
  273.         theWidth=entrybox('<APPLET> Enter the Width', '', theWidth, , 255)
  274.     enddo
  275.     do while Valid_Number2(theHeight)=FALSE
  276.         theHeight=entrybox('<APPLET> Enter the Height', '', theHeight, , 255)
  277.     enddo
  278.  compile endif
  279.     if upcase(leftstr(theCodebase, 5)) == 'AUTO_'then
  280.         theCodebase=rightstr(theCodebase, length(theCodebase)-5)
  281.     else
  282.         theCodebase=entrybox('<APPLET> Enter the Codebase', '', theCodebase, , 255)
  283.     endif
  284.     if upcase(leftstr(theName, 5)) == 'AUTO_'then
  285.         theName=rightstr(theName, length(theName)-5)
  286.     else
  287.         theName=entrybox('<APPLET> Enter the Name', '', theName, , 255)
  288.     endif
  289.     if upcase(theCodebase)='#OOPS' then
  290.         return
  291.     endif
  292.     if upcase(leftstr(theAlt, 5)) == 'AUTO_'then
  293.         theAlt=rightstr(theAlt, length(theAlt)-5)
  294.     else
  295.         theAlt=entrybox('<APPLET> Enter the Alternate Text', '', theAlt, , 255)
  296.     endif
  297.     if upcase(leftstr(theVspace, 5)) == 'AUTO_'then
  298.         theVspace=rightstr(theVspace, length(theVspace)-5)
  299.     else
  300.         theVspace=entrybox('<APPLET> Enter the Vertical spacing', '', theVspace, , 255)
  301.     endif
  302.     do while valid_number(theVspace)=FALSE
  303.         theVspace=entrybox('<APPLET> Enter the Vertical spacing', '', theVspace, , 255)
  304.     enddo
  305.     if upcase(leftstr(theHspace, 5)) == 'AUTO_'then
  306.         theHspace=rightstr(theHspace, length(theHspace)-5)
  307.     else
  308.         theHspace=entrybox('<APPLET> Enter the Horizontal spacing', '', theHspace, , 255)
  309.     endif
  310.     do while valid_number(theHspace)=FALSE
  311.         theHspace=entrybox('<APPLET> Enter the Horizontal spacing', '', theHspace, , 255)
  312.     enddo
  313.     if upcase(leftstr(theAlign, 5)) = 'AUTO_' then
  314.         theAlign= rightstr(theAlign, length(theAlign)-5)
  315.     else
  316.         theAlign=listbox('<APPLET> Enter the Alignment', theAlign)
  317.     endif
  318.     if upcase(theAlign)='#OOPS' then
  319.         return
  320.     endif
  321.     keyin Currentcase('<APPLET CODE="')theCode||Currentcase('" WIDTH=')theWidth||Currentcase(' HEIGHT=')theHeight
  322.     if theCodebase /=='' then
  323.         keyin currentcase(' CODEBASE="')theCodeBase'"'
  324.     endif
  325.     if theName /=='' then
  326.         keyin currentcase(' NAME="')theName'"'
  327.     endif
  328.     if theAlt /=='' then
  329.         keyin currentcase(' ALT="')theAlt'"'
  330.     endif
  331.     if theVspace /=='' then
  332.         keyin currentcase(' VSPACE=')theVspace
  333.     endif
  334.     if theHspace /=='' then
  335.         keyin currentcase(' HSPACE=')theHspace
  336.     endif
  337.     if theAlign /=='' then
  338.         keyin currentcase(' ALIGN=')theAlign
  339.     endif
  340.     keyin '>'
  341.     insertline '', .line+1
  342.     insertline Currentcase('</APPLET>'), .line+2
  343.     .line=.line+1
  344.     .col=1
  345.  
  346. defc Area_tags =
  347.     universal LastDone
  348.     lastDone='Area_tags'
  349.     theShape=getFileArrEl('AREA_SHAPE')
  350.     theHref=getFileArrEl('AREA_HREF')
  351.     theAlt=getFileArrEl('AREA_ALT')
  352.     if theShape='' then
  353.         theShape='/RECT/CIRCLE/POLY/DEFAULT/#OOPS'
  354.         setFileArrEl('AREA_SHAPE', theShape)
  355.     endif
  356.     if upcase(leftstr(theShape, 5)) == 'AUTO_' then
  357.         theShape=rightstr(theShape, length(theShape)-5)
  358.     else
  359.         theShape=listbox('<AREA> Choose the shape', currentcase(theShape))
  360.     endif
  361.     do while theShape=''
  362.  compile if HTML_IF_ARG_BLANK='exit'
  363.         return
  364.  compile endif
  365.         theShape=listbox('<AREA> Choose the shape', currentCase(getFileArrEl('AREA_SHAPE')))
  366.     enddo
  367.     if upcase(theShape) == '#OOPS' then
  368.         return
  369.     elseif upcase(theShape) == 'RECT' then
  370.         tx=0
  371.         bx=0
  372.         ly=0
  373.         ry=0
  374.         do while tx >= bx
  375.             tx=entrybox('<AREA SHAPE=RECT Enter the top edge','',tx,,255)
  376.             do while Valid_number2(tx)=FALSE
  377.                 tx=entrybox('<AREA SHAPE=RECT Enter the top edge','',tx,,255)
  378.             enddo
  379.             bx=entrybox('<AREA SHAPE=RECT Enter the bottom edge','',bx,,255)
  380.             do while Valid_number2(bx)=FALSE
  381.                 bx=entrybox('<AREA SHAPE=RECT Enter the bottom edge','',bx,,255)
  382.             enddo
  383.         enddo
  384.         do while ly >= ry
  385.             ly=entrybox('<AREA SHAPE=RECT Enter the left edge','',ly,,255)
  386.             do while Valid_number2(ly)=FALSE
  387.                 ly=entrybox('<AREA SHAPE=RECT Enter the left edge','',ly,,255)
  388.             enddo
  389.             ry=entrybox('<AREA SHAPE=RECT Enter the right edge','',ry,,255)
  390.             do while Valid_number2(ry)=FALSE
  391.                 ry=entrybox('<AREA SHAPE=RECT Enter the right edge','',ry,,255)
  392.             enddo
  393.         enddo
  394.         theCoords=tx', 'ly', 'bx', 'ry
  395.     elseif upcase(theShape) == 'CIRCLE' then
  396.         xCen=''
  397.         yCen=''
  398.         radius=''
  399.         do while valid_number2(xCen)=FALSE
  400.             xCen=entrybox('<AREA SHAPE=CIRCLE Enter the center xCoordinate','',xCen,,255)
  401.         enddo
  402.         do while valid_number2(yCen)=FALSE
  403.             yCen=entrybox('<AREA SHAPE=CIRCLE Enter the center yCoordinate','',yCen,,255)
  404.         enddo
  405.         do while valid_number2(radius)=FALSE
  406.             radius=entrybox('<AREA SHAPE=CIRCLE Enter the Radius','',radius,,255)
  407.         enddo
  408.         theCoords=xCen', 'yCen', 'radius
  409.     elseif upcase(theShape) == 'POLY' then
  410.         theCoords=''
  411.         xc='df'
  412.         yc='fdsa'
  413.         do while (xc/=='')&(yc/=='')
  414.             xc=entrybox('<AREA SHAPE=POLY enter the x coordinate (blank to exit)','','',,255)
  415.             if xc /=='' then
  416.                 yc=entrybox('<AREA SHAPE=POLY enter the y coordinate (blank to exit)','','',,255)
  417.             endif
  418.             if (xc/=='')&(yc/=='') then
  419.                 theCoords=theCoords||','xc||','yc
  420.             endif
  421.         enddo
  422.         theCoords=rightstr(theCoords, length(theCoords)-1)
  423.     else
  424.         theCoords=''
  425.     endif
  426.     if upcase(leftstr(theHref, 5))=='AUTO_' then
  427.         theHref=rightstr(theHref, length(theHref)-5)
  428.     else
  429.         theHref=entrybox('<AREA> Enter the HREF','',theHref,,255)
  430.     endif
  431.     if upcase(leftstr(theAlt, 5))=='AUTO_' then
  432.         theAlt=rightstr(theAlt, length(theAlt)-5)
  433.     else
  434.         theAlt=entrybox('<AREA> Enter the Alternate text','',theAlt,,255)
  435.     endif
  436.     keyin currentcase('<AREA SHAPE='theShape)
  437.     if upcase(theShape)/=='DEFAULT' then
  438.         keyin currentcase(' COORDS="'theCoords'"')
  439.     endif
  440.     if theHref/=='' then
  441.         keyin currentcase(' HREF="')theHref'"'
  442.     else
  443.         keyin currentcase(' NOHREF')
  444.     endif
  445.     if theAlt/=='' then
  446.         keyin currentcase(' ALT="')theAlt'"'
  447.     endif
  448.     keyin '>'
  449.  
  450. defc BaseFont_tags =
  451.     universal LastDone
  452.     lastDone='BaseFont_tags'
  453.     theSize=getFileArrEl('BASEFONT_SIZE')
  454.     if upcase(leftstr(theSize,5))== 'AUTO_' then
  455.         theSize=rightstr(theSize, length(theSize)-5)
  456.     else
  457.         do while Valid_Number2(theSize)=FALSE
  458.             theSize=entrybox('<BASEFONT> Enter the Size','',theSize,,255)
  459.         enddo
  460.     endif
  461.     keyin currentcase('<BASEFONT SIZE='theSize'>')
  462.  
  463. defc Big_tags =
  464.     universal LastDone
  465.     lastDone='Big_tags'
  466.     noArgTags('BIG')
  467.  
  468. defc Blockquote_tags =
  469.     universal LastDone
  470.     lastDone='Blockquote_tags'
  471.     noArgTags('BLOCKQUOTE')
  472.  
  473. defc Bold_tags =
  474.     universal LastDone
  475.     lastDone='Bold_tags'
  476.     noArgTags('B')
  477.  
  478. defc Caption_tags =
  479.     universal LastDone
  480.     lastDone='Caption_tags'
  481.     theAlign=GetFileArrEl('CAPTION_ALIGN')
  482.     if theAlign='' then
  483.         theAlign='/TOP/BOTTOM/#OOPS'
  484.         setFileArrEl('CAPTION_ALIGN', theAlign)
  485.     endif
  486.     if check_mark_on_screen() then
  487.         pbegin_mark()
  488.     endif
  489.     if upcase(leftstr(theAlign, 5)) == 'AUTO_' then
  490.         theAlign=rightstr(theAlign, length(theAlign)-5)
  491.     else
  492.         theAlign=listbox('<CAPTION> Choose an alignment',Currentcase(theAlign))
  493.     endif
  494.     if upcase(theAlign)=='#OOPS' then
  495.         return
  496.     endif
  497.     keyin Currentcase('<CAPTION')
  498.     if theAlign /== '' then
  499.         keyin Currentcase(' ALIGN='theAlign)
  500.     endif
  501.     keyin'>'
  502.     if check_mark_on_screen() then
  503.         pend_mark()
  504.         oldCol=.col
  505.         left
  506.         if .col=oldCol then
  507.             .line=.line-1
  508.             endline
  509.         else
  510.             right
  511.             right
  512.         endif
  513.     endif
  514.     keyin Currentcase('</CAPTION>')
  515.     if check_mark_on_screen() then
  516.         unmark
  517.     else
  518.         .col=.col-10
  519.     endif
  520.  
  521. defc Center_tags =
  522.     universal LastDone
  523.     lastDone='Center_tags'
  524.     noArgTags('CENTER')
  525.  
  526. defc Citation_tags =
  527.     universal LastDone
  528.     lastDone='Citation_tags'
  529.     noArgTags('CITE')
  530.  
  531. defc Code_tags =
  532.     universal LastDone
  533.     lastDone='Code_tags'
  534.     noArgTags('CODE')
  535.  
  536. defc DeeDee_tags =
  537.     universal LastDone
  538.     lastDone='DeeDee_tags'
  539.     keyin Currentcase('<DD>')
  540.  
  541. defc DeeTee_tags =
  542.     universal LastDone
  543.     lastDone='DeeTee_tags'
  544.     keyin Currentcase('<DT>')
  545.  
  546. defc Definition_tags =
  547.     universal LastDone
  548.     lastDone='Definition_tags'
  549.     noArgTags('DFN')
  550.  
  551. defc DictionaryList_tags =
  552.     universal LastDone
  553.     lastDone='DictionaryList_tags'
  554.     Multiline_tags('DL')
  555.  
  556. defc Directory_tags =
  557.     universal LastDone
  558.     lastDone='Directory_tags'
  559.     Multiline_tags('DIR')
  560.  
  561. defc Div_tags =
  562.     universal LastDone
  563.     lastDone='Div_tags'
  564.     theAlign=GetFileArrEl('DIV_ALIGN')
  565.     if theAlign='' then
  566.         theAlign='/LEFT/RIGHT/CENTER/#OOPS'
  567.         setFileArrEl('DIV_ALIGN', theAlign)
  568.     endif
  569.     if upcase(leftstr(theAlign, 5)) == 'AUTO_' then
  570.         theAlign=rightstr(theAlign, length(theAlign)-5)
  571.     else
  572.         theAlign=listbox('<DIV> Choose an Alignment', Currentcase(theAlign))
  573.     endif
  574.     if upcase(theAlign) == '#OOPS' then
  575.         return
  576.     endif
  577.     keyin currentCase('<DIV')
  578.     if theAlign /== '' then
  579.         keyin currentCase(' ALIGN="')theAlign'"'
  580.     endif
  581.     keyin '>'
  582.     insertline '</DIV>', .line+2
  583.     .line=.line+1
  584.     .col=1
  585.  
  586. defc Emphasis_tags =
  587.     universal LastDone
  588.     lastDone='Emphasis_tags'
  589.     noArgTags('EM')
  590.  
  591. defc Example_tags =
  592.     universal LastDone
  593.     lastDone='Example_tags'
  594.     noArgTags('XMP')
  595.  
  596. defc Font_tags =
  597.     universal LastDone
  598.     lastDone='Font_tags'
  599.     theSize=GetFileArrEl('FONT_SIZE')
  600.     theColor=GetFileArrEl('FONT_COLOR')
  601.     if upcase(leftstr(theSize, 5)) == 'AUTO_' then
  602.         theSize=rightstr(theSize, length(theSize)-5)
  603.     else
  604.         theSize=entrybox('<FONT> Enter the size', '', theSize, , 255)
  605.     endif
  606.     do while Valid_Number3(theSize)=FALSE
  607.         theSize=entrybox('<FONT> Enter the size', '', theSize, , 255)
  608.     enddo
  609.     if upcase(theSize)=='#OOPS' then
  610.         return
  611.     endif
  612.     if upcase(leftstr(theColor, 5)) == 'AUTO_' then
  613.         theColor=rightstr(theColor, length(theColor)-5)
  614.     else
  615.         theColor=entrybox('<FONT> Enter the color', '', theColor, , 255)
  616.     endif
  617.     do while Valid_Color(theColor)=FALSE
  618.         theColor=entrybox('<FONT> Enter the color', '', theColor, , 255)
  619.     enddo
  620.     if upcase(theColor)=='#OOPS' then
  621.         return
  622.     endif
  623.     do while (theSize=='')&(theColor=='')
  624.  compile if HTML_IF_ARG_BLANK='exit'
  625.         if(theSize=='')&(theColor=='') then
  626.             return
  627.         endif
  628.  compile endif
  629.         theSize=entrybox('<FONT> Enter the size', '', theSize, , 255)
  630.         if upcase(theSize)=='#OOPS' then
  631.             return
  632.         endif
  633.         theColor=entrybox('<FONT> Enter the color', '', theColor, , 255)
  634.         if upcase(theColor)=='#OOPS' then
  635.             return
  636.         endif
  637.     enddo
  638.     if check_mark_on_screen() then
  639.         pbegin_mark()
  640.     endif
  641.     keyin Currentcase('<FONT')
  642.     if theSize /== '' then
  643.         keyin Currentcase(' SIZE=')theSize
  644.     endif
  645.     if theColor /== '' then
  646.         keyin Currentcase(' COLOR=#')theColor
  647.     endif
  648.     keyin'>'
  649.     if check_mark_on_screen() then
  650.         pend_mark()
  651.         oldCol=.col
  652.         left
  653.         if .col=oldCol then
  654.             .line=.line-1
  655.             endline
  656.         else
  657.             right
  658.             right
  659.         endif
  660.     endif
  661.     keyin Currentcase('</FONT>')
  662.     if check_mark_on_screen() then
  663.         unmark
  664.     else
  665.         .col=.col-7
  666.     endif
  667.  
  668. defc Form_tags =
  669.     universal LastDone
  670.     lastDone='Form_tags'
  671.     theAction=GetFileArrEl('FORM_ACTION')
  672.     theMethod=GetFileArrEl('FORM_METHOD')
  673.     theEncType=GetFileArrEl('FORM_ENCTYPE')
  674.     if theMethod='' then
  675.         theMethod='/GET/POST/#OOPS'
  676.         setFileArrEl('FORM_METHOD', theMethod)
  677.     endif
  678.     theAction=entrybox('<FORM> Enter the action','',theAction,,255)
  679.     do while theAction=''
  680.  compile if HTML_IF_ARG_BLANK='exit'
  681.         if theAction=='' then
  682.             return
  683.         endif
  684.  compile endif
  685.         theAction=entrybox('<FORM> Enter the action','','',,255)
  686.     enddo
  687.     if upcase(theAction)=='#OOPS' then
  688.         return
  689.     endif
  690.     if upcase(leftstr(theMethod,5))=='AUTO_' then
  691.         theMethod=Currentcase(rightstr(theMethod, length(theMethod)-5))
  692.     else
  693.         do while (upcase(theMethod)/=='POST')&(upcase(theMethod)/=='GET')&(upcase(theMethod)/=='#OOPS')
  694.             theMethod=listbox('<FORM> Choose the method', Currentcase(getFileArrEl('FORM_METHOD')))
  695.         enddo
  696.     endif
  697.     if upcase(theMethod)=='#OOPS' then
  698.         return
  699.     endif
  700.     theEncType=entrybox('<FORM> Enter the ENCTYPE','',theEndType,,255)
  701.     keyin Currentcase('<FORM ACTION="')theAction||Currentcase('" METHOD='theMethod)'>'
  702.     insertline '', .line+1
  703.         insertline Currentcase('</FORM>'), .line+2
  704.     .line=.line+1
  705.     .col=1
  706.  
  707. --defc Frame_tags =
  708. -----theName=''
  709. -----theSource=GetFileArrEl('FRAME_SOURCE')
  710. -----theMarginheight=GetFileArrEl('FRAME_MARGINHEIGHT')
  711. -----theMarginwidth=GetFileArrEl('FRAME_MARGINWIDTH')
  712. -----theScroling=GetFileArrEl('FRAME_SCROLLING')
  713. -----theNoresize=GetFileArrEl('FRAME_NORESIZE')
  714. -----theName=entrybox('<FRAME> Enter the name','','',,255)
  715. -----if upcase(leftstr(theSource, 5))=='AUTO_' then
  716. ----------theSource=rightstr(theSource, length(theSource)-5)
  717. -----else
  718. ----------theSource=entrybox('<FRAME> Enter the source','',theSource,,255)
  719. -----endif
  720. -----do while theSource==''
  721. ----------theSource=entrybox('<FRAME> Enter the source','',theSource,,255)
  722. -----enddo
  723. -----if upcase(theSource)=='#OOPS' then
  724. ----------return
  725. -----endif
  726. -----if upcase(leftstr(theMarginheight, 5))=='AUTO_' then
  727. ----------theMarginheight=rightstr(theMarginheight, length(theMarginheight)-5)
  728. -----else
  729. ----------theMarginheight=entrybox('<FRAME> Enter the marginheight','',theMarginheight,,255)
  730. -----endif
  731. -----do while Valid_Number(theMarginheight)=FALSE
  732. ----------theMarginheight=entrybox('<FRAME> Enter the marginheight','',theMarginheight,,255)
  733. -----enddo
  734. -----if upcase(theMarginheight)=='#OOPS' then
  735. ----------return
  736. -----endif
  737. -----if upcase(leftstr(theMarginwidth, 5))=='AUTO_' then
  738. ----------theMarginwidth=rightstr(theMarginwidth, length(theMarginwidth)-5)
  739. -----else
  740. ----------theMarginwidth=entrybox('<FRAME> Enter the marginheight','',theMarginwidth,,255)
  741. -----endif
  742. -----do while Valid_Number(theMarginwidth)=FALSE
  743. ----------theMarginwidth=entrybox('<FRAME> Enter the marginheight','',theMarginwidth,,255)
  744. -----enddo
  745. -----if upcase(theMarginwidth)=='#OOPS' then
  746. ----------return
  747. -----endif
  748. -----if upcase(theScroling) =='AUTO_YES' then
  749. ----------theScroling=Currentcase('YES')
  750. -----elseif upcase(theScroling) =='AUTO_NO' then
  751. ----------theScroling=Currentcase('NO')
  752. -----elseif upcase(theScroling) =='AUTO_AUTO' then
  753. ----------theScroling=Currentcase('AUTO')
  754. -----else
  755. ----------theScroling=listbox('Is scroling allowed for this frame',Currentcase('/AUTO/YES/NO'))
  756. -----endif
  757. -----if upcase(theScroling)=='#OOPS' then
  758. ----------return
  759. -----endif
  760. -----if upcase(theNoresize)=='YES' then
  761. ----------theNoresize=MBID_YES
  762. -----elseif upcase(theNoresize)=='NO' then
  763. ----------theNoresize=MBID_NO
  764. -----else
  765. ----------theNoresize=winmessagebox('Resing?', 'Do you want to disallow resizing of this frame?', MB_YESNO+MB_DEFBUTTON2)
  766. -----endif
  767. -----keyin Currentcase('<FRAME NAME="')theName'"'Currentcase(' SRC="')theSource'"'
  768. -----if theMarginheight/=='' then
  769. ----------keyin Currentcase(' MARGINHEIGHT=')theMarginheight
  770. -----endif
  771. -----if theMarginwidth /=='' then
  772. ----------keyin Currentcase(' MARGINWIDTH=')theMarginwidth
  773. -----endif
  774. -----if theScroling /=='' then
  775. ----------keyin Currentcase(' SCROLLING=')theScroling
  776. -----endif
  777. -----if theNoresize=MBID_YES then
  778. ----------keyin Currentcase(' NORESIZE')
  779. -----endif
  780. -----keyin '>'
  781.  
  782. --defc Frameset_tags =
  783. -----theRows=GetFileArrEl('FRAMESET_ROWS')
  784. -----theCols=GetFileArrEl('FRAMESET_COLS')
  785. -----if upcase(leftstr(theRows, 5))=='AUTO_' then
  786. ----------theRows=rightstr(theRows, length(theRows)-5)
  787. -----else
  788. ----------theRows=entrybox('<FRAMESET> Enter the row string','',theRows,,255)
  789. -----endif
  790. -----do while Valid_Number4(theRows)=FALSE
  791. ----------theRows=entrybox('<FRAMESET> Enter the row string','',theRows,,255)
  792. -----enddo
  793. -----if upcase(theRows)=='#OOPS' then
  794. ----------return
  795. -----endif
  796. -----if upcase(leftstr(theCols, 5))=='AUTO_' then
  797. ----------theCols=rightstr(theCols, length(theCols)-5)
  798. -----else
  799. ----------theCols=entrybox('<FRAMESET> Enter the column string','',theCols,,255)
  800. -----endif
  801. -----do while Valid_Number4(theCols)=FALSE
  802. ----------theCols=entrybox('<FRAMESET> Enter the column string','',theCols,,255)
  803. -----enddo
  804. -----if upcase(theCols)=='#OOPS' then
  805. ----------return
  806. -----endif
  807. -----keyin Currentcase('<FRAMESET')
  808. -----if theRows /=='' then
  809. ----------keyin Currentcase(' ROWS="')theRows'"'
  810. -----endif
  811. -----if theCols /=='' then
  812. ----------keyin Currentcase(' COLS="')theCols'"'
  813. -----endif
  814. -----keyin '>'
  815. -----insertline '', .line+1
  816. -----insertline Currentcase('</FRAMESET>'), .line+2
  817. -----.line=.line+1
  818. -----.col=1
  819.  
  820. defc H1_tags =
  821.     universal LastDone
  822.     lastDone='H1_tags'
  823.     alignArgTags('H1')
  824.  
  825. defc H2_tags =
  826.     universal LastDone
  827.     lastDone='H2_tags'
  828.     alignArgTags('H2')
  829.  
  830. defc H3_tags =
  831.     universal LastDone
  832.     lastDone='H3_tags'
  833.     alignArgTags('H3')
  834.  
  835. defc H4_tags =
  836.     universal LastDone
  837.     lastDone='H4_tags'
  838.     alignArgTags('H4')
  839.  
  840. defc H5_tags =
  841.     universal LastDone
  842.     lastDone='H5_tags'
  843.     alignArgTags('H5')
  844.  
  845. defc H6_tags =
  846.     universal LastDone
  847.     lastDone='H6_tags'
  848.     alignArgTags('H6')
  849.  
  850.  
  851. defc Image_tags =
  852.     universal LastDone
  853.     lastDone='Image_tags'
  854.     theSource=GetFileArrEl('IMG_SOURCE')
  855.     theSource=entrybox('<IMG> Enter the source','',theSource,,255)
  856.  compile if HTML_IF_ARG_BLANK='exit'
  857.     if upcase(theSource)==''|upcase(theSource)=='#OOPS' then
  858.         return
  859.     endif
  860.  compile else
  861.     do while theSource=''
  862.         theSource=entrybox('<IMG> Enter the source','',theSource,,255)
  863.     enddo
  864.     if upcase(theSource)=='#OOPS' then
  865.         return
  866.     endif
  867.  compile endif
  868.     Image_all(theSource)
  869.  
  870. defc Input_tags =
  871.     universal LastDone
  872.     lastDone='Input_tags'
  873.     theName=''
  874.     theValue=''
  875.     theSize=''
  876.     theMaxlength=''
  877.     theChecked=getFileArrEl('INPUT_CHECKBOX_CHECKED')
  878.     theRChecked=getFileArrEl('INPUT_RADIO_CHECKED')
  879.     theSource=GetFileArrEl('INPUT_IMAGE_SOURCE')
  880.     theType=GetFileArrEl('INPUT_TYPE')
  881.     if theType='' then
  882.         theType='/CHECKBOX/HIDDEN/IMAGE/PASSWORD/RADIO/RESET/SUBMIT/TEXT/#OOPS'
  883.         setFileArrEl('INPUT_TYPE', theType)
  884.     endif
  885.     if upcase(leftstr(theType, 5)) == 'AUTO_' then
  886.         theType=rightstr(theType, length(theType)-5)
  887.     else
  888.         theType=listbox('<INPUT> Choose a type',Currentcase(theType))
  889.     endif
  890.     do while theType =''
  891.  compile if HTML_IF_ARG_BLANK='exit'
  892.         return
  893.  compile endif
  894.         theType=listbox('<INPUT> Choose a type',Currentcase(GetFileArrEl('INPUT_TYPE')))
  895.     enddo
  896.     if upcase(theType)=='#OOPS' then
  897.         return
  898.     endif
  899.     if upcase(theType)=='CHECKBOX' then
  900.         do while theName ==''
  901.             theName=entrybox('<INPUT TYPE=CHECKBOX> Enter the name','', theName,,255)
  902.         enddo
  903.         if upcase(theName)=='#OOPS' then
  904.             return
  905.         endif
  906.         theValue=GetFileArrEl('INPUT_CHECKBOX_VALUE')
  907.         if upcase(leftstr(theValue, 5))== 'AUTO_' then
  908.             theValue=rightstr(theValue, length(theValue)-5)
  909.         else
  910.             theValue=entrybox('<INPUT TYPE=CHECKBOX> Enter the value','',theValue,,255)
  911.         endif
  912.         if upcase(theValue)=='#OOPS' then
  913.             return
  914.         endif
  915.         theChecked=GetFileArrEl('INPUT_CHECKBOX_CHECKED')
  916.         if upcase(theChecked)=='AUTO_YES' then
  917.             theChecked=MBID_YES
  918.         elseif upcase(theChecked)=='AUTO_NO' then
  919.             theChecked=MBID_NO
  920.         else
  921.             if upcase(theChecked)='YES' then
  922.             theChecked=winmessagebox('Checked?', 'Is this one checked?', MB_YESNO+MB_DEFBUTTON1)
  923.             else
  924.             theChecked=winmessagebox('Checked?', 'Is this one checked?', MB_YESNO+MB_DEFBUTTON2)
  925.             endif
  926.         endif
  927.     elseif upcase(theType)=='HIDDEN' then
  928.         do while theName ==''
  929.             theName=entrybox('<INPUT TYPE=HIDDEN> Enter the name','', theName,,255)
  930.         enddo
  931.         if upcase(theName)=='#OOPS' then
  932.             return
  933.         endif
  934.         do while theValue=''
  935.             theValue=entrybox('<INPUT TYPE=HIDDEN> Enter the value','',theValue,,255)
  936.         enddo
  937.         if upcase(theValue)=='#OOPS' then
  938.             return
  939.         endif
  940.     elseif upcase(theType)=='IMAGE' then
  941.         do while theSource ==''
  942.             theSource=entrybox('<INPUT TYPE=IMAGE> Enter the source','', theSource,,255)
  943.         enddo
  944.         if upcase(theSource)=='#OOPS' then
  945.             return
  946.         endif
  947.         theName=entrybox('<INPUT TYPE=IMAGE> Enter the name','','',,255)
  948.         if upcase(theName)=='#OOPS' then
  949.             return
  950.         endif
  951.     elseif upcase(theType)=='PASSWORD' then
  952.         do while theName ==''
  953.             theName=entrybox('<INPUT TYPE=PASSWORD> Enter the name','', theName,,255)
  954.         enddo
  955.         if upcase(theName)=='#OOPS' then
  956.             return
  957.         endif
  958.         theValue=GetFileArrEl('INPUT_PASSWORD_VALUE')
  959.         if upcase(leftstr(theValue, 5))== 'AUTO_' then
  960.             theValue=rightstr(theValue, length(theValue)-5)
  961.         else
  962.             theValue=entrybox('<INPUT TYPE=PASSWORD> Enter the value','',theValue,,255)
  963.         endif
  964.         if upcase(theValue)=='#OOPS' then
  965.             return
  966.         endif
  967.         theSize=GetFileArrEl('INPUT_PASSWORD_SIZE')
  968.         if upcase(leftstr(theSize, 5))== 'AUTO_' then
  969.             theSize=rightstr(theSize, length(theSize)-5)
  970.         else
  971.             theSize=entrybox('<INPUT TYPE='theType'> Enter the size','',theSize,,255)
  972.         endif
  973.         do while Valid_Number(theSize)=FALSE
  974.             theSize=entrybox('<INPUT TYPE='theType'> Enter the size','', theSize,30,255)
  975.         enddo
  976.         if upcase(theSize)=='#OOPS' then
  977.             return
  978.         endif
  979.         theMaxlength=GetFileArrEl('INPUT_PASSWORD_MAXLENGTH')
  980.         if upcase(leftstr(theMaxlength, 5))== 'AUTO_' then
  981.             theMaxlength=rightstr(theMaxlength, length(theMaxlength)-5)
  982.         else
  983.             theMaxlength=entrybox('<INPUT TYPE='theType'> Enter the maximum length','',theMaxlength,,255)
  984.         endif
  985.         do while Valid_Number(theMaxlength)=FALSE
  986.             theMaxlength=entrybox('<INPUT TYPE='theType'> Enter the maximum length','', theMaxlength,,255)
  987.         enddo
  988.         if upcase(theMaxlength)=='#OOPS' then
  989.             return
  990.         endif
  991.     elseif upcase(theType)=='RADIO' then
  992.         do while theName ==''
  993.             theName=entrybox('<INPUT TYPE=RADIO>Enter the name','', theName,,255)
  994.         enddo
  995.         if upcase(theName)=='#OOPS' then
  996.             return
  997.         endif
  998.         theValue=GetFileArrEl('INPUT_RADIO_VALUE')
  999.         if upcase(leftstr(theValue, 5))== 'AUTO_' then
  1000.             theValue=rightstr(theValue, length(theValue)-5)
  1001.         else
  1002.             theValue=entrybox('<INPUT TYPE='theType'> Enter the value','',theValue,,255)
  1003.         endif
  1004.         do while theValue==''
  1005.             theValue=entrybox('<INPUT TYPE='theType'> Enter the value','',theValue,,255)
  1006.         enddo
  1007.         if upcase(theValue)=='#OOPS' then
  1008.             return
  1009.         endif
  1010.         theChecked=GetFileArrEl('INPUT_RADIO_CHECKED')
  1011.         if upcase(theRChecked)=='AUTO_YES' then
  1012.             theChecked=MBID_YES
  1013.         elseif upcase(theRChecked)=='AUTO_NO' then
  1014.             theChecked=MBID_NO
  1015.         else
  1016.             if upcase(theRChecked)= 'YES' then
  1017.             theChecked=winmessagebox('Checked?', 'Is this one checked?', MB_YESNO+MB_DEFBUTTON1)
  1018.             else
  1019.             theChecked=winmessagebox('Checked?', 'Is this one checked?', MB_YESNO+MB_DEFBUTTON2)
  1020.             endif
  1021.         endif
  1022.         if upcase(theRChecked)=='#OOPS' then
  1023.             return
  1024.         endif
  1025.     elseif upcase(theType)=='RESET' then
  1026.         theName=entrybox('<INPUT TYPE='theType'> Enter the name','','',,255)
  1027.         if upcase(theName)=='#OOPS' then
  1028.             return
  1029.         endif
  1030.         theValue=entrybox('<INPUT TYPE='theType'> Enter the value','','',,255)
  1031.         if upcase(theValue)=='#OOPS' then
  1032.             return
  1033.         endif
  1034.     elseif upcase(theType)=='SUBMIT' then
  1035.         theName=entrybox('<INPUT TYPE='theType'> Enter the name','','',,255)
  1036.         if upcase(theType)=='#OOPS' then
  1037.             return
  1038.         endif
  1039.         theValue=entrybox('<INPUT TYPE='theType'> Enter the value','','',,255)
  1040.         if upcase(theValue)=='#OOPS' then
  1041.             return
  1042.         endif
  1043.     elseif upcase(theType)=='TEXT' then
  1044.         theName=entrybox('<INPUT TYPE='theName'>Enter the name','','',,255)
  1045.         do while theName ==''
  1046.             theName=entrybox('<INPUT TYPE='theType'> Enter the name','', theName,,255)
  1047.         enddo
  1048.         if upcase(theName)=='#OOPS' then
  1049.             return
  1050.         endif
  1051.         theValue=GetFileArrEl('INPUT_TEXT_VALUE')
  1052.         if upcase(leftstr(theValue, 5))== 'AUTO_' then
  1053.             theValue=rightstr(theValue, length(theValue)-5)
  1054.         else
  1055.             theValue=entrybox('<INPUT TYPE='theType'> Enter the value','',theValue,,255)
  1056.         endif
  1057.         if upcase(theValue)=='#OOPS' then
  1058.             return
  1059.         endif
  1060.         theSize=GetFileArrEl('INPUT_TEXT_SIZE')
  1061.         if upcase(leftstr(theSize, 5))== 'AUTO_' then
  1062.             theSize=rightstr(theSize, length(theSize)-5)
  1063.         else
  1064.             theSize=entrybox('<INPUT TYPE='theType'> Enter the size','',theSize,,255)
  1065.         endif
  1066.         do while Valid_Number(theSize)=FALSE
  1067.             theSize=entrybox('<INPUT TYPE='theType'> Enter the size','', theSize,,255)
  1068.         enddo
  1069.         if upcase(theSize)=='#OOPS' then
  1070.             return
  1071.         endif
  1072.         theMaxlength=GetFileArrEl('INPUT_TEXT_MAXLENGTH')
  1073.         if upcase(leftstr(theMaxlength, 5))== 'AUTO_' then
  1074.             theMaxlength=rightstr(theMaxlength, length(theMaxlength)-5)
  1075.         else
  1076.             theMaxlength=entrybox('<INPUT TYPE='theType'> Enter the maximum lenght','',theMaxlength,,255)
  1077.         endif
  1078.         do while Valid_Number(theMaxlength)=FALSE
  1079.             theMaxlength=entrybox('<INPUT TYPE='theType'> Enter the maximum length','', theMaxlength,,255)
  1080.         enddo
  1081.         if upcase(theMaxlength)=='#OOPS' then
  1082.             return
  1083.         endif
  1084.     else
  1085.         return
  1086.     endif
  1087.     if theSize=0 then
  1088.         theSize=''
  1089.     endif
  1090.     if theMaxlength=0 then
  1091.         theMaxlength=''
  1092.     endif
  1093.     keyin Currentcase('<INPUT TYPE='theType)
  1094.     if theName /== '' then
  1095.         keyin Currentcase(' NAME="')theName'"'
  1096.     endif
  1097.     if theValue /== '' then
  1098.         keyin Currentcase(' VALUE="')theValue'"'
  1099.     endif
  1100.     if theSource /== '' then
  1101.         keyin Currentcase(' SRC="')theSource'"'
  1102.     endif
  1103.     if theSize /== '' then
  1104.         keyin Currentcase(' SIZE=')theSize
  1105.     endif
  1106.     if theMaxlength /== '' then
  1107.         keyin Currentcase(' MAXLENGTH=')theMaxlength
  1108.     endif
  1109.     if theChecked=MBID_YES then
  1110.         keyin Currentcase(' CHECKED')
  1111.     endif
  1112.     keyin '>'
  1113.  
  1114. defc Italics_Tags =
  1115.     universal LastDone
  1116.     lastDone='Italics_Tags'
  1117.     noArgTags('I')
  1118.  
  1119. defc Keyboard_tags =
  1120.     universal LastDone
  1121.     lastDone='Keyboard_tags'
  1122.     noArgTags('KBD')
  1123.  
  1124. defc LineBreak_tags =
  1125.     universal LastDone
  1126.     lastDone='LineBreak_tags'
  1127.     theClear=getFileArrEl('BR_CLEAR')
  1128.     if theClear=''then
  1129.         theClear='/ALL/LEFT/RIGHT/NONE/#OOPS'
  1130.         setFileArrEl('BR_CLEAR', theClear)
  1131.     endif
  1132.     if upcase(leftstr(theClear, 5))=='AUTO_' then
  1133.         theClear=rightstr(theClear, length(theClear)-5)
  1134.     else
  1135.         theClear=listbox('<BR> Clears which way', currentcase(theClear))
  1136.     endif
  1137.     if upcase(theClear) = '#OOPS' then
  1138.         return
  1139.     endif
  1140.     keyin Currentcase('<BR')
  1141.     if theClear/=='' then
  1142.         keyin currentcase(' CLEAR='theClear)
  1143.     endif
  1144.     keyin '>'
  1145.  
  1146. defc Listing_tags =
  1147.     universal LastDone
  1148.     lastDone='Listing_tags'
  1149.     noArgTags('LISTING')
  1150.  
  1151. defc Link_tags =
  1152.     universal LastDone
  1153.     lastDone='Link_tags'
  1154.     theURL=GetFileArrEl('LINK_LINK')
  1155.     theRel=GetFileArrEl('LINK_REL')
  1156.     theRev=GetFileArrEl('LINK_REV')
  1157.     theTitle=GetFileArrEl('LINK_TITLE')
  1158.     do while theURL==''
  1159.         theURL=entrybox('<LINK> Enter the HREF','',theURL,,255)
  1160.  compile if HTML_IF_ARG_BLANK='exit'
  1161.         if theURL=='' then
  1162.             return
  1163.         endif
  1164.  compile endif
  1165.     enddo
  1166.     if upcase(theURL)=='#OOPS' then
  1167.         return
  1168.     endif
  1169.     if upcase(leftstr(theRel,5)) == 'AUTO_' then
  1170.         theRel=rightstr(theRel, length(theRel)-5)
  1171.     else
  1172.         theRel=entrybox('<LINK> Enter the Rel', '',theRel,,255)
  1173.     endif
  1174.     if upcase(theRel)=='#OOPS' then
  1175.         return
  1176.     endif
  1177.     if upcase(leftstr(theRev,5)) == 'AUTO_' then
  1178.         theRev=rightstr(theRev, length(theRev)-5)
  1179.     else
  1180.         theRev=entrybox('<LINK> Enter the Rev', '',theRev,,255)
  1181.     endif
  1182.     if upcase(theRev)=='#OOPS' then
  1183.         return
  1184.     endif
  1185.     if upcase(leftstr(theTitle,5)) == 'AUTO_' then
  1186.         theTitle=rightstr(theTitle, length(theTitle)-5)
  1187.     else
  1188.         theTitle=entrybox('<LINK> Enter the Title', '',theTitle,,255)
  1189.     endif
  1190.     if upcase(theTitle)=='#OOPS' then
  1191.         return
  1192.     endif
  1193.     keyin Currentcase('<LINK HREF="')theURL'"'
  1194.     if theRel /== '' then
  1195.         keyin Currentcase(' REL="')theRel'"'
  1196.     endif
  1197.     if theRev /== '' then
  1198.         keyin Currentcase(' REV="')theRev'"'
  1199.     endif
  1200.     if theTitle /== '' then
  1201.         keyin Currentcase(' TITLE="')theTitle'"'
  1202.     endif
  1203.     keyin ('>')
  1204.  
  1205. defc ListItem_tags =
  1206.     universal LastDone
  1207.     lastDone='ListItem_tags'
  1208.     keyin Currentcase('<LI>')
  1209.  
  1210. defc Map_Tags =
  1211.     universal LastDone
  1212.     lastDone='Map_Tags'
  1213.     theName=getFileArrEl('MAP_NAME')
  1214.     if upcase(leftstr(theName, 5)) ='AUTO_' then
  1215.         theName=rightstr(theName, length(theName)-5)
  1216.     else
  1217.         theName=entrybox('<MAP> Enter the Name','',theName,,255)
  1218.     endif
  1219.     keyin currentcase('<MAP')
  1220.     if theName/=='' then
  1221.         keyin currentcase(' NAME="')theName'"'
  1222.     endif
  1223.     keyin '>'
  1224.     insertline '', .line+1
  1225.     insertline currentcase('</MAP>'), .line+2
  1226.     .line=.line+1
  1227.     beginline
  1228.  
  1229. defc Menu_tags =
  1230.     universal LastDone
  1231.     lastDone='Menu_tags'
  1232.     Multiline_tags('MENU')
  1233.  
  1234. defc Meta_Tags =
  1235.     universal LastDone
  1236.     lastDone='Meta_Tags'
  1237.     theEquiv=''
  1238.     theName=''
  1239.     theContent=''
  1240.     theEquiv=entrybox('<META> Enter the HTTP_EQUIV','','', ,255)
  1241.     if upcase(theEquiv)=='#OOPS' then
  1242.         return
  1243.     endif
  1244.     if theEquiv=='' then
  1245.         theName=entrybox('<META> Enter the name','','',,255)
  1246.         if upcase(theName)=='#OOPS' then
  1247.             return
  1248.         endif
  1249.     endif
  1250.  compile if HTML_IF_ARG_BLANK='exit'
  1251.     if (theEquiv=='')&(theName=='') then
  1252.         return
  1253.     endif
  1254.  compile else do while (theEquiv=='')&(theName=='')
  1255.         theEquiv=entrybox('<META> Enter the HTTP_EQUIV','','', ,255)
  1256.         if upcase(theEquiv)=='#OOPS' then
  1257.             return
  1258.         endif
  1259.         if theEquiv=='' then
  1260.             theName=entrybox('<META> Enter the name','','',,255)
  1261.             if upcase(theName)=='#OOPS' then
  1262.                 return
  1263.             endif
  1264.         endif
  1265.     enddo
  1266.  compile endif
  1267.     do while theContent==''
  1268.         theContent=entrybox('<META> Enter the content','','',,255)
  1269.     enddo
  1270.     keyin Currentcase('<META')
  1271.     if theEquiv/=='' then
  1272.         keyin Currentcase(' HTTP-EQUIV="')theEquiv'"'
  1273.     endif
  1274.     if theName /=='' then
  1275.         keyin Currentcase(' NAME="')theName'"'
  1276.     endif
  1277.     keyin Currentcase(' CONTENT="')theContent'"'
  1278.     keyin '>'
  1279.  
  1280. defc NewPage_tags =
  1281.     universal LastDone, load_ext
  1282.     if wordpos(load_ext, 'xtml XTML') then
  1283.         sayerror 'This is an XTML file'
  1284.         return
  1285.     endif
  1286.     lastDone=''
  1287.     theBase=getFileArrEl('BASE')
  1288.     theVersion=getFileArrEl('HTML_VERSION')
  1289.     theBackground=GetFileArrEl('BODY_BACKGROUND')
  1290.     theBackgroundcolor=GetFileArrEl('BODY_BGCOLOR')
  1291.     theText=GetFileArrEl('BODY_TEXT')
  1292.     theLink=GetFileArrEl('BODY_LINK')
  1293.     theIdxPrompt=GetFileArrEl('INDEX_PROMPT')
  1294.     theHitlink=GetFileArrEl('BODY_VLINK')
  1295.     theAlink=GetFileArrEl('BODY_ALINK')
  1296.     theIndex=GetFileArrEl('IS_INDEX')
  1297.     theTitle=entrybox('[New File] Enter the title','','',,255)
  1298.     if upcase(leftstr(theVersion,5)) == 'AUTO_' then
  1299.         theVersion=rightstr(theVersion, length(theVersion)-5)
  1300.     else
  1301.         theVersion=entrybox('[New File] Enter the version', '', theVersion, ,255)
  1302.     endif
  1303.     if upcase(leftstr(theBackground,5)) == 'AUTO_' then
  1304.         theBackground=rightstr(theBackground, length(theBackground)-5)
  1305.     else
  1306.         theBackground=entrybox('[New File] Enter the background','',theBackground,,255)
  1307.     endif
  1308.     if upcase(theBackground)=='#OOPS' then
  1309.         return
  1310.     endif
  1311.     if upcase(leftstr(theBackgroundcolor,5)) == 'AUTO_' then
  1312.         theBackgroundcolor=rightstr(theBackgroundcolor, length(theBackgroundcolor)-5)
  1313.     else
  1314.         theBackgroundcolor=entrybox('[New File] Enter the background color','',theBackgroundcolor,,255)
  1315.     endif
  1316.     do while Valid_Color(theBackgroundcolor)=FALSE
  1317.         theBackgroundcolor=entrybox('[New File] Enter the background color','',theBackgroundcolor,,255)
  1318.     enddo
  1319.     if upcase(theBackgroundcolor)=='#OOPS' then
  1320.         return
  1321.     endif
  1322.     if upcase(leftstr(theText,5)) == 'AUTO_' then
  1323.         theText=rightstr(theText, length(theText)-5)
  1324.     else
  1325.         theText=entrybox('[New File] Enter the text color','',theText,,255)
  1326.     endif
  1327.     do while Valid_Color(theText)=FALSE
  1328.         theText=entrybox('[New File] Enter the text color','',theText,,255)
  1329.     enddo
  1330.     if upcase(theText)=='#OOPS' then
  1331.         return
  1332.     endif
  1333.     if upcase(leftstr(theLink,5)) == 'AUTO_' then
  1334.         theLink=rightstr(theLink, length(theLink)-5)
  1335.     else
  1336.         theLink=entrybox('[New File] Enter the link color','',theLink,,255)
  1337.     endif
  1338.     do while Valid_Color(theLink)=FALSE
  1339.         theLink=entrybox('[New File] Enter the link color','',theLink,,255)
  1340.     enddo
  1341.     if upcase(theLink)=='#OOPS' then
  1342.         return
  1343.     endif
  1344.     if upcase(leftstr(theHitlink,5)) == 'AUTO_' then
  1345.         theHitlink=rightstr(theHitlink, length(theHitlink)-5)
  1346.     else
  1347.         theHitlink=entrybox('[New File] Enter the hit link color','',theHitlink,,255)
  1348.     endif
  1349.     do while Valid_Color(theHitlink)=FALSE
  1350.         theHitlink=entrybox('[New File] Enter the hit link color','',theHitlink,,255)
  1351.     enddo
  1352.     if upcase(theHitlink)=='#OOPS' then
  1353.         return
  1354.     endif
  1355.     if upcase(leftstr(theAlink,5)) == 'AUTO_' then
  1356.         theAlink=rightstr(theAlink, length(theAlink)-5)
  1357.     else
  1358.         theAlink=entrybox('[New File] Enter the active link color','',theAlink,,255)
  1359.     endif
  1360.     do while Valid_Color(theAlink)=FALSE
  1361.         theAlink=entrybox('[New File] Enter the active link color','',theAlink,,255)
  1362.     enddo
  1363.     if upcase(theAlink)=='#OOPS' then
  1364.         return
  1365.     endif
  1366.     if upcase(theIndex)=='AUTO_YES' then
  1367.         theIndex=MBID_YES
  1368.     elseif upcase(theIndex)='AUTO_NO' then
  1369.         theIndex=MBID_NO
  1370.     else
  1371.         if upcase(theIndex)='YES' then
  1372.         theIndex=winmessagebox('INDEX?', 'Is this an index?', MB_YESNO + MB_DEFBUTTON1)
  1373.         else
  1374.         theIndex=winmessagebox('INDEX?', 'Is this an index?', MB_YESNO + MB_DEFBUTTON2)
  1375.         endif
  1376.     endif
  1377.         if theIndex=MBID_YES then
  1378.             if upcase(leftstr(theIdxPrompt,5 )) == 'AUTO_' then
  1379.                 theIdxPrompt=rightstr(theIdxPrompt, length(theIdxPrompt)-5)
  1380.             else
  1381.                 theIdxPrompt=entrybox('[New File] Enter the Index Prompt','',theIdxPrompt,,255)
  1382.             endif
  1383.         endif
  1384.     if upcase(leftstr(theBase,5))== 'AUTO_' then
  1385.         theBase=rightstr(theBase, length(theBase)-5)
  1386.     else
  1387.         theBase=entrybox('[New File] Enter the base','',theBase,,255)
  1388.     endif
  1389.     if upcase(theBase)=='#OOPS' then
  1390.         return
  1391.     endif
  1392.     keyin Currentcase('<HTML ')
  1393.     if theVersion/=='' then
  1394.         keyin currentcase('VERSION="')
  1395.         keyin theVersion
  1396.         keyin('"')
  1397.     endif
  1398.     keyin currentcase('>')
  1399.     insertline Currentcase('<HEAD>'), .line+1
  1400.     insertline Currentcase('<TITLE>')theTitle||Currentcase('</TITLE>'), .line+2
  1401.     if theIndex=MBID_YES then
  1402.         if theIdxPrompt == '' then
  1403.         insertline Currentcase('<ISINDEX>'), .line+3
  1404.         else
  1405.             eLine=currentcase('<ISINDEX PROMPT="')theIdxPrompt'">'
  1406.             insertline eLine, .line+3
  1407.         endif
  1408.         .line=.line+1
  1409.     endif
  1410.     if theBase /=='' then
  1411.         insertline Currentcase('<BASE HREF="')theBase'">', .line+3
  1412.         .line=.line+1
  1413.     endif
  1414.     insertline Currentcase('</HEAD>'), .line+3
  1415.     insertline Currentcase('<BODY>'), .line+4
  1416.     insertline '', .line+5
  1417.     insertline Currentcase('</BODY>'), .line+6
  1418.     insertline Currentcase('</HTML>'), .line+7
  1419.     .line=.line+4
  1420.     .col=6
  1421.     if theBackground /=='' then
  1422.         keyin Currentcase(' BACKGROUND="'theBackground'"')
  1423.     endif
  1424.     if theBackgroundcolor /=='' then
  1425.         keyin Currentcase(' BGCOLOR=#'theBackgroundcolor)
  1426.     endif
  1427.     if theText /=='' then
  1428.         keyin Currentcase(' TEXT=#'theText)
  1429.     endif
  1430.     if theLink /=='' then
  1431.         keyin Currentcase(' LINK=#'theLink)
  1432.     endif
  1433.     if theHitlink /=='' then
  1434.         keyin Currentcase(' VLINK=#'theHitlink)
  1435.     endif
  1436.     if theAlink /=='' then
  1437.         keyin Currentcase(' ALINK=#'theAlink)
  1438.     endif
  1439.     .line=.line+1
  1440.     .col=1
  1441.  
  1442. --defc NewPageFrames_tags
  1443. -----universal kase, optTagsArgs
  1444. -----theBase=''
  1445. -----theRows=GetFileArrEl('FRAMESET_ROWS')
  1446. -----theCols=GetFileArrEl('FRAMESET_COLS')
  1447. -----theBackground=GetFileArrEl('BODY_BACKGROUND')
  1448. -----theBackgroundcolor=GetFileArrEl('BODY_BGCOLOR')
  1449. -----theText=GetFileArrEl('BODY_TEXT')
  1450. -----theLink=GetFileArrEl('BODY_LINK')
  1451. -----theHitlink=GetFileArrEl('BODY_VLINK')
  1452. -----theAlink=GetFileArrEl('BODY_ALINK')
  1453. -----theIndex=GetFileArrEl('IS_INDEX')
  1454. -----theTitle=entrybox('[New File] Enter the title','','',,255)
  1455. -----if upcase(leftstr(theRows, 5))=='AUTO_' then
  1456. ----------theRows=rightstr(theRows, length(theRows)-5)
  1457. -----else
  1458. ----------theRows=entrybox('[New File] Enter the row string','',theRows,,255)
  1459. -----endif
  1460. ----- compile if HTML_IF_ARG_BLANK='exit'
  1461. -----if theRows=='' then
  1462. ----------return
  1463. -----endif
  1464. ----- compile endif
  1465. -----do while Valid_Number4(theRows)=FALSE
  1466. ----------theRows=entrybox('[New File] Enter the row string','',theRows,,255)
  1467. ----- compile if HTML_IF_ARG_BLANK='exit'
  1468. ----------if theRows=='' then
  1469. ---------------return
  1470. ----------endif
  1471. ----- compile endif
  1472. -----enddo
  1473. -----if upcase(theRows)=='#OOPS' then
  1474. ----------return
  1475. -----endif
  1476. -----if upcase(leftstr(theCols, 5))=='AUTO_' then
  1477. ----------theCols=rightstr(theCols, length(theCols)-5)
  1478. -----else
  1479. ----------theCols=entrybox('[New File] Enter the column string','',theCols,,255)
  1480. -----endif
  1481. ----- compile if HTML_IF_ARG_BLANK='exit'
  1482. -----if theCols=='' then
  1483. ----------return
  1484. -----endif
  1485. ----- compile endif
  1486. -----do while Valid_Number4(theCols)=FALSE
  1487. ----------theCols=entrybox('[New File] Enter the column string','',theCols,,255)
  1488. ----- compile if HTML_IF_ARG_BLANK='exit'
  1489. ----------if theCols=='' then
  1490. ---------------return
  1491. ----------endif
  1492. ----- compile endif
  1493. -----enddo
  1494. -----if upcase(theCols)=='#OOPS' then
  1495. ----------return
  1496. -----endif
  1497. -----if upcase(leftstr(theBackground,5)) == 'AUTO_' then
  1498. ----------theBackground=rightstr(theBackground, length(theBackground)-5)
  1499. -----else
  1500. ----------theBackground=entrybox('[New File] Enter the background','',theBackground,,255)
  1501. -----endif
  1502. -----if upcase(theBackground)=='#OOPS' then
  1503. ----------return
  1504. -----endif
  1505. -----if upcase(leftstr(theBackgroundcolor,5)) == 'AUTO_' then
  1506. ----------theBackgroundcolor=rightstr(theBackgroundcolor, length(theBackgroundcolor)-5)
  1507. -----else
  1508. ----------theBackgroundcolor=entrybox('[New File] Enter the background color','',theBackgroundcolor,,255)
  1509. -----endif
  1510. -----do while Valid_Color(theBackgroundcolor)=FALSE
  1511. ----------theBackgroundcolor=entrybox('[New File] Enter the background color','',theBackgroundcolor,,255)
  1512. -----enddo
  1513. -----if upcase(theBackgroundcolor)=='#OOPS' then
  1514. ----------return
  1515. -----endif
  1516. -----if upcase(leftstr(theText,5)) == 'AUTO_' then
  1517. ----------theText=rightstr(theText, length(theText)-5)
  1518. -----else
  1519. ----------theText=entrybox('[New File] Enter the text color','',theText,,255)
  1520. -----endif
  1521. -----do while Valid_Color(theText)=FALSE
  1522. ----------theText=entrybox('[New File] Enter the text color','',theText,,255)
  1523. -----enddo
  1524. -----if upcase(theText)=='#OOPS' then
  1525. ----------return
  1526. -----endif
  1527. -----if upcase(leftstr(theLink,5)) == 'AUTO_' then
  1528. ----------theLink=rightstr(theLink, length(theLink)-5)
  1529. -----else
  1530. ----------theLink=entrybox('[New File] Enter the link color','',theLink,,255)
  1531. -----endif
  1532. -----do while Valid_Color(theLink)=FALSE
  1533. ----------theLink=entrybox('[New File] Enter the link color','',theLink,,255)
  1534. -----enddo
  1535. -----if upcase(theLink)=='#OOPS' then
  1536. ----------return
  1537. -----endif
  1538. -----if upcase(leftstr(theHitlink,5)) == 'AUTO_' then
  1539. ----------theHitlink=rightstr(theHitlink, length(theHitlink)-5)
  1540. -----else
  1541. ----------theHitlink=entrybox('[New File] Enter the hit link color','',theHitlink,,255)
  1542. -----endif
  1543. -----do while Valid_Color(theHitlink)=FALSE
  1544. ----------theHitlink=entrybox('[New File] Enter the hit link color','',theHitlink,,255)
  1545. -----enddo
  1546. -----if upcase(theHitlink)=='#OOPS' then
  1547. ----------return
  1548. -----endif
  1549. -----if upcase(leftstr(theAlink,5)) == 'AUTO_' then
  1550. ----------theAlink=rightstr(theAlink, length(theAlink)-5)
  1551. -----else
  1552. ----------theAlink=entrybox('[New File] Enter the active link color','',theAlink,,255)
  1553. -----endif
  1554. -----do while Valid_Color(theAlink)=FALSE
  1555. ----------theAlink=entrybox('[New File] Enter the active link color','',theAlink,,255)
  1556. -----enddo
  1557. -----if upcase(theAlink)=='#OOPS' then
  1558. ----------return
  1559. -----endif
  1560. -----if upcase(theIndex)=='YES' then
  1561. ----------theIndex=MBID_YES
  1562. -----elseif upcase(theIndex)='NO' then
  1563. ----------theIndex=MBID_NO
  1564. -----else
  1565. ----------theIndex=winmessagebox('INDEX?', 'Is this an index?', MB_YESNO + MB_DEFBUTTON2)
  1566. -----endif
  1567. -----theBase=entrybox('[New File] Enter the base','','',,255)
  1568. -----if upcase(theBase)=='#OOPS' then
  1569. ----------return
  1570. -----endif
  1571. -----keyin Currentcase('<HTML>')
  1572. -----insertline Currentcase('<HEAD>'), .line+1
  1573. -----insertline Currentcase('<TITLE>')theTitle||Currentcase('</TITLE>'), .line+2
  1574. -----if theIndex=MBID_YES then
  1575. ----------insertline Currentcase('<ISINDEX>'), .line+3
  1576. ----------.line=.line+1
  1577. -----endif
  1578. -----if theBase /=='' then
  1579. ----------insertline Currentcase('<BASE HREF="')theBase'">', .line+3
  1580. ----------.line=.line+1
  1581. -----endif
  1582. -----insertline Currentcase('</HEAD>'), .line+3
  1583. -----insertline Currentcase('<FRAMESET>'), .line+4
  1584. -----insertline Currentcase('<NOFRAMES>'), .line+6
  1585. -----insertline Currentcase('-----<BODY>'), .line+7
  1586. -----insertline '', .line+8
  1587. -----insertline Currentcase('-----</BODY>'), .line+9
  1588. -----insertline Currentcase('</NOFRAMES>'), .line+10
  1589. -----insertline Currentcase('</FRAMESET>'), .line+11
  1590. -----insertline Currentcase('</HTML>'), .line+12
  1591. -----.line=.line+4
  1592. -----.col=10
  1593. -----if theRows /=='' then
  1594. ----------keyin Currentcase(' ROWS="')theRows'"'
  1595. -----endif
  1596. -----if theCols /== '' then
  1597. ----------keyin Currentcase(' COLS="')theCols'"'
  1598. -----endif
  1599. -----.line=.line+3
  1600. -----.col=7
  1601. -----if theBackground /=='' then
  1602. ----------keyin Currentcase(' BACKGROUND="'theBackground'"')
  1603. -----endif
  1604. -----if theBackgroundcolor /=='' then
  1605. ----------keyin Currentcase(' BGCOLOR=#'theBackgroundcolor)
  1606. -----endif
  1607. -----if theText /=='' then
  1608. ----------keyin Currentcase(' TEXT=#'theText)
  1609. -----endif
  1610. -----if theLink /=='' then
  1611. ----------keyin Currentcase(' LINK=#'theLink)
  1612. -----endif
  1613. -----if theHitlink /=='' then
  1614. ----------keyin Currentcase(' VLINK=#'theHitlink)
  1615. -----endif
  1616. -----if theAlink /=='' then
  1617. ----------keyin Currentcase(' ALINK=#'theAlink)
  1618. -----endif
  1619. -----.line=.line-2
  1620. -----.col=1
  1621.  
  1622. defc Option_tags =
  1623.     universal LastDone
  1624.     lastDone='Option_tags'
  1625.     theValue=''
  1626.     do while theValue ==''
  1627.         theValue=entrybox('<OPTION> Enter the value','', theValue,,255)
  1628.     enddo
  1629.     keyin Currentcase('<OPTION VALUE="')theValue'">'
  1630.  
  1631. defc OrderedList_tags =
  1632.     universal LastDone
  1633.     lastDone='OrderedList_tags'
  1634.     theType=getFileArrEl('OL_TYPE')
  1635.     theStart=getFileArrEl('OL_START')
  1636.     theCompact=getFileArrEl('OL_COMPACT')
  1637.     if theType ='' then
  1638.         theType='/1/a/A/i/I/#OOPS'
  1639.         setFileArrEl('OL_TYPE', theType)
  1640.     endif
  1641.     if upcase(leftstr(theType, 5))=='AUTO_'then
  1642.         theType=rightstr(theType, length(theType)-5)
  1643.     else
  1644.         theType=listbox('<OL> Choose the Type', theType)
  1645.     endif
  1646.     if upcase(theType)='#OOPS' then
  1647.         return
  1648.     endif
  1649.     if upcase(leftstr(theStart,5))=='AUTO_'then
  1650.         theStart=rightstr(theStart, length(theStart)-5)
  1651.     else
  1652.         theStart=entrybox('<OL> Enter the start index','',theStart,,255)
  1653.         do while Valid_Number(theStart)=False
  1654.             theStart=entrybox('<OL> Enter the start index','',theStart,,255)
  1655.         enddo
  1656.     endif
  1657.     if upcase(theCompact)=='AUTO_YES' then
  1658.         theCompact=MBID_YES
  1659.     elseif upcase(theCompact)=='AUTO_NO' then
  1660.         theCompact=MBID_NO
  1661.     else
  1662.         if upcase(theCompact)='YES' then
  1663.         theCompact=winmessagebox('COMPACT?', 'Is this a Compact list?', MB_YESNO + MB_DEFBUTTON1)
  1664.         else
  1665.         theCompact=winmessagebox('COMPACT?', 'Is this a Compact list?', MB_YESNO + MB_DEFBUTTON2)
  1666.         endif
  1667.     endif
  1668.     keyin currentcase('<OL')
  1669.     if theType/=='' then
  1670.         keyin currentcase(' TYPE=')theType
  1671.     endif
  1672.     if theStart/=='' then
  1673.         keyin currentCase(' START=')theStart
  1674.     endif
  1675.     if theCompact==MBID_YES then
  1676.         keyin currentCase(' COMPACT')
  1677.     endif
  1678.     keyin '>'
  1679.     insertline '', .line+1
  1680.     insertline currentcase('</OL>'), .line+2
  1681.     .line=.line+1
  1682.     beginline
  1683.  
  1684. defc Paragraph_tags =
  1685.     universal LastDone
  1686.     lastDone='Paragraph_tags'
  1687.     alignArgTags('P')
  1688.  
  1689. defc Parameter_tags =
  1690.     universal LastDone
  1691.     lastDone='Parameter_tags'
  1692.     theName=''
  1693.     theValue=''
  1694.     theName=entrybox('<PARAMETER> Enter the name','', theName,,255)
  1695.  compile if HTML_IF_ARG_BLANK = 'exit'
  1696.     if theName =='' then
  1697.         return
  1698.     endif
  1699.  compile else
  1700.     do while theName ==''
  1701.         theName=entrybox('<PARAMETER> Enter the name','', theName,,255)
  1702.     enddo
  1703.  compile endif
  1704.     if upcase(theName)=='#OOPS' then
  1705.         return
  1706.     endif
  1707.     theValue=entrybox('<PARAMETER> Enter the value','', theValue,,255)
  1708.  compile if HTML_IF_ARG_BLANK = 'exit'
  1709.     if theValue =='' then
  1710.         return
  1711.     endif
  1712.  compile else
  1713.     do while theValue ==''
  1714.         theValue=entrybox('<PARAMETER> Enter the value','', theValue,,255)
  1715.     enddo
  1716.  compile endif
  1717.     if upcase(theValue)=='#OOPS' then
  1718.         return
  1719.     endif
  1720.     keyin Currentcase('<PARAM NAME="')theName||Currentcase('" VALUE="')theValue'">'
  1721.  
  1722. defc Preform_tags =
  1723.     universal LastDone
  1724.     lastDone='Preform_tags'
  1725.     theWidth=GetFileArrEl('PRE_WIDTH')
  1726.     if upcase(leftstr(theWidth, 5))=='AUTO_' then
  1727.         theWidth=rightstr(theWidth, length(theWidth)-5)
  1728.     else
  1729.         theWidth=entrybox('<PRE> Enter the width','',theWidth,,255)
  1730.     endif
  1731.     do while Valid_Number(theWidth)=FALSE
  1732.         theWidth=entrybox('<PRE> Enter the width','',theWidth,,255)
  1733.     enddo
  1734.     if upcase(theWidth)=='#OOPS' then
  1735.         return
  1736.     endif
  1737.     if check_mark_on_screen() then
  1738.         pbegin_mark()
  1739.     endif
  1740.     keyin Currentcase('<PRE')
  1741.     if theWidth/=='' then
  1742.         keyin Currentcase(' WIDTH=')theWidth
  1743.     endif
  1744.     keyin '>'
  1745.     if check_mark_on_screen() then
  1746.         pend_mark()
  1747.         oldCol=.col
  1748.         left
  1749.         if .col=oldCol then
  1750.             .line=.line-1
  1751.             endline
  1752.         else
  1753.             right
  1754.             right
  1755.         endif
  1756.     endif
  1757.         keyin Currentcase('</PRE>')
  1758.     if check_mark_on_screen() then
  1759.         unmark
  1760.     else
  1761.         .col=.col-6
  1762.     endif
  1763.  
  1764. defc Rule_tags =
  1765.     universal LastDone
  1766.     lastDone='Rule_tags'
  1767.     theSize=GetFileArrEl('HR_SIZE')
  1768.     theWidth=GetFileArrEl('HR_WIDTH')
  1769.     theAlign=GetFileArrEl('HR_ALIGN')
  1770.     if upcase(leftstr(theSize, 5)) == 'AUTO_' then
  1771.         theSize=rightstr(theSize, length(theSize)-5)
  1772.     else
  1773.         theSize=entrybox('<HR> Enter the size','',theSize,,255)
  1774.     endif
  1775.     do while Valid_Number(theSize)=FALSE
  1776.         theSize=entrybox('<HR> Enter the size', '', theSize, , 255)
  1777.     enddo
  1778.     if upcase(theSize)=='#OOPS' then
  1779.         return
  1780.     endif
  1781.     if upcase(leftstr(theWidth, 5)) == 'AUTO_' then
  1782.         theWidth=rightstr(theWidth, length(theWidth)-5)
  1783.     else
  1784.         theWidth=entrybox('<HR> Enter the width','',theWidth,,255)
  1785.     endif
  1786.     do while (Valid_Number(theWidth)=FALSE)|(theWidth>100)
  1787.         theWidth=entrybox('<HR> Enter the width', '', theWidth, , 255)
  1788.     enddo
  1789.     if upcase(theWidth)=='#OOPS' then
  1790.         return
  1791.     endif
  1792.     if upcase(leftstr(theAlign, 5)) == 'AUTO_' then
  1793.         theAlign=rightstr(theAlign, length(theAlign)-5)
  1794.     else
  1795.         theAlign=listbox('<HR> Choose an alignment',Currentcase('/CENTER/LEFT/RIGHT/#OOPS'))
  1796.     endif
  1797.     if upcase(theAlign)=='#OOPS' then
  1798.         return
  1799.     endif
  1800.     keyin Currentcase('<HR')
  1801.     if (theSize /== '') then
  1802.         keyin Currentcase(' SIZE='theSize)
  1803.     endif
  1804.     if theWidth/=='' then
  1805.         keyin Currentcase(' WIDTH='theWidth'%')
  1806.     endif
  1807.     if (theAlign /== '') then
  1808.         keyin Currentcase(' ALIGN='theAlign)
  1809.     endif
  1810.     keyin '>'
  1811.  
  1812. defc Sample_tags =
  1813.     universal LastDone
  1814.     lastDone='Sample_tags'
  1815.     noArgTags('SAMP')
  1816.  
  1817. defc Script_tags =
  1818.     universal LastDone
  1819.     lastDone='Script_tags'
  1820.     Multiline_tags('SCRIPT')
  1821.  
  1822. defc Select_tags =
  1823.     universal LastDone
  1824.     lastDone='Select_tags'
  1825.     theName=''
  1826.     theSize=GetFileArrEl('SELECT_SIZE')
  1827.     do while theName ==''
  1828.         theName=entrybox('<SELECT> Enter the name','', theName,,255)
  1829.     enddo
  1830.     if upcase(theName)=='#OOPS' then
  1831.         return
  1832.     endif
  1833.     if upcase(leftstr(theSize,5))=='AUTO_' then
  1834.         theSize = rightstr(theSize, length(theSize)-5)
  1835.     else
  1836.         theSize=entrybox('<SELECT> Enter the size','',Currentcase(theSize),,255)
  1837.     endif
  1838.     do while Valid_Number(theSize)=FALSE
  1839.         theSize=entrybox('<SELECT> Enter the size','', theSize,,255)
  1840.     enddo
  1841.     if upcase(theSize)=='#OOPS' then
  1842.         return
  1843.     endif
  1844.     keyin Currentcase('<SELECT NAME="')theName'"'
  1845.     if theSize /== '' then
  1846.         keyin Currentcase(' SIZE=')theSize
  1847.     endif
  1848.     keyin '>'
  1849.     insertline '', .line+1
  1850.     insertline Currentcase('<SELECT>'), .line+2
  1851.     .line=.line+1
  1852.     .col=1
  1853.  
  1854. defc Small_tags =
  1855.     universal LastDone
  1856.     lastDone='Small_tags'
  1857.     noArgTags('SMALL')
  1858.  
  1859. defc Strike_tags =
  1860.     universal LastDone
  1861.     lastDone='Strike_tags'
  1862.     noArgTags('STRIKE')
  1863.  
  1864. defc Strong_tags =
  1865.     universal LastDone
  1866.     lastDone='Strong_tag'
  1867.     noArgTags('STRONG')
  1868.  
  1869. defc Style_tags =
  1870.     universal LastDone
  1871.     lastDone='Style_tags'
  1872.     theType=GetFileArrEl('STYLE_TYPE')
  1873.     if upcase(leftstr(theType, 5)) == 'AUTO_' then
  1874.         theType=rightstr(theType, length(theType)-5)
  1875.     else
  1876.         theType=entrybox('<STYLE> enter the Type','',theType,,255)
  1877.     endif
  1878.     keyin currentCase('<STYLE')
  1879.     if theType /== '' then
  1880.         keyin currentCase(' TYPE="')theType'"'
  1881.     endif
  1882.     keyin '>'
  1883.     insertline '</STYLE>', .line+2
  1884.     .line=.line+1
  1885.     .col=1
  1886.  
  1887. defc Subscript_tags =
  1888.     universal LastDone
  1889.     lastDone='Subscript_tags'
  1890.     noArgTags('SUB')
  1891.  
  1892. defc Superscript_tags =
  1893.     universal LastDone
  1894.     lastDone='Superscript_tags'
  1895.     noArgTags('SUP')
  1896.  
  1897. defc Table_tags =
  1898.     universal LastDone
  1899.     lastDone='Table_tags'
  1900.     theBorder=GetFileArrEl('TABLE_BORDER')
  1901.     theCellpading=GetFileArrEl('TABLE_CELLPADDING')
  1902.     theCellspacing=GetFileArrEl('TABLE_CELLSPACING')
  1903.     if upcase(leftstr(theBorder, 5))=='AUTO_' then
  1904.         theBorder=rightstr(theBorder, length(theBorder)-5)
  1905.     else
  1906.         theBorder=entrybox('<TABLE> Enter the border width','',theBorder,,255)
  1907.     endif
  1908.     do while Valid_Number(theBorder)=FALSE
  1909.         theBorder=entrybox('<TABLE> Enter the border width','', theBorder,,255)
  1910.     enddo
  1911.     if upcase(theBorder)=='#OOPS' then
  1912.         return
  1913.     endif
  1914.     if upcase(leftstr(theCellpading,5))=='AUTO_' then
  1915.         theCellpading=rightstr(theCellpading, length(theCellpading)-5)
  1916.     else
  1917.         theCellpading=entrybox('<TABLE> Enter the cell pading', '', theCellpading,, 255)
  1918.     endif
  1919.     do while Valid_Number(theCellpading)=FALSE
  1920.         theCellpading=entrybox('<TABLE> Enter the cell pading', '', theCellpading,, 255)
  1921.     enddo
  1922.     if upcase(theCellpading)=='#OOPS' then
  1923.         return
  1924.     endif
  1925.     if upcase(leftstr(theCellspacing,5))=='AUTO_' then
  1926.         theCellspacing=rightstr(theCellspacing, length(theCellspacing)-5)
  1927.     else
  1928.         theCellspacing=entrybox('<TABLE> Enter the cell spacing', '', theCellspacing,, 255)
  1929.     endif
  1930.     do while Valid_Number(theCellspacing)=FALSE
  1931.         theCellspacing=entrybox('<TABLE> Enter the cell spacing', '', theCellspacing,, 255)
  1932.     enddo
  1933.     if upcase(theCellspacing)=='#OOPS' then
  1934.         return
  1935.     endif
  1936.     keyin Currentcase('<TABLE')
  1937.     if theBorder /=='' then
  1938.         keyin Currentcase(' BORDER='theBorder)
  1939.     endif
  1940.     if theCellspacing /== '' then
  1941.         keyin Currentcase(' CELLSPACING=')theCellspacing
  1942.     endif
  1943.     if theCellpading /=='' then
  1944.         keyin Currentcase(' CELLPADING=')theCellpading
  1945.     endif
  1946.     if theBorder < 1 then
  1947.         theBorder=''
  1948.     endif
  1949.     keyin '>'
  1950.     insertline '', .line+1
  1951.     insertline Currentcase('</TABLE>'), .line+2
  1952.     .line=.line+1
  1953.     .col=1
  1954.  
  1955. defc TableEntry_tags =
  1956.     universal LastDone
  1957.     lastDone='TableEntry_tags'
  1958.     Table_XX(CurrentCase('TD'))
  1959.  
  1960. defc TableHeading_tags =
  1961.     universal LastDone
  1962.     lastDone='TableHeading_tags'
  1963.     Table_XX(CurrentCase('TH'))
  1964.  
  1965. defc TableNewRow_tags =
  1966.     universal LastDone
  1967.     lastDone='TableNewRow_tags'
  1968.     theAlign=GetFileArrEl('TR_ALIGN')
  1969.     theValign=GetFileArrEl('TR_VALIGN')
  1970.     if theAlign='' then
  1971.         theAlign='/LEFT/RIGHT/CENTER/#OOPS'
  1972.         setFileArrEl('TR_ALIGN', theAlign)
  1973.     endif
  1974.     if theValign='' then
  1975.         theValign='/MIDDLE/TOP/BOTTOM/#OOPS'
  1976.         setFileArrEl('TR_VALIGN', theValign)
  1977.     endif
  1978.     if upcase(leftstr(theAlign, 5))=='AUTO_' then
  1979.         theAlign=rightstr(theAlign, length(theAlign)-5)
  1980.     else
  1981.         theAlign=listbox('<TR> Choose the horizontal alignment', Currentcase('/MIDDLE/TOP/BOTTOM/#OOPS'))
  1982.     endif
  1983.     if upcase(theAlign)=='#OOPS' then
  1984.         return
  1985.     endif
  1986.     if upcase(leftstr(theValign, 5))=='AUTO_' then
  1987.         theValign=rightstr(theValign, length(theValign)-5)
  1988.     else
  1989.         theValign=listbox('<TR> Choose the vertical alignment', Currentcase('/MIDDLE/TOP/BOTTOM/#OOPS'))
  1990.     endif
  1991.     if upcase(theValign)=='#OOPS' then
  1992.         return
  1993.     endif
  1994.     keyin Currentcase('<TR')
  1995.     if theAlign/=='' then
  1996.         keyin Currentcase(' ALIGN=')theAlign
  1997.     endif
  1998.     if theValign/=='' then
  1999.         keyin Currentcase(' VALIGN=')theValign
  2000.     endif
  2001.     keyin ('>')
  2002.  
  2003. defc Textarea_tags =
  2004.     universal LastDone
  2005.     lastDone='Textarea_tags'
  2006.     theName=''
  2007.     theCols=GetFileArrEl('TEXTAREA_COLS')
  2008.     theRows=GetFileArrEl('TEXTAREA_ROWS')
  2009.     do while theName ==''
  2010.         theName=entrybox('<TEXTAREA> Enter the name','', theName,,255)
  2011.     enddo
  2012.     if upcase(theName)=='#OOPS' then
  2013.         return
  2014.     endif
  2015.     if upcase(leftstr(theCols, 5)) == 'AUTO_' then
  2016.         theCols=rightstr(theCols, length(theCols)-5)
  2017.     else
  2018.         theCols=entrybox('<TEXTAREA> Enter the number of columns','',Currentcase(theCols),,255)
  2019.     endif
  2020.     do while Valid_Number(theCols)=FALSE
  2021.         theCols=entrybox('<TEXTAREA> Enter the number oc columns','', theCols,,255)
  2022.     enddo
  2023.     if upcase(theCols)=='#OOPS' then
  2024.         return
  2025.     endif
  2026.     if upcase(leftstr(theRows, 5)) == 'AUTO_' then
  2027.         theRows=rightstr(theRows, length(theRows)-5)
  2028.     else
  2029.         theRows=entrybox('<TEXTAREA> Enter the number of rows','',Currentcase(theRows),,255)
  2030.     endif
  2031.     do while Valid_Number(theRows)=FALSE
  2032.         theRows=entrybox('<TEXTAREA> Enter the number of rows','', theRows,,255)
  2033.     enddo
  2034.     if upcase(theRows)=='#OOPS' then
  2035.         return
  2036.     endif
  2037.     if check_mark_on_screen() then
  2038.         pbegin_mark()
  2039.     endif
  2040.     keyin Currentcase('<TEXTAREA NAME="')theName'"'
  2041.     if theCols /=='' then
  2042.         keyin Currentcase(' COLS='theCols)
  2043.     endif
  2044.     if theRows /=='' then
  2045.         keyin Currentcase(' ROWS='theRows)
  2046.     endif
  2047.     keyin '>'
  2048.     if check_mark_on_screen() then
  2049.         pend_mark()
  2050.         oldCol=.col
  2051.         left
  2052.         if .col=oldCol then
  2053.             .line=.line-1
  2054.             endline
  2055.         else
  2056.             right
  2057.             right
  2058.         endif
  2059.     endif
  2060.     keyin Currentcase('</TEXTAREA>')
  2061.     if check_mark_on_screen() then
  2062.         unmark
  2063.     else
  2064.         .col=.col-11
  2065.     endif
  2066.  
  2067. defc Teletype_tags =
  2068.     universal LastDone
  2069.     lastDone='Typewriter_tags'
  2070.     noArgTags('TT')
  2071.  
  2072. defc Underline_tags =
  2073.     universal LastDone
  2074.     lastDone='Underline_tags'
  2075.     noArgTags('U')
  2076.  
  2077. defc UnorderedList_tags =
  2078.     universal LastDone
  2079.     lastDone='UnorderedList_tags'
  2080.     theType=getFileArrEl('UL_TYPE')
  2081.     theCompact=getFileArrEl('UL_COMPACT')
  2082.     if theType ='' then
  2083.         theType='/DISC/SQUARE/CIRCLE/#OOPS'
  2084.         setFileArrEl('UL_TYPE', theType)
  2085.     endif
  2086.     if upcase(leftstr(theType, 5))=='AUTO_'then
  2087.         theType=rightstr(theType, length(theType)-5)
  2088.     else
  2089.         theType=listbox('<UL> Choose the Type', theType)
  2090.     endif
  2091.     if upcase(theType)='#OOPS' then
  2092.         return
  2093.     endif
  2094.     if upcase(theCompact)=='YES' then
  2095.         theCompact=MBID_YES
  2096.     elseif upcase(theCompact)=='NO' then
  2097.         theCompact=MBID_NO
  2098.     else
  2099.         if upcase(theCompact)='YES' then
  2100.         theCompact=winmessagebox('COMPACT?', 'Is this a Compact list?', MB_YESNO + MB_DEFBUTTON1)
  2101.         else
  2102.         theCompact=winmessagebox('COMPACT?', 'Is this a Compact list?', MB_YESNO + MB_DEFBUTTON2)
  2103.         endif
  2104.     endif
  2105.     keyin currentcase('<UL')
  2106.     if theType/=='' then
  2107.         keyin currentcase(' TYPE=')theType
  2108.     endif
  2109.     if theCompact==MBID_YES then
  2110.         keyin currentCase(' COMPACT')
  2111.     endif
  2112.     keyin '>'
  2113.     insertline '', .line+1
  2114.     insertline currentcase('</UL>'), .line+2
  2115.     .line=.line+1
  2116.     beginline
  2117.  
  2118. defc Variable_tags =
  2119.     universal LastDone
  2120.     lastDone='Variable_tags'
  2121.     noArgTags('VAR')
  2122.  
  2123. ;----------------------------------Finishing Procs-----------------------------------------
  2124. defproc alignArgtags(tag)
  2125.     theAlign=getFileArrEl(tag'_ALIGN')
  2126.     if theAlign='' then
  2127.         theAlign='/LEFT/RIGHT/CENTER/#OOPS'
  2128.         setFileArrEl(tag'_ALIGN', theAlign)
  2129.     endif
  2130.     if upcase(leftstr(theAlign, 5)) == 'AUTO_' then
  2131.         theAlign=rightstr(theAlign, length(theAlign)-5)
  2132.     else
  2133.         theAlign=listbox('<'tag'> choose the alignment', theAlign, '/Enter/Cancel')
  2134.     endif
  2135.     if upcase(theAlign)='#OOPS' then
  2136.         return
  2137.     endif
  2138.     if check_mark_on_screen() then
  2139.         pbegin_mark()
  2140.     endif
  2141.     keyin currentcase('<'tag)
  2142.     if theAlign /== '' then
  2143.         keyin currentcase(' ALIGN="'theAlign'"')
  2144.     endif
  2145.     keyin '>'
  2146.     if check_mark_on_screen() then
  2147.         pend_mark()
  2148.         oldCol=.col
  2149.         left
  2150.         if .col=oldCol then
  2151.             .line=.line-1
  2152.             endline
  2153.         else
  2154.             right
  2155.             right
  2156.         endif
  2157.     endif
  2158.     keyin currentcase('</'tag'>')
  2159.     if check_mark_on_screen() then
  2160.         unmark
  2161.     else
  2162.         .col=.col-5
  2163.     endif
  2164.  
  2165.  
  2166.  
  2167. defproc Anchor_all(theLink, theName, theText)
  2168.     theRel=GetFileArrEl('A_REV')
  2169.     theRev=GetFileArrEl('A_REL')
  2170.     theTitle=getFileArrEl('A_TITLE')
  2171.     do while (theLink=='')&(theName=='')
  2172.  compile if HTML_IF_ARG_BLANK='exit'
  2173.         if (theLink=='')&(theName=='') then
  2174.             return
  2175.         endif
  2176.  compile endif
  2177.         if theLink=='#OOPS' then
  2178.             return
  2179.         endif
  2180.         theLink=entrybox('<A> Enter the link','',theLink,,255)
  2181.         if theLink=='' then
  2182.             theName=entrybox('<A> Enter the name','','',,255)
  2183.             if theName='#OOPS' then
  2184.                 return
  2185.             endif
  2186.         else
  2187.             theName=''
  2188.         endif
  2189.     enddo
  2190.     if upcase(leftstr(theTitle, 5)) == 'AUTO_' then
  2191.         theTitle=rightstr(theTitle, length(theTitle)-5)
  2192.     else
  2193.         theTitle=entrybox('<A> enter the Title','',theTitle,,255)
  2194.     endif
  2195.     if theText='' then
  2196.         if not check_mark_on_screen() then
  2197.             theText=entrybox('<A> Enter the text','','',,255)
  2198.         else
  2199.             theText=''
  2200.         endif
  2201.     else
  2202.         unmark
  2203.     endif
  2204.     if upcase(leftstr(theRev, 5))=='AUTO_' then
  2205.         theRev=rightstr(theRev, length(theRev)-5)
  2206.     else
  2207.         theRev=entrybox('<A> enter the "rev"','',theRev,,255)
  2208.     endif
  2209.     if upcase(leftstr(theRel, 5))=='AUTO_' then
  2210.         theRel=rightstr(theRel, length(theRel)-5)
  2211.     else
  2212.         theRel=entrybox('<A> enter the "rel"','',theRel,,255)
  2213.     endif
  2214.     if check_mark_on_screen() then
  2215.         pbegin_mark()
  2216.     endif
  2217.     keyin Currentcase('<A')
  2218.     if theLink /== '' then
  2219.         keyin Currentcase(' HREF="')theLink'"'
  2220.     endif
  2221.     if theName /== '' then
  2222.         keyin Currentcase(' NAME="')theName'"'
  2223.     endif
  2224.     if theRev/=='' then
  2225.         keyin Currentcase(' REV="')theRev'"'
  2226.     endif
  2227.     if theRel/=='' then
  2228.         keyin Currentcase(' REL="')theRel'"'
  2229.     endif
  2230.     if theTitle/=='' then
  2231.         keyin currentcase(' TITLE="')theTitle'"'
  2232.     endif
  2233.     keyin Currentcase('>')
  2234.     keyin theText
  2235.     if check_mark_on_screen() then
  2236.         pend_mark()
  2237.         oldCol=.col
  2238.         left
  2239.         if .col=oldCol then
  2240.             .line=.line-1
  2241.             endline
  2242.         else
  2243.             right
  2244.             right
  2245.         endif
  2246.     endif
  2247.     keyin Currentcase('</A>')
  2248.     if check_mark_on_screen() then
  2249.         unmark
  2250.     else
  2251.         if theText='' then
  2252.             .col=.col-4
  2253.         endif
  2254.     endif
  2255.  
  2256. defproc Image_all(src)
  2257.     theAlternate=GetFileArrEl('IMG_ALT')
  2258.     theAlign=GetFileArrEl('IMG_ALIGN')
  2259.     theHeight=GetFileArrEl('IMG_HEIGHT')
  2260.     theWidth=GetFileArrEl('IMG_WIDTH')
  2261.     theBorder=GetFileArrEl('IMG_BORDER')
  2262.     theHspace=GetFileArrEl('IMG_HSPACE')
  2263.     theVspace=GetFileArrEl('IMG_VSPACE')
  2264.     theIsmap=GetFileArrEl('IMG_ISMAP')
  2265.     theLowsrc=GetFileArrEl('IMG_LOWSRC')
  2266.     theUsemap=GetFileArrEl('IMG_USEMAP')
  2267.     theSource=src
  2268.     if upcase(leftstr(theAlternate, 5))=='AUTO_' then
  2269.         theAlternate=rightstr(theAlternate, length(theAlternate)-5)
  2270.     else
  2271.         theAlternate=entrybox('<IMG> Enter the alternate text','',theAlternate,,255)
  2272.     endif
  2273.     if upcase(theAlternate)=='#OOPS' then
  2274.         return
  2275.     endif
  2276.     if upcase(leftstr(theHeight, 5))=='AUTO_' then
  2277.         theHeight=rightstr(theHeight, length(theHeight)-5)
  2278.     else
  2279.         theHeight=entrybox('<IMG> Enter the height','',theHeight,,255)
  2280.     endif
  2281.     do while Valid_Number(theHeight)=FALSE
  2282.         theHeight=entrybox('<IMG> Enter the height', '',theHeight , , 255)
  2283.     enddo
  2284.     if upcase(theHeight)=='#OOPS' then
  2285.         return
  2286.     endif
  2287.     if upcase(leftstr(theWidth, 5))=='AUTO_' then
  2288.         theWidth=rightstr(theWidth, length(theWidth)-5)
  2289.     else
  2290.         theWidth=entrybox('<IMG> Enter the width','',theWidth,,255)
  2291.     endif
  2292.     do while Valid_Number(theWidth)=FALSE
  2293.         theWidth=entrybox('<IMG> Enter the width', '', theWidth, , 255)
  2294.     enddo
  2295.     if upcase(theWidth)=='#OOPS' then
  2296.         return
  2297.     endif
  2298.     if upcase(leftstr(theAlign, 5))=='AUTO_' then
  2299.         theAlign=rightstr(theAlign, length(theAlign)-5)
  2300.     else
  2301.         theAlign=listbox('<IMG> Enter the Alignment',Currentcase('/BOTTOM/TOP/MIDDLE/#OOPS'))
  2302.     endif
  2303.     if upcase(theAlign)=='#OOPS' then
  2304.         return
  2305.     endif
  2306.     if upcase(leftstr(theBorder, 5)) == 'AUTO_' then
  2307.         theBorder=rightstr(theBorder, length(theBorder)-5)
  2308.     else
  2309.         theBorder=entrybox('<IMG> Enter the border', '', theBorder,,255)
  2310.     endif
  2311.     do while Valid_Number(theBorder)=FALSE
  2312.         theBorder=entrybox('<IMG> Enter the border', '', theBorder,,255)
  2313.     enddo
  2314.     if upcase(theBorder)=='#OOPS' then
  2315.         return
  2316.     endif
  2317.     if upcase(leftstr(theHspace, 5)) == 'AUTO_' then
  2318.         theHspace=rightstr(theHspace, length(theHspace)-5)
  2319.     else
  2320.         theHspace=entrybox('<IMG> Enter the horizontal spacing', '', theHspace,,255)
  2321.     endif
  2322.     do while Valid_Number(theHspace)=FALSE
  2323.         theHspace=entrybox('<IMG> Enter the horizontal spacing', '', theHspace,,255)
  2324.     enddo
  2325.     if upcase(theHspace)=='#OOPS' then
  2326.         return
  2327.     endif
  2328.     if upcase(leftstr(theVspace, 5)) == 'AUTO_' then
  2329.         theVspace=rightstr(theVspace, length(theVspace)-5)
  2330.     else
  2331.         theVspace=entrybox('<IMG> Enter the vertical spacing', '', theVspace,,255)
  2332.     endif
  2333.     do while Valid_Number(theVspace)=FALSE
  2334.         theVspace=entrybox('<IMG> Enter the vertical spacing', '', theVspace,,255)
  2335.     enddo
  2336.     if upcase(theVspace)=='#OOPS' then
  2337.         return
  2338.     endif
  2339.     if upcase(leftstr(theLowsrc, 5))=='AUTO_' then
  2340.         theLowsrc=rightstr(theLowsrc, length(theLowsrc)-5)
  2341.     else
  2342.         theLowsrc=entrybox('<IMG> Enter the low resolution soruce', '', theLowsrc, 70,255)
  2343.     endif
  2344.     if upcase(theLowsrc)=='#OOPS' then
  2345.         return
  2346.     endif
  2347.     if upcase(theIsmap)=='YES' then
  2348.         theIsmap=MBID_YES
  2349.     elseif upcase(theIsmap)=='NO' then
  2350.         theIsmap=MBID_NO
  2351.     else
  2352.         if upcase(theIsmap)='YES' then
  2353.         theIsmap= winmessagebox('ISMAP?', 'Is this image a map?', MB_YESNO + MB_DEFBUTTON1)
  2354.         else
  2355.         theIsmap= winmessagebox('ISMAP?', 'Is this image a map?', MB_YESNO + MB_DEFBUTTON2)
  2356.         endif
  2357.     endif
  2358.     if theIsmap=MBID_NO then
  2359.         if upcase(leftstr(theUsemap, 5)) =='AUTO_' then
  2360.             theUsemap=rightstr(theUsemap, length(theUsemap)-5)
  2361.         else
  2362.             theUsemap=entrybox('<IMG> Enter the map to use','',theUsemap,,255)
  2363.         endif
  2364.     else
  2365.         theUsemap=''
  2366.     endif
  2367.     keyin Currentcase('<IMG SRC="')theSource'"'
  2368.     if theAlternate /== '' then
  2369.         keyin Currentcase(' ALT="')theAlternate'"'
  2370.     endif
  2371.     if theAlign /=='' then
  2372.         keyin Currentcase(' ALIGN=')theAlign
  2373.     endif
  2374.     if theHeight /== '' then
  2375.         keyin Currentcase(' HEIGHT=')theHeight
  2376.     endif
  2377.     if theWidth /== '' then
  2378.         keyin Currentcase(' WIDTH=')theWidth
  2379.     endif
  2380.     if theBorder /== '' then
  2381.         keyin ' BORDER='theBorder
  2382.     endif
  2383.     if theHspace /== '' then
  2384.         keyin ' HSPACE='theHspace
  2385.     endif
  2386.     if theVspace /== '' then
  2387.         keyin ' VSPACE='theVspace
  2388.     endif
  2389.     if theLowsrc /== '' then
  2390.         keyin ' LOWSRC="'theLowsrc'"'
  2391.     endif
  2392.     if theIsmap=MBID_YES then
  2393.         keyin ' ISMAP'
  2394.     endif
  2395.     if theUsemap /== '' then
  2396.         keyin ' USEMAP="'theUsemap'"'
  2397.     endif
  2398.     keyin '>'
  2399.  
  2400. defproc Multiline_tags(tag)
  2401.     keyin Currentcase('<'tag'>')
  2402.     insertline '', .line+1
  2403.     insertline Currentcase('</'tag'>'), .line+2
  2404.     .line=.line+1
  2405.     .col=1
  2406.  
  2407. defproc noArgTags(tag)
  2408.     if check_mark_on_screen() then
  2409.         pbegin_mark()
  2410.     endif
  2411.         keyin Currentcase('<'tag'>')
  2412.     if check_mark_on_screen() then
  2413.         pend_mark()
  2414.         oldCol=.col
  2415.         left
  2416.         if .col=oldCol then
  2417.             .line=.line-1
  2418.             endline
  2419.         else
  2420.             right
  2421.             right
  2422.         endif
  2423.     endif
  2424.             keyin Currentcase('</'tag'>')
  2425.     if check_mark_on_screen() then
  2426.         unmark
  2427.     else
  2428.         .col=.col-(length(tag)+3)
  2429.     endif
  2430.  
  2431. defproc Table_XX(tag)
  2432.     theColspan=GetFileArrEl(tag'_COLSPAN')
  2433.     theRowspan=GetFileArrEl(tag'_ROWSPAN')
  2434.     theAlign=GetFileArrEl(tag'_ALIGN')
  2435.     theValign=GetFileArrEl(tag'_VALIGN')
  2436.     theWrap=GetFileArrEl(tag'_WRAPING')
  2437.     theWidth=GetFileArrEl(tag'_WIDTH')
  2438.     if theAlign='' then
  2439.         theAlign='/CENTER/LEFT/RIGHT/#OOPS'
  2440.         setFileArrEl(tag'_ALIGN', theAlign)
  2441.     endif
  2442.     if theValign='' then
  2443.         theValign='/MIDDLE/TOP/BOTTOM/#OOPS'
  2444.         setFileArrEl(tag'_VALIGN', theValign)
  2445.     endif
  2446.     if upcase(leftstr(theColspan, 5))=='AUTO_' then
  2447.         theColspan=rightstr(theColspan, length(theColspan)-5)
  2448.     else
  2449.         theColspan=entrybox('<'tag'> Enter the Colspan','',Currentcase(theColspan),30,255)
  2450.     endif
  2451.     do while Valid_Number(theColspan)=FALSE
  2452.         theColspan=entrybox('<'tag'> Enter the Colspan','', theColspan,30,255)
  2453.     enddo
  2454.     if upcase(theColspan)=='#OOPS' then
  2455.         return
  2456.     endif
  2457.     if upcase(leftstr(theRowspan, 5))=='AUTO_' then
  2458.         theRowspan=rightstr(theRowspan, length(theRowspan)-5)
  2459.     else
  2460.         theRowspan=entrybox('<'tag'> Enter the Rowspan', '',Currentcase(theRowspan),30,255)
  2461.     endif
  2462.     do while Valid_Number(theRowspan)=FALSE
  2463.         theRowspan=entrybox('<'tag'> Enter the Rowspan','', theRowspan,30,255)
  2464.     enddo
  2465.     if upcase(theRowspan)=='#OOPS' then
  2466.         return
  2467.     endif
  2468.     if upcase(leftstr(theWidth, 5))=='AUTO_' then
  2469.         theWidth=rightstr(theWidth, length(theWidth)-5)
  2470.     else
  2471.         theWidth=entrybox('<'tag'> Enter the Width', '',Currentcase(theWidth),30,255)
  2472.     endif
  2473.     do while Valid_Number(theWidth)=FALSE
  2474.         theWidth=entrybox('<'tag'> Enter the Width','', theWidth,30,255)
  2475.     enddo
  2476.     if upcase(theWidth)=='#OOPS' then
  2477.         return
  2478.     endif
  2479.     if upcase(leftstr(theAlign, 5))=='AUTO_' then
  2480.         theAlign=rightstr(theAlign, length(theAlign)-5)
  2481.     else
  2482.         theAlign=listbox('<'tag'> Choose the horizontal alignment',Currentcase(theAlign))
  2483.     endif
  2484.     if upcase(theAlign)=='#OOPS' then
  2485.         return
  2486.     endif
  2487.     if upcase(leftstr(theValign, 5))=='AUTO_' then
  2488.         theValign=rightstr(theValign, length(theValign)-5)
  2489.     else
  2490.         theValign=listbox('<'tag'> Choose the vertical alignment',Currentcase(theVAlign))
  2491.     endif
  2492.     if upcase(theValign) ='MIDDLE' then
  2493.         theValign=''
  2494.     endif
  2495.     if upcase(theValign)=='#OOPS' then
  2496.         return
  2497.     endif
  2498.     if upcase(theWrap)=='YES' then
  2499.         theWrap=MBID_YES
  2500.     elseif upcase(theWrap)=='NO' then
  2501.         theWrap=MBID_NO
  2502.     else
  2503.         if upcase(theWrap)='NO' then
  2504.         theWrap= winmessagebox('Wraping?', 'Do you want to allow wraping within cells?', MB_YESNO+MB_DEFBUTTON2)
  2505.         else
  2506.         theWrap= winmessagebox('Wraping?', 'Do you want to allow wraping within cells?', MB_YESNO+MB_DEFBUTTON1)
  2507.         endif
  2508.     endif
  2509.     if check_mark_on_screen() then
  2510.         pbegin_mark()
  2511.     endif
  2512.     keyin Currentcase('<'tag)
  2513.     if theColspan /=='' then
  2514.         keyin Currentcase(' COLSPAN='theColspan)
  2515.     endif
  2516.     if theRowspan /== '' then
  2517.         keyin Currentcase(' ROWSPAN='theRowspan)
  2518.     endif
  2519.     if theAlign /== '' then
  2520.         keyin Currentcase(' ALIGN='theAlign)
  2521.     endif
  2522.     if theValign /== '' then
  2523.         keyin Currentcase(' VALIGN='theValign)
  2524.     endif
  2525.     if theWidth /=='' then
  2526.         keyin Currentcase(' WIDTH='theWidth)
  2527.     endif
  2528.     if theWrap=MBID_NO then
  2529.         keyin Currentcase(' NOWRAP')
  2530.     endif
  2531.     keyin '>'
  2532.     if check_mark_on_screen() then
  2533.         pend_mark()
  2534.         oldCol=.col
  2535.         left
  2536.         if .col=oldCol then
  2537.             .line=.line-1
  2538.             endline
  2539.         else
  2540.             right
  2541.             right
  2542.         endif
  2543.     endif
  2544.         keyin Currentcase('</'tag'>')
  2545.     if check_mark_on_screen() then
  2546.         unmark
  2547.     else
  2548.         .col=.col-5
  2549.     endif
  2550.  
  2551. ;                                    Interface stuff----------
  2552. defc case_toggle
  2553.     universal kase
  2554.     if kase=0 then
  2555.         kase=1
  2556.         sayerror 'Upper case'
  2557.         return
  2558.         
  2559.     else
  2560.         kase=0
  2561.         sayerror 'Lower case'
  2562.         return
  2563.     endif
  2564.  
  2565. defproc Currentcase(theString)
  2566.     universal kase
  2567.     if kase=1 then
  2568.         return upcase(theString)
  2569.     else
  2570.         return lowcase(theString)
  2571.     endif
  2572.  
  2573. defc ClearDefaultArgs =
  2574.     arrayID=.userstring
  2575.     val=''
  2576. do_array 2, arrayID, 'APPLET_ALIGN', val
  2577. do_array 2, arrayID, 'APPLET_ALT', val
  2578. do_array 2, arrayID, 'APPLET_CODE', val
  2579. do_array 2, arrayID, 'APPLET_CODEBASE', val
  2580. do_array 2, arrayID, 'APPLET_HSPACE', val
  2581. do_array 2, arrayID, 'APPLET_NAME', val
  2582. do_array 2, arrayID, 'APPLET_VSPACE', val
  2583. do_array 2, arrayID, 'AREA_ALT', val
  2584. do_array 2, arrayID, 'AREA_HREF', val
  2585. do_array 2, arrayID, 'AREA_SHAPE', val
  2586. do_array 2, arrayID, 'A_LINK', val
  2587. do_array 2, arrayID, 'A_REL', val
  2588. do_array 2, arrayID, 'A_REV', val
  2589. do_array 2, arrayID, 'A_TITLE', val
  2590. do_array 2, arrayID, 'BASE', val
  2591. do_array 2, arrayID, 'BASEFONT_SIZE', val
  2592. do_array 2, arrayID, 'BODY_ALINK', val
  2593. do_array 2, arrayID, 'BODY_BACKGROUND', val
  2594. do_array 2, arrayID, 'BODY_BGCOLOR', val
  2595. do_array 2, arrayID, 'BODY_LINK', val
  2596. do_array 2, arrayID, 'BODY_TEXT', val
  2597. do_array 2, arrayID, 'BODY_VLINK', val
  2598. do_array 2, arrayID, 'BR_CLEAR', val
  2599. do_array 2, arrayID, 'CAPTION_ALIGN', val
  2600. do_array 2, arrayID, 'DIV_ALIGN', val
  2601. do_array 2, arrayID, 'FONT_COLOR', val
  2602. do_array 2, arrayID, 'FONT_SIZE', val
  2603. do_array 2, arrayID, 'FORM_ACTION', val
  2604. do_array 2, arrayID, 'FORM_ENCTYPE', val
  2605. do_array 2, arrayID, 'FORM_METHOD', val
  2606. do_array 2, arrayID, 'FRAMESET_COLS', val
  2607. do_array 2, arrayID, 'FRAMESET_ROWS', val
  2608. do_array 2, arrayID, 'FRAME_MARGINHEIGHT', val
  2609. do_array 2, arrayID, 'FRAME_MARGINWIDTH', val
  2610. do_array 2, arrayID, 'FRAME_NORESIZE', val
  2611. do_array 2, arrayID, 'FRAME_SCROLLING', val
  2612. do_array 2, arrayID, 'FRAME_SOURCE', val
  2613. do_array 2, arrayID, 'H1_ALIGN', val
  2614. do_array 2, arrayID, 'H2_ALIGN', val
  2615. do_array 2, arrayID, 'H3_ALIGN', val
  2616. do_array 2, arrayID, 'H4_ALIGN', val
  2617. do_array 2, arrayID, 'H5_ALIGN', val
  2618. do_array 2, arrayID, 'H6_ALIGN', val
  2619. do_array 2, arrayID, 'HR_ALIGN', val
  2620. do_array 2, arrayID, 'HR_SIZE', val
  2621. do_array 2, arrayID, 'HR_WIDTH', val
  2622. do_array 2, arrayID, 'HTML_VERSION', val
  2623. do_array 2, arrayID, 'IMG_ALIGN', val
  2624. do_array 2, arrayID, 'IMG_ALT', val
  2625. do_array 2, arrayID, 'IMG_BORDER', val
  2626. do_array 2, arrayID, 'IMG_HEIGHT', val
  2627. do_array 2, arrayID, 'IMG_HSPACE', val
  2628. do_array 2, arrayID, 'IMG_ISMAP', val
  2629. do_array 2, arrayID, 'IMG_LOWSRC', val
  2630. do_array 2, arrayID, 'IMG_SOURCE', val
  2631. do_array 2, arrayID, 'IMG_USEMAP', val
  2632. do_array 2, arrayID, 'IMG_VSPACE', val
  2633. do_array 2, arrayID, 'IMG_WIDTH', val
  2634. do_array 2, arrayID, 'INDEX_PROMPT', val
  2635. do_array 2, arrayID, 'INPUT_CHECKBOX_CHECKED', val
  2636. do_array 2, arrayID, 'INPUT_CHECKBOX_VALUE', val
  2637. do_array 2, arrayID, 'INPUT_IMAGE_SOURCE', val
  2638. do_array 2, arrayID, 'INPUT_PASSWORD_MAXLENGTH', val
  2639. do_array 2, arrayID, 'INPUT_PASSWORD_SIZE', val
  2640. do_array 2, arrayID, 'INPUT_PASSWORD_VALUE', val
  2641. do_array 2, arrayID, 'INPUT_RADIO_VALUE', val
  2642. do_array 2, arrayID, 'INPUT_TEXT_MAXLENGTH', val
  2643. do_array 2, arrayID, 'INPUT_TEXT_SIZE', val
  2644. do_array 2, arrayID, 'INPUT_TEXT_VALUE', val
  2645. do_array 2, arrayID, 'INPUT_TYPE', val
  2646. do_array 2, arrayID, 'IS_INDEX', val
  2647. do_array 2, arrayID, 'LINK_LINK', val
  2648. do_array 2, arrayID, 'LINK_REL', val
  2649. do_array 2, arrayID, 'LINK_REV', val
  2650. do_array 2, arrayID, 'LINK_TITLE', val
  2651. do_array 2, arrayID, 'MAP_NAME', val
  2652. do_array 2, arrayID, 'OL_COMPACT', val
  2653. do_array 2, arrayID, 'OL_START', val
  2654. do_array 2, arrayID, 'OL_TYPE', val
  2655. do_array 2, arrayID, 'PRE_WIDTH', val
  2656. do_array 2, arrayID, 'P_ALIGN', val
  2657. do_array 2, arrayID, 'SELECT_SIZE', val
  2658. do_array 2, arrayID, 'STYLE_TYPE', val
  2659. do_array 2, arrayID, 'TABLE_BORDER', val
  2660. do_array 2, arrayID, 'TABLE_CELLPADDING', val
  2661. do_array 2, arrayID, 'TABLE_CELLSPACING', val
  2662. do_array 2, arrayID, 'TD_ALIGN', val
  2663. do_array 2, arrayID, 'TD_COLSPAN', val
  2664. do_array 2, arrayID, 'TD_ROWSPAN', val
  2665. do_array 2, arrayID, 'TD_VALIGN', val
  2666. do_array 2, arrayID, 'TD_WIDTH', val
  2667. do_array 2, arrayID, 'TD_WRAPING', val
  2668. do_array 2, arrayID, 'TEXTAREA_COLS', val
  2669. do_array 2, arrayID, 'TEXTAREA_ROWS', val
  2670. do_array 2, arrayID, 'TH_ALIGN', val
  2671. do_array 2, arrayID, 'TH_COLSPAN', val
  2672. do_array 2, arrayID, 'TH_ROWSPAN', val
  2673. do_array 2, arrayID, 'TH_VALIGN', val
  2674. do_array 2, arrayID, 'TH_WIDTH', val
  2675. do_array 2, arrayID, 'TH_WRAPING', val
  2676. do_array 2, arrayID, 'TR_ALIGN', val
  2677. do_array 2, arrayID, 'TR_VALIGN', val
  2678. do_array 2, arrayID, 'UL_COMPACT', val
  2679. do_array 2, arrayID, 'UL_TYPE', val
  2680. sayerror "Defaults cleared"
  2681.  
  2682. defproc getFileArrEl(stem)
  2683.     arrayID=.userstring
  2684.     do_array 7, arrayID, stem, val
  2685.     return val
  2686.  
  2687. defc Last_Tag
  2688.     universal lastDone
  2689.     lastDone
  2690.  
  2691. defproc loadFileArrEl(elName)
  2692.     arrayID=.userstring
  2693.     val=get_EAT_ASCII_value(elName)
  2694.     do_array 2, arrayID, elName, val
  2695.  
  2696. defc loadFileArr
  2697.     loadFileArrEl('APPLET_ALIGN')
  2698.     loadFileArrEl('APPLET_ALT')
  2699.     loadFileArrEl('APPLET_CODE')
  2700.     loadFileArrEl('APPLET_CODEBASE')
  2701.     loadFileArrEl('APPLET_HSPACE')
  2702.     loadFileArrEl('APPLET_NAME')
  2703.     loadFileArrEl('APPLET_VSPACE')
  2704.     loadFileArrEl('AREA_ALT')
  2705.     loadFileArrEl('AREA_HREF')
  2706.     loadFileArrEl('AREA_SHAPE')
  2707.     loadFileArrEl('A_LINK')
  2708.     loadFileArrEl('A_REL')
  2709.     loadFileArrEl('A_REV')
  2710.     loadFileArrEl('A_TITLE')
  2711.     loadFileArrEl('BASE')
  2712.     loadFileArrEl('BASEFONT_SIZE')
  2713.     loadFileArrEl('BODY_ALINK')
  2714.     loadFileArrEl('BODY_BACKGROUND')
  2715.     loadFileArrEl('BODY_BGCOLOR')
  2716.     loadFileArrEl('BODY_LINK')
  2717.     loadFileArrEl('BODY_TEXT')
  2718.     loadFileArrEl('BODY_VLINK')
  2719.     loadFileArrEl('BR_CLEAR')
  2720.     loadFileArrEl('CAPTION_ALIGN')
  2721.     loadFileArrEl('DIV_ALIGN')
  2722.     loadFileArrEl('FONT_COLOR')
  2723.     loadFileArrEl('FONT_SIZE')
  2724.     loadFileArrEl('FORM_ACTION')
  2725.     loadFileArrEl('FORM_ENCTYPE')
  2726.     loadFileArrEl('FORM_METHOD')
  2727.     loadFileArrEl('FRAMESET_COLS')
  2728.     loadFileArrEl('FRAMESET_ROWS')
  2729.     loadFileArrEl('FRAME_MARGINHEIGHT')
  2730.     loadFileArrEl('FRAME_MARGINWIDTH')
  2731.     loadFileArrEl('FRAME_NORESIZE')
  2732.     loadFileArrEl('FRAME_SCROLLING')
  2733.     loadFileArrEl('FRAME_SOURCE')
  2734.     loadFileArrEl('H1_ALIGN')
  2735.     loadFileArrEl('H2_ALIGN')
  2736.     loadFileArrEl('H3_ALIGN')
  2737.     loadFileArrEl('H4_ALIGN')
  2738.     loadFileArrEl('H5_ALIGN')
  2739.     loadFileArrEl('H6_ALIGN')
  2740.     loadFileArrEl('HR_ALIGN')
  2741.     loadFileArrEl('HR_SIZE')
  2742.     loadFileArrEl('HR_WIDTH')
  2743.     loadFileArrEl('HTML_VERSION')
  2744.     loadFileArrEl('IMG_ALIGN')
  2745.     loadFileArrEl('IMG_ALT')
  2746.     loadFileArrEl('IMG_BORDER')
  2747.     loadFileArrEl('IMG_HEIGHT')
  2748.     loadFileArrEl('IMG_HSPACE')
  2749.     loadFileArrEl('IMG_ISMAP')
  2750.     loadFileArrEl('IMG_LOWSRC')
  2751.     loadFileArrEl('IMG_SOURCE')
  2752.     loadFileArrEl('IMG_USEMAP')
  2753.     loadFileArrEl('IMG_VSPACE')
  2754.     loadFileArrEl('IMG_WIDTH')
  2755.     loadFileArrEl('INDEX_PROMPT')
  2756.     loadFileArrEl('INPUT_CHECKBOX_CHECKED')
  2757.     loadFileArrEl('INPUT_CHECKBOX_VALUE')
  2758.     loadFileArrEl('INPUT_IMAGE_SOURCE')
  2759.     loadFileArrEl('INPUT_PASSWORD_MAXLENGTH')
  2760.     loadFileArrEl('INPUT_PASSWORD_SIZE')
  2761.     loadFileArrEl('INPUT_PASSWORD_VALUE')
  2762.     loadFileArrEl('INPUT_RADIO_VALUE')
  2763.     loadFileArrEl('INPUT_TEXT_MAXLENGTH')
  2764.     loadFileArrEl('INPUT_TEXT_SIZE')
  2765.     loadFileArrEl('INPUT_TEXT_VALUE')
  2766.     loadFileArrEl('INPUT_TYPE')
  2767.     loadFileArrEl('IS_INDEX')
  2768.     loadFileArrEl('LINK_LINK')
  2769.     loadFileArrEl('LINK_REL')
  2770.     loadFileArrEl('LINK_REV')
  2771.     loadFileArrEl('LINK_TITLE')
  2772.     loadFileArrEl('MAP_NAME')
  2773.     loadFileArrEl('OL_COMPACT')
  2774.     loadFileArrEl('OL_START')
  2775.     loadFileArrEl('OL_TYPE')
  2776.     loadFileArrEl('PRE_WIDTH')
  2777.     loadFileArrEl('P_ALIGN')
  2778.     loadFileArrEl('SELECT_SIZE')
  2779.     loadFileArrEl('STYLE_TYPE')
  2780.     loadFileArrEl('TABLE_BORDER')
  2781.     loadFileArrEl('TABLE_CELLPADDING')
  2782.     loadFileArrEl('TABLE_CELLSPACING')
  2783.     loadFileArrEl('TD_ALIGN')
  2784.     loadFileArrEl('TD_COLSPAN')
  2785.     loadFileArrEl('TD_ROWSPAN')
  2786.     loadFileArrEl('TD_VALIGN')
  2787.     loadFileArrEl('TD_WIDTH')
  2788.     loadFileArrEl('TD_WRAPING')
  2789.     loadFileArrEl('TEXTAREA_COLS')
  2790.     loadFileArrEl('TEXTAREA_ROWS')
  2791.     loadFileArrEl('TH_ALIGN')
  2792.     loadFileArrEl('TH_COLSPAN')
  2793.     loadFileArrEl('TH_ROWSPAN')
  2794.     loadFileArrEl('TH_VALIGN')
  2795.     loadFileArrEl('TH_WIDTH')
  2796.     loadFileArrEl('TH_WRAPING')
  2797.     loadFileArrEl('TR_ALIGN')
  2798.     loadFileArrEl('TR_VALIGN')
  2799.     loadFileArrEl('UL_COMPACT')
  2800.     loadFileArrEl('UL_TYPE')
  2801.     Sayerror "Defaults loaded from file"
  2802.  
  2803. defc saveFileArr
  2804.     saveFileArrEl('APPLET_ALIGN')
  2805.     saveFileArrEl('APPLET_ALT')
  2806.     saveFileArrEl('APPLET_CODE')
  2807.     saveFileArrEl('APPLET_CODEBASE')
  2808.     saveFileArrEl('APPLET_HSPACE')
  2809.     saveFileArrEl('APPLET_NAME')
  2810.     saveFileArrEl('APPLET_VSPACE')
  2811.     saveFileArrEl('AREA_ALT')
  2812.     saveFileArrEl('AREA_HREF')
  2813.     saveFileArrEl('AREA_SHAPE')
  2814.     saveFileArrEl('A_LINK')
  2815.     saveFileArrEl('A_REL')
  2816.     saveFileArrEl('A_REV')
  2817.     saveFileArrEl('A_TITLE')
  2818.     saveFileArrEl('BASE')
  2819.     saveFileArrEl('BASEFONT_SIZE')
  2820.     saveFileArrEl('BODY_ALINK')
  2821.     saveFileArrEl('BODY_BACKGROUND')
  2822.     saveFileArrEl('BODY_BGCOLOR')
  2823.     saveFileArrEl('BODY_LINK')
  2824.     saveFileArrEl('BODY_TEXT')
  2825.     saveFileArrEl('BODY_VLINK')
  2826.     saveFileArrEl('BR_CLEAR')
  2827.     saveFileArrEl('CAPTION_ALIGN')
  2828.     saveFileArrEl('DIV_ALIGN')
  2829.     saveFileArrEl('FONT_COLOR')
  2830.     saveFileArrEl('FONT_SIZE')
  2831.     saveFileArrEl('FORM_ACTION')
  2832.     saveFileArrEl('FORM_ENCTYPE')
  2833.     saveFileArrEl('FORM_METHOD')
  2834.     saveFileArrEl('FRAMESET_COLS')
  2835.     saveFileArrEl('FRAMESET_ROWS')
  2836.     saveFileArrEl('FRAME_MARGINHEIGHT')
  2837.     saveFileArrEl('FRAME_MARGINWIDTH')
  2838.     saveFileArrEl('FRAME_NORESIZE')
  2839.     saveFileArrEl('FRAME_SCROLLING')
  2840.     saveFileArrEl('FRAME_SOURCE')
  2841.     saveFileArrEl('H1_SIZE')
  2842.     saveFileArrEl('H2_SIZE')
  2843.     saveFileArrEl('H3_SIZE')
  2844.     saveFileArrEl('H4_SIZE')
  2845.     saveFileArrEl('H5_SIZE')
  2846.     saveFileArrEl('H6_SIZE')
  2847.     saveFileArrEl('HR_ALIGN')
  2848.     saveFileArrEl('HR_SIZE')
  2849.     saveFileArrEl('HR_WIDTH')
  2850.     saveFileArrEl('HTML_VERSION')
  2851.     saveFileArrEl('IMG_ALIGN')
  2852.     saveFileArrEl('IMG_ALT')
  2853.     saveFileArrEl('IMG_BORDER')
  2854.     saveFileArrEl('IMG_HEIGHT')
  2855.     saveFileArrEl('IMG_HSPACE')
  2856.     saveFileArrEl('IMG_ISMAP')
  2857.     saveFileArrEl('IMG_LOWSRC')
  2858.     saveFileArrEl('IMG_SOURCE')
  2859.     saveFileArrEl('IMG_USEMAP')
  2860.     saveFileArrEl('IMG_VSPACE')
  2861.     saveFileArrEl('IMG_WIDTH')
  2862.     saveFileArrEl('INDEX_PROMPT')
  2863.     saveFileArrEl('INPUT_CHECKBOX_CHECKED')
  2864.     saveFileArrEl('INPUT_CHECKBOX_VALUE')
  2865.     saveFileArrEl('INPUT_IMAGE_SOURCE')
  2866.     saveFileArrEl('INPUT_PASSWORD_MAXLENGTH')
  2867.     saveFileArrEl('INPUT_PASSWORD_SIZE')
  2868.     saveFileArrEl('INPUT_PASSWORD_VALUE')
  2869.     saveFileArrEl('INPUT_RADIO_VALUE')
  2870.     saveFileArrEl('INPUT_TEXT_MAXLENGTH')
  2871.     saveFileArrEl('INPUT_TEXT_SIZE')
  2872.     saveFileArrEl('INPUT_TEXT_VALUE')
  2873.     saveFileArrEl('INPUT_TYPE')
  2874.     saveFileArrEl('IS_INDEX')
  2875.     saveFileArrEl('LINK_LINK')
  2876.     saveFileArrEl('LINK_REL')
  2877.     saveFileArrEl('LINK_REV')
  2878.     saveFileArrEl('LINK_TITLE')
  2879.     saveFileArrEl('MAP_NAME')
  2880.     saveFileArrEl('OL_COMPACT')
  2881.     saveFileArrEl('OL_START')
  2882.     saveFileArrEl('OL_TYPE')
  2883.     saveFileArrEl('PRE_WIDTH')
  2884.     saveFileArrEl('P_ALIGN')
  2885.     saveFileArrEl('SELECT_SIZE')
  2886.     saveFileArrEl('STYLE_TYPE')
  2887.     saveFileArrEl('TABLE_BORDER')
  2888.     saveFileArrEl('TABLE_CELLPADDING')
  2889.     saveFileArrEl('TABLE_CELLSPACING')
  2890.     saveFileArrEl('TD_ALIGN')
  2891.     saveFileArrEl('TD_COLSPAN')
  2892.     saveFileArrEl('TD_ROWSPAN')
  2893.     saveFileArrEl('TD_VALIGN')
  2894.     saveFileArrEl('TD_WIDTH')
  2895.     saveFileArrEl('TD_WRAPING')
  2896.     saveFileArrEl('TEXTAREA_COLS')
  2897.     saveFileArrEl('TEXTAREA_ROWS')
  2898.     saveFileArrEl('TH_ALIGN')
  2899.     saveFileArrEl('TH_COLSPAN')
  2900.     saveFileArrEl('TH_ROWSPAN')
  2901.     saveFileArrEl('TH_VALIGN')
  2902.     saveFileArrEl('TH_WIDTH')
  2903.     saveFileArrEl('TH_WRAPING')
  2904.     saveFileArrEl('TR_ALIGN')
  2905.     saveFileArrEl('TR_VALIGN')
  2906.     saveFileArrEl('UL_COMPACT')
  2907.     saveFileArrEl('UL_TYPE')
  2908.     sayerror 'Defaults saved to file'
  2909. defproc saveFileArrEl(elName)
  2910.     arrayID=.userstring
  2911.     do_array 7, arrayID, elName, val
  2912.     oldval=get_EAT_ASCII_value(elName)
  2913.     if upcase(val) /== upcase(oldVal) then
  2914.         delete_ea(elName)
  2915.         'add_ea 'elName' 'val
  2916.         'rx updateea '.filename' 'elName' 'val
  2917.     endif
  2918.  
  2919. defc SetDefaultArgs =
  2920.     TagsList01='/APPLET_ALIGN/APPLET_ALT/APPLET_CODE/APPLET_CODEBASE/APPLET_HSPACE/APPLET_NAME/APPLET_VSPACE'
  2921.     TagsList02='/AREA_ALT/AREA_HREF/AREA_SHAPE/A_LINK/A_REL/A_REV/A_TITLE/BASE/BASEFONT_SIZE/BODY_ALINK'
  2922.     TagsList03='/BODY_BACKGROUND/BODY_BGCOLOR/BODY_LINK/BODY_TEXT/BODY_VLINK/BR_CLEAR/CAPTION_ALIGN'
  2923.     TagsList04='/DEFAULT_PATH/DIV_ALIGN/FONT_COLOR/FONT_SIZE/FORM_ACTION/FORM_ENCTYPE/FORM_METHOD'
  2924.     TagsList05='/FRAMESET_COLS/FRAMESET_ROWS/FRAME_MARGINHEIGHT/FRAME_MARGINWIDTH/FRAME_NORESIZE'
  2925.     TagsList06='/FRAME_SCROLLING/FRAME_SOURCE/H1_ALIGN/H2_ALIGN/H3_ALIGN/H4_ALIGN/H5_ALIGN/H6_ALIGN'
  2926.     TagsList07='/HR_ALIGN/HR_SIZE/HR_WIDTH/HTML_VERSION/IMG_ALIGN/IMG_ALT/IMG_BORDER/IMG_HEIGHT'
  2927.     TagsList08='/IMG_HSPACE/IMG_ISMAP/IMG_LOWSRC/IMG_SOURCE/IMG_USEMAP/IMG_VSPACE/IMG_WIDTH/INDEX_PROMPT'
  2928.     TagsList09='/INPUT_CHECKBOX_CHECKED/INPUT_CHECKBOX_VALUE/INPUT_IMAGE_SOURCE/INPUT_PASSWORD_MAXLENGTH'
  2929.     TagsList10='/INPUT_PASSWORD_SIZE/INPUT_PASSWORD_VALUE/INPUT_RADIO_CHECKED/INPUT_RADIO_VALUE'
  2930.     TagsList11='/INPUT_TEXT_MAXLENGTH/INPUT_TEXT_SIZE/INPUT_TEXT_VALUE/INPUT_TYPE/IS_INDEX/LINK_LINK'
  2931.     TagsList12='/LINK_REL/LINK_REV/LINK_TITLE/MAP_NAME/OL_COMPACT/OL_START/OL_TYPE/PRE_WIDTH/P_ALIGN'
  2932.     TagsList13='/SELECT_SIZE/STYLE_TYPE/TABLE_BORDER/TABLE_CELLPADDING/TABLE_CELLSPACING/TD_ALIGN/TD_COLSPAN'
  2933.     TagsList14='/TD_ROWSPAN/TD_VALIGN/TD_WIDTH/TD_WRAPING/TEXTAREA_COLS/TEXTAREA_ROWS/TH_ALIGN/TH_COLSPAN'
  2934.     TagsList15='/TH_ROWSPAN/TH_VALIGN/TH_WIDTH/TH_WRAPING/TR_ALIGN/TR_VALIGN/UL_COMPACT/UL_TYPE'
  2935.     TagsList16=''
  2936.     EA_to_set=listbox('Chose the tag arguement do default' ,TagsList01||TagsList02||TagsList03||TagsList04||TagsList05||TagsList06||TagsList07||TagsList08||TagsList09||TagsList10||TagsList11||TagsList12||TagsList13||TagsList14||TagsList15||TagsList16)
  2937.     if Ea_to_set == '' then
  2938.         return
  2939.     endif
  2940.     oldValue=GetFileArrEl(EA_to_set)
  2941.     delete_ea(EA_to_set)
  2942.     if EA_to_set == 'CAPTION_ALIGN' then
  2943.         EA_value=listbox('Choose the default <CAPTION> alignment', '/TOP/BOTTOM/AUTO_TOP/AUTO_BOTOM/AUTO_/AUTO_#OOPS')
  2944.         if EA_value == 'BOTTOM' then
  2945.             setFileArrEl(EA_to_set,' /BOTOM/TOP/#OOPS')
  2946.             return
  2947.         elseif EA_value == 'AUTO_TOP' then
  2948.             setFileArrEl(EA_to_set, 'AUTO_TOP')
  2949.             return
  2950.         elseif EA_value == 'AUTO_BOTOM' then
  2951.             setFileArrEl(EA_to_set, 'AUTO_BOTOM')
  2952.             return
  2953.         elseif EA_value == 'AUTO_' then
  2954.             setFileArrEl(EA_to_set, 'AUTO_')
  2955.             return
  2956.         else
  2957.             setFileArrEl(EA_to_set, '/TOP/BOTOM/#OOPS')
  2958.             return
  2959.         endif
  2960.     elseif EA_to_set == 'UL_TYPE' then
  2961.         EA_value = listbox('<OL> Choose the type' ,'/DISC/SQUARE/CIRCLE/AUTO_DISC/AUTO_SQUARE/AUTO_CIRCLE/AUTO_/AUTO_#OOPS')
  2962.         if upcase(leftstr(EA_value,5))=='AUTO_' then
  2963.             setFileArrEl(EA_to_set, EA_value)
  2964.         elseif EA_value=='SQUARE' then
  2965.             setFileArrEl(EA_to_set, '/SQUARE/CIRCLE/DISC/#OOPS')
  2966.         elseif EA_value=='CIRCLE' then
  2967.             setFileArrEl(EA_to_set, '/CIRCLE/DISC/SQUARE/#OOPS')
  2968.         else
  2969.             setFileArrEl(EA_to_set, '/DISC/SQUARE/CIRCLE/#OOPS')
  2970.         endif
  2971.     elseif EA_to_set == 'OL_TYPE' then
  2972.         EA_value = listbox('<OL> Choose the typx' ,'/1/a/A/i/I/AUTO_1/AUTO_a/AUTO_A/AUTO_i/AUTO_I/AUTO_/AUTO_#OOPS')
  2973.         if upcase(leftstr(EA_value,5))=='AUTO_' then
  2974.             setFileArrEl(EA_to_set, EA_value)
  2975.         elseif EA_value=='a' then
  2976.             setFileArrEl(EA_to_set, '/a/A/i/I/1/#OOPS')
  2977.         elseif EA_value=='A' then
  2978.             setFileArrEl(EA_to_set, '/A/i/I/1/a/#OOPS')
  2979.         elseif EA_value=='i' then
  2980.             setFileArrEl(EA_to_set, '/i/I/1/a/A/#OOPS')
  2981.         elseif EA_value=='I' then
  2982.             setFileArrEl(EA_to_set, '/I/1/a/A/i/#OOPS')
  2983.         else
  2984.             setFileArrEl(EA_to_set, '/1/a/A/i/I/#OOPS')
  2985.         endif
  2986.     elseif EA_to_set == 'BR_CLEAR' then
  2987.         EA_value = listbox('Choose the default <BR> CLEAR' ,'/LEFT/RIGHT/ALL/NONE/AUTO_LEFT/AUTO_RIGHT/AUTO_ALL/AUTO_NONE/AUTO_/AUTO_#OOPS')
  2988.         if upcase(leftstr(EA_value, 5)) == 'AUTO_' then
  2989.             setFileArrEl(EA_to_set, EA_value)
  2990.         elseif EA_value == 'RIGHT' then
  2991.             setFileArrEl(EA_to_set, '/RIGHT/ALL/NONE/LEFT/#OOPS')
  2992.         elseif EA_value == 'ALL' then
  2993.             setFileArrEl(EA_to_set, '/ALL/NONE/LEFT/RIGHT/#OOPS')
  2994.         elseif EA_value == 'NONE' then
  2995.             setFileArrEl(EA_to_set, '/NONE/LEFT/RIGHT/ALL/#OOPS')
  2996.         else
  2997.             setFileArrEl(EA_to_set, '/LEFT/RIGHT/ALL/NONE/#OOPS')
  2998.         endif
  2999.     elseif EA_to_set == 'APPLET_ALIGN' then
  3000.         EA_value=listbox('Choose the default <APPLET> alignment', '/LEFT/RIGHT/TOP/BOTTOM/MIDDLE/AUTO_LEFT/AUTO_RIGHT/AUTO_TOP/AUTO_BOTTOM/AUTO_MIDDLE/AUTO_#OOPS')
  3001.         if EA_value == 'RIGHT' then
  3002.             setFileArrEl(EA_to_set, '/RIGHT/TOP/BOTTOM/MIDDLE/LEFT/#OOPS')
  3003.         elseif EA_value == 'TOP' then
  3004.             setFileArrEl(EA_to_set, '/TOP/BOTTOM/MIDDLE/LEFT/RIGHT/#OOPS')
  3005.         elseif EA_value == 'BOTTOM' then
  3006.             setFileArrEl(EA_to_set, '/BOTTOM/MIDDLE/LEFT/RIGHT/TOP/#OOPS')
  3007.         elseif EA_value == 'MIDDLE' then
  3008.             setFileArrEl(EA_to_set, '/MIDDLE/LEFT/RIGHT/TOP/BOTTOM/#OOPS')
  3009.         elseif upcase(leftstr(EA_value, 5)) =='AUTO_' then
  3010.             setFileArrEl(EA_to_set, EA_value)
  3011.         else
  3012.             setFileArrEl(EA_to_set, '/LEFT/RIGHT/TOP/BOTTOM/MIDDLE/#OOPS')
  3013.         endif
  3014.     elseif EA_to_set == 'AREA_SHAPE' then
  3015.         EA_value=listbox('Choose the default <AREA> shape', '/RECT/CIRCLE/POLY/DEFAULT/AUTO_RECT/AUTO_CIRCLE/AUTO_POLY/AUTO_DEFAULT')
  3016.         if EA_value == 'CIRCLE' then
  3017.             setFileArrEl(EA_to_set, '/CIRCLE/POLY/DEFAULT/RECT/#OOPS')
  3018.         elseif EA_value == 'POLY' then
  3019.             setFileArrEl(EA_to_set, '/POLY/DEFAULT/RECT/CIRCLE/#OOPS')
  3020.         elseif EA_value == 'DEFAULT' then
  3021.             setFileArrEl(EA_to_set, '/DEFAULT/RECT/CIRCLE/POLY/#OOPS')
  3022.         elseif upcase(leftstr(EA_value, 5)) =='AUTO_' then
  3023.             setFileArrEl(EA_to_set, EA_value)
  3024.         else
  3025.             setFileArrEl(EA_to_set, '/RECT/CIRCLE/POLY/DEFAULT/#OOPS')
  3026.         endif
  3027.     elseif EA_to_set == 'DEFAULT_PATH' then
  3028.         EA_value=entrybox('Enter the default path','','',,255)
  3029.         if EA_value /== '' then
  3030.             if GetFileArrEl('A_REV') == '' then
  3031.                 setFileArrEl('A_REL', EA_value)
  3032.             endif
  3033.             if GetFileArrEl('A_REV') == '' then
  3034.                 setFileArrEl('A_REL', EA_value)
  3035.             endif
  3036.             if GetFileArrEl('A_LINK') == '' then
  3037.                 setFileArrEl('A_LINK', EA_value)
  3038.             endif
  3039.             if GetFileArrEl('APPLET_CODE') == '' then
  3040.                 setFileArrEl('APPLET_CODE', EA_value)
  3041.             endif
  3042.             if GetFileArrEl('FORM_ACTION') == '' then
  3043.                 setFileArrEl('FORM_ACTION', EA_value)
  3044.             endif
  3045.             if GetFileArrEl('IMG_SOURCE') == '' then
  3046.                 setFileArrEl('IMG_SOURCE', EA_value)
  3047.             endif
  3048.             if GetFileArrEl('LINK_LINK') == '' then
  3049.                 setFileArrEl('LINK_LINK', EA_value)
  3050.             endif
  3051.             if GetFileArrEl('INPUT_IMAGE_SOURCE') == '' then
  3052.                 setFileArrEl('INPUT_IMAGE_SOURCE', EA_value)
  3053.             endif
  3054.             if GetFileArrEl('FRAME_SOURCE') == '' then
  3055.                 setFileArrEl('FRAME_SOURCE', EA_value)
  3056.             endif
  3057.         endif
  3058.     elseif EA_to_set == 'FORM_METHOD' then
  3059.         EA_value = listbox('Choose the default <FORM> method', '/GET/POST/AUTO_GET/AUTO_POST')
  3060.         if upcase(leftstr(EA_value, 5)) == 'AUTO_' then
  3061.             setFileArrEl(EA_to_set, EA_value)
  3062.             return
  3063.         elseif EA_value =='POST' then
  3064.             setFileArrEl(EA_to_set, '/POST/GET/#OOPS')
  3065.             return
  3066.         else
  3067.             setFileArrEl(EA_to_set, '/GET/POST/#OOPS')
  3068.             return
  3069.         endif
  3070.     elseif EA_to_set == 'FRAME_SCROLLING' then
  3071.         EA_value=listbox('<FRAME_SCROLLING>','/YES/NO/AUTO/AUTO_YES/AUTO_NO/AUTO_AUTO/AUTO_')
  3072.         if EA_value=='NO' then
  3073.             setFileArrEl(EA_to_set'/NO/AUTO/YES/#OOPS')
  3074.             return
  3075.         elseif EA_value=='AUTO' then
  3076.             setFileArrEl(EA_to_set'/AUTO/YES/NO/#OOPS')
  3077.             return
  3078.         elseif EA_value =='YES' then
  3079.             setFileArrEl(EA_to_set'/YES/NO/AUTO/#OOPS')
  3080.             return
  3081.         else
  3082.             setFileArrEl(EA_to_set, EA_value)
  3083.             return
  3084.         endif
  3085.     elseif EA_to_set == 'IMG_ALIGN' then
  3086.         EA_value=listbox('Choose the default <IMG> alignment', '/TOP/MIDDLE/BOTTOM/LEFT/RIGHT/ABSMIDDLE/ABSBOTTOM/TEXTTOP/BASELINE/AUTO_TOP/AUTO_MIDDLE/AUTO_BOTTOM/AUTO_LEFT/AUTO_RIGHT/AUTO_ABSMIDDLE/AUTO_ABSBOTTOM/AUTO_TEXTTOP/AUTO_BASELINE/AUTO_/AUTO_#OOPS')
  3087.         if upcase(leftstr(EA_Value, 5))=='AUTO_' then
  3088.             setFileArrEl(EA_to_set, EA_value)
  3089.         elseif EA_value == 'MIDDLE' then
  3090.             setFileArrEl(EA_to_set, '/MIDDLE/BOTTOM/LEFT/RIGHT/ABSMIDDLE/ABSBOTTOM/TEXTTOP/BASELINE/TOP/#OOPS')
  3091.             return
  3092.         elseif EA_value == 'BOTTOM' then
  3093.             setFileArrEl(EA_to_set, '/BOTTOM/LEFT/RIGHT/ABSMIDDLE/ABSBOTTOM/TEXTTOP/BASELINE/TOP/MIDDLE/#OOPS')
  3094.             return
  3095.         elseif EA_value == 'BOTTOM' then
  3096.             setFileArrEl(EA_to_set, '/LEFT/RIGHT/ABSMIDDLE/ABSBOTTOM/TEXTTOP/BASELINE/TOP/MIDDLE/BOTTOM/#OOPS')
  3097.             return
  3098.         elseif EA_value == 'BOTTOM' then
  3099.             setFileArrEl(EA_to_set, '/RIGHT/ABSMIDDLE/ABSBOTTOM/TEXTTOP/BASELINE/TOP/MIDDLE/BOTTOM/LEFT/#OOPS')
  3100.             return
  3101.         elseif EA_value == 'BOTTOM' then
  3102.             setFileArrEl(EA_to_set, '/ABSMIDDLE/ABSBOTTOM/TEXTTOP/BASELINE/TOP/MIDDLE/BOTTOM/LEFT/RIGHT/#OOPS')
  3103.             return
  3104.         elseif EA_value == 'BOTTOM' then
  3105.             setFileArrEl(EA_to_set, '/ABSBOTTOM/TEXTTOP/BASELINE/TOP/MIDDLE/BOTTOM/LEFT/RIGHT/ABSMIDDLE/#OOPS')
  3106.             return
  3107.         elseif EA_value == 'BOTTOM' then
  3108.             setFileArrEl(EA_to_set, '/TEXTTOP/BASELINE/TOP/MIDDLE/BOTTOM/LEFT/RIGHT/ABSMIDDLE/ABSBOTTOM/#OOPS')
  3109.             return
  3110.         elseif EA_value == 'BOTTOM' then
  3111.             setFileArrEl(EA_to_set, '/BASELINE/TOP/MIDDLE/BOTTOM/LEFT/RIGHT/ABSMIDDLE/ABSBOTTOM/TEXTTOP/#OOPS')
  3112.             return
  3113.         else
  3114.             setFileArrEl(EA_to_set, '/TOP/MIDDLE/BOTTOM/LEFT/RIGHT/ABSMIDDLE/ABSBOTTOM/TEXTTOP/BASELINE/#OOPS')
  3115.             return
  3116.         endif
  3117.     elseif wordpos(EA_to_set, 'IMG_ISMAP IS_INDEX INPUT_CHECKBOX_CHECKED INPUT_RADIO_CHECKED FRAME_NORESIZE OL_COMPACT OL_COMPACT TD_WRAPING TH_WRAPING') then
  3118.         EA_value=listbox('Choose the default 'EA_to_set' value', '/YES/NO/AUTO_YES/AUTO_NO')
  3119.         setFileArrEl(EA_to_set, EA_value)
  3120.     elseif EA_to_set == 'INPUT_TYPE' then
  3121.         EA_value=listbox('Choose the default input type', '/CHECKBOX/HIDDEN/IMAGE/PASSWORD/RADIO/RESET/SUBMIT/TEXT/AUTO_CHECKBOX/AUTO_HIDDEN/AUTO_IMAGE/AUTO_PASSWORD/AUTO_RADIO/AUTO_RESET/AUTO_SUBMIT/AUTO_TEXT/AUTO_#OOPS')
  3122.         if upcase(leftstr(EA_value, 5)) = 'AUTO_' then
  3123.             setFileArrEl(EA_to_set, EA_value)
  3124.         elseif EA_value == 'HIDDEN' then
  3125.             setFileArrEl(EA_to_set, '/HIDDEN/IMAGE/PASSWORD/RADIO/RESET/SUBMIT/TEXT/CHECKBOX/#OOPS')
  3126.             return
  3127.         elseif EA_value == 'IMAGE' then
  3128.             setFileArrEl(EA_to_set, '/IMAGE/PASSWORD/RADIO/RESET/SUBMIT/TEXT/CHECKBOX/HIDDEN/#OOPS')
  3129.             return
  3130.         elseif EA_value == 'PASSWORD' then
  3131.             setFileArrEl(EA_to_set, '/PASSWORD/RADIO/RESET/SUBMIT/TEXT/CHECKBOX/HIDDEN/IMAGE/#OOPS')
  3132.             return
  3133.         elseif EA_value == 'RADIO' then
  3134.             setFileArrEl(EA_to_set, '/RADIO/RESET/SUBMIT/TEXT/CHECKBOX/HIDDEN/IMAGE/PASSWORD/#OOPS')
  3135.             return
  3136.         elseif EA_value == 'RESET' then
  3137.             setFileArrEl(EA_to_set, '/RESET/SUBMIT/TEXT/CHECKBOX/HIDDEN/IMAGE/PASSWORD/RADIO/#OOPS')
  3138.             return
  3139.         elseif EA_value == 'SUBMIT' then
  3140.             setFileArrEl(EA_to_set, '/SUBMIT/TEXT/CHECKBOX/HIDDEN/IMAGE/PASSWORD/RADIO/RESET/#OOPS')
  3141.             return
  3142.         elseif EA_value == 'TEXT' then
  3143.             setFileArrEl(EA_to_set, '/TEXT/CHECKBOX/HIDDEN/IMAGE/PASSWORD/RADIO/RESET/SUBMIT/#OOPS')
  3144.         else
  3145.             setFileArrEl(EA_to_set, '/CHECKBOX/HIDDEN/IMAGE/PASSWORD/RADIO/RESET/SUBMIT/TEXT/#OOPS')
  3146.             return
  3147.         endif
  3148.     elseif wordpos(EA_to_set, 'P_ALIGN TD_ALIGN TR_ALIGN TH_ALIGN HR_ALIGN DIV_ALIGN H1_ALIGN H2_ALIGN H3_ALIGN H4_ALIGN H5_ALIGN H6_ALIGN') then
  3149.         EA_value=listbox('Choose the default 'EA_to_set' alignment', '/LEFT/RIGHT/CENTER/AUTO_LEFT/AUTO_RIGHT/AUTO_CENTER/AUTO_')
  3150.         if EA_value == 'RIGHT' then
  3151.             setFileArrEl(EA_to_set, '/RIGHT/CENTER/LEFT/#OOPS')
  3152.             return
  3153.         elseif EA_value == 'CENTER' then
  3154.             setFileArrEl(EA_to_set, '/CENTER/LEFT/RIGHT/#OOPS')
  3155.             return
  3156.         elseif EA_value == 'AUTO_LEFT' then
  3157.             setFileArrEl(EA_to_set, 'AUTO_LEFT')
  3158.             return
  3159.         elseif EA_value == 'AUTO_RIGHT' then
  3160.             setFileArrEl(EA_to_set, 'AUTO_RIGHT')
  3161.             return
  3162.         elseif EA_value == 'AUTO_CENTER' then
  3163.             setFileArrEl(EA_to_set, 'AUTO_CENTER')
  3164.             return
  3165.         elseif EA_value == 'AUTO_' then
  3166.             setFileArrEl(EA_to_set, 'AUTO_')
  3167.             return
  3168.         else
  3169.             setFileArrEl(EA_to_set, '/LEFT/RIGHT/CENTER/#OOPS')
  3170.             return
  3171.         endif
  3172.     elseif (EA_to_set == 'TR_VALIGN')|(EA_to_set == 'TD_VALIGN')|(EA_to_set == 'TH_VALIGN') then
  3173.         EA_value=listbox('Choose the default 'EA_to_set' vertical alignment', '/TOP/MIDDLE/BOTTOM/AUTO_TOP/AUTO_MIDDLE/AUTO_BOTTOM/AUTO_')
  3174.         if EA_value == 'AUTO_' then
  3175.             setFileArrEl(EA_to_set, 'AUTO_')
  3176.             return
  3177.         elseif EA_value == 'MIDDLE' then
  3178.             setFileArrEl(EA_to_set, '/MIDDLE/BOTTOM/TOP/#OOPS')
  3179.             return
  3180.         elseif EA_value == 'BOTTOM' then
  3181.             setFileArrEl(EA_to_set, '/BOTTOM/TOP/MIDDLE/#OOPS')
  3182.             return
  3183.         elseif EA_value == 'AUTO_TOP' then
  3184.             setFileArrEl(EA_to_set, EA_value)
  3185.             return
  3186.         elseif EA_value == 'AUTO_MIDDLE' then
  3187.             setFileArrEl(EA_to_set, EA_value)
  3188.             return
  3189.         elseif EA_value == 'AUTO_BOTTOM' then
  3190.             setFileArrEl(EA_to_set, EA_value)
  3191.         else
  3192.             setFileArrEl(EA_to_set, '/TOP/MIDDLE/BOTTOM/#OOPS')
  3193.             return
  3194.         endif
  3195.     else
  3196.         EA_value=entrybox('Enter the default value for 'EA_to_set,'',oldValue,,255)
  3197.         if EA_value /== '' then
  3198.             setFileArrEl(EA_to_set, EA_value)
  3199.         endif
  3200.         return
  3201.     endif
  3202.  
  3203. defproc setFileArrEl(stem, val)
  3204.     arrayID=.userstring
  3205.     do_array 2, arrayID, stem, val
  3206.  
  3207. ;                                Drag & Drop
  3208. defc DRAGDROP_CLASS
  3209.     universal kase
  3210.     FullFile=arg(1)
  3211.     srcLine=translate(FullFile, '/', '\')
  3212.     uPath=getFileArrEl('U_PATH')
  3213.     uLen=length(uPath)
  3214.     if uPath==leftstr(srcLine, uLen) then
  3215.         theSource=rightstr(srcLine, length(srcLine)-uLen)
  3216.     else
  3217.         theSource=rightstr(srcLine, length(srcLine)-lastPos('/', srcLine))
  3218.     endif
  3219.     'rx AddApplet 'kase' 'FullFile' 'theSource
  3220.  
  3221. defc DRAGDROP_GIF
  3222.     universal kase
  3223.     if wordpos(filetype(), HTML_EXTENSIONS) then
  3224.         fpath=arg(1)
  3225.         srcLine=translate(fPath, '/', '\')
  3226.         uPath=getFileArrEl('U_PATH')
  3227.         uLen=length(uPath)
  3228.         if uPath==leftstr(srcLine, uLen) then
  3229.             theSource=rightstr(srcLine, length(srcLine)-uLen)
  3230.         else
  3231.             theSource=rightstr(srcLine, length(srcLine)-lastPos('/', srcLine))
  3232.         endif
  3233.         'rx AddGif 'kase' 'fpath' 'theSource
  3234.     endif
  3235.  
  3236. defc DRAGDROP_JPG
  3237.     universal kase
  3238.     if wordpos(filetype(), HTML_EXTENSIONS) then
  3239.         fpath=arg(1)
  3240.         srcLine=translate(fPath, '/', '\')
  3241.         uPath=getFileArrEl('U_PATH')
  3242.         uLen=length(uPath)
  3243.         if uPath==leftstr(srcLine, uLen) then
  3244.             theSource=rightstr(srcLine, length(srcLine)-uLen)
  3245.         else
  3246.             theSource=rightstr(srcLine, length(srcLine)-lastPos('/', srcLine))
  3247.         endif
  3248.         'rx AddJpg 'kase' 'fpath' 'theSource
  3249.     endif
  3250.  
  3251. defc DRAGDROP_XTML =
  3252.     universal kase
  3253.     if wordpos(filetype(), HTML_EXTENSIONS) then
  3254.         if listbox('What to do with this file', '/IMPORT/LOAD') = 'IMPORT' then
  3255.             'get 'arg(1)
  3256.         else
  3257.             'e 'arg(1)
  3258.         endif
  3259.     else
  3260.         'e 'arg(1)
  3261.     endif
  3262.  
  3263. defc DRAGDROP_HTM, DRAGDROP_HTML, DRGDRPTYP_HTML =
  3264.     universal kase
  3265.     if wordpos(filetype(), HTML_EXTENSIONS) then
  3266.         HToption=''
  3267.         fString=arg(1)
  3268.         HToption=listbox('What to do with this file', Currentcase('/Load/Link'))
  3269.         if HToption=='' then
  3270.             return
  3271.         elseif HToption=='LOAD' then
  3272.             'e 'fString
  3273.         else
  3274.             uPath=translate(getFileArrEl('U_PATH'),'/','\')
  3275.             uString=translate(fstring,'/','\')
  3276.             if leftstr(uString, length(uPath))==uPath then
  3277.                 uString=rightstr(uString, length(uString)-length(uPath))
  3278.             else
  3279.                 uString=rightstr(uString, length(uSTring)-lastpos('/', uString))
  3280.             endif
  3281.         'rx addhtml 'kase' 'fString' 'uString
  3282.         endif
  3283.     else
  3284.         'e 'arg(1)
  3285.     endif
  3286.  
  3287. defc DRGDRPTYP_URL, DRGDRPTYP_WEBEXPLORER_URL, DRGDRPTYP_UNIFORMRESOURCELOCATOR =
  3288.     universal kase
  3289.     if wordpos(filetype(), HTML_EXTENSIONS) then
  3290.         srcLine=arg(1)
  3291.         'rx addURl 'kase' 'srcLine
  3292. endif
  3293. ;                                Misc
  3294.  
  3295. defproc tabber
  3296.     newcol=.col
  3297.     getline line
  3298.     .line=.line+1
  3299.     getline nextline
  3300.     .line=.line-1
  3301.     if .col=length(line)+1 then
  3302.         .line=.line+1
  3303.         .col=1
  3304.         return
  3305.     endif
  3306.     line=rightstr(line ,length(line)-.col+1)
  3307.     do while length(line)>0
  3308.         linefrag=leftstr(line, 2)
  3309.         newcol=newcol+1
  3310.         if (linefrag=='><')or(linefrag=='=>')or(linefrag=='=%')or(linefrag=='""')or(linefrag=='= ')or(linefrag=='# ')or(linefrag=='#>') then
  3311.             .col=newcol
  3312.             return
  3313.         endif
  3314.         line=rightstr(line, length(line)-1)
  3315.     enddo
  3316.     endline
  3317.  
  3318. defproc back_tabber
  3319.     newcol=.col
  3320.     getline line
  3321.     .line=.line+1
  3322.     getline nextline
  3323.     .line=.line-1
  3324.     if .col=1 then
  3325.         .line=.line-1
  3326.         endline
  3327.         return
  3328.     endif
  3329.     line=leftstr(line ,.col-1)
  3330.     do while length(line)>0
  3331.         linefrag=rightstr(line, 2)
  3332.         newcol=newcol-1
  3333.         if (linefrag=='><')or(linefrag=='=>')or(linefrag=='=%')or(linefrag=='""')or(linefrag=='= ')or(linefrag=='# ')or(linefrag=='#>') then
  3334.             .col=newcol
  3335.             return
  3336.         endif
  3337.         line=leftstr(line, length(line)-1)
  3338.     enddo
  3339.     beginline
  3340.  
  3341. defproc Valid_Color(theString)
  3342.     if length(theString)=0 then
  3343.         return TRUE
  3344.     endif
  3345.     if length(theString) <> 6 then
  3346.         return FALSE
  3347.     endif
  3348.     testString=upcase(theString)
  3349.     do while length(testString) > 0
  3350.         testchar=leftstr(testString, 1)
  3351.         if    (testchar /== '0')&(testchar /== '1')&(testchar /== '2')&
  3352.             (testchar /== '3')&(testchar /== '4')&(testchar /== '5')&
  3353.             (testchar /== '6')&(testchar /== '7')&(testchar /== '8')&
  3354.             (testchar /== '9')&(testchar /== 'A')&(testchar /== 'B')&
  3355.             (testchar /== 'C')&(testchar /== 'D')&(testchar /== 'E')&
  3356.             (testchar /== 'F') then
  3357.             return FALSE
  3358.         endif
  3359.         if length(testString)=1 then
  3360.             return TRUE
  3361.         endif
  3362.         testString=rightstr(testString, length(testString)-1)
  3363.     enddo
  3364.     return TRUE
  3365.  
  3366. defproc Valid_Number(theString)
  3367.     if upcase(theString)=='#OOPS' then
  3368.         return TRUE
  3369.     endif
  3370.     if length(theString)=0 then
  3371.         return TRUE
  3372.     endif
  3373.     testString=theString
  3374.     do while length(testString) > 0
  3375.         testchar=leftstr(testString, 1)
  3376.         if    (testchar /== '0')&(testchar /== '1')&(testchar /== '2')&
  3377.             (testchar /== '3')&(testchar /== '4')&(testchar /== '5')&
  3378.             (testchar /== '6')&(testchar /== '7')&(testchar /== '8')&
  3379.             (testchar /== '9') then
  3380.             return FALSE
  3381.         endif
  3382.         if length(testString)=1 then
  3383.             return TRUE
  3384.         endif
  3385.         testString=rightstr(testString, length(testString)-1)
  3386.     enddo
  3387.     return TRUE
  3388.  
  3389. defproc Valid_Number2(theString)
  3390.     if upcase(theString)=='#OOPS' then
  3391.         return TRUE
  3392.     endif
  3393.     if length(theString)=0 then
  3394.         return FALSE
  3395.     endif
  3396.     testString=theString
  3397.     do while length(testString) > 0
  3398.         testchar=leftstr(testString, 1)
  3399.         if    (testchar /== '0')&(testchar /== '1')&(testchar /== '2')&
  3400.             (testchar /== '3')&(testchar /== '4')&(testchar /== '5')&
  3401.             (testchar /== '6')&(testchar /== '7')&(testchar /== '8')&
  3402.             (testchar /== '9') then
  3403.             return FALSE
  3404.         endif
  3405.         if length(testString)=1 then
  3406.             return TRUE
  3407.         endif
  3408.         testString=rightstr(testString, length(testString)-1)
  3409.     enddo
  3410.     return TRUE
  3411.  
  3412. defproc Valid_Number3(theString)
  3413.     if upcase(theString)=='#OOPS' then
  3414.         return TRUE
  3415.     endif
  3416.     if length(theString)>2 then
  3417.         return FALSE
  3418.     endif
  3419.     testString=theString
  3420.     do while length(testString) > 0
  3421.         testchar=leftstr(testString, 1)
  3422.         if    (testchar /== '0')&(testchar /== '1')&(testchar /== '2')&
  3423.             (testchar /== '3')&(testchar /== '4')&(testchar /== '5')&
  3424.             (testchar /== '6')&(testchar /== '7')&(testchar /== '8')&
  3425.             (testchar /== '9')&(testchar /== '+')&(testchar /== '-') then
  3426.             return FALSE
  3427.         endif
  3428.         if length(testString)=1 then
  3429.             return TRUE
  3430.         endif
  3431.         testString=rightstr(testString, length(testString)-1)
  3432.     enddo
  3433.     return TRUE
  3434.  
  3435. defproc Valid_Number4(theString)
  3436.     if upcase(theString)=='#OOPS' then
  3437.         return TRUE
  3438.     endif
  3439.     if length(theString)=0 then
  3440.         return FALSE
  3441.     endif
  3442.     testString=theString
  3443.     do while length(testString) > 0
  3444.         testchar=leftstr(testString, 1)
  3445.         if    (testchar /== '0')&(testchar /== '1')&(testchar /== '2')&
  3446.             (testchar /== '3')&(testchar /== '4')&(testchar /== '5')&
  3447.             (testchar /== '6')&(testchar /== '7')&(testchar /== '8')&
  3448.             (testchar /== '9')&(testchar /== '*')&(testchar /== ',')&
  3449.             (testchar /== '%')&(testchar /== ' ') then
  3450.             return FALSE
  3451.         endif
  3452.         if length(testString)=1 then
  3453.             return TRUE
  3454.         endif
  3455.         testString=rightstr(testString, length(testString)-1)
  3456.     enddo
  3457.     return TRUE
  3458.  
  3459.  compile if HTML_URL_KLUDGE=1
  3460. defc check_if_url
  3461.     universal URLline, kase
  3462.     if .last >1  then
  3463.         return
  3464.     else
  3465.         URLline=textline(1)
  3466.         URLtitle=.filename
  3467.         if URLcheck(URLline) then
  3468.             'quit'
  3469.         'rx addUrl 'kase' 'URLtitle
  3470.         endif
  3471.     endif
  3472.  
  3473.  
  3474. defselect
  3475.     'check_if_url'
  3476.  
  3477. defproc URLCheck(cString)
  3478.     if upcase(leftstr(cString, 7))=='HTTP://' then
  3479.         return true
  3480.     elseif upcase(leftstr(cString, 6))=='FTP://' then
  3481.         return true
  3482.     elseif upcase(leftstr(cString, 7))=='WAIS://' then
  3483.         return true
  3484.     elseif upcase(leftstr(cString, 9))=='GOPHER://' then
  3485.         return true
  3486.     elseif upcase(leftstr(cString, 9))=='TELNET://' then
  3487.         return true
  3488.     elseif upcase(leftstr(cString, 5))=='NEWS:' then
  3489.         return true
  3490.     elseif upcase(leftstr(cString, 7))=='MAILTO:' then
  3491.         return true
  3492.     else
  3493.         return false
  3494.     endif
  3495.  compile endif
  3496. defproc addHTMLmenu
  3497.     universal defaultmenu
  3498.     deletemenu defaultmenu, 6, 0, 0  -- delete the existing Help menu (we want it to stay at the right)
  3499.     buildsubmenu defaultmenu, 900, 'HTML', '',0,0
  3500.     buildmenuitem defaultmenu, 900, 40001, NEW_FILE_TAGS_MENU_MSG\9NEW_FILE_TAGS_KEY_MSG, NEW_FILE_TAGS_ACTION\1NEW_FILE_TAGS_BAR_MSG ,0, 0
  3501.     buildmenuitem defaultmenu, 900, 40002, NEWPAGE_TAGS_MENU_MSG\9NEWPAGE_TAGS_KEY_MSG, NEWPAGE_TAGS_ACTION\1NEWPAGE_TAGS_BAR_MSG ,0, 0
  3502.     buildmenuitem defaultmenu, 900, 41000, HEAD_SUB_MENU_MSG\9HEAD_SUB_KEY_MSG, HEAD_SUB_ACTION\1HEAD_SUB_BAR_MSG, 17, 0
  3503.         buildmenuitem defaultmenu, 900, 41001, LINK_TAGS_MENU_MSG\9LINK_TAGS_KEY_MSG, LINK_TAGS_ACTION\1LINK_TAGS_BAR_MSG,0,0
  3504.         buildmenuitem defaultmenu, 900, 41002, META_TAGS_MENU_MSG\9META_TAGS_KEY_MSG, META_TAGS_ACTION\1META_TAGS_BAR_MSG,0,0
  3505.         buildmenuitem defaultmenu, 900, 41003, STYLE_TAGS_MENU_MSG\9STYLE_TAGS_KEY_MSG, STYLE_TAGS_ACTION\1STYLE_TAGS_BAR_MSG,32769,0
  3506.     buildmenuitem defaultmenu, 900, 42000, FORMATING_SUB_MENU_MSG\9FORMATING_SUB_KEY_MSG, FORMATING_SUB_ACTION\1FORMATING_SUB_BAR_MSG,17,0
  3507.         buildmenuitem defaultmenu, 900, 42100, BLOCKLEVEL_TAGS_MENU_MSG\9BLOCKLEVEL_TAGS_KEY_MSG, BLOCKLEVEL_TAGS_ACTION\1BLOCKLEVEL_TAGS_BAR_MSG,17,0
  3508.             buildmenuitem defaultmenu, 900, 42101, ADDRESS_TAGS_MENU_MSG\9ADDRESS_TAGS_KEY_MSG, ADDRESS_TAGS_ACTION\1ADDRESS_TAGS_BAR_MSG,0,0
  3509.             buildmenuitem defaultmenu, 900, 42102, BLOCKQUOTE_TAGS_MENU_MSG\9BLOCKQUOTE_TAGS_KEY_MSG, BLOCKQUOTE_TAGS_ACTION\1BLOCKQUOTE_TAGS_BAR_MSG,0,0
  3510.             buildmenuitem defaultmenu, 900, 42103, CENTER_TAGS_MENU_MSG\9CENTER_TAGS_KEY_MSG, CENTER_TAGS_ACTION\1CENTER_TAGS_BAR_MSG,0,0
  3511.             buildmenuitem defaultmenu, 900, 42104, DIVISION_TAGS_MENU_MSG\9DIVISION_TAGS_KEY_MSG, DIVISION_TAGS_ACTION\1DIVISION_TAGS_BAR_MSG,0,0
  3512.             buildmenuitem defaultmenu, 900, 42105, H1_TAGS_MENU_MSG\9H1_TAGS_KEY_MSG, H1_TAGS_ACTION\1H1_TAGS_BAR_MSG,0,0
  3513.             buildmenuitem defaultmenu, 900, 42106, H2_TAGS_MENU_MSG\9H2_TAGS_KEY_MSG, H2_TAGS_ACTION\1H2_TAGS_BAR_MSG,0,0
  3514.             buildmenuitem defaultmenu, 900, 42107, H3_TAGS_MENU_MSG\9H3_TAGS_KEY_MSG, H3_TAGS_ACTION\1H3_TAGS_BAR_MSG,0,0
  3515.             buildmenuitem defaultmenu, 900, 42108, H4_TAGS_MENU_MSG\9H4_TAGS_KEY_MSG, H4_TAGS_ACTION\1H4_TAGS_BAR_MSG,0,0
  3516.             buildmenuitem defaultmenu, 900, 42109, H5_TAGS_MENU_MSG\9H5_TAGS_KEY_MSG, H5_TAGS_ACTION\1H5_TAGS_BAR_MSG,0,0
  3517.             buildmenuitem defaultmenu, 900, 52100, H6_TAGS_MENU_MSG\9H6_TAGS_KEY_MSG, H6_TAGS_ACTION\1H6_TAGS_BAR_MSG,0,0
  3518.             buildmenuitem defaultmenu, 900, 52101, RULE_TAGS_MENU_MSG\9RULE_TAGS_KEY_MSG, RULE_TAGS_ACTION\1RULE_TAGS_BAR_MSG,0,0
  3519.             buildmenuitem defaultmenu, 900, 52102, PARAGRAPH_TAGS_MENU_MSG\9PARAGRAPH_TAGS_KEY_MSG, PARAGRAPH_TAGS_ACTION\1PARAGRAPH_TAGS_BAR_MSG,0,0
  3520.             buildmenuitem defaultmenu, 900, 52103, PREFORMATED_TAGS_MENU_MSG\9PREFORMATED_TAGS_KEY_MSG, PREFORMATED_TAGS_ACTION\1PREFORMATED_TAGS_BAR_MSG,32769,0
  3521.         buildmenuitem defaultmenu, 900, 42200, TEXTLEVEL_SUB_MENU_MSG\9TEXTLEVEL_SUB_KEY_MSG, TEXTLEVEL_SUB_ACTION\1TEXTLEVEL_SUB_BAR_MSG,17,0
  3522.             buildmenuitem defaultmenu, 900, 42210, LOGICAL_SUB_MENU_MSG\9LOGICAL_SUB_KEY_MSG, LOGICAL_SUB_ACTION\1LOGICAL_SUB_BAR_MSG,17,0
  3523.                 buildmenuitem defaultmenu, 900, 42211, CITATION_TAGS_MENU_MSG\9CITATION_TAGS_KEY_MSG, CITATION_TAGS_ACTION\1CITATION_TAGS_BAR_MSG,0,0
  3524.                 buildmenuitem defaultmenu, 900, 42212, CODE_TAGS_MENU_MSG\9CODE_TAGS_KEY_MSG, CODE_TAGS_ACTION\1CODE_TAGS_BAR_MSG,0,0
  3525.                 buildmenuitem defaultmenu, 900, 42213, DEFINITION_TAGS_MENU_MSG\9DEFINITION_TAGS_KEY_MSG, DEFINITION_TAGS_ACTION\1DEFINITION_TAGS_BAR_MSG,0,0
  3526.                 buildmenuitem defaultmenu, 900, 42214, EMPHASIZED_TAGS_MENU_MSG\9EMPHASIZED_TAGS_KEY_MSG, EMPHASIZED_TAGS_ACTION\1EMPHASIZED_TAGS_BAR_MSG,0,0
  3527.                 buildmenuitem defaultmenu, 900, 42215, KEYBOAED_TAGS_MENU_MSG\9KEYBOAED_TAGS_KEY_MSG, KEYBOAED_TAGS_ACTION\1KEYBOAED_TAGS_BAR_MSG,0,0
  3528.                 buildmenuitem defaultmenu, 900, 42216, SAMPLE_TAGS_MENU_MSG\9SAMPLE_TAGS_KEY_MSG, SAMPLE_TAGS_ACTION\1SAMPLE_TAGS_BAR_MSG,0,0
  3529.                 buildmenuitem defaultmenu, 900, 42217, STRONG_TAGS_MENU_MSG\9STRONG_TAGS_KEY_MSG, STRONG_TAGS_ACTION\1STRONG_TAGS_BAR_MSG,0,0
  3530.                 buildmenuitem defaultmenu, 900, 42218, VARIABLE_TAGS_MENU_MSG\9VARIABLE_TAGS_KEY_MSG, VARIABLE_TAGS_ACTION\1VARIABLE_TAGS_BAR_MSG,32769,0
  3531.             buildmenuitem defaultmenu, 900, 42220, PHYSICAL_SUB_MENU_MSG\9PHYSICAL_SUB_KEY_MSG, PHYSICAL_SUB_ACTION\1PHYSICAL_SUB_BAR_MSG,17,0
  3532.                 buildmenuitem defaultmenu, 900, 42221, BOLD_TAGS_MENU_MSG\9BOLD_TAGS_KEY_MSG, BOLD_TAGS_ACTION\1BOLD_TAGS_BAR_MSG,0,0
  3533.                 buildmenuitem defaultmenu, 900, 42222, BIG_TAGS_MENU_MSG\9BIG_TAGS_KEY_MSG, BIG_TAGS_ACTION\1BIG_TAGS_BAR_MSG,0,0
  3534.                 buildmenuitem defaultmenu, 900, 42223, FONT_TAGS_MENU_MSG\9FONT_TAGS_KEY_MSG, FONT_TAGS_ACTION\1FONT_TAGS_BAR_MSG,0,0
  3535.                 buildmenuitem defaultmenu, 900, 42224, ITALICS_TAGS_MENU_MSG\9ITALICS_TAGS_KEY_MSG, ITALICS_TAGS_ACTION\1ITALICS_TAGS_BAR_MSG,0,0
  3536.                 buildmenuitem defaultmenu, 900, 42225, SMALL_TAGS_MENU_MSG\9SMALL_TAGS_KEY_MSG, SMALL_TAGS_ACTION\1SMALL_TAGS_BAR_MSG,0,0
  3537.                 buildmenuitem defaultmenu, 900, 42226, STRIKEOUT_TAGS_MENU_MSG\9STRIKEOUT_TAGS_KEY_MSG, STRIKEOUT_TAGS_ACTION\1STRIKEOUT_TAGS_BAR_MSG,0,0
  3538.                 buildmenuitem defaultmenu, 900, 42227, SUBSCTIPT_TAGS_MENU_MSG\9SUBSCTIPT_TAGS_KEY_MSG, SUBSCTIPT_TAGS_ACTION\1SUBSCTIPT_TAGS_BAR_MSG,0,0
  3539.                 buildmenuitem defaultmenu, 900, 42228, SUPERSCRIPT_TAGS_MENU_MSG\9SUPERSCRIPT_TAGS_KEY_MSG, SUPERSCRIPT_TAGS_ACTION\1SUPERSCRIPT_TAGS_BAR_MSG,0,0
  3540.                 buildmenuitem defaultmenu, 900, 42229, TELETYPE_TAGS_MENU_MSG\9TELETYPE_TAGS_KEY_MSG, TELETYPE_TAGS_ACTION\1TELETYPE_TAGS_BAR_MSG,0,0
  3541.                 buildmenuitem defaultmenu, 900, 52220, UNDERLINE_TAGS_MENU_MSG\9UNDERLINE_TAGS_KEY_MSG, UNDERLINE_TAGS_ACTION\1UNDERLINE_TAGS_BAR_MSG,32769,0
  3542.             buildmenuitem defaultmenu, 900, 42201, '', '',32769,0
  3543.         buildmenuitem defaultmenu, 900, 42001, BASEFONT_TAGS_MENU_MSG\9BASEFONT_TAGS_KEY_MSG, BASEFONT_TAGS_ACTION\1BASEFONT_TAGS_BAR_MSG,32769,0
  3544.     buildmenuitem defaultmenu, 900, 43000, TABLES_SUB_MENU_MSG\9TABLES_SUB_KEY_MSG, TABLES_SUB_ACTION\1TABLES_SUB_BAR_MSG,17,0
  3545.         buildmenuitem defaultmenu, 900, 43001, NEWTABLE_TAGS_MENU_MSG\9NEWTABLE_TAGS_KEY_MSG, NEWTABLE_TAGS_ACTION\1NEWTABLE_TAGS_BAR_MSG,0,0
  3546.         buildmenuitem defaultmenu, 900, 43002, THEADING_TAGS_MENU_MSG\9THEADING_TAGS_KEY_MSG, THEADING_TAGS_ACTION\1THEADING_TAGS_BAR_MSG,0,0
  3547.         buildmenuitem defaultmenu, 900, 43003, TROW_TAGS_MENU_MSG\9TROW_TAGS_KEY_MSG, TROW_TAGS_ACTION\1TROW_TAGS_BAR_MSG,0,0
  3548.         buildmenuitem defaultmenu, 900, 43004, TENTRY_TAGS_MENU_MSG\9TENTRY_TAGS_KEY_MSG, TENTRY_TAGS_ACTION\1TENTRY_TAGS_BAR_MSG,0,0
  3549.         buildmenuitem defaultmenu, 900, 43005, TCAPTION_TAGS_MENU_MSG\9TCAPTION_TAGS_KEY_MSG, TCAPTION_TAGS_ACTION\1TCAPTION_TAGS_BAR_MSG,32769,0
  3550.     buildmenuitem defaultmenu, 900, 44000, LISTS_SUB_MENU_MSG\9LISTS_SUB_KEY_MSG, LISTS_SUB_ACTION\1LISTS_SUB_BAR_MSG,17,0
  3551.         buildmenuitem defaultmenu, 900, 44001, DICTIONARY_TAGS_MENU_MSG\9DICTIONARY_TAGS_KEY_MSG, DICTIONARY_TAGS_ACTION\1DICTIONARY_TAGS_BAR_MSG,0,0
  3552.         buildmenuitem defaultmenu, 900, 44002, DICTTERM_TAGS_MENU_MSG\9DICTTERM_TAGS_KEY_MSG, DICTTERM_TAGS_ACTION\1DICTTERM_TAGS_BAR_MSG,0,0
  3553.         buildmenuitem defaultmenu, 900, 44003, DICTDEF_TAGS_MENU_MSG\9DICTDEF_TAGS_KEY_MSG, DICTDEF_TAGS_ACTION\1DICTDEF_TAGS_BAR_MSG,0,0
  3554.         buildmenuitem defaultmenu, 900, 44004, DIRECTORY_TAGS_MENU_MSG\9DIRECTORY_TAGS_KEY_MSG, DIRECTORY_TAGS_ACTION\1DIRECTORY_TAGS_BAR_MSG,0,0
  3555.         buildmenuitem defaultmenu, 900, 44005, MENU_TAGS_MENU_MSG\9MENU_TAGS_KEY_MSG, MENU_TAGS_ACTION\1MENU_TAGS_BAR_MSG,0,0
  3556.         buildmenuitem defaultmenu, 900, 44006, ORDEREDLIST_TAGS_MENU_MSG\9ORDEREDLIST_TAGS_KEY_MSG, ORDEREDLIST_TAGS_ACTION\1ORDEREDLIST_TAGS_BAR_MSG,0,0
  3557.         buildmenuitem defaultmenu, 900, 44007, UNORDEREDLIST_TAGS_MENU_MSG\9UNORDEREDLIST_TAGS_KEY_MSG, UNORDEREDLIST_TAGS_ACTION\1UNORDEREDLIST_TAGS_BAR_MSG,0,0
  3558.         buildmenuitem defaultmenu, 900, 44008, LISTITEM_TAGS_MENU_MSG\9LISTITEM_TAGS_KEY_MSG, LISTITEM_TAGS_ACTION\1LISTITEM_TAGS_BAR_MSG,32769,0
  3559.     buildmenuitem defaultmenu, 900, 45000, JAVA_SUB_MENU_MSG\9JAVA_SUB_KEY_MSG, JAVA_SUB_ACTION\1JAVA_SUB_BAR_MSG, 17 ,0
  3560.         buildmenuitem defaultmenu, 900, 45001, APPLET_TAGS_MENU_MSG\9APPLET_TAGS_KEY_MSG, APPLET_TAGS_ACTION\1APPLET_TAGS_BAR_MSG,0,0
  3561.         buildmenuitem defaultmenu, 900, 45002, PARAMETER_TAGS_MENU_MSG\9PARAMETER_TAGS_KEY_MSG, PARAMETER_TAGS_ACTION\1PARAMETER_TAGS_BAR_MSG,0,0
  3562.         buildmenuitem defaultmenu, 900, 45003, SCRIPT_TAGS_MENU_MSG\9SCRIPT_TAGS_KEY_MSG, SCRIPT_TAGS_ACTION\1SCRIPT_TAGS_BAR_MSG,32769,0
  3563.     buildmenuitem defaultmenu, 900, 46000, FORMS_SUB_MENU_MSG\9FORMS_SUB_KEY_MSG, FORMS_SUB_ACTION\1FORMS_SUB_BAR_MSG,17,0
  3564.         buildmenuitem defaultmenu, 900, 46001, FORM_TAGS_MENU_MSG\9FORM_TAGS_KEY_MSG, FORM_TAGS_ACTION\1FORM_TAGS_BAR_MSG,0,0
  3565.         buildmenuitem defaultmenu, 900, 46002, INPUT_TAGS_MENU_MSG\9INPUT_TAGS_KEY_MSG, INPUT_TAGS_ACTION\1INPUT_TAGS_BAR_MSG,0,0
  3566.         buildmenuitem defaultmenu, 900, 46003, SELECT_TAGS_MENU_MSG\9SELECT_TAGS_KEY_MSG, SELECT_TAGS_ACTION\1SELECT_TAGS_BAR_MSG,0,0
  3567.         buildmenuitem defaultmenu, 900, 46004, OPTION_TAGS_MENU_MSG\9OPTION_TAGS_KEY_MSG, OPTION_TAGS_ACTION\1OPTION_TAGS_BAR_MSG,0,0
  3568.         buildmenuitem defaultmenu, 900, 46005, TEXTAREA_TAGS_MENU_MSG\9TEXTAREA_TAGS_KEY_MSG, TEXTAREA_TAGS_ACTION\1TEXTAREA_TAGS_BAR_MSG,32769,0
  3569.     buildmenuitem defaultmenu, 900, 47000, IMAGES_SUB_MENU_MSG\9IMAGES_SUB_KEY_MSG, IMAGES_SUB_ACTION\1IMAGES_SUB_BAR_MSG,17,0
  3570.         buildmenuitem defaultmenu, 900, 47001, IMAGE_TAGS_MENU_MSG\9IMAGE_TAGS_KEY_MSG, IMAGE_TAGS_ACTION\1IMAGE_TAGS_BAR_MSG,0,0
  3571.         buildmenuitem defaultmenu, 900, 47002, MAP_TAGS_MENU_MSG\9MAP_TAGS_KEY_MSG, MAP_TAGS_ACTION\1MAP_TAGS_BAR_MSG,0,0
  3572.         buildmenuitem defaultmenu, 900, 47003, AREA_TAGS_MENU_MSG\9AREA_TAGS_KEY_MSG, AREA_TAGS_ACTION\1AREA_TAGS_BAR_MSG,32769,0
  3573.     buildmenuitem defaultmenu, 900, 40006, ANCHOR_TAGS_MENU_MSG\9ANCHOR_TAGS_KEY_MSG, ANCHOR_TAGS_ACTION\1ANCHOR_TAGS_BAR_MSG, 0, 0
  3574.     buildmenuitem defaultmenu, 900, 40007, LINEBREAK_TAGS_MENU_MSG\9LINEBREAK_TAGS_KEY_MSG, LINEBREAK_TAGS_ACTION\1LINEBREAK_TAGS_BAR_MSG, 0, 0
  3575.     buildmenuitem defaultmenu, 900, 40008, REPEATLAST_TAGS_MENU_MSG\9REPEATLAST_TAGS_KEY_MSG, REPEATLAST_TAGS_ACTION\1REPEATLAST_TAGS_BAR_MSG, 0, 0
  3576.     buildmenuitem defaultmenu, 900, 40009, \0, '', 4, 0
  3577.     buildmenuitem defaultmenu, 900, 49000, INTERFACE_SUB_MENU_MSG\9INTERFACE_SUB_KEY_MSG, INTERFACE_SUB_ACTION\1INTERFACE_SUB_BAR_MSG, 17,0
  3578.         buildmenuitem defaultmenu, 900, 49001, SETDEFAULTS_CTRL_MENU_MSG\9SETDEFAULTS_CTRL_KEY_MSG, SETDEFAULTS_CTRL_ACTION\1SETDEFAULTS_CTRL_BAR_MSG, 0,0
  3579.         buildmenuitem defaultmenu, 900, 49002, LOADDEFAULTS_CTRL_MENU_MSG\9LOADDEFAULTS_CTRL_KEY_MSG, LOADDEFAULTS_CTRL_ACTION\1LOADDEFAULTS_CTRL_BAR_MSG, 0,0
  3580.         buildmenuitem defaultmenu, 900, 49003, SAVEDEFAULTS_CTRL_MENU_MSG\9SAVEDEFAULTS_CTRL_KEY_MSG, SAVEDEFAULTS_CTRL_ACTION\1SAVEDEFAULTS_CTRL_BAR_MSG, 0,0
  3581.         buildmenuitem defaultmenu, 900, 49004, CLEARDEFAULTS_CTRL_MENU_MSG\9CLEARDEFAULTS_CTRL_KEY_MSG, CLEARDEFAULTS_CTRL_ACTION\1CLEARDEFAULTS_CTRL_BAR_MSG, 0,0
  3582.         buildmenuitem defaultmenu, 900, 49005, TOGGLECASE_CTRL_MENU_MSG\9TOGGLECASE_CTRL_KEY_MSG, TOGGLECASE_CTRL_ACTION\1TOGGLECASE_CTRL_BAR_MSG, 32769,0
  3583.         call readd_help_menu()
  3584.     buildmenuitem defaultmenu, 6, 40090, \0, '', 4, 0
  3585.     buildmenuitem defaultmenu, 6, 49991, 'HTML Docs ', 'HTML Docs',17, 0
  3586.         buildmenuitem defaultmenu, 6, 49992, 'HTML Docs ', 'view wilbur',0, 0
  3587.         buildmenuitem defaultmenu, 6, 49993, 'Current Word ', 'viewword wilbur',0, 0
  3588. call maybe_show_menu()
  3589. showmenu defaultmenu
  3590.  
  3591. defc New_Html
  3592.     x=1
  3593.     do while already_in_ring('new'x'.html', someID)
  3594.     x=x+1
  3595.     enddo
  3596.     'e new'x'.html'
  3597.  
  3598. COMPILE ENDIF
  3599.