From a0d4ccd465865a4b70be8f4ca254c27f1fd2aaf7 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Tue, 11 Oct 2016 16:22:25 -0400
Subject: Initial commit

---
 link.bas | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 link.bas

(limited to 'link.bas')

diff --git a/link.bas b/link.bas
new file mode 100644
index 0000000..92a1982
--- /dev/null
+++ b/link.bas
@@ -0,0 +1,27 @@
+19000 REM ==============================
+19001 REM Build a link
+19002 REM
+19003 REM INPUT - LINKURL$ - URL
+19004 REM         LINKLBL$ - Label
+19005 REM OUTPUT - LINKHTM$ - HTML link
+19006 REM ==============================
+19010 LINKHTML$ = "<A HREF='"+LINKURL$+"'>"+LINKLBL$+"</A>"
+19020 RETURN
+19100 REM ==============================
+19101 REM Build a list of links
+19102 REM
+19103 REM INPUT - URLS$ List of URLS
+19104 REM         LBLS$ List of labels
+19105 REM         URLCOUNT Length of
+19106 REM                  arrays
+19107 REM OUTPUT - HTMLLST$ - List HTML
+19108 REM ==============================
+19110 HTMLLST$ = "<UL>"
+19120 FOR IU = 1 TO URLCOUNT
+19130     LINKURL$ = URLS$[IU]
+19140     LINKLBL$ = LBLS$[IU]
+19150     GOSUB 19000
+19160     HTMLLST$ = HTMLLST$+"<LI>"+LINKHTM$+"</LI>"
+19170 NEXT IU
+19180 HTMLLST$ = HTMLLST$ + "</UL>"
+19190 RETURN
-- 
cgit v1.2.3