Sync

Task/XML-Output/BASIC/xml-output-1.basic

@@ -0,0 +1,40 @@
+Data "April", "Bubbly: I'm > Tam and <= Emily", _
+    "Tam O'Shanter", "Burns: ""When chapman billies leave the street ...""", _
+    "Emily", "Short & shrift"
+
+Declare Function xmlquote(ByRef s As String) As String
+Dim n As Integer, dev As String, remark As String
+
+Print "<CharacterRemarks>"
+For n = 0 to 2
+    Read dev, remark
+    Print "  <Character name="""; xmlquote(dev); """>"; _
+        xmlquote(remark); "</Character>"
+Next
+Print "</CharacterRemarks>"
+
+End
+
+Function xmlquote(ByRef s As String) As String
+    Dim n As Integer
+    Dim r As String
+    For n = 0 To Len(s)
+        Dim c As String
+        c = Mid(s,n,1)
+        Select Case As Const Asc(c)
+        Case Asc("<")
+             r = r + "&lt;"
+        Case Asc(">")
+             r = r + "&gt;"
+        Case Asc("&")
+             r = r + "&amp;"
+        Case Asc("""")
+             r = r + "&quot;"
+        Case Asc("'")
+             r = r + "&apos;"
+        Case Else
+             r = r + c
+        End Select
+    Next
+    Function = r
+End Function

Task/XML-Output/BASIC/xml-output-2.basic

@@ -0,0 +1,29 @@
+100 Q$ = CHR$(34)
+110 DE$(0) = "April"
+120 RE$(0) = "Bubbly: I'm > Tam and <= Emily"
+130 DE$(1) = "Tam O'Shanter"
+140 RE$(1) = "Burns: " + Q$ + "When chapman billies leave the street ..." + Q$
+150 DE$(2) = "Emily"
+160 RE$(2) = "Short & shrift"
+
+200 Print "<CharacterRemarks>"
+210 For I = 0 to 2
+220    Print "    <Character name="Q$;
+230    X$=DE$(I) : GOSUB 300xmlquote
+240    PRINT Q$">";
+250    X$=RE$(I) : GOSUB 300xmlquote
+260    PRINT "</Character>"
+270 Next
+280 Print "</CharacterRemarks>"
+290 End
+
+300 For n = 1 To Len(X$)
+310    c$ = Mid$(X$,n,1)
+320    IF C$ = "<" THEN C$ = "&lt;"
+330    IF C$ = ">" THEN C$ = "&gt;"
+340    IF C$ = "&" THEN C$ = "&amp;"
+350    IF C$ = Q$ THEN C$ = "&quot;"
+360    IF C$ = "'" THEN C$ = "&apos;"
+370    PRINT C$;
+380 NEXT N
+390 RETURN