DATA "Character,Speech"
DATA "The multitude,The messiah! Show us the messiah!"
DATA "Brian's mother,Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!"
DATA "The multitude,Who are you?"
DATA "Brian's mother,I'm his mother; that's who!"
DATA "The multitude,Behold his mother! Behold his mother!"
DATA "***"
*SPOOL CSVtoHTML.htm
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "
"
header% = TRUE
REPEAT
READ csv$
IF csv$ = "***" THEN EXIT REPEAT
IF header% PRINT "
"; ELSE PRINT "
";
FOR i% = 1 TO LEN(csv$)
c$ = MID$(csv$, i%, 1)
CASE c$ OF
WHEN ",": IF header% PRINT "
"; ELSE PRINT "
";
WHEN "<": PRINT "<";
WHEN ">": PRINT ">";
WHEN "&": PRINT "&";
OTHERWISE: PRINT c$;
ENDCASE
NEXT i%
IF header% PRINT "