Sub MAIN

x = - 1

Begin Dialog UserDialog 320, 138, "Add a link"
	Text 10, 6, 49, 13, "<DIR>", .Text1
	TextBox 10, 22, 160, 18, .link_dir
	Text 10, 46, 87, 13, "Description", .Text2
	TextBox 10, 62, 300, 18, .link_desc
	OKButton 10, 97, 88, 21
	CancelButton 145, 97, 88, 21
End Dialog

While x = - 1
	Dim dlg As UserDialog
	x = Dialog(dlg)

	If x = - 1 Then Insert "<A HREF=" + Chr$(34) + dlg.link_dir + "/index.html" + Chr$(34) + "><IMG SRC=" + Chr$(34) + dlg.link_dir + "/bullet.gif" + Chr$(34) + " ALT=" + Chr$(34) + dlg.link_dir + Chr$(34) + " BORDER=0 ALIGN=TOP></A>&nbsp;&nbsp;<A HREF=" + Chr$(34) + dlg.link_dir + "/index.html" + Chr$(34) + ">" + dlg.link_desc + "</A><P>" + Chr$(11)
Wend

End Sub