Initial data commit

Task/XML-Output/Applesoft-BASIC/xml-output.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