30 lines
779 B
Plaintext
30 lines
779 B
Plaintext
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$ = "<"
|
|
330 IF C$ = ">" THEN C$ = ">"
|
|
340 IF C$ = "&" THEN C$ = "&"
|
|
350 IF C$ = Q$ THEN C$ = """
|
|
360 IF C$ = "'" THEN C$ = "'"
|
|
370 PRINT C$;
|
|
380 NEXT N
|
|
390 RETURN
|