summaryrefslogtreecommitdiff
path: root/helpcontent2/source/text
diff options
context:
space:
mode:
authorAndras Timar <atimar@suse.com>2012-09-16 19:17:05 +0200
committerAndras Timar <atimar@suse.com>2012-09-16 19:17:05 +0200
commitf4b8249675346948f0dfc5f6a3495a86465fb744 (patch)
tree686fd94ff9eb956de57e628f073314e7e34539a9 /helpcontent2/source/text
parent9d34a6766812333d9bd76ae56b1f0413dd36e8f0 (diff)
indented Basic source code + enabled syntax highlight for wiki
Change-Id: I4f139d3f3cdfc1492c2d7c0cbdf0a0014879c4a9
Diffstat (limited to 'helpcontent2/source/text')
-rw-r--r--helpcontent2/source/text/sbasic/shared/03020303.xhp56
-rw-r--r--helpcontent2/source/text/sbasic/shared/03050200.xhp28
-rw-r--r--helpcontent2/source/text/sbasic/shared/03090401.xhp19
-rw-r--r--helpcontent2/source/text/sbasic/shared/03101110.xhp26
-rw-r--r--helpcontent2/source/text/sbasic/shared/03120402.xhp12
-rw-r--r--helpcontent2/source/text/sbasic/shared/03130100.xhp12
-rw-r--r--helpcontent2/source/text/sbasic/shared/03130600.xhp16
-rw-r--r--helpcontent2/source/text/sbasic/shared/03132100.xhp10
8 files changed, 99 insertions, 80 deletions
diff --git a/helpcontent2/source/text/sbasic/shared/03020303.xhp b/helpcontent2/source/text/sbasic/shared/03020303.xhp
index 9eab0766f5..5d3b09daa9 100644
--- a/helpcontent2/source/text/sbasic/shared/03020303.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03020303.xhp
@@ -47,7 +47,9 @@
<paragraph role="paragraph" id="par_id3146794" xml-lang="en-US" l10n="U" oldref="2">Returns the size of an open file in bytes.</paragraph>
</section>
<paragraph role="heading" id="hd_id3153380" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="4">Lof (FileNumber)</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="4">Lof (FileNumber)</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3154141" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph>
<paragraph role="paragraph" id="par_id3147230" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph>
<paragraph role="heading" id="hd_id3156281" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph>
@@ -58,30 +60,32 @@
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<embed href="text/sbasic/shared/00000003.xhp#err52"/>
<paragraph role="heading" id="hd_id3155415" xml-lang="en-US" level="2" l10n="U" oldref="10">Example:</paragraph>
-<paragraph role="code" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="11">Sub ExampleRandomAccess</paragraph>
-<paragraph role="code" id="par_id3145251" xml-lang="en-US" l10n="U" oldref="12">Dim iNumber As Integer</paragraph>
-<paragraph role="code" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="13">Dim sText As Variant REM must be a Variant</paragraph>
-<paragraph role="code" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="14">Dim aFile As String</paragraph>
-<paragraph role="code" id="par_id3153157" xml-lang="en-US" l10n="U" oldref="15">aFile = "c:\data.txt"</paragraph>
-<paragraph role="code" id="par_id3149403" xml-lang="en-US" l10n="U" oldref="17">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3149121" xml-lang="en-US" l10n="U" oldref="18">Open aFile For Random As #iNumber Len=32</paragraph>
-<paragraph role="code" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="19">Seek #iNumber,1 REM Position at start</paragraph>
-<paragraph role="code" id="par_id3148405" xml-lang="en-US" l10n="U" oldref="20">Put #iNumber,, "This is the first line of text" REM Fill with text</paragraph>
-<paragraph role="code" id="par_id3154756" xml-lang="en-US" l10n="U" oldref="21">Put #iNumber,, "This is the second line of text"</paragraph>
-<paragraph role="code" id="par_id3145643" xml-lang="en-US" l10n="U" oldref="22">Put #iNumber,, "This is the third line of text"</paragraph>
-<paragraph role="code" id="par_id3156383" xml-lang="en-US" l10n="U" oldref="23">Seek #iNumber,2</paragraph>
-<paragraph role="code" id="par_id3155333" xml-lang="en-US" l10n="U" oldref="24">Get #iNumber,,sText</paragraph>
-<paragraph role="code" id="par_id3149255" xml-lang="en-US" l10n="U" oldref="25">Print sText</paragraph>
-<paragraph role="code" id="par_id3154702" xml-lang="en-US" l10n="U" oldref="26">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3153965" xml-lang="en-US" l10n="U" oldref="28">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3163807" xml-lang="en-US" l10n="U" oldref="29">Open aFile For Random As #iNumber Len=32</paragraph>
-<paragraph role="code" id="par_id3155607" xml-lang="en-US" l10n="U" oldref="30">Get #iNumber,2,sText</paragraph>
-<paragraph role="code" id="par_id3150299" xml-lang="en-US" l10n="U" oldref="31">Put #iNumber,,"This is a new line of text"</paragraph>
-<paragraph role="code" id="par_id3147002" xml-lang="en-US" l10n="U" oldref="32">Get #iNumber,1,sText</paragraph>
-<paragraph role="code" id="par_id3149036" xml-lang="en-US" l10n="U" oldref="33">Get #iNumber,2,sText</paragraph>
-<paragraph role="code" id="par_id3166425" xml-lang="en-US" l10n="U" oldref="34">Put #iNumber,20,"This is the text in record 20"</paragraph>
-<paragraph role="code" id="par_id3149817" xml-lang="en-US" l10n="U" oldref="35">Print Lof(#iNumber)</paragraph>
-<paragraph role="code" id="par_id3146811" xml-lang="en-US" l10n="U" oldref="36">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3154200" xml-lang="en-US" l10n="U" oldref="38">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" id="par_id3151074" xml-lang="en-US">Sub ExampleRandomAccess</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3145251" xml-lang="en-US">Dim iNumber As Integer</paragraph>
+<paragraph role="bascode" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="13">Dim sText As Variant REM must be a Variant</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3145646" xml-lang="en-US">Dim aFile As String</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3153157" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3149403" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3149121" xml-lang="en-US"> Open aFile For Random As #iNumber Len=32</paragraph>
+<paragraph role="bascode" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="19"> Seek #iNumber,1 REM Position at start</paragraph>
+<paragraph role="bascode" id="par_id3148405" xml-lang="en-US" l10n="U" oldref="20"> Put #iNumber,, "This is the first line of text" REM Fill with text</paragraph>
+<paragraph role="bascode" id="par_id3154756" xml-lang="en-US" l10n="U" oldref="21"> Put #iNumber,, "This is the second line of text"</paragraph>
+<paragraph role="bascode" id="par_id3145643" xml-lang="en-US" l10n="U" oldref="22"> Put #iNumber,, "This is the third line of text"</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3156383" xml-lang="en-US"> Seek #iNumber,2</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3155333" xml-lang="en-US"> Get #iNumber,,sText</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3149255" xml-lang="en-US"> Print sText</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3154702" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3153965" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3163807" xml-lang="en-US"> Open aFile For Random As #iNumber Len=32</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3155607" xml-lang="en-US"> Get #iNumber,2,sText</paragraph>
+<paragraph role="bascode" id="par_id3150299" xml-lang="en-US" l10n="U" oldref="31"> Put #iNumber,,"This is a new line of text"</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3147002" xml-lang="en-US"> Get #iNumber,1,sText</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3149036" xml-lang="en-US"> Get #iNumber,2,sText</paragraph>
+<paragraph role="bascode" id="par_id3166425" xml-lang="en-US" l10n="U" oldref="34"> Put #iNumber,20,"This is the text in record 20"</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3149817" xml-lang="en-US"> Print Lof(#iNumber)</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3146811" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" id="par_id3154200" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03050200.xhp b/helpcontent2/source/text/sbasic/shared/03050200.xhp
index dbde24b186..7a4b90f789 100644
--- a/helpcontent2/source/text/sbasic/shared/03050200.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03050200.xhp
@@ -53,18 +53,20 @@
<paragraph role="heading" id="hd_id3153193" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph>
<paragraph role="paragraph" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="8">The Err function is used in error-handling routines to determine the error and the corrective action.</paragraph>
<paragraph role="heading" id="hd_id3147317" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="10">sub ExampleError</paragraph>
-<paragraph role="paragraph" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="11">on error goto ErrorHandler REM Set up error handler</paragraph>
-<paragraph role="paragraph" id="par_id3163710" xml-lang="en-US" l10n="U" oldref="12">Dim iVar as Integer</paragraph>
-<paragraph role="paragraph" id="par_id3153093" xml-lang="en-US" l10n="U" oldref="13">Dim sVar As String</paragraph>
-<paragraph role="paragraph" id="par_id3149481" xml-lang="en-US" l10n="U" oldref="14">REM Error occurs due to non-existent file</paragraph>
-<paragraph role="paragraph" id="par_id3153190" xml-lang="en-US" l10n="U" oldref="15">iVar = Freefile</paragraph>
-<paragraph role="paragraph" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="16">Open "\file9879.txt" for Input as #iVar</paragraph>
-<paragraph role="paragraph" id="par_id3155308" xml-lang="en-US" l10n="U" oldref="17">Line Input #iVar, sVar</paragraph>
-<paragraph role="paragraph" id="par_id3153142" xml-lang="en-US" l10n="U" oldref="18">Close #iVar</paragraph>
-<paragraph role="paragraph" id="par_id3149665" xml-lang="en-US" l10n="U" oldref="19">exit sub</paragraph>
-<paragraph role="paragraph" id="par_id3154942" xml-lang="en-US" l10n="U" oldref="20">ErrorHandler:</paragraph>
-<paragraph role="paragraph" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="21">MsgBox "Error " &amp; Err &amp; ": " &amp; Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"</paragraph>
-<paragraph role="paragraph" id="par_id3155418" xml-lang="en-US" l10n="U" oldref="22">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3153727" xml-lang="en-US" localize="false">Sub ExampleError</paragraph>
+<paragraph role="bascode" id="par_id3147426" xml-lang="en-US" oldref="11">On Error Goto ErrorHandler REM Set up error handler</paragraph>
+<paragraph role="bascode" id="par_id3163710" xml-lang="en-US" localize="false">Dim iVar as Integer</paragraph>
+<paragraph role="bascode" id="par_id3153093" xml-lang="en-US" localize="false">Dim sVar As String</paragraph>
+<paragraph role="bascode" id="par_id3149481" xml-lang="en-US" oldref="14">REM Error occurs due to non-existent file</paragraph>
+<paragraph role="bascode" id="par_id3153190" xml-lang="en-US" localize="false"> iVar = Freefile</paragraph>
+<paragraph role="bascode" id="par_id3146120" xml-lang="en-US" localize="false"> Open "\file9879.txt" for Input as #iVar</paragraph>
+<paragraph role="bascode" id="par_id3155308" xml-lang="en-US" localize="false"> Line Input #iVar, sVar</paragraph>
+<paragraph role="bascode" id="par_id3153142" xml-lang="en-US" localize="false"> Close #iVar</paragraph>
+<paragraph role="bascode" id="par_id3149665" xml-lang="en-US" localize="false">Exit Sub</paragraph>
+<paragraph role="bascode" id="par_id3154942" xml-lang="en-US" localize="false">ErrorHandler:</paragraph>
+<paragraph role="bascode" id="par_id3145646" xml-lang="en-US" oldref="21"> MsgBox "Error " &amp; Err &amp; ": " &amp; Error$ + chr(13) + "At line : " + Erl + chr(13) + Now , 16 ,"an error occurred"</paragraph>
+<paragraph role="bascode" id="par_id3155418" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03090401.xhp b/helpcontent2/source/text/sbasic/shared/03090401.xhp
index d1e08a6af2..b05874f3aa 100644
--- a/helpcontent2/source/text/sbasic/shared/03090401.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03090401.xhp
@@ -55,13 +55,16 @@
<emph>Parameter:</emph> Parameters to pass to the procedure. The type and number of parameters is dependent on the routine that is executing.</paragraph>
<paragraph role="note" id="par_id3154216" xml-lang="en-US" l10n="U" oldref="8">A keyword is optional when you call a procedure. If a function is executed as an expression, the parameters must be enclosed by brackets in the statement. If a DLL is called, it must first be specified in the <emph>Declare-Statement</emph>.</paragraph>
<paragraph role="heading" id="hd_id3125865" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3159254" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleCall</paragraph>
-<paragraph role="paragraph" id="par_id3161832" xml-lang="en-US" l10n="U" oldref="13">Dim sVar As String</paragraph>
-<paragraph role="paragraph" id="par_id3147317" xml-lang="en-US" l10n="U" oldref="14">sVar = "Office"</paragraph>
-<paragraph role="paragraph" id="par_id3145273" xml-lang="en-US" l10n="U" oldref="15">Call f_callFun sVar</paragraph>
-<paragraph role="paragraph" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="16">end Sub</paragraph>
-<paragraph role="paragraph" id="par_id3155414" xml-lang="en-US" l10n="U" oldref="18">Sub f_callFun (sText as String)</paragraph>
-<paragraph role="paragraph" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="19">Msgbox sText</paragraph>
-<paragraph role="paragraph" id="par_id3148646" xml-lang="en-US" l10n="U" oldref="20">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3159254" xml-lang="en-US" localize="false">Sub ExampleCall</paragraph>
+<paragraph role="bascode" id="par_id3161832" xml-lang="en-US" localize="false">Dim sVar As String</paragraph>
+<paragraph role="bascode" id="par_id3147317" xml-lang="en-US" localize="false""> sVar = "LibreOffice"</paragraph>
+<paragraph role="bascode" id="par_id3145273" xml-lang="en-US" localize="false"> Call f_callFun sVar</paragraph>
+<paragraph role="bascode" id="par_id3147435" xml-lang="en-US" localize="false">End Sub</paragraph>
+<paragraph role="bascode" id="par_id3147436" xml-lang="en-US" localize="false"></paragraph>
+<paragraph role="bascode" id="par_id3155414" xml-lang="en-US" localize="false">Sub f_callFun (sText as String)</paragraph>
+<paragraph role="bascode" id="par_id3151112" xml-lang="en-US" localize="false"> Msgbox sText</paragraph>
+<paragraph role="bascode" id="par_id3148646" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03101110.xhp b/helpcontent2/source/text/sbasic/shared/03101110.xhp
index ac0682cfff..6c120bd862 100644
--- a/helpcontent2/source/text/sbasic/shared/03101110.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03101110.xhp
@@ -58,17 +58,19 @@
<paragraph role="paragraph" id="par_idN105B0" xml-lang="en-US" l10n="NEW">
<emph>DefCur:</emph> Currency</paragraph>
<paragraph role="heading" id="par_idN105B7" xml-lang="en-US" level="2" l10n="NEW">Example:</paragraph>
-<paragraph role="paragraph" id="par_idN105BB" xml-lang="en-US" l10n="NEW">REM Prefix definitions for variable types:</paragraph>
-<paragraph role="paragraph" id="par_idN105BE" xml-lang="en-US" l10n="NEW">DefBool b</paragraph>
-<paragraph role="paragraph" id="par_idN105C1" xml-lang="en-US" l10n="NEW">DefDate t</paragraph>
-<paragraph role="paragraph" id="par_idN105C4" xml-lang="en-US" l10n="NEW">DefDbL d</paragraph>
-<paragraph role="paragraph" id="par_idN105C7" xml-lang="en-US" l10n="NEW">DefInt i</paragraph>
-<paragraph role="paragraph" id="par_idN105CA" xml-lang="en-US" l10n="NEW">DefLng l</paragraph>
-<paragraph role="paragraph" id="par_idN105CD" xml-lang="en-US" l10n="NEW">DefObj o</paragraph>
-<paragraph role="paragraph" id="par_idN105D0" xml-lang="en-US" l10n="NEW">DefVar v</paragraph>
-<paragraph role="paragraph" id="par_idN105D3" xml-lang="en-US" l10n="NEW">DefCur c</paragraph>
-<paragraph role="paragraph" id="par_idN105D6" xml-lang="en-US" l10n="NEW">Sub ExampleDefCur</paragraph>
-<paragraph role="paragraph" id="par_idN105D9" xml-lang="en-US" l10n="NEW">cCur=Currency REM cCur is an implicit currency variable</paragraph>
-<paragraph role="paragraph" id="par_idN105DC" xml-lang="en-US" l10n="NEW">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_idN105BB" xml-lang="en-US">REM Prefix definitions for variable types:</paragraph>
+<paragraph role="bascode" id="par_idN105BE" xml-lang="en-US" localize="false">DefBool b</paragraph>
+<paragraph role="bascode" id="par_idN105C1" xml-lang="en-US" localize="false">DefDate t</paragraph>
+<paragraph role="bascode" id="par_idN105C4" xml-lang="en-US" localize="false">DefDbL d</paragraph>
+<paragraph role="bascode" id="par_idN105C7" xml-lang="en-US" localize="false">DefInt i</paragraph>
+<paragraph role="bascode" id="par_idN105CA" xml-lang="en-US" localize="false">DefLng l</paragraph>
+<paragraph role="bascode" id="par_idN105CD" xml-lang="en-US" localize="false">DefObj o</paragraph>
+<paragraph role="bascode" id="par_idN105D0" xml-lang="en-US" localize="false">DefVar v</paragraph>
+<paragraph role="bascode" id="par_idN105D3" xml-lang="en-US" localize="false">DefCur c</paragraph>
+<paragraph role="bascode" id="par_idN105D6" xml-lang="en-US" localize="false">Sub ExampleDefCur</paragraph>
+<paragraph role="bascode" id="par_idN105D9" xml-lang="en-US"> cCur=Currency REM cCur is an implicit currency variable</paragraph>
+<paragraph role="bascode" id="par_idN105DC" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03120402.xhp b/helpcontent2/source/text/sbasic/shared/03120402.xhp
index d3957d4fef..988ea73da9 100644
--- a/helpcontent2/source/text/sbasic/shared/03120402.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03120402.xhp
@@ -56,10 +56,12 @@
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3153360" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleLen</paragraph>
-<paragraph role="paragraph" id="par_id3151211" xml-lang="en-US" l10n="U" oldref="11">Dim sText as String</paragraph>
-<paragraph role="paragraph" id="par_id3154125" xml-lang="en-US" l10n="U" oldref="12">sText = "Las Vegas"</paragraph>
-<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="13">MsgBox Len(sText) REM Returns 9</paragraph>
-<paragraph role="paragraph" id="par_id3125864" xml-lang="en-US" l10n="U" oldref="14">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3150792" xml-lang="en-US" localize="false">Sub ExampleLen</paragraph>
+<paragraph role="bascode" id="par_id3151211" xml-lang="en-US" localize="false">Dim sText as String</paragraph>
+<paragraph role="bascode" id="par_id3154125" xml-lang="en-US" localize="false"> sText = "Las Vegas"</paragraph>
+<paragraph role="bascode" id="par_id3156214" xml-lang="en-US" oldref="13"> MsgBox Len(sText) REM Returns 9</paragraph>
+<paragraph role="bascode" id="par_id3125864" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03130100.xhp b/helpcontent2/source/text/sbasic/shared/03130100.xhp
index e89c6c5e65..ed8f29dd21 100644
--- a/helpcontent2/source/text/sbasic/shared/03130100.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03130100.xhp
@@ -51,10 +51,12 @@
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3148538" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3149762" xml-lang="en-US" l10n="U" oldref="6">Sub ExampleBeep</paragraph>
-<paragraph role="paragraph" id="par_id3154285" xml-lang="en-US" l10n="U" oldref="7">beep</paragraph>
-<paragraph role="paragraph" id="par_id3143270" xml-lang="en-US" l10n="U" oldref="8">beep</paragraph>
-<paragraph role="paragraph" id="par_id3154142" xml-lang="en-US" l10n="U" oldref="9">beep</paragraph>
-<paragraph role="paragraph" id="par_id3148943" xml-lang="en-US" l10n="U" oldref="10">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3149762" xml-lang="en-US" localize="false">Sub ExampleBeep</paragraph>
+<paragraph role="bascode" id="par_id3154285" xml-lang="en-US" localize="false"> Beep</paragraph>
+<paragraph role="bascode" id="par_id3143270" xml-lang="en-US" localize="false"> Beep</paragraph>
+<paragraph role="bascode" id="par_id3154142" xml-lang="en-US" localize="false"> Beep</paragraph>
+<paragraph role="bascode" id="par_id3148943" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03130600.xhp b/helpcontent2/source/text/sbasic/shared/03130600.xhp
index e871a9e800..66dd9b73f0 100644
--- a/helpcontent2/source/text/sbasic/shared/03130600.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03130600.xhp
@@ -54,12 +54,14 @@
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3150541" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph>
-<paragraph role="paragraph" id="par_id3154138" xml-lang="en-US" l10n="U" oldref="8">Sub ExampleWait</paragraph>
-<paragraph role="paragraph" id="par_id3154367" xml-lang="en-US" l10n="U" oldref="9">Dim lTick As Long</paragraph>
-<paragraph role="paragraph" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="10">lTick = GetSystemTicks()</paragraph>
-<paragraph role="paragraph" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="11">wait 2000</paragraph>
-<paragraph role="paragraph" id="par_id3154217" xml-lang="en-US" l10n="U" oldref="12">lTick = (GetSystemTicks() - lTick)</paragraph>
-<paragraph role="paragraph" id="par_id3156214" xml-lang="en-US" l10n="U" oldref="13">MsgBox "" &amp; lTick &amp; " Ticks" ,0,"The pause lasted"</paragraph>
-<paragraph role="paragraph" id="par_id3148922" xml-lang="en-US" l10n="U" oldref="14">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3154138" xml-lang="en-US" localize="false">Sub ExampleWait</paragraph>
+<paragraph role="bascode" id="par_id3154367" xml-lang="en-US" localize="false">Dim lTick As Long</paragraph>
+<paragraph role="bascode" id="par_id3154909" xml-lang="en-US" localize="false"> lTick = GetSystemTicks()</paragraph>
+<paragraph role="bascode" id="par_id3151042" xml-lang="en-US" localize="false"> Wait 2000</paragraph>
+<paragraph role="bascode" id="par_id3154217" xml-lang="en-US" localize="false"> lTick = (GetSystemTicks() - lTick)</paragraph>
+<paragraph role="bascode" id="par_id3156214" xml-lang="en-US" oldref="13"> MsgBox "" &amp; lTick &amp; " Ticks" ,0,"The pause lasted"</paragraph>
+<paragraph role="bascode" id="par_id3148922" xml-lang="en-US" localize="false">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/helpcontent2/source/text/sbasic/shared/03132100.xhp b/helpcontent2/source/text/sbasic/shared/03132100.xhp
index 7f5d32edad..e5c892d2f2 100644
--- a/helpcontent2/source/text/sbasic/shared/03132100.xhp
+++ b/helpcontent2/source/text/sbasic/shared/03132100.xhp
@@ -54,8 +54,10 @@
<paragraph xml-lang="en-US" id="par_id3156152" role="paragraph" l10n="U" oldref="11">4: UNIX</paragraph>
<paragraph xml-lang="en-US" id="hd_id3148685" role="heading" level="2" l10n="U"
oldref="12">Example:</paragraph>
- <paragraph xml-lang="en-US" id="par_id3149233" role="paragraph" l10n="U" oldref="13">Sub ExampleEnvironment</paragraph>
- <paragraph xml-lang="en-US" id="par_id3145609" role="paragraph" l10n="U" oldref="14">MsgBox GetGUIType</paragraph>
- <paragraph xml-lang="en-US" id="par_id3145069" role="paragraph" l10n="U" oldref="15">End Sub</paragraph>
+<bascode>
+ <paragraph xml-lang="en-US" id="par_id3149233" role="bascode" localize="false">Sub ExampleEnvironment</paragraph>
+ <paragraph xml-lang="en-US" id="par_id3145609" role="bascode" localize="false"> MsgBox GetGUIType</paragraph>
+ <paragraph xml-lang="en-US" id="par_id3145069" role="bascode" localize="false">End Sub</paragraph>
+</bascode>
</body>
-</helpdocument> \ No newline at end of file
+</helpdocument>