blob: 92a19829659b15cda102433bebe03478cc7b0f80 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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
|
