* 
 This macro creates a valid HTML code from Map This! .map file
'bot';'top'
'FT HTM'
NA=LOWER(FNAME.1())
'TOP'
H=''
DO FOREVER
   'NEXT'
   IF RC>0 THEN LEAVE
   L=CURLINE.3()
   LL=LEFT(L,1)
   IF LL='#' THEN DO
	  'DEL'; 'UP'
	  ITERATE
   END
   LW=UPPER(WORD(L,1))
   PARSE VAR L R HT F S
   IF LW='DEFAULT' THEN DO
	  DE=''
	  'DEL'
	  'UP'
   END
   ELSE DO
	  'R '
	  H=H HT
   END
END
'I' DE
'I Emm
'
'I '

WH=WORDS(H)
DO I=1 TO WH
   L=WORD(H,I)
   PARSE VAR L N '.'
   N=CASE(N)
   IF POS('ggog',L)=0 THEN DO
	  'I 'N''
	  IF I'
'I 
'
IF FNAME.1()='MUZAK' THEN 'GET SUBMUZ.HTM'
'I  Back to homepage'
'I  Email me'
'I '
'I '
'I '
'I '
'TOP'
'I '
'I '
IF FNAME.1()='VOLNA' THEN "I Po volne moej pam'ati"
IF FNAME.1()='MUZAK' THEN "I Muzykal'naja kopilka"
'I '
'I 
'
'I '
'I '
EXIT

*GET CASE
*GET CASE
CASE: PROCEDURE
* Return string with 1st char in upper, rest in lower
PARSE ARG L
RETURN UPPER(LEFT(L,1)) || SUBSTR(L,2)

oldCASE: PROCEDURE
* Return string with 2st char uppercases and the reet in lower
PARSE ARG L
IF L<>'' THEN DO
  P=WORDINDEX(L,1)
  L=LEFT(L,P-1) || UPPER(SUBSTR(L,P,1)) || LOWER(SUBSTR(L,P+1))
END
RETURN L