commit deletes

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

@@ -1,40 +0,0 @@
-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