format a few Basic code examples

Change-Id: I6c1563eb7f1b3d8b353da963ab7521e17c57e24f

1 files changed, 23 insertions, 21 deletions

diff --git a/helpcontent2/source/text/sbasic/shared/03030105.xhp b/helpcontent2/source/text/sbasic/shared/03030105.xhp
index aa9070caf0..10245b3444 100644
--- a/helpcontent2/source/text/sbasic/shared/03030105.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03030105.xhp
@@ -57,26 +57,28 @@
 <embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
 <embed href="text/sbasic/shared/00000003.xhp#err5"/>
 <paragraph role="heading" id="hd_id3148616" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleWeekDay</paragraph>
-<paragraph role="paragraph" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="12">Dim sDay As String</paragraph>
-<paragraph role="paragraph" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="13">REM Return and display the day of the week</paragraph>
-<paragraph role="paragraph" id="par_id3155412" xml-lang="en-US" l10n="U" oldref="14">Select Case WeekDay( Now )</paragraph>
-<paragraph role="paragraph" id="par_id3155306" xml-lang="en-US" l10n="U" oldref="15">case 1</paragraph>
-<paragraph role="paragraph" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="16">sDay="Sunday"</paragraph>
-<paragraph role="paragraph" id="par_id3152460" xml-lang="en-US" l10n="U" oldref="17">case 2</paragraph>
-<paragraph role="paragraph" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="18">sDay="Monday"</paragraph>
-<paragraph role="paragraph" id="par_id3149666" xml-lang="en-US" l10n="U" oldref="19">case 3</paragraph>
-<paragraph role="paragraph" id="par_id3153157" xml-lang="en-US" l10n="U" oldref="20">sDay="Tuesday"</paragraph>
-<paragraph role="paragraph" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="21">case 4</paragraph>
-<paragraph role="paragraph" id="par_id3154942" xml-lang="en-US" l10n="U" oldref="22">sDay="Wednesday"</paragraph>
-<paragraph role="paragraph" id="par_id3145799" xml-lang="en-US" l10n="U" oldref="23">case 5</paragraph>
-<paragraph role="paragraph" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="24">sDay="Thursday"</paragraph>
-<paragraph role="paragraph" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="25">case 6</paragraph>
-<paragraph role="paragraph" id="par_id3154015" xml-lang="en-US" l10n="U" oldref="26">sDay="Friday"</paragraph>
-<paragraph role="paragraph" id="par_id3146971" xml-lang="en-US" l10n="U" oldref="27">case 7</paragraph>
-<paragraph role="paragraph" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="28">sDay="Saturday"</paragraph>
-<paragraph role="paragraph" id="par_id3155065" xml-lang="en-US" l10n="U" oldref="29">End Select</paragraph>
-<paragraph role="paragraph" id="par_id3148993" xml-lang="en-US" l10n="U" oldref="30">msgbox "" + sDay,64,"Today is"</paragraph>
-<paragraph role="paragraph" id="par_id3149019" xml-lang="en-US" l10n="U" oldref="31">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3145749" xml-lang="en-US" localize="false">Sub ExampleWeekDay</paragraph>
+<paragraph role="bascode" id="par_id3147426" xml-lang="en-US" localize="false">Dim sDay As String</paragraph>
+<paragraph role="bascode" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="13">' Return And display the day of the week</paragraph>
+<paragraph role="bascode" id="par_id3155412" xml-lang="en-US" localize="false">    Select Case WeekDay( Now )</paragraph>
+<paragraph role="bascode" id="par_id3155306" xml-lang="en-US" localize="false">        Case 1</paragraph>
+<paragraph role="bascode" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="16">            sDay="Sunday"</paragraph>
+<paragraph role="bascode" id="par_id3152460" xml-lang="en-US" localize="false">        Case 2</paragraph>
+<paragraph role="bascode" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="18">            sDay="Monday"</paragraph>
+<paragraph role="bascode" id="par_id3149666" xml-lang="en-US" localize="false">        Case 3</paragraph>
+<paragraph role="bascode" id="par_id3153157" xml-lang="en-US" l10n="U" oldref="20">            sDay="Tuesday"</paragraph>
+<paragraph role="bascode" id="par_id3154730" xml-lang="en-US" localize="false">        Case 4</paragraph>
+<paragraph role="bascode" id="par_id3154942" xml-lang="en-US" l10n="U" oldref="22">            sDay="Wednesday"</paragraph>
+<paragraph role="bascode" id="par_id3145799" xml-lang="en-US" localize="false">        Case 5</paragraph>
+<paragraph role="bascode" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="24">            sDay="Thursday"</paragraph>
+<paragraph role="bascode" id="par_id3150716" xml-lang="en-US" localize="false">        Case 6</paragraph>
+<paragraph role="bascode" id="par_id3154015" xml-lang="en-US" l10n="U" oldref="26">            sDay="Friday"</paragraph>
+<paragraph role="bascode" id="par_id3146971" xml-lang="en-US" localize="false">        Case 7</paragraph>
+<paragraph role="bascode" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="28">            sDay="Saturday"</paragraph>
+<paragraph role="bascode" id="par_id3155065" xml-lang="en-US" localize="false">    End Select</paragraph>
+<paragraph role="bascode" id="par_id3148993" xml-lang="en-US" l10n="U" oldref="30">    MsgBox "" + sDay,64,"Today Is"</paragraph>
+<paragraph role="bascode" id="par_id3149019" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
 </body>
 </helpdocument>