diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-11 16:22:25 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-11 16:22:25 -0400 |
| commit | a0d4ccd465865a4b70be8f4ca254c27f1fd2aaf7 (patch) | |
| tree | 620febdca086184f7706440c4bda9a4f5e1285af /link.bas | |
| download | gwblog-a0d4ccd465865a4b70be8f4ca254c27f1fd2aaf7.tar.gz gwblog-a0d4ccd465865a4b70be8f4ca254c27f1fd2aaf7.zip | |
Initial commit
Diffstat (limited to 'link.bas')
| -rw-r--r-- | link.bas | 27 |
1 files changed, 27 insertions, 0 deletions
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 |