format Basic code examples

1 files changed, 28 insertions, 24 deletions

diff --git a/source/text/sbasic/shared/03120308.xhp b/source/text/sbasic/shared/03120308.xhp
index 3fcea46178..4f92d7e490 100644
--- a/source/text/sbasic/shared/03120308.xhp
+++ b/source/text/sbasic/shared/03120308.xhp
@@ -47,7 +47,9 @@
 <paragraph role="paragraph" id="par_id3150503" xml-lang="en-US" l10n="U" oldref="2">Right-aligns a string within a string variable, or copies a user-defined variable type into another.</paragraph>
 </section>
 <paragraph role="heading" id="hd_id3149234" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="paragraph" id="par_id3150669" xml-lang="en-US" l10n="U" oldref="4">RSet Text As String = Text or RSet Variable1 = Variable2</paragraph>
+<bascode>

+<paragraph role="bascode" id="par_id3150669" xml-lang="en-US" oldref="4">RSet Text As String = Text or RSet Variable1 = Variable2</paragraph>

+</bascode>
 <paragraph role="heading" id="hd_id3156024" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph>
 <paragraph role="paragraph" id="par_id3148552" xml-lang="en-US" l10n="U" oldref="6">
 <emph>Text:</emph> Any string variable.</paragraph>
@@ -61,28 +63,30 @@
 <paragraph role="paragraph" id="par_id3149202" xml-lang="en-US" l10n="U" oldref="11">You can also use the <emph>RSet statement</emph> to assign variables of one user-defined type to another.</paragraph>
 <paragraph role="paragraph" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="12">The following example uses the <emph>RSet</emph> and <emph>LSet</emph> statements to modify the left and right alignment of a string.</paragraph>
 <paragraph role="heading" id="hd_id3154909" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3154218" xml-lang="en-US" l10n="U" oldref="14">Sub ExampleRLSet</paragraph>
-<paragraph role="paragraph" id="par_id3147288" xml-lang="en-US" l10n="U" oldref="15">Dim sVar as string</paragraph>
-<paragraph role="paragraph" id="par_id3153367" xml-lang="en-US" l10n="U" oldref="16">Dim sExpr as string</paragraph>
-<paragraph role="paragraph" id="par_id3153952" xml-lang="en-US" l10n="U" oldref="18">sVar = String(40,"*")</paragraph>
-<paragraph role="paragraph" id="par_id3154013" xml-lang="en-US" l10n="U" oldref="19">sExpr = "SBX"</paragraph>
-<paragraph role="paragraph" id="par_id3155856" xml-lang="en-US" l10n="U" oldref="20">REM Right-align "SBX" in a 40-character string</paragraph>
-<paragraph role="paragraph" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="21">REM Replace asterisks with spaces</paragraph>
-<paragraph role="paragraph" id="par_id3149260" xml-lang="en-US" l10n="U" oldref="22">RSet sVar = sExpr</paragraph>
-<paragraph role="paragraph" id="par_id3156444" xml-lang="en-US" l10n="U" oldref="23">Print "&gt;"; sVar; "&lt;"</paragraph>
-<paragraph role="paragraph" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="25">sVar = String(5,"*")</paragraph>
-<paragraph role="paragraph" id="par_id3153140" xml-lang="en-US" l10n="U" oldref="26">sExpr = "123457896"</paragraph>
-<paragraph role="paragraph" id="par_id3153144" xml-lang="en-US" l10n="U" oldref="27">RSet sVar = sExpr</paragraph>
-<paragraph role="paragraph" id="par_id3150116" xml-lang="en-US" l10n="U" oldref="28">Print "&gt;"; sVar; "&lt;"</paragraph>
-<paragraph role="paragraph" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="30">sVar = String(40,"*")</paragraph>
-<paragraph role="paragraph" id="par_id3149412" xml-lang="en-US" l10n="U" oldref="31">sExpr = "SBX"</paragraph>
-<paragraph role="paragraph" id="par_id3145801" xml-lang="en-US" l10n="U" oldref="32">REM Left-align "SBX" in a 40-character string</paragraph>
-<paragraph role="paragraph" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="33">LSet sVar = sExpr</paragraph>
-<paragraph role="paragraph" id="par_id3154511" xml-lang="en-US" l10n="U" oldref="34">Print "&gt;"; sVar; "&lt;"</paragraph>
-<paragraph role="paragraph" id="par_id3153839" xml-lang="en-US" l10n="U" oldref="36">sVar = String(5,"*")</paragraph>
-<paragraph role="paragraph" id="par_id3149122" xml-lang="en-US" l10n="U" oldref="37">sExpr = "123456789"</paragraph>
-<paragraph role="paragraph" id="par_id3150330" xml-lang="en-US" l10n="U" oldref="38">LSet sVar = sExpr</paragraph>
-<paragraph role="paragraph" id="par_id3154480" xml-lang="en-US" l10n="U" oldref="39">Print "&gt;"; sVar; "&lt;"</paragraph>
-<paragraph role="paragraph" id="par_id3148914" xml-lang="en-US" l10n="U" oldref="40">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRLSet</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sExpr As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    sVar = String(40,"*")</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    sExpr = "SBX"</paragraph>
+<paragraph role="bascode" id="par_id3155856" xml-lang="en-US" l10n="U" oldref="20">    ' Right-align "SBX" in a 40-character string</paragraph>
+<paragraph role="bascode" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="21">    ' Replace asterisks with spaces</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    RSet sVar = sExpr</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    Print "&gt;"; sVar; "&lt;"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    sVar = String(5,"*")</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    sExpr = "123457896"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    RSet sVar = sExpr</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    Print "&gt;"; sVar; "&lt;"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    sVar = String(40,"*")</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    sExpr = "SBX"</paragraph>
+<paragraph role="bascode" id="par_id3145801" xml-lang="en-US" l10n="U" oldref="32">    ' Left-align "SBX" in a 40-character string</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    LSet sVar = sExpr</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    Print "&gt;"; sVar; "&lt;"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    sVar = String(5,"*")</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    sExpr = "123456789"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    LSet sVar = sExpr</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">    Print "&gt;"; sVar; "&lt;"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
 </body>
 </helpdocument>