[Libreoffice-commits] .: source/text
Libreoffice Gerrit user
logerrit at kemper.freedesktop.org
Thu Nov 15 12:14:39 PST 2012
source/text/sbasic/shared/01020100.xhp | 124 +++++++++++++++++++++++----------
source/text/sbasic/shared/01020300.xhp | 91 +++++++++++++++---------
source/text/sbasic/shared/03010101.xhp | 18 ++--
source/text/sbasic/shared/03010102.xhp | 18 ++--
source/text/sbasic/shared/03010103.xhp | 23 +++---
source/text/sbasic/shared/03010201.xhp | 16 ++--
source/text/sbasic/shared/03010301.xhp | 22 +++--
source/text/sbasic/shared/03010302.xhp | 22 +++--
source/text/sbasic/shared/03010303.xhp | 22 +++--
source/text/sbasic/shared/03010304.xhp | 20 +++--
source/text/sbasic/shared/03010305.xhp | 22 +++--
source/text/sbasic/shared/03020101.xhp | 52 +++++++------
source/text/sbasic/shared/03020102.xhp | 52 +++++++------
source/text/sbasic/shared/03020103.xhp | 50 +++++++------
source/text/sbasic/shared/03020104.xhp | 56 +++++++-------
source/text/sbasic/shared/03020201.xhp | 56 +++++++-------
source/text/sbasic/shared/03020202.xhp | 12 +--
source/text/sbasic/shared/03020203.xhp | 50 +++++++------
source/text/sbasic/shared/03020204.xhp | 56 +++++++-------
source/text/sbasic/shared/03020205.xhp | 32 ++++----
source/text/sbasic/shared/03020301.xhp | 50 +++++++------
source/text/sbasic/shared/03020302.xhp | 4 -
source/text/sbasic/shared/03020304.xhp | 4 -
source/text/sbasic/shared/03020305.xhp | 4 -
source/text/sbasic/shared/03020401.xhp | 24 +++---
source/text/sbasic/shared/03020402.xhp | 12 ++-
source/text/sbasic/shared/03020403.xhp | 24 +++---
source/text/sbasic/shared/03020404.xhp | 42 ++++++-----
source/text/sbasic/shared/03020405.xhp | 30 ++++---
source/text/sbasic/shared/03020406.xhp | 12 ++-
source/text/sbasic/shared/03020407.xhp | 12 ++-
source/text/sbasic/shared/03020408.xhp | 12 ++-
source/text/sbasic/shared/03020409.xhp | 32 ++++----
source/text/sbasic/shared/03020410.xhp | 12 ++-
source/text/sbasic/shared/03020411.xhp | 91 ++++++++++++------------
source/text/sbasic/shared/03020412.xhp | 28 ++++---
source/text/sbasic/shared/03020413.xhp | 20 +++--
source/text/sbasic/shared/03020414.xhp | 32 ++++----
source/text/sbasic/shared/03020415.xhp | 16 ++--
source/text/sbasic/shared/03030101.xhp | 4 -
source/text/sbasic/shared/03030102.xhp | 4 -
source/text/sbasic/shared/03030103.xhp | 4 -
source/text/sbasic/shared/03030104.xhp | 4 -
source/text/sbasic/shared/03030105.xhp | 4 -
source/text/sbasic/shared/03030106.xhp | 4 -
source/text/sbasic/shared/03030107.xhp | 12 ++-
source/text/sbasic/shared/03030108.xhp | 4 -
source/text/sbasic/shared/03030110.xhp | 12 ++-
source/text/sbasic/shared/03030120.xhp | 12 ++-
source/text/sbasic/shared/03030130.xhp | 12 ++-
source/text/sbasic/shared/03030201.xhp | 4 -
source/text/sbasic/shared/03030202.xhp | 4 -
source/text/sbasic/shared/03030203.xhp | 12 ++-
source/text/sbasic/shared/03030204.xhp | 12 ++-
source/text/sbasic/shared/03030205.xhp | 20 +++--
source/text/sbasic/shared/03030206.xhp | 34 +++++----
source/text/sbasic/shared/03030301.xhp | 12 ++-
source/text/sbasic/shared/03030302.xhp | 12 ++-
source/text/sbasic/shared/03030303.xhp | 26 +++---
source/text/sbasic/shared/03050100.xhp | 32 ++++----
source/text/sbasic/shared/03050200.xhp | 4 -
source/text/sbasic/shared/03050300.xhp | 4 -
source/text/sbasic/shared/03050500.xhp | 56 +++++++-------
source/text/sbasic/shared/03060100.xhp | 26 +++---
source/text/sbasic/shared/03060200.xhp | 26 +++---
source/text/sbasic/shared/03060300.xhp | 26 +++---
source/text/sbasic/shared/03060400.xhp | 24 +++---
source/text/sbasic/shared/03060500.xhp | 26 +++---
source/text/sbasic/shared/03060600.xhp | 26 +++---
source/text/sbasic/shared/03070100.xhp | 27 ++++---
source/text/sbasic/shared/03070200.xhp | 27 ++++---
source/text/sbasic/shared/03070300.xhp | 27 ++++---
source/text/sbasic/shared/03070400.xhp | 27 ++++---
source/text/sbasic/shared/03070500.xhp | 14 ++-
source/text/sbasic/shared/03070600.xhp | 22 +++--
source/text/sbasic/shared/03080101.xhp | 26 +++---
source/text/sbasic/shared/03080102.xhp | 24 +++---
source/text/sbasic/shared/03080103.xhp | 26 +++---
source/text/sbasic/shared/03080104.xhp | 26 +++---
source/text/sbasic/shared/03080201.xhp | 20 +++--
source/text/sbasic/shared/03080202.xhp | 20 +++--
source/text/sbasic/shared/03080301.xhp | 34 +++++----
source/text/sbasic/shared/03080302.xhp | 34 +++++----
source/text/sbasic/shared/03080401.xhp | 16 ++--
source/text/sbasic/shared/03080501.xhp | 16 ++--
source/text/sbasic/shared/03080502.xhp | 16 ++--
source/text/sbasic/shared/03080601.xhp | 20 +++--
source/text/sbasic/shared/03080701.xhp | 16 ++--
source/text/sbasic/shared/03080801.xhp | 42 ++++++-----
source/text/sbasic/shared/03080802.xhp | 12 ++-
source/text/sbasic/shared/03090101.xhp | 39 +++++-----
source/text/sbasic/shared/03090102.xhp | 34 +++++----
source/text/sbasic/shared/03090103.xhp | 4 -
source/text/sbasic/shared/03090201.xhp | 26 +++---
source/text/sbasic/shared/03090202.xhp | 70 +++++++++---------
source/text/sbasic/shared/03090203.xhp | 28 ++++---
source/text/sbasic/shared/03090301.xhp | 40 +++++-----
source/text/sbasic/shared/03090302.xhp | 4 -
source/text/sbasic/shared/03090303.xhp | 46 ++++++------
source/text/sbasic/shared/03090401.xhp | 4 -
source/text/sbasic/shared/03090402.xhp | 23 +++---
source/text/sbasic/shared/03090403.xhp | 20 +++--
source/text/sbasic/shared/03090404.xhp | 34 +++++----
source/text/sbasic/shared/03090405.xhp | 20 +++--
source/text/sbasic/shared/03090406.xhp | 49 ++++++-------
source/text/sbasic/shared/03090407.xhp | 18 ++--
source/text/sbasic/shared/03090408.xhp | 18 ++--
source/text/sbasic/shared/03090409.xhp | 16 ++--
source/text/sbasic/shared/03090410.xhp | 23 +++---
source/text/sbasic/shared/03090411.xhp | 4 -
source/text/sbasic/shared/03090412.xhp | 53 +++++++-------
source/text/sbasic/shared/03100050.xhp | 4 -
source/text/sbasic/shared/03100060.xhp | 4 -
source/text/sbasic/shared/03100070.xhp | 4 -
source/text/sbasic/shared/03100080.xhp | 4 -
source/text/sbasic/shared/03100100.xhp | 28 ++++---
source/text/sbasic/shared/03100300.xhp | 14 ++-
source/text/sbasic/shared/03100400.xhp | 12 +--
source/text/sbasic/shared/03100500.xhp | 16 ++--
source/text/sbasic/shared/03100600.xhp | 16 ++--
source/text/sbasic/shared/03100700.xhp | 18 ++--
source/text/sbasic/shared/03100900.xhp | 18 ++--
source/text/sbasic/shared/03101000.xhp | 24 +++---
source/text/sbasic/shared/03101100.xhp | 28 ++++---
source/text/sbasic/shared/03101110.xhp | 4 -
source/text/sbasic/shared/03101120.xhp | 30 ++++---
source/text/sbasic/shared/03101130.xhp | 30 ++++---
source/text/sbasic/shared/03101140.xhp | 30 ++++---
source/text/sbasic/shared/03101300.xhp | 28 ++++---
source/text/sbasic/shared/03101400.xhp | 28 ++++---
source/text/sbasic/shared/03101500.xhp | 28 ++++---
source/text/sbasic/shared/03101600.xhp | 28 ++++---
source/text/sbasic/shared/03101700.xhp | 4 -
source/text/sbasic/shared/03102000.xhp | 30 ++++---
source/text/sbasic/shared/03102100.xhp | 55 ++++++++------
source/text/sbasic/shared/03102101.xhp | 30 ++++---
source/text/sbasic/shared/03102200.xhp | 14 ++-
source/text/sbasic/shared/03102300.xhp | 20 +++--
source/text/sbasic/shared/03102400.xhp | 16 ++--
source/text/sbasic/shared/03102450.xhp | 4 -
source/text/sbasic/shared/03102600.xhp | 14 ++-
source/text/sbasic/shared/03102700.xhp | 20 +++--
source/text/sbasic/shared/03102800.xhp | 4 -
source/text/sbasic/shared/03102900.xhp | 31 ++++----
source/text/sbasic/shared/03103000.xhp | 31 ++++----
source/text/sbasic/shared/03103100.xhp | 16 ++--
source/text/sbasic/shared/03103200.xhp | 16 ++--
source/text/sbasic/shared/03103300.xhp | 22 +++--
source/text/sbasic/shared/03103400.xhp | 16 ++--
source/text/sbasic/shared/03103450.xhp | 16 ++--
source/text/sbasic/shared/03103500.xhp | 43 ++++++-----
source/text/sbasic/shared/03103600.xhp | 34 +++++----
source/text/sbasic/shared/03103700.xhp | 16 ++--
source/text/sbasic/shared/03103800.xhp | 4 -
source/text/sbasic/shared/03103900.xhp | 4 -
source/text/sbasic/shared/03104000.xhp | 4 -
source/text/sbasic/shared/03104100.xhp | 4 -
source/text/sbasic/shared/03104200.xhp | 6 +
source/text/sbasic/shared/03104300.xhp | 6 +
source/text/sbasic/shared/03104400.xhp | 4 -
source/text/sbasic/shared/03104500.xhp | 34 +++++----
source/text/sbasic/shared/03104600.xhp | 4 -
source/text/sbasic/shared/03104700.xhp | 4 -
source/text/sbasic/shared/03110100.xhp | 30 ++++---
source/text/sbasic/shared/03120101.xhp | 16 ++--
source/text/sbasic/shared/03120102.xhp | 16 ++--
source/text/sbasic/shared/03120103.xhp | 20 +++--
source/text/sbasic/shared/03120104.xhp | 14 ++-
source/text/sbasic/shared/03120105.xhp | 4 -
source/text/sbasic/shared/03120201.xhp | 26 +++---
source/text/sbasic/shared/03120202.xhp | 20 +++--
source/text/sbasic/shared/03120301.xhp | 16 ++--
source/text/sbasic/shared/03120302.xhp | 18 ++--
source/text/sbasic/shared/03120303.xhp | 28 ++++---
source/text/sbasic/shared/03120304.xhp | 52 +++++++------
source/text/sbasic/shared/03120305.xhp | 30 ++++---
source/text/sbasic/shared/03120306.xhp | 28 ++++---
source/text/sbasic/shared/03120307.xhp | 28 ++++---
source/text/sbasic/shared/03120308.xhp | 52 +++++++------
source/text/sbasic/shared/03120309.xhp | 30 ++++---
source/text/sbasic/shared/03120310.xhp | 14 ++-
source/text/sbasic/shared/03120311.xhp | 30 ++++---
source/text/sbasic/shared/03120312.xhp | 4 -
source/text/sbasic/shared/03120313.xhp | 4 -
source/text/sbasic/shared/03120314.xhp | 79 +++++++++++----------
source/text/sbasic/shared/03120315.xhp | 4 -
source/text/sbasic/shared/03120401.xhp | 20 +++--
source/text/sbasic/shared/03120402.xhp | 4 -
source/text/sbasic/shared/03120403.xhp | 20 +++--
source/text/sbasic/shared/03130100.xhp | 4 -
source/text/sbasic/shared/03130500.xhp | 8 +-
source/text/sbasic/shared/03130600.xhp | 4 -
source/text/sbasic/shared/03130700.xhp | 20 +++--
source/text/sbasic/shared/03130800.xhp | 18 ++--
source/text/sbasic/shared/03131000.xhp | 16 ++--
source/text/sbasic/shared/03131300.xhp | 12 ++-
source/text/sbasic/shared/03131400.xhp | 12 ++-
source/text/sbasic/shared/03131500.xhp | 4 -
source/text/sbasic/shared/03131600.xhp | 31 ++++----
source/text/sbasic/shared/03131700.xhp | 4 -
source/text/sbasic/shared/03131800.xhp | 4 -
source/text/sbasic/shared/03131900.xhp | 4 -
source/text/sbasic/shared/03132000.xhp | 63 ++++++++++------
source/text/sbasic/shared/03132100.xhp | 4 -
source/text/sbasic/shared/03132200.xhp | 22 +++--
source/text/sbasic/shared/03132300.xhp | 6 +
source/text/sbasic/shared/03132400.xhp | 23 +++---
207 files changed, 2706 insertions(+), 1884 deletions(-)
New commits:
commit ff39701b0e841035089929ab7811c7431ab9b39b
Author: Andras Timar <atimar at suse.com>
Date: Thu Nov 15 11:10:24 2012 +0100
format Basic code examples
diff --git a/source/text/sbasic/shared/01020100.xhp b/source/text/sbasic/shared/01020100.xhp
index 60fc9a1..c6cdd92 100644
--- a/source/text/sbasic/shared/01020100.xhp
+++ b/source/text/sbasic/shared/01020100.xhp
@@ -59,7 +59,9 @@
<table id="tbl_id3154685">
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3163798" xml-lang="en-US" l10n="U" oldref="7">MyNumber=5</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">MyNumber=5</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3156441" xml-lang="en-US" l10n="U" oldref="126">Correct</paragraph>
@@ -67,7 +69,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3147317" xml-lang="en-US" l10n="U" oldref="8">MyNumber5=15</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">MyNumber5=15</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3149664" xml-lang="en-US" l10n="U" oldref="127">Correct</paragraph>
@@ -75,7 +79,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3145364" xml-lang="en-US" l10n="U" oldref="9">MyNumber_5=20</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">MyNumber_5=20</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3146119" xml-lang="en-US" l10n="U" oldref="128">Correct</paragraph>
@@ -83,7 +89,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3154729" xml-lang="en-US" l10n="U" oldref="10">My Number=20</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">My Number=20</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3153876" xml-lang="en-US" l10n="U" oldref="11">Not valid, variable with space must be enclosed in square brackets</paragraph>
@@ -91,7 +99,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3147126" xml-lang="en-US" l10n="U" oldref="14">[My Number]=12</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">[My Number]=12</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3154510" xml-lang="en-US" l10n="U" oldref="15">Correct</paragraph>
@@ -99,7 +109,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3153708" xml-lang="en-US" l10n="U" oldref="12">Déjà Vu=25</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Déjà Vu=25</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3150330" xml-lang="en-US" l10n="U" oldref="129">Not valid, special characters are not allowed</paragraph>
@@ -107,7 +119,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3155443" xml-lang="en-US" l10n="U" oldref="13">5MyNumber=12</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">5MyNumber=12</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3154254" xml-lang="en-US" l10n="U" oldref="130">Not valid, variable may not begin with a number</paragraph>
@@ -115,7 +129,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3147345" xml-lang="en-US" l10n="U" oldref="16">Number,Mine=12</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Number,Mine=12</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3149256" xml-lang="en-US" l10n="U" oldref="131">Not valid, punctuation marks are not allowed</paragraph>
@@ -128,7 +144,9 @@
<table id="tbl_id3154658">
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3150090" xml-lang="en-US" l10n="U" oldref="19">DIM a$</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a$</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3150982" xml-lang="en-US" l10n="U" oldref="132">Declares the variable "a" as a String</paragraph>
@@ -136,7 +154,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3149531" xml-lang="en-US" l10n="U" oldref="20">DIM a As String</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a As String</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3150343" xml-lang="en-US" l10n="U" oldref="133">Declares the variable "a" as a String</paragraph>
@@ -144,7 +164,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3149036" xml-lang="en-US" l10n="U" oldref="21">DIM a$, b As Integer</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a$, b As Integer</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3155507" xml-lang="en-US" l10n="U" oldref="22">Declares one variable as a String and one as an Integer</paragraph>
@@ -152,7 +174,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_idN10854" xml-lang="en-US" l10n="NEW">DIM c As Boolean</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim c As Boolean</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_idN10859" xml-lang="en-US" l10n="NEW">Declares c as a Boolean variable that can be TRUE or FALSE</paragraph>
@@ -163,7 +187,9 @@
<table id="tbl_id3155529">
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3152985" xml-lang="en-US" l10n="U" oldref="24">DIM a$</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim a$</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3154527" xml-lang="en-US" l10n="U" oldref="134">Declares "a" as a String</paragraph>
@@ -171,7 +197,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3148599" xml-lang="en-US" l10n="U" oldref="25">a="TestString"</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">a="TestString"</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3153064" xml-lang="en-US" l10n="U" oldref="135">Type-declaration missing: "a$="</paragraph>
@@ -181,7 +209,9 @@
<paragraph role="warning" id="par_id3144770" xml-lang="en-US" l10n="U" oldref="26">Once you have declared a variable as a certain type, you cannot declare the variable under the same name again as a different type!</paragraph>
<paragraph role="heading" id="hd_id3149331" xml-lang="en-US" level="3" l10n="U" oldref="27">Forcing Variable Declarations</paragraph>
<paragraph role="paragraph" id="par_id3149443" xml-lang="en-US" l10n="U" oldref="28">To force declaration of variables, use the following command:</paragraph>
-<paragraph role="code" id="par_id3152869" xml-lang="en-US" l10n="U" oldref="29">OPTION EXPLICIT</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Option Explicit</paragraph>
+</bascode>
<paragraph role="paragraph" id="par_id3155072" xml-lang="en-US" l10n="U" oldref="30">The <emph>Option Explicit</emph> statement has to be the first line in the module, before the first SUB. Generally, only arrays need to be declared explicitly. All other variables are declared according to the type-declaration character, or - if omitted - as the default type <emph>Single</emph>.</paragraph>
<paragraph role="heading" id="hd_id3154614" xml-lang="en-US" level="2" l10n="U" oldref="34">Variable Types</paragraph>
<paragraph role="paragraph" id="par_id3155383" xml-lang="en-US" l10n="U" oldref="35">$[officename] Basic supports four variable classes:</paragraph>
@@ -205,37 +235,53 @@
</list>
<paragraph role="heading" id="hd_id3153805" xml-lang="en-US" level="3" l10n="U" oldref="40">Integer Variables</paragraph>
<paragraph role="paragraph" id="par_id3146966" xml-lang="en-US" l10n="U" oldref="41">Integer variables range from -32768 to 32767. If you assign a floating-point value to an integer variable, the decimal places are rounded to the next integer. Integer variables are rapidly calculated in procedures and are suitable for counter variables in loops. An integer variable only requires two bytes of memory. "%" is the type-declaration character.</paragraph>
-<paragraph role="code" id="par_id3153810" xml-lang="en-US" l10n="U" oldref="43">Dim Variable%</paragraph>
-<paragraph role="code" id="par_id3153556" xml-lang="en-US" l10n="U" oldref="44">Dim Variable As Integer</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable%</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Integer</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3147546" xml-lang="en-US" level="3" l10n="U" oldref="45">Long Integer Variables</paragraph>
<paragraph role="paragraph" id="par_id3151193" xml-lang="en-US" l10n="U" oldref="46">Long integer variables range from -2147483648 to 2147483647. If you assign a floating-point value to a long integer variable, the decimal places are rounded to the next integer. Long integer variables are rapidly calculated in procedures and are suitable for counter variables in loops for large values. A long integer variable requires four bytes of memory. "&" is the type-declaration character.</paragraph>
-<paragraph role="code" id="par_id3154708" xml-lang="en-US" l10n="U" oldref="48">Dim Variable&</paragraph>
-<paragraph role="code" id="par_id3156365" xml-lang="en-US" l10n="U" oldref="49">Dim Variable as Long</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable&</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Long</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id7596972" xml-lang="en-US" level="3" l10n="NEW">Decimal Variables<comment>see i64349</comment></paragraph>
<paragraph role="paragraph" id="par_id2649311" xml-lang="en-US" l10n="NEW">Decimal variables can take positive or negative numbers or zero. Accuracy is up to 29 digits.</paragraph><comment>i85284</comment><paragraph role="paragraph" id="par_id7617114" xml-lang="en-US" l10n="NEW">You can use plus (+) or minus (-) signs as prefixes for decimal numbers (with or without spaces).</paragraph>
<paragraph role="paragraph" id="par_id1593676" xml-lang="en-US" l10n="NEW">If a decimal number is assigned to an integer variable, %PRODUCTNAME Basic rounds the figure up or down.<comment>information from "Programming Guide for BASIC" about decimal variables</comment></paragraph>
<paragraph role="heading" id="hd_id3147500" xml-lang="en-US" level="3" l10n="U" oldref="50">Single Variables</paragraph>
<paragraph role="paragraph" id="par_id3153070" xml-lang="en-US" l10n="U" oldref="51">Single variables can take positive or negative values ranging from 3.402823 x 10E38 to 1.401298 x 10E-45. Single variables are floating-point variables, in which the decimal precision decreases as the non-decimal part of the number increases. Single variables are suitable for mathematical calculations of average precision. Calculations require more time than for Integer variables, but are faster than calculations with Double variables. A Single variable requires 4 bytes of memory. The type-declaration character is "!".</paragraph>
-<paragraph role="code" id="par_id3149875" xml-lang="en-US" l10n="U" oldref="52">Dim Variable!</paragraph>
-<paragraph role="code" id="par_id3153302" xml-lang="en-US" l10n="U" oldref="53">Dim Variable as Single</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable!</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Single</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3155753" xml-lang="en-US" level="3" l10n="U" oldref="54">Double Variables</paragraph>
<paragraph role="paragraph" id="par_id3150953" xml-lang="en-US" l10n="U" oldref="55">Double variables can take positive or negative values ranging from 1.79769313486232 x 10E308 to 4.94065645841247 x 10E-324. Double variables are floating-point variables, in which the decimal precision decreases as the non-decimal part of the number increases. Double variables are suitable for precise calculations. Calculations require more time than for Single variables. A Double variable requires 8 bytes of memory. The type-declaration character is "#".</paragraph>
-<paragraph role="code" id="par_id3150431" xml-lang="en-US" l10n="U" oldref="56">Dim Variable#</paragraph>
-<paragraph role="code" id="par_id3154406" xml-lang="en-US" l10n="U" oldref="57">Dim Variable As Double</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable#</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Double</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3155747" xml-lang="en-US" level="3" l10n="U" oldref="95">Currency Variables</paragraph>
<paragraph role="paragraph" id="par_id3153337" xml-lang="en-US" l10n="U" oldref="96">Currency variables are internally stored as 64-bit numbers (8 Bytes) and displayed as a fixed-decimal number with 15 non-decimal and 4 decimal places. The values range from -922337203685477.5808 to +922337203685477.5807. Currency variables are used to calculate currency values with a high precision. The type-declaration character is "@".</paragraph>
-<paragraph role="code" id="par_id3147296" xml-lang="en-US" l10n="U" oldref="97">Dim Variable@</paragraph>
-<paragraph role="code" id="par_id3150391" xml-lang="en-US" l10n="U" oldref="98">Dim Variable As Currency</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable@</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Currency</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3148742" xml-lang="en-US" level="3" l10n="U" oldref="58">String Variables</paragraph>
<paragraph role="paragraph" id="par_id3151393" xml-lang="en-US" l10n="U" oldref="59">String variables can hold character strings with up to 65,535 characters. Each character is stored as the corresponding Unicode value. String variables are suitable for word processing within programs and for temporary storage of any non-printable character up to a maximum length of 64 Kbytes. The memory required for storing string variables depends on the number of characters in the variable. The type-declaration character is "$".</paragraph>
-<paragraph role="code" id="par_id3166467" xml-lang="en-US" l10n="U" oldref="60">Dim Variable$</paragraph>
-<paragraph role="code" id="par_id3153027" xml-lang="en-US" l10n="U" oldref="61">Dim Variable As String</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable$</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As String</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3150534" xml-lang="en-US" level="3" l10n="U" oldref="62">Boolean Variables</paragraph>
<paragraph role="paragraph" id="par_id3145632" xml-lang="en-US" l10n="CHG" oldref="63">Boolean variables store only one of two values: TRUE or FALSE. A number 0 evaluates to FALSE, every other value evaluates to TRUE.</paragraph>
-<paragraph role="code" id="par_id3147615" xml-lang="en-US" l10n="U" oldref="64">Dim Variable As Boolean</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Boolean</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3149722" xml-lang="en-US" level="3" l10n="U" oldref="65">Date Variables</paragraph>
<paragraph role="paragraph" id="par_id3159116" xml-lang="en-US" l10n="U" oldref="66">Date variables can only contain dates and time values stored in an internal format. Values assigned to Date variables with <link href="text/sbasic/shared/03030101.xhp" name="Dateserial"><emph>Dateserial</emph></link>, <link href="text/sbasic/shared/03030102.xhp" name="Datevalue"><emph>Datevalue</emph></link>, <link href="text/sbasic/shared/03030205.xhp" name="Timeserial"><emph>Timeserial</emph></link> or <link href="text/sbasic/shared/03030206.xhp" name="Timevalue"><emph>Timevalue</emph></link> are automatically converted to the internal format. Date-variables are converted to normal numbers by using the <link href="text/sbasic/shared/03030103.xhp" name="Day"><emph>Day</emph></link>, <link href="text/sbasic/shared/03030104.xhp" name="Month"><emph>Month</emph></link>, <link href="text/sbasic/shared/03030106.xhp" name="Year"><emph>Year</emph></link> or the <link href="text/sbasic/shared/030302
01.xhp" name="Hour"><emph>Hour</emph></link>, <link href="text/sbasic/shared/03030202.xhp" name="Minute"><emph>Minute</emph></link>, <link href="text/sbasic/shared/03030204.xhp" name="Second"><emph>Second</emph></link> function. The internal format enables a comparison of date/time values by calculating the difference between two numbers. These variables can only be declared with the key word <emph>Date</emph>.</paragraph>
-<paragraph role="code" id="par_id3150462" xml-lang="en-US" l10n="U" oldref="67">Dim Variable As Date</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Variable As Date</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3148732" xml-lang="en-US" level="2" l10n="U" oldref="68">Initial Variable Values</paragraph>
<paragraph role="paragraph" id="par_id3154549" xml-lang="en-US" l10n="U" oldref="69">As soon as the variable has been declared, it is automatically set to the "Null" value. Note the following conventions:</paragraph>
<paragraph role="paragraph" id="par_id3143222" xml-lang="en-US" l10n="U" oldref="70">
@@ -250,7 +296,9 @@
<table id="tbl_id3155829">
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3150143" xml-lang="en-US" l10n="U" oldref="86">DIM text$(20)</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Text$(20)</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3154567" xml-lang="en-US" l10n="U" oldref="136">21 elements numbered from 0 to 20</paragraph>
@@ -258,7 +306,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3145596" xml-lang="en-US" l10n="U" oldref="125">DIM text$(5,4)</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Text$(5,4)</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3154397" xml-lang="en-US" l10n="U" oldref="137">30 elements (a matrix of 6 x 5 elements)</paragraph>
@@ -266,7 +316,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3149185" xml-lang="en-US" l10n="U" oldref="87">DIM text$(5 to 25)</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Text$(5 To 25)</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3149690" xml-lang="en-US" l10n="U" oldref="138">21 elements numbered from 5 to 25</paragraph>
@@ -274,7 +326,9 @@
</tablerow>
<tablerow>
<tablecell colspan="" rowspan="">
-<paragraph role="code" id="par_id3155950" xml-lang="en-US" l10n="U" oldref="88">DIM text$(-15 to 5)</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim Text$(-15 To 5)</paragraph>
+</bascode>
</tablecell>
<tablecell colspan="" rowspan="">
<paragraph role="paragraph" id="par_id3153113" xml-lang="en-US" l10n="U" oldref="89">21 elements (including 0), numbered from -15 to 5</paragraph>
@@ -284,6 +338,8 @@
<paragraph role="paragraph" id="par_id3153005" xml-lang="en-US" l10n="CHG" oldref="90">The index range can include positive as well as negative numbers. <comment>i36558</comment></paragraph>
<paragraph role="heading" id="hd_id3154507" xml-lang="en-US" level="2" l10n="U" oldref="91">Constants</paragraph>
<paragraph role="paragraph" id="par_id3156357" xml-lang="en-US" l10n="U" oldref="92">Constants have a fixed value. They are only defined once in the program and cannot be redefined later:</paragraph>
-<paragraph role="code" id="par_id3153203" xml-lang="en-US" l10n="U" oldref="93">CONST ConstName=Expression</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Const ConstName=Expression</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/01020300.xhp b/source/text/sbasic/shared/01020300.xhp
index e244cd4..739a1f0 100644
--- a/source/text/sbasic/shared/01020300.xhp
+++ b/source/text/sbasic/shared/01020300.xhp
@@ -65,21 +65,27 @@
<paragraph role="paragraph" id="par_id3153193" xml-lang="en-US" l10n="CHG" oldref="4">One benefit of procedures and functions is that, once you have developed a program code containing task components, you can use this code in another project.</paragraph>
<paragraph role="heading" id="hd_id3153770" xml-lang="en-US" level="2" l10n="U" oldref="26">Passing Variables to Procedures (SUB) and Functions (FUNCTION)</paragraph>
<paragraph role="paragraph" id="par_id3155414" xml-lang="en-US" l10n="U" oldref="27">Variables can be passed to both procedures and functions. The SUB or FUNCTION must be declared to expect parameters:</paragraph>
-<paragraph role="code" id="par_id3163710" xml-lang="en-US" l10n="U" oldref="28">SUB SubName(<emph>Parameter1 As Type, Parameter2 As Type,...</emph>)</paragraph>
-<paragraph role="code" id="par_id3151114" xml-lang="en-US" l10n="U" oldref="29">Program code</paragraph>
-<paragraph role="code" id="par_id3146975" xml-lang="en-US" l10n="U" oldref="30">END SUB</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub SubName(<emph>Parameter1 As Type, Parameter2 As Type,...</emph>)</paragraph>
+<paragraph role="bascode" id="par_id3151114" xml-lang="en-US" l10n="U" oldref="29">Program code</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
<paragraph role="paragraph" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="31">The SUB is called using the following syntax:</paragraph>
-<paragraph role="code" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="32">SubName(Value1, Value2,...)</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">SubName(Value1, Value2,...)</paragraph>
+</bascode>
<paragraph role="paragraph" id="par_id3147124" xml-lang="en-US" l10n="U" oldref="33">The parameters passed to a SUB must fit to those specified in the SUB declaration.</paragraph>
<paragraph role="paragraph" id="par_id3147397" xml-lang="en-US" l10n="U" oldref="34">The same process applies to FUNCTIONS. In addition, functions always return a function result. The result of a function is defined by assigning the return value to the function name:</paragraph>
-<paragraph role="code" id="par_id3149412" xml-lang="en-US" l10n="U" oldref="35">FUNCTION FunctionName(Parameter1 As Type, Parameter2 As Type,...) As Type</paragraph>
-<paragraph role="code" id="par_id3156284" xml-lang="en-US" l10n="U" oldref="36">Program code</paragraph>
-<paragraph role="code" id="par_id3145799" xml-lang="en-US" l10n="U" oldref="37">
-<emph>FunctionName=Result</emph>
-</paragraph>
-<paragraph role="code" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="38">End Function</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Function FunctionName(Parameter1 As Type, Parameter2 As Type,...) As Type</paragraph>
+<paragraph role="bascode" id="par_id3156284" xml-lang="en-US" l10n="U" oldref="36">Program code</paragraph>
+<paragraph role="bascode" id="par_id3145799" xml-lang="en-US" l10n="U" oldref="37">FunctionName=Result</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Function</paragraph>
+</bascode>
<paragraph role="paragraph" id="par_id3153839" xml-lang="en-US" l10n="U" oldref="39">The FUNCTION is called using the following syntax:</paragraph>
-<paragraph role="code" id="par_id3146914" xml-lang="en-US" l10n="U" oldref="40">Variable=FunctionName(Parameter1, Parameter2,...)</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3146914" xml-lang="en-US" l10n="U" oldref="40">Variable=FunctionName(Parameter1, Parameter2,...)</paragraph>
+</bascode>
<paragraph role="tip" id="par_idN107B3" xml-lang="en-US">You can also use the fully qualified name to call a procedure or function:<br/>
<item type="literal">Library.Module.Macro()</item>
<br/> For example, to call the Autotext macro from the Gimmicks library, use the following command:<br/>
@@ -88,41 +94,58 @@
<paragraph role="heading" id="hd_id3156276" xml-lang="en-US" level="2" l10n="U" oldref="45">Passing Variables by Value or Reference</paragraph>
<paragraph role="paragraph" id="par_id3155765" xml-lang="en-US" l10n="U" oldref="47">Parameters can be passed to a SUB or a FUNCTION either by reference or by value. Unless otherwise specified, a parameter is always passed by reference. That means that a SUB or a FUNCTION gets the parameter and can read and modify its value.</paragraph>
<paragraph role="paragraph" id="par_id3145640" xml-lang="en-US" l10n="U" oldref="53">If you want to pass a parameter by value insert the key word "ByVal" in front of the parameter when you call a SUB or FUNCTION, for example:</paragraph>
-<paragraph role="code" id="par_id3150042" xml-lang="en-US" l10n="U" oldref="54">Result = Function(<emph>ByVal</emph> Parameter)</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3150042" xml-lang="en-US" l10n="U" oldref="54">Result = Function(<emph>ByVal</emph> Parameter)</paragraph>
+</bascode>
<paragraph role="paragraph" id="par_id3149258" xml-lang="en-US" l10n="U" oldref="55">In this case, the original content of the parameter will not be modified by the FUNCTION since it only gets the value and not the parameter itself.</paragraph>
<paragraph role="heading" id="hd_id3150982" xml-lang="en-US" level="2" l10n="U" oldref="57">Scope of Variables</paragraph>
<paragraph role="paragraph" id="par_id3149814" xml-lang="en-US" l10n="CHG" oldref="58">A variable defined within a SUB or FUNCTION, only remains valid until the procedure is exited. This is known as a "local" variable. In many cases, you need a variable to be valid in all procedures, in every module of all libraries, or after a SUB or FUNCTION is exited.</paragraph>
<paragraph role="heading" id="hd_id3154186" xml-lang="en-US" level="3" l10n="U" oldref="59">Declaring Variables Outside a SUB or FUNCTION</paragraph>
-<paragraph role="code" id="par_id3150208" xml-lang="en-US" l10n="CHG" oldref="111">GLOBAL VarName As TYPENAME</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3150208" xml-lang="en-US" l10n="CHG" oldref="111">Global VarName As TYPENAME</paragraph>
+</bascode>
<paragraph role="paragraph" id="par_id3145258" xml-lang="en-US" l10n="U" oldref="112">The variable is valid as long as the $[officename] session lasts.</paragraph>
-<paragraph role="code" id="par_id3153198" xml-lang="en-US" l10n="CHG" oldref="60">PUBLIC VarName As TYPENAME</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3153198" xml-lang="en-US" l10n="CHG" oldref="60">Public VarName As TYPENAME</paragraph>
+</bascode>
<paragraph role="paragraph" id="par_id3150088" xml-lang="en-US" l10n="U" oldref="61">The variable is valid in all modules.</paragraph>
-<paragraph role="code" id="par_id3158212" xml-lang="en-US" l10n="CHG" oldref="62">PRIVATE VarName As TYPENAME</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3158212" xml-lang="en-US" l10n="CHG" oldref="62">Private VarName As TYPENAME</paragraph>
+</bascode>
<paragraph role="paragraph" id="par_id3152994" xml-lang="en-US" l10n="U" oldref="63">The variable is only valid in this module.</paragraph>
-<paragraph role="code" id="par_id3150886" xml-lang="en-US" l10n="U" oldref="64">DIM VarName As TYPENAME</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim VarName As TYPENAME</paragraph>
+</bascode>
<paragraph role="paragraph" id="par_id3150368" xml-lang="en-US" l10n="U" oldref="65">The variable is only valid in this module.</paragraph>
<paragraph role="heading" id="hd_id5097506" xml-lang="en-US" level="3" l10n="NEW">Example for private variables</paragraph>
-<paragraph role="paragraph" id="par_id8738975" xml-lang="en-US" l10n="NEW">Enforce private variables to be private across modules by setting CompatibilityMode(true).</paragraph><comment>from i17948, see i54894</comment><paragraph role="code" id="par_id146488" xml-lang="en-US" l10n="NEW">REM ***** Module1 *****</paragraph>
-<paragraph role="code" id="par_id2042298" xml-lang="en-US" l10n="NEW">Private myText As String</paragraph>
-<paragraph role="code" id="par_id2969756" xml-lang="en-US" l10n="NEW">Sub initMyText</paragraph>
-<paragraph role="code" id="par_id9475997" xml-lang="en-US" l10n="NEW">myText = "Hello"</paragraph>
-<paragraph role="code" id="par_id6933500" xml-lang="en-US" l10n="NEW">print "in module1 : ", myText</paragraph>
-<paragraph role="code" id="par_id631733" xml-lang="en-US" l10n="NEW">End Sub</paragraph>
-<paragraph role="code" id="par_id8234199" xml-lang="en-US" l10n="NEW">REM ***** Module2 *****</paragraph>
-<paragraph role="code" id="par_id6969512" xml-lang="en-US" l10n="NEW">'Option Explicit</paragraph>
-<paragraph role="code" id="par_id1196935" xml-lang="en-US" l10n="NEW">Sub demoBug</paragraph>
-<paragraph role="code" id="par_id1423993" xml-lang="en-US" l10n="NEW">CompatibilityMode( true )</paragraph>
-<paragraph role="code" id="par_id6308786" xml-lang="en-US" l10n="NEW">initMyText</paragraph>
-<paragraph role="code" id="par_id4104129" xml-lang="en-US" l10n="NEW">' Now returns empty string</paragraph>
-<paragraph role="code" id="par_id7906125" xml-lang="en-US" l10n="NEW">' (or rises error for Option Explicit)</paragraph>
-<paragraph role="code" id="par_id8055970" xml-lang="en-US" l10n="NEW">print "Now in module2 : ", myText</paragraph>
-<paragraph role="code" id="par_id2806176" xml-lang="en-US" l10n="NEW">End Sub</paragraph>
+<paragraph role="paragraph" id="par_id8738975" xml-lang="en-US">Enforce private variables to be private across modules by setting CompatibilityMode(true).</paragraph><comment>from i17948, see i54894</comment>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">' ***** Module1 *****</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Private myText As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub initMyText</paragraph>
+<paragraph role="bascode" id="par_id9475997" xml-lang="en-US"> myText = "Hello"</paragraph>
+<paragraph role="bascode" id="par_id6933500" xml-lang="en-US"> Print "In module1 : ", myText</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> </paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">' ***** Module2 *****</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">'Option Explicit</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub demoBug</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> CompatibilityMode( true )</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> initMyText</paragraph>
+<paragraph role="bascode" id="par_id4104129" xml-lang="en-US"> ' Now returns empty string</paragraph>
+<paragraph role="bascode" id="par_id7906125" xml-lang="en-US"> ' (or rises error for Option Explicit)</paragraph>
+<paragraph role="bascode" id="par_id8055970" xml-lang="en-US"> Print "Now in module2 : ", myText</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3154368" xml-lang="en-US" level="3" l10n="U" oldref="66">Saving Variable Content after Exiting a SUB or FUNCTION</paragraph>
-<paragraph role="code" id="par_id3156288" xml-lang="en-US" l10n="CHG" oldref="67">STATIC VarName As TYPENAME</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3156288" xml-lang="en-US" l10n="CHG" oldref="67">Static VarName As TYPENAME</paragraph>
+</bascode>
<paragraph role="paragraph" id="par_id3154486" xml-lang="en-US" l10n="U" oldref="68">The variable retains its value until the next time the FUNCTION or SUB is entered. The declaration must exist inside a SUB or a FUNCTION.</paragraph>
<paragraph role="heading" id="hd_id3155809" xml-lang="en-US" level="2" l10n="U" oldref="41">Specifying the Return Value Type of a FUNCTION</paragraph>
<paragraph role="paragraph" id="par_id3149404" xml-lang="en-US" l10n="U" oldref="42">As with variables, include a type-declaration character after the function name, or the type indicated by "As" and the corresponding key word at the end of the parameter list to define the type of the function's return value, for example:</paragraph>
-<paragraph role="code" id="par_id3152899" xml-lang="en-US" l10n="U" oldref="43">Function WordCount(WordText as String) <emph>as Integer</emph>
-</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Function WordCount(WordText As String) <emph>As Integer</emph></paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03010101.xhp b/source/text/sbasic/shared/03010101.xhp
index ea55124..a636d98 100644
--- a/source/text/sbasic/shared/03010101.xhp
+++ b/source/text/sbasic/shared/03010101.xhp
@@ -48,7 +48,9 @@ dedr: fixed #i30425#</lastedited>
<paragraph role="paragraph" id="par_id3148947" xml-lang="en-US" l10n="U" oldref="2">Displays a dialog box containing a message.</paragraph>
</section>
<paragraph role="heading" id="hd_id3153897" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3148664" xml-lang="en-US" l10n="U" oldref="4">MsgBox Text As String [,Type As Integer [,Dialogtitle As String]] (As Statement) or MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]]) (As Function)</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3148664" xml-lang="en-US" l10n="U" oldref="4">MsgBox Text As String [,Type As Integer [,Dialogtitle As String]] (As Statement) or MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]]) (As Function)</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3153361" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameter:</paragraph>
<paragraph role="paragraph" id="par_id3148798" xml-lang="en-US" l10n="U" oldref="6">
<emph>Text</emph>: String expression displayed as a message in the dialog box. Line breaks can be inserted with Chr$(13).</paragraph>
@@ -72,11 +74,13 @@ dedr: fixed #i30425#</lastedited>
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3150715" xml-lang="en-US" level="2" l10n="U" oldref="22">Example:</paragraph>
-<paragraph role="code" id="par_id3154511" xml-lang="en-US" l10n="U" oldref="23">Sub ExampleMsgBox</paragraph>
-<paragraph role="code" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="24">Const sText1 = "An unexpected error occurred."</paragraph>
-<paragraph role="code" id="par_id3146912" xml-lang="en-US" l10n="U" oldref="25">Const sText2 = "The program execution will continue, however."</paragraph>
-<paragraph role="code" id="par_id3154757" xml-lang="en-US" l10n="U" oldref="26">Const sText3 = "Error"</paragraph>
-<paragraph role="code" id="par_id3155445" xml-lang="en-US" l10n="U" oldref="27">MsgBox(sText1 + Chr(13) + sText2,16,sText3)</paragraph>
-<paragraph role="code" id="par_id3155768" xml-lang="en-US" l10n="U" oldref="28">End sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleMsgBox</paragraph>
+<paragraph role="bascode" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="24"> Const sText1 = "An unexpected error occurred."</paragraph>
+<paragraph role="bascode" id="par_id3146912" xml-lang="en-US" l10n="U" oldref="25"> Const sText2 = "The program execution will continue, however."</paragraph>
+<paragraph role="bascode" id="par_id3154757" xml-lang="en-US" l10n="U" oldref="26"> Const sText3 = "Error"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox(sText1 + Chr(13) + sText2,16,sText3)</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03010102.xhp b/source/text/sbasic/shared/03010102.xhp
index 1fb2282..788731e 100644
--- a/source/text/sbasic/shared/03010102.xhp
+++ b/source/text/sbasic/shared/03010102.xhp
@@ -47,7 +47,9 @@
<paragraph role="paragraph" id="par_id3145171" xml-lang="en-US" l10n="U" oldref="2">Displays a dialog box containing a message and returns a value.</paragraph>
</section>
<paragraph role="heading" id="hd_id3156281" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="4">MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="4">MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3153771" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph>
<paragraph role="paragraph" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph>
<paragraph role="heading" id="hd_id3153363" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph>
@@ -86,11 +88,13 @@
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3150090" xml-lang="en-US" level="2" l10n="U" oldref="40">Example:</paragraph>
-<paragraph role="code" id="par_id3154120" xml-lang="en-US" l10n="U" oldref="41">Sub ExampleMsgBox</paragraph>
-<paragraph role="code" id="par_id3145131" xml-lang="en-US" l10n="U" oldref="42">Dim sVar as Integer</paragraph>
-<paragraph role="code" id="par_id3151278" xml-lang="en-US" l10n="U" oldref="43">sVar = MsgBox("Las Vegas")</paragraph>
-<paragraph role="code" id="par_id3149034" xml-lang="en-US" l10n="U" oldref="44">sVar = MsgBox("Las Vegas",1)</paragraph>
-<paragraph role="code" id="par_id3166424" xml-lang="en-US" l10n="U" oldref="45">sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Dialog title")</paragraph>
-<paragraph role="code" id="par_id3152581" xml-lang="en-US" l10n="U" oldref="46">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleMsgBox</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sVar As Integer</paragraph>
+<paragraph role="bascode" id="par_id3151278" xml-lang="en-US" l10n="U" oldref="43"> sVar = MsgBox("Las Vegas")</paragraph>
+<paragraph role="bascode" id="par_id3149034" xml-lang="en-US" l10n="U" oldref="44"> sVar = MsgBox("Las Vegas",1)</paragraph>
+<paragraph role="bascode" id="par_id3166424" xml-lang="en-US" l10n="U" oldref="45"> sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Dialog title")</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03010103.xhp b/source/text/sbasic/shared/03010103.xhp
index b8b3319..bea0ee2 100644
--- a/source/text/sbasic/shared/03010103.xhp
+++ b/source/text/sbasic/shared/03010103.xhp
@@ -47,7 +47,9 @@
<paragraph role="paragraph" id="par_id3156281" xml-lang="en-US" l10n="CHG" oldref="2">Outputs the specified strings or numeric expressions to a dialog or to a file.</paragraph>
</section>
<paragraph role="heading" id="hd_id3145785" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3153188" xml-lang="en-US" l10n="CHG" oldref="4">Print [#FileName,] Expression1[{;|,} [Spc(Number As Integer);] [Tab(pos As Integer);] [Expression2[...]] </paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3153188" xml-lang="en-US" l10n="CHG" oldref="4">Print [#FileName,] Expression1[{;|,} [Spc(Number As Integer);] [Tab(pos As Integer);] [Expression2[...]] </paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3147348" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameter:</paragraph>
<paragraph role="paragraph" id="par_id2508621" xml-lang="en-US" l10n="NEW">
<emph>FileName:</emph> Any numeric expression that contains the file number that was set by the Open statement for the respective file.<comment>see i61758</comment></paragraph>
@@ -62,14 +64,15 @@
<paragraph role="paragraph" id="par_id3154011" xml-lang="en-US" l10n="U" oldref="11">If the expression to be printed exceeds a certain length, the display will automatically wrap to the next line.</paragraph>
<paragraph role="note" id="par_id3146969" xml-lang="en-US" l10n="U" oldref="12">You can insert the Tab function, enclosed by semicolons, between arguments to indent the output to a specific position, or you can use the <emph>Spc</emph> function to insert a specified number of spaces.</paragraph>
<paragraph role="heading" id="hd_id3146912" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph>
-<paragraph role="code" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="14">Sub ExamplePrint</paragraph>
-<paragraph role="code" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="15">Print "ABC"</paragraph>
-<paragraph role="code" id="par_id3155764" xml-lang="en-US" l10n="U" oldref="16">Print "ABC","123"</paragraph>
-<paragraph role="code" id="par_id5484176" xml-lang="en-US" l10n="NEW">i = FreeFile()</paragraph>
-<paragraph role="code" id="par_id2904141" xml-lang="en-US" l10n="NEW">Open <switchinline select="sys"><caseinline select="WIN">"C:\Temp.txt"
-</caseinline><defaultinline>"~/temp.txt"</defaultinline></switchinline> For Output As i</paragraph>
-<paragraph role="code" id="par_id36317" xml-lang="en-US" l10n="NEW">Print #i, "ABC"</paragraph>
-<paragraph role="code" id="par_id7381817" xml-lang="en-US" l10n="NEW">Close #i</paragraph>
-<paragraph role="code" id="par_id3147339" xml-lang="en-US" l10n="U" oldref="17">end Sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExamplePrint</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Print "ABC"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Print "ABC","123"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> i = FreeFile()</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open <switchinline select="sys"><caseinline select="WIN">"C:\Temp.txt"</caseinline><defaultinline>"~/temp.txt"</defaultinline></switchinline> For Output As i</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Print #i, "ABC"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #i</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03010201.xhp b/source/text/sbasic/shared/03010201.xhp
index 4444a85..863dfde 100644
--- a/source/text/sbasic/shared/03010201.xhp
+++ b/source/text/sbasic/shared/03010201.xhp
@@ -48,7 +48,9 @@
</section>
<paragraph role="paragraph" id="par_id3151100" xml-lang="en-US" l10n="U" oldref="3">The <emph>InputBox</emph> statement is a convenient method of entering text through a dialog. Confirm the input by clicking OK or pressing Return. The input is returned as the function return value. If you close the dialog with Cancel, <emph>InputBox</emph> returns a zero-length string ("").</paragraph>
<paragraph role="heading" id="hd_id3152347" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph>
-<paragraph role="code" id="par_id3159201" xml-lang="en-US" l10n="U" oldref="5">InputBox (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]]) </paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3159201" xml-lang="en-US" l10n="U" oldref="5">InputBox (Msg As String[, Title As String[, Default As String[, x_pos As Integer, y_pos As Integer]]]]) </paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3150713" xml-lang="en-US" level="2" l10n="U" oldref="6">Return value:</paragraph>
<paragraph role="paragraph" id="par_id3145090" xml-lang="en-US" l10n="U" oldref="7">String</paragraph>
<paragraph role="heading" id="hd_id3149346" xml-lang="en-US" level="2" l10n="U" oldref="8">Parameter:</paragraph>
@@ -64,10 +66,12 @@
<emph>y_pos</emph>: Integer expression that specifies the vertical position of the dialog. The position is an absolute coordinate and does not refer to the window of the office application.</paragraph>
<paragraph role="paragraph" id="par_id3153897" xml-lang="en-US" l10n="U" oldref="14">If <emph>x_pos</emph> and <emph>y_pos</emph> are omitted, the dialog is centered on the screen. The position is specified in <link href="text/sbasic/shared/00000002.xhp#twips" name="twips">twips</link>.</paragraph>
<paragraph role="heading" id="hd_id3149456" xml-lang="en-US" level="2" l10n="U" oldref="15">Example:</paragraph>
-<paragraph role="code" id="par_id3153379" xml-lang="en-US" l10n="U" oldref="16">Sub ExampleInputBox</paragraph>
-<paragraph role="code" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="17">Dim sText As String</paragraph>
-<paragraph role="code" id="par_id3154367" xml-lang="en-US" l10n="U" oldref="18">sText = InputBox ("Please enter a phrase:","Dear User")</paragraph>
-<paragraph role="code" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="19">MsgBox ( sText , 64, "Confirmation of phrase")</paragraph>
-<paragraph role="code" id="par_id3150768" xml-lang="en-US" l10n="U" oldref="20">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleInputBox</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText As String</paragraph>
+<paragraph role="bascode" id="par_id3154367" xml-lang="en-US" l10n="U" oldref="18"> sText = InputBox ("Please enter a phrase:","Dear User")</paragraph>
+<paragraph role="bascode" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="19"> MsgBox ( sText , 64, "Confirmation of phrase")</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03010301.xhp b/source/text/sbasic/shared/03010301.xhp
index cd47e2f..fd664b9 100644
--- a/source/text/sbasic/shared/03010301.xhp
+++ b/source/text/sbasic/shared/03010301.xhp
@@ -47,7 +47,9 @@
<paragraph role="paragraph" id="par_id3156343" xml-lang="en-US" l10n="U" oldref="2">Returns the blue component of the specified color code.</paragraph>
</section>
<paragraph role="heading" id="hd_id3149670" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3149457" xml-lang="en-US" l10n="U" oldref="4">Blue (Color As Long)</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3149457" xml-lang="en-US" l10n="U" oldref="4">Blue (Color As Long)</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3149656" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph>
<paragraph role="paragraph" id="par_id3154365" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph>
<paragraph role="heading" id="hd_id3156423" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph>
@@ -56,13 +58,15 @@
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3153091" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph>
-<paragraph role="code" id="par_id3153143" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleColor</paragraph>
-<paragraph role="code" id="par_id3149664" xml-lang="en-US" l10n="U" oldref="11">Dim lVar As Long</paragraph>
-<paragraph role="code" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="12">lVar = rgb(128,0,200)</paragraph>
-<paragraph role="code" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="13">MsgBox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph>
-<paragraph role="code" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="14">"red= " & Red(lVar) & Chr(13)&_</paragraph>
-<paragraph role="code" id="par_id3159155" xml-lang="en-US" l10n="U" oldref="15">"green= " & Green(lVar) & Chr(13)&_</paragraph>
-<paragraph role="code" id="par_id3147319" xml-lang="en-US" l10n="U" oldref="16">"blue= " & Blue(lVar) & Chr(13) , 64,"colors"</paragraph>
-<paragraph role="code" id="par_id3147434" xml-lang="en-US" l10n="U" oldref="17">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleColor</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lVar As Long</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> lVar = rgb(128,0,200)</paragraph>
+<paragraph role="bascode" id="par_id3154012" xml-lang="en-US" l10n="U" oldref="13"> MsgBox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph>
+<paragraph role="bascode" id="par_id3148645" xml-lang="en-US" l10n="U" oldref="14"> "red= " & Red(lVar) & Chr(13)&_</paragraph>
+<paragraph role="bascode" id="par_id3159155" xml-lang="en-US" l10n="U" oldref="15"> "green= " & Green(lVar) & Chr(13)&_</paragraph>
+<paragraph role="bascode" id="par_id3147319" xml-lang="en-US" l10n="U" oldref="16"> "blue= " & Blue(lVar) & Chr(13) , 64,"colors"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03010302.xhp b/source/text/sbasic/shared/03010302.xhp
index 173a357..118d11d 100644
--- a/source/text/sbasic/shared/03010302.xhp
+++ b/source/text/sbasic/shared/03010302.xhp
@@ -47,7 +47,9 @@
<paragraph role="paragraph" id="par_id3153361" xml-lang="en-US" l10n="U" oldref="2">Returns the Green component of the given color code.</paragraph>
</section>
<paragraph role="heading" id="hd_id3154140" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3153969" xml-lang="en-US" l10n="U" oldref="4">Green (Color As Long)</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3153969" xml-lang="en-US" l10n="U" oldref="4">Green (Color As Long)</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3154124" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph>
<paragraph role="paragraph" id="par_id3153194" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph>
<paragraph role="heading" id="hd_id3154909" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph>
@@ -56,13 +58,15 @@
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3149664" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph>
-<paragraph role="code" id="par_id3156442" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleColor</paragraph>
-<paragraph role="code" id="par_id3146974" xml-lang="en-US" l10n="U" oldref="11">Dim lVar As Long</paragraph>
-<paragraph role="code" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="12">lVar = rgb(128,0,200)</paragraph>
-<paragraph role="code" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="13">msgbox "The color " & lVar & " contains the components:" & Chr(13) &_</paragraph>
-<paragraph role="code" id="par_id3153951" xml-lang="en-US" l10n="U" oldref="14">"red = " & red(lVar) & Chr(13)&_</paragraph>
-<paragraph role="code" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="15">"green = " & green(lVar) & Chr(13)&_</paragraph>
-<paragraph role="code" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="16">"blue = " & blue(lVar) & Chr(13) , 64,"colors"</paragraph>
-<paragraph role="code" id="par_id3144764" xml-lang="en-US" l10n="U" oldref="17">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleColor</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lVar As Long</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> lVar = rgb(128,0,200)</paragraph>
+<paragraph role="bascode" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="13"> MsgBox "The color " & lVar & " contains the components:" & Chr(13) &_</paragraph>
+<paragraph role="bascode" id="par_id3153951" xml-lang="en-US" l10n="U" oldref="14"> "red = " & red(lVar) & Chr(13)&_</paragraph>
+<paragraph role="bascode" id="par_id3152462" xml-lang="en-US" l10n="U" oldref="15"> "green = " & green(lVar) & Chr(13)&_</paragraph>
+<paragraph role="bascode" id="par_id3154730" xml-lang="en-US" l10n="U" oldref="16"> "blue = " & blue(lVar) & Chr(13) , 64,"colors"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03010303.xhp b/source/text/sbasic/shared/03010303.xhp
index b494ac3..b4c71f1 100644
--- a/source/text/sbasic/shared/03010303.xhp
+++ b/source/text/sbasic/shared/03010303.xhp
@@ -47,7 +47,9 @@
<paragraph role="paragraph" id="par_id3149656" xml-lang="en-US" l10n="U" oldref="2">Returns the Red component of the specified color code.</paragraph>
</section>
<paragraph role="heading" id="hd_id3148799" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="4">Red (ColorNumber As Long)</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="4">Red (ColorNumber As Long)</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3151042" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph>
<paragraph role="paragraph" id="par_id3145173" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph>
<paragraph role="heading" id="hd_id3154685" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph>
@@ -56,13 +58,15 @@
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3148575" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph>
-<paragraph role="code" id="par_id3145365" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleColor</paragraph>
-<paragraph role="code" id="par_id3147348" xml-lang="en-US" l10n="U" oldref="11">Dim lVar As Long</paragraph>
-<paragraph role="code" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="12">lVar = rgb(128,0,200)</paragraph>
-<paragraph role="code" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="13">msgbox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph>
-<paragraph role="code" id="par_id3155306" xml-lang="en-US" l10n="U" oldref="14">"red= " & red(lVar) & Chr(13)&_</paragraph>
-<paragraph role="code" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="15">"green= " & green(lVar) & Chr(13)&_</paragraph>
-<paragraph role="code" id="par_id3147397" xml-lang="en-US" l10n="U" oldref="16">"blue= " & blue(lVar) & Chr(13) , 64,"colors"</paragraph>
-<paragraph role="code" id="par_id3156286" xml-lang="en-US" l10n="U" oldref="17">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleColor</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lVar As Long</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> lVar = rgb(128,0,200)</paragraph>
+<paragraph role="bascode" id="par_id3147435" xml-lang="en-US" l10n="U" oldref="13"> MsgBox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph>
+<paragraph role="bascode" id="par_id3155306" xml-lang="en-US" l10n="U" oldref="14"> "red= " & red(lVar) & Chr(13)&_</paragraph>
+<paragraph role="bascode" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="15"> "green= " & green(lVar) & Chr(13)&_</paragraph>
+<paragraph role="bascode" id="par_id3147397" xml-lang="en-US" l10n="U" oldref="16"> "blue= " & blue(lVar) & Chr(13) , 64,"colors"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03010304.xhp b/source/text/sbasic/shared/03010304.xhp
index 92eaedf..74aff38 100644
--- a/source/text/sbasic/shared/03010304.xhp
+++ b/source/text/sbasic/shared/03010304.xhp
@@ -45,7 +45,9 @@
<paragraph role="paragraph" id="par_id3150359" xml-lang="en-US" l10n="U" oldref="2">Returns the <link href="text/sbasic/shared/03010305.xhp" name="RGB">RGB</link> color code of the color passed as a color value through an older MS-DOS based programming system.</paragraph>
</section>
<paragraph role="heading" id="hd_id3154140" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="4">QBColor (ColorNumber As Integer)</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3151042" xml-lang="en-US" l10n="U" oldref="4">QBColor (ColorNumber As Integer)</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3145172" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph>
<paragraph role="paragraph" id="par_id3154685" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph>
<paragraph role="heading" id="hd_id3156560" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph>
@@ -73,12 +75,14 @@
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3148406" xml-lang="en-US" level="2" l10n="U" oldref="27">Example:</paragraph>
-<paragraph role="code" id="par_id3145642" xml-lang="en-US" l10n="U" oldref="28">Sub ExampleQBColor</paragraph>
-<paragraph role="code" id="par_id3154256" xml-lang="en-US" l10n="U" oldref="29">Dim iColor As Integer</paragraph>
-<paragraph role="code" id="par_id3147340" xml-lang="en-US" l10n="U" oldref="30">Dim sText As String</paragraph>
-<paragraph role="code" id="par_id3155962" xml-lang="en-US" l10n="U" oldref="31">iColor = 7</paragraph>
-<paragraph role="code" id="par_id3145230" xml-lang="en-US" l10n="U" oldref="32">sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )</paragraph>
-<paragraph role="code" id="par_id3149566" xml-lang="en-US" l10n="U" oldref="33">MsgBox stext,0,"Color " & iColor</paragraph>
-<paragraph role="code" id="par_id3154705" xml-lang="en-US" l10n="U" oldref="34">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleQBColor</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iColor As Integer</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sText As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iColor = 7</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )</paragraph>
+<paragraph role="bascode" id="par_id3149566" xml-lang="en-US" l10n="U" oldref="33"> MsgBox stext,0,"Color " & iColor</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03010305.xhp b/source/text/sbasic/shared/03010305.xhp
index 32d8275..7792006 100644
--- a/source/text/sbasic/shared/03010305.xhp
+++ b/source/text/sbasic/shared/03010305.xhp
@@ -45,7 +45,9 @@
<paragraph role="paragraph" id="par_id3150447" xml-lang="en-US" l10n="U" oldref="2">Returns a <link href="text/sbasic/shared/00000003.xhp#farbcodes" name="long integer color value">long integer color value</link> consisting of red, green, and blue components.</paragraph>
</section>
<paragraph role="heading" id="hd_id3147229" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="4">RGB (Red, Green, Blue)</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="4">RGB (Red, Green, Blue)</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3156442" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph>
<paragraph role="paragraph" id="par_id3159153" xml-lang="en-US" l10n="U" oldref="6">Long</paragraph>
<paragraph role="heading" id="hd_id3154013" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameter:</paragraph>
@@ -58,13 +60,15 @@
<embed href="text/sbasic/shared/00000003.xhp#errorcode"/>
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<paragraph role="heading" id="hd_id3147435" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph>
-<paragraph role="code" id="par_id3156283" xml-lang="en-US" l10n="U" oldref="12">Sub ExampleColor</paragraph>
-<paragraph role="code" id="par_id3149582" xml-lang="en-US" l10n="U" oldref="13">Dim lVar As Long</paragraph>
-<paragraph role="code" id="par_id3150417" xml-lang="en-US" l10n="U" oldref="14">lVar = rgb(128,0,200)</paragraph>
-<paragraph role="code" id="par_id3145647" xml-lang="en-US" l10n="U" oldref="15">msgbox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph>
-<paragraph role="code" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="16">"red= " & red(lVar) & Chr(13)&_</paragraph>
-<paragraph role="code" id="par_id3149401" xml-lang="en-US" l10n="U" oldref="17">"green= " & green(lVar) & Chr(13)&_</paragraph>
-<paragraph role="code" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="18">"blue= " & blue(lVar) & Chr(13) , 64,"colors"</paragraph>
-<paragraph role="code" id="par_id3150752" xml-lang="en-US" l10n="U" oldref="19">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleColor</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim lVar As Long</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> lVar = rgb(128,0,200)</paragraph>
+<paragraph role="bascode" id="par_id3145647" xml-lang="en-US" l10n="U" oldref="15"> MsgBox "The color " & lVar & " consists of:" & Chr(13) &_</paragraph>
+<paragraph role="bascode" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="16"> "red= " & red(lVar) & Chr(13)&_</paragraph>
+<paragraph role="bascode" id="par_id3149401" xml-lang="en-US" l10n="U" oldref="17"> "green= " & green(lVar) & Chr(13)&_</paragraph>
+<paragraph role="bascode" id="par_id3150716" xml-lang="en-US" l10n="U" oldref="18"> "blue= " & blue(lVar) & Chr(13) , 64,"colors"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03020101.xhp b/source/text/sbasic/shared/03020101.xhp
index 90ea007..a76d57e 100644
--- a/source/text/sbasic/shared/03020101.xhp
+++ b/source/text/sbasic/shared/03020101.xhp
@@ -47,33 +47,37 @@
<paragraph role="paragraph" id="par_id3147573" xml-lang="en-US" l10n="U" oldref="2">Closes a specified file that was opened with the Open statement.</paragraph>
</section>
<paragraph role="heading" id="hd_id3156344" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3147265" xml-lang="en-US" l10n="U" oldref="4">Close FileNumber As Integer[, FileNumber2 As Integer[,...]] </paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3147265" xml-lang="en-US" l10n="U" oldref="4">Close FileNumber As Integer[, FileNumber2 As Integer[,...]] </paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3153379" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph>
<paragraph role="paragraph" id="par_id3150791" xml-lang="en-US" l10n="U" oldref="6">
<emph>FileNumber:</emph> Any integer expression that specifies the number of the data channel that was opened with the <emph>Open</emph> statement.</paragraph>
<paragraph role="heading" id="hd_id3153192" xml-lang="en-US" level="2" l10n="U" oldref="7">Example:</paragraph>
-<paragraph role="code" id="par_id3154909" xml-lang="en-US" l10n="U" oldref="8">Sub ExampleWorkWithAFile</paragraph>
-<paragraph role="code" id="par_id3154124" xml-lang="en-US" l10n="U" oldref="9">Dim iNumber As Integer</paragraph>
-<paragraph role="code" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="10">Dim sLine As String</paragraph>
-<paragraph role="code" id="par_id3155854" xml-lang="en-US" l10n="U" oldref="11">Dim aFile As String</paragraph>
-<paragraph role="code" id="par_id3146985" xml-lang="en-US" l10n="U" oldref="34">Dim sMsg as String</paragraph>
-<paragraph role="code" id="par_id3154013" xml-lang="en-US" l10n="U" oldref="12">aFile = "c:\data.txt"</paragraph>
-<paragraph role="code" id="par_id3152598" xml-lang="en-US" l10n="CHG" oldref="13">sMsg = ""</paragraph>
-<paragraph role="code" id="par_id3147427" xml-lang="en-US" l10n="U" oldref="14">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="15">Open aFile For Output As #iNumber</paragraph>
-<paragraph role="code" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="16">Print #iNumber, "First line of text"</paragraph>
-<paragraph role="code" id="par_id3147350" xml-lang="en-US" l10n="U" oldref="17">Print #iNumber, "Another line of text"</paragraph>
-<paragraph role="code" id="par_id3149667" xml-lang="en-US" l10n="U" oldref="18">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3145801" xml-lang="en-US" l10n="U" oldref="22">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3147396" xml-lang="en-US" l10n="U" oldref="23">Open aFile For Input As iNumber</paragraph>
-<paragraph role="code" id="par_id3147124" xml-lang="en-US" l10n="U" oldref="24">While not eof(iNumber)</paragraph>
-<paragraph role="code" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="25">Line Input #iNumber, sLine</paragraph>
-<paragraph role="code" id="par_id3149581" xml-lang="en-US" l10n="U" oldref="26">If sLine <>"" then</paragraph>
-<paragraph role="code" id="par_id3155602" xml-lang="en-US" l10n="U" oldref="27">sMsg = sMsg & sLine & chr(13)</paragraph>
-<paragraph role="code" id="par_id3154511" xml-lang="en-US" l10n="U" oldref="29">end if</paragraph>
-<paragraph role="code" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="30">wend</paragraph>
-<paragraph role="code" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="31">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3155066" xml-lang="en-US" l10n="U" oldref="35">Msgbox sMsg</paragraph>
-<paragraph role="code" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="32">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleWorkWithAFile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = ""</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph>
+<paragraph role="bascode" id="par_id3153727" xml-lang="en-US" l10n="U" oldref="16"> Print #iNumber, "First line of text"</paragraph>
+<paragraph role="bascode" id="par_id3147350" xml-lang="en-US" l10n="U" oldref="17"> Print #iNumber, "Another line of text"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> While Not eof(iNumber)</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03020102.xhp b/source/text/sbasic/shared/03020102.xhp
index 24a5371..1b852bd 100644
--- a/source/text/sbasic/shared/03020102.xhp
+++ b/source/text/sbasic/shared/03020102.xhp
@@ -47,7 +47,9 @@
<paragraph role="paragraph" id="par_id3154366" xml-lang="en-US" l10n="U" oldref="2">Returns the next available file number for opening a file. Use this function to open a file using a file number that is not already in use by a currently open file.</paragraph>
</section>
<paragraph role="heading" id="hd_id3150769" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="4">FreeFile</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">FreeFile</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3151042" xml-lang="en-US" level="2" l10n="U" oldref="5">Return value:</paragraph>
<paragraph role="paragraph" id="par_id3150440" xml-lang="en-US" l10n="U" oldref="6">Integer</paragraph>
<paragraph role="heading" id="hd_id3148576" xml-lang="en-US" level="2" l10n="U" oldref="7">Parameters:</paragraph>
@@ -56,28 +58,30 @@
<embed href="text/sbasic/shared/00000003.xhp#err5"/>
<embed href="text/sbasic/shared/00000003.xhp#err67"/>
<paragraph role="heading" id="hd_id3159153" xml-lang="en-US" level="2" l10n="U" oldref="9">Example:</paragraph>
-<paragraph role="code" id="par_id3146120" xml-lang="en-US" l10n="U" oldref="10">Sub ExampleWorkWithAFile</paragraph>
-<paragraph role="code" id="par_id3154319" xml-lang="en-US" l10n="U" oldref="11">Dim iNumber As Integer</paragraph>
-<paragraph role="code" id="par_id3151117" xml-lang="en-US" l10n="U" oldref="12">Dim sLine As String</paragraph>
-<paragraph role="code" id="par_id3147426" xml-lang="en-US" l10n="U" oldref="13">Dim aFile As String</paragraph>
-<paragraph role="code" id="par_id3149667" xml-lang="en-US" l10n="U" oldref="36">Dim sMsg as String</paragraph>
-<paragraph role="code" id="par_id3145800" xml-lang="en-US" l10n="U" oldref="14">aFile = "c:\data.txt"</paragraph>
-<paragraph role="code" id="par_id3147396" xml-lang="en-US" l10n="CHG" oldref="15">sMsg = ""</paragraph>
-<paragraph role="code" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="16">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="17">Open aFile For Output As #iNumber</paragraph>
-<paragraph role="code" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="18">Print #iNumber, "First line of text"</paragraph>
-<paragraph role="code" id="par_id3153416" xml-lang="en-US" l10n="U" oldref="19">Print #iNumber, "Another line of text"</paragraph>
-<paragraph role="code" id="par_id3149401" xml-lang="en-US" l10n="U" oldref="20">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3150330" xml-lang="en-US" l10n="U" oldref="24">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3155067" xml-lang="en-US" l10n="U" oldref="25">Open aFile For Input As #iNumber</paragraph>
-<paragraph role="code" id="par_id3155443" xml-lang="en-US" l10n="U" oldref="26">While not eof(#iNumber)</paragraph>
-<paragraph role="code" id="par_id3153714" xml-lang="en-US" l10n="U" oldref="27">Line Input #iNumber, sLine</paragraph>
-<paragraph role="code" id="par_id3148408" xml-lang="en-US" l10n="U" oldref="28">If sLine <>"" then</paragraph>
-<paragraph role="code" id="par_id3156385" xml-lang="en-US" l10n="U" oldref="29">sMsg = sMsg & sLine & chr(13)</paragraph>
-<paragraph role="code" id="par_id3145147" xml-lang="en-US" l10n="U" oldref="31">end if</paragraph>
-<paragraph role="code" id="par_id3153966" xml-lang="en-US" l10n="U" oldref="32">wend</paragraph>
-<paragraph role="code" id="par_id3155961" xml-lang="en-US" l10n="U" oldref="33">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3149567" xml-lang="en-US" l10n="U" oldref="37">Msgbox sMsg</paragraph>
-<paragraph role="code" id="par_id3146917" xml-lang="en-US" l10n="U" oldref="34">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleWorkWithAFile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = ""</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph>
+<paragraph role="bascode" id="par_id3155416" xml-lang="en-US" l10n="U" oldref="18"> Print #iNumber, "First line of text"</paragraph>
+<paragraph role="bascode" id="par_id3153416" xml-lang="en-US" l10n="U" oldref="19"> Print #iNumber, "Another line of text"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> While Not eof(#iNumber)</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03020103.xhp b/source/text/sbasic/shared/03020103.xhp
index f2cc325..56e7fc7 100644
--- a/source/text/sbasic/shared/03020103.xhp
+++ b/source/text/sbasic/shared/03020103.xhp
@@ -49,7 +49,9 @@
<paragraph role="paragraph" id="par_id3150769" xml-lang="en-US" l10n="U" oldref="2">Opens a data channel.</paragraph>
</section>
<paragraph role="heading" id="hd_id3147230" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3154124" xml-lang="en-US" l10n="CHG" oldref="4">Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]<comment>i37502</comment></paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3154124" xml-lang="en-US" l10n="CHG" oldref="4">Open FileName As String [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]<comment>i37502</comment></paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3156280" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph>
<paragraph role="paragraph" id="par_id3155132" xml-lang="en-US" l10n="U" oldref="6">
<emph>FileName: </emph>Name and path of the file that you wan to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does not exist (Access = Write), a new file is created.</paragraph>
@@ -65,27 +67,29 @@
<emph>DatasetLength:</emph> For random access files, set the length of the records.<comment>#61736</comment></paragraph>
<paragraph role="note" id="par_id3153418" xml-lang="en-US" l10n="U" oldref="12">You can only modify the contents of a file that was opened with the Open statement. If you try to open a file that is already open, an error message appears.</paragraph>
<paragraph role="heading" id="hd_id3149123" xml-lang="en-US" level="2" l10n="U" oldref="13">Example:</paragraph>
-<paragraph role="code" id="par_id3150749" xml-lang="en-US" l10n="U" oldref="14">Sub ExampleWorkWithAFile</paragraph>
-<paragraph role="code" id="par_id3155064" xml-lang="en-US" l10n="U" oldref="15">Dim iNumber As Integer</paragraph>
-<paragraph role="code" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="16">Dim sLine As String</paragraph>
-<paragraph role="code" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="17">Dim aFile As String</paragraph>
-<paragraph role="code" id="par_id3155764" xml-lang="en-US" l10n="U" oldref="40">Dim sMsg as String</paragraph>
-<paragraph role="code" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="18">aFile = "c:\data.txt"</paragraph>
-<paragraph role="code" id="par_id3153963" xml-lang="en-US" l10n="U" oldref="20">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3155959" xml-lang="en-US" l10n="U" oldref="21">Open aFile For Output As #iNumber</paragraph>
-<paragraph role="code" id="par_id3154705" xml-lang="en-US" l10n="U" oldref="22">Print #iNumber, "This is a line of text"</paragraph>
-<paragraph role="code" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="23">Print #iNumber, "This is another line of text"</paragraph>
-<paragraph role="code" id="par_id3150942" xml-lang="en-US" l10n="U" oldref="24">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3150300" xml-lang="en-US" l10n="U" oldref="28">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3154022" xml-lang="en-US" l10n="U" oldref="29">Open aFile For Input As iNumber</paragraph>
-<paragraph role="code" id="par_id3150783" xml-lang="en-US" l10n="U" oldref="30">While not eof(iNumber)</paragraph>
-<paragraph role="code" id="par_id3153270" xml-lang="en-US" l10n="U" oldref="31">Line Input #iNumber, sLine</paragraph>
-<paragraph role="code" id="par_id3153784" xml-lang="en-US" l10n="U" oldref="32">If sLine <>"" then</paragraph>
-<paragraph role="code" id="par_id3149208" xml-lang="en-US" l10n="U" oldref="33">sMsg = sMsg & sLine & chr(13)</paragraph>
-<paragraph role="code" id="par_id3150304" xml-lang="en-US" l10n="U" oldref="35">end if</paragraph>
-<paragraph role="code" id="par_id3151217" xml-lang="en-US" l10n="U" oldref="36">wend</paragraph>
-<paragraph role="code" id="par_id3152582" xml-lang="en-US" l10n="U" oldref="37">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3159100" xml-lang="en-US" l10n="U" oldref="41">Msgbox sMsg</paragraph>
-<paragraph role="code" id="par_id3159091" xml-lang="en-US" l10n="U" oldref="38">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleWorkWithAFile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sMsg As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph>
+<paragraph role="bascode" id="par_id3154705" xml-lang="en-US" l10n="U" oldref="22"> Print #iNumber, "This is a line of text"</paragraph>
+<paragraph role="bascode" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="23"> Print #iNumber, "This is another line of text"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> While Not eof(iNumber)</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> sMsg = sMsg & sLine & chr(13)</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Wend</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> MsgBox sMsg</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03020104.xhp b/source/text/sbasic/shared/03020104.xhp
index 3148bd7..3c4a27b 100644
--- a/source/text/sbasic/shared/03020104.xhp
+++ b/source/text/sbasic/shared/03020104.xhp
@@ -47,32 +47,36 @@
<paragraph role="paragraph" id="par_id3156423" xml-lang="en-US" l10n="U" oldref="2">Closes all open files and writes the contents of all file buffers to the harddisk.</paragraph>
</section>
<paragraph role="heading" id="hd_id3154124" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
-<paragraph role="code" id="par_id3156281" xml-lang="en-US" l10n="U" oldref="4">Reset</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Reset</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3161831" xml-lang="en-US" level="2" l10n="U" oldref="5">Example:</paragraph>
-<paragraph role="code" id="par_id3151113" xml-lang="en-US" l10n="U" oldref="37">Sub ExampleReset</paragraph>
-<paragraph role="code" id="par_id3148575" xml-lang="en-US" l10n="U" oldref="38">On Error Goto ErrorHandler</paragraph>
-<paragraph role="code" id="par_id3153093" xml-lang="en-US" l10n="U" oldref="39">Dim iNumber As Integer</paragraph>
-<paragraph role="code" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="40">Dim iCount As Integer</paragraph>
-<paragraph role="code" id="par_id3153363" xml-lang="en-US" l10n="U" oldref="41">Dim sLine As String</paragraph>
-<paragraph role="code" id="par_id3154320" xml-lang="en-US" l10n="U" oldref="42">Dim aFile As String</paragraph>
-<paragraph role="code" id="par_id3163712" xml-lang="en-US" l10n="U" oldref="43">aFile = "c:\data.txt"</paragraph>
-<paragraph role="code" id="par_id3146121" xml-lang="en-US" l10n="U" oldref="45">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="46">Open aFile For Output As #iNumber</paragraph>
-<paragraph role="code" id="par_id3148455" xml-lang="en-US" l10n="U" oldref="47">Print #iNumber, "This is a new line of text"</paragraph>
-<paragraph role="code" id="par_id3145646" xml-lang="en-US" l10n="U" oldref="48">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3149410" xml-lang="en-US" l10n="U" oldref="50">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3147126" xml-lang="en-US" l10n="U" oldref="51">Open aFile For Input As iNumber</paragraph>
-<paragraph role="code" id="par_id3154510" xml-lang="en-US" l10n="U" oldref="52">For iCount = 1 to 5</paragraph>
-<paragraph role="code" id="par_id3146971" xml-lang="en-US" l10n="U" oldref="53">Line Input #iNumber, sLine</paragraph>
-<paragraph role="code" id="par_id3156277" xml-lang="en-US" l10n="U" oldref="54">If sLine <>"" then</paragraph>
-<paragraph role="code" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="55">rem</paragraph>
-<paragraph role="code" id="par_id3150322" xml-lang="en-US" l10n="U" oldref="56">end if</paragraph>
-<paragraph role="code" id="par_id3148405" xml-lang="en-US" l10n="U" oldref="57">Next iCount</paragraph>
-<paragraph role="code" id="par_id3153711" xml-lang="en-US" l10n="U" oldref="58">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3156382" xml-lang="en-US" l10n="U" oldref="59">Exit Sub</paragraph>
-<paragraph role="code" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="60">ErrorHandler:</paragraph>
-<paragraph role="code" id="par_id3145147" xml-lang="en-US" l10n="U" oldref="61">Reset</paragraph>
-<paragraph role="code" id="par_id3163805" xml-lang="en-US" l10n="U" oldref="62">MsgBox "All files will be closed",0,"Error"</paragraph>
-<paragraph role="code" id="par_id3147364" xml-lang="en-US" l10n="U" oldref="63">End Sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleReset</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">On Error GoTo ErrorHandler</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iCount As Integer</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim sLine As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Output As #iNumber</paragraph>
+<paragraph role="bascode" id="par_id3148455" xml-lang="en-US" l10n="U" oldref="47"> Print #iNumber, "This is a new line of text"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Input As iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> For iCount = 1 To 5</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Line Input #iNumber, sLine</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> If sLine <>"" Then</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Rem</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> End If</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Next iCount</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Exit Sub</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">ErrorHandler:</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Reset</paragraph>
+<paragraph role="bascode" id="par_id3163805" xml-lang="en-US" l10n="U" oldref="62"> MsgBox "All files will be closed",0,"Error"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03020201.xhp b/source/text/sbasic/shared/03020201.xhp
index abdadef..b7e8858 100644
--- a/source/text/sbasic/shared/03020201.xhp
+++ b/source/text/sbasic/shared/03020201.xhp
@@ -48,7 +48,9 @@
</section>
<paragraph role="paragraph" id="par_id3154346" xml-lang="en-US" l10n="U" oldref="3">See also: <link href="text/sbasic/shared/03020204.xhp" name="PUT"><item type="literal">PUT</item></link> Statement</paragraph>
<paragraph role="heading" id="hd_id3150358" xml-lang="en-US" level="2" l10n="U" oldref="4">Syntax:</paragraph>
-<paragraph role="code" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="5">Get [#] FileNumber As Integer, [Position], Variable</paragraph>
+<bascode>
+<paragraph role="bascode" id="par_id3150792" xml-lang="en-US" l10n="U" oldref="5">Get [#] FileNumber As Integer, [Position], Variable</paragraph>
+</bascode>
<paragraph role="heading" id="hd_id3154138" xml-lang="en-US" level="2" l10n="U" oldref="6">Parameters:</paragraph>
<paragraph role="paragraph" id="par_id3150448" xml-lang="en-US" l10n="U" oldref="7">
<emph>FileNumber:</emph> Any integer expression that determines the file number.</paragraph>
@@ -58,30 +60,32 @@
<paragraph role="paragraph" id="par_id3147319" xml-lang="en-US" l10n="U" oldref="10">If <emph>Position</emph> is omitted, the current position or the current data record of the file is used.</paragraph>
<paragraph role="paragraph" id="par_id3149484" xml-lang="en-US" l10n="U" oldref="11">Variable: Name of the variable to be read. With the exception of object variables, you can use any variable type.</paragraph>
<paragraph role="heading" id="hd_id3153144" xml-lang="en-US" level="2" l10n="U" oldref="12">Example:</paragraph>
-<paragraph role="code" id="par_id3159154" xml-lang="en-US" l10n="U" oldref="13">Sub ExampleRandomAccess</paragraph>
-<paragraph role="code" id="par_id3153188" xml-lang="en-US" l10n="U" oldref="14">Dim iNumber As Integer</paragraph>
-<paragraph role="code" id="par_id3155307" xml-lang="en-US" l10n="U" oldref="15">Dim sText As Variant REM Must be a variant</paragraph>
-<paragraph role="code" id="par_id3152577" xml-lang="en-US" l10n="U" oldref="16">Dim aFile As String</paragraph>
-<paragraph role="code" id="par_id3153726" xml-lang="en-US" l10n="U" oldref="17">aFile = "c:\data.txt"</paragraph>
-<paragraph role="code" id="par_id3154490" xml-lang="en-US" l10n="U" oldref="19">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3150418" xml-lang="en-US" l10n="U" oldref="20">Open aFile For Random As #iNumber Len=32</paragraph>
-<paragraph role="code" id="par_id3149411" xml-lang="en-US" l10n="U" oldref="21">Seek #iNumber,1 REM Position at beginning</paragraph>
-<paragraph role="code" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="22">Put #iNumber,, "This is the first line of text" REM Fill line with text</paragraph>
-<paragraph role="code" id="par_id3148457" xml-lang="en-US" l10n="U" oldref="23">Put #iNumber,, "This is the second line of text"</paragraph>
-<paragraph role="code" id="par_id3150715" xml-lang="en-US" l10n="U" oldref="24">Put #iNumber,, "This is the third line of text"</paragraph>
-<paragraph role="code" id="par_id3153836" xml-lang="en-US" l10n="U" oldref="25">Seek #iNumber,2</paragraph>
-<paragraph role="code" id="par_id3150327" xml-lang="en-US" l10n="U" oldref="26">Get #iNumber,,sText</paragraph>
-<paragraph role="code" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="27">Print sText</paragraph>
-<paragraph role="code" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="28">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3153715" xml-lang="en-US" l10n="U" oldref="30">iNumber = Freefile</paragraph>
-<paragraph role="code" id="par_id3154256" xml-lang="en-US" l10n="U" oldref="31">Open aFile For Random As #iNumber Len=32</paragraph>
-<paragraph role="code" id="par_id3147340" xml-lang="en-US" l10n="U" oldref="32">Get #iNumber,2,sText</paragraph>
-<paragraph role="code" id="par_id3155938" xml-lang="en-US" l10n="U" oldref="33">Put #iNumber,,"This is a new text"</paragraph>
-<paragraph role="code" id="par_id3155959" xml-lang="en-US" l10n="U" oldref="34">Get #iNumber,1,sText</paragraph>
-<paragraph role="code" id="par_id3147361" xml-lang="en-US" l10n="U" oldref="35">Get #iNumber,2,sText</paragraph>
-<paragraph role="code" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="36">Put #iNumber,20,"This is the text in record 20"</paragraph>
-<paragraph role="code" id="par_id3149259" xml-lang="en-US" l10n="U" oldref="37">Print Lof(#iNumber)</paragraph>
-<paragraph role="code" id="par_id3153790" xml-lang="en-US" l10n="U" oldref="38">Close #iNumber</paragraph>
-<paragraph role="code" id="par_id3155606" xml-lang="en-US" l10n="U" oldref="40">end sub</paragraph>
+<bascode>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleRandomAccess</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim iNumber As Integer</paragraph>
+<paragraph role="bascode" id="par_id3155307" xml-lang="en-US" l10n="U" oldref="15">Dim sText As Variant ' Must be a variant</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">Dim aFile As String</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> aFile = "c:\data.txt"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Random As #iNumber Len=32</paragraph>
+<paragraph role="bascode" id="par_id3149411" xml-lang="en-US" l10n="U" oldref="21"> Seek #iNumber,1 ' Position at beginning</paragraph>
+<paragraph role="bascode" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="22"> Put #iNumber,, "This is the first line of text" ' Fill line with text</paragraph>
+<paragraph role="bascode" id="par_id3148457" xml-lang="en-US" l10n="U" oldref="23"> Put #iNumber,, "This is the second line of text"</paragraph>
+<paragraph role="bascode" id="par_id3150715" xml-lang="en-US" l10n="U" oldref="24"> Put #iNumber,, "This is the third line of text"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Seek #iNumber,2</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,,sText</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Print sText</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> iNumber = Freefile</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Open aFile For Random As #iNumber Len=32</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,2,sText</paragraph>
+<paragraph role="bascode" id="par_id3155938" xml-lang="en-US" l10n="U" oldref="33"> Put #iNumber,,"This is a new text"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,1,sText</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Get #iNumber,2,sText</paragraph>
+<paragraph role="bascode" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="36"> Put #iNumber,20,"This is the text in record 20"</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Print Lof(#iNumber)</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US"> Close #iNumber</paragraph>
+<paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+</bascode>
</body>
</helpdocument>
diff --git a/source/text/sbasic/shared/03020202.xhp b/source/text/sbasic/shared/03020202.xhp
index 7f8f5c7..e8f9cec 100644
--- a/source/text/sbasic/shared/03020202.xhp
+++ b/source/text/sbasic/shared/03020202.xhp
@@ -65,13 +65,13 @@
<paragraph role="bascode" localize="false">Dim iCount As Integer</paragraph>
<paragraph role="bascode" localize="false">Dim sName As String</paragraph>
<paragraph role="bascode" localize="false">Dim sValue As Integer</paragraph>
-<paragraph role="bascode" localize="false">Dim sFileName as String</paragraph>
+<paragraph role="bascode" localize="false">Dim sFileName As String</paragraph>
<paragraph role="bascode" localize="false"> </paragraph>
<paragraph role="bascode" localize="false">sFileName = "c:\data.txt"</paragraph>
<paragraph role="bascode" localize="false">iCount = Freefile</paragraph>
<paragraph role="bascode" localize="false"> </paragraph>
<paragraph role="bascode" id="par_id4144765" xml-lang="en-US">' Write data ( which we will read later with Input ) to file</paragraph>
-<paragraph role="bascode" localize="false">Open sFileName for OutPut as iCount</paragraph>
+<paragraph role="bascode" localize="false">Open sFileName For Output As iCount</paragraph>
<paragraph role="bascode" localize="false">sName = "Hamburg"</paragraph>
<paragraph role="bascode" localize="false">sValue = 200</paragraph>
<paragraph role="bascode" localize="false">Write #iCount, sName, sValue</paragraph>
@@ -85,13 +85,13 @@
<paragraph role="bascode" localize="false"> </paragraph>
<paragraph role="bascode" localize="false">iCount = Freefile</paragraph>
<paragraph role="bascode" id="par_id4144766" xml-lang="en-US">' Read data file using Input</paragraph>
-<paragraph role="bascode" localize="false">Open sFileName for Input as iCount</paragraph>
+<paragraph role="bascode" localize="false">Open sFileName For Input As iCount</paragraph>
<paragraph role="bascode" localize="false">Input #iCount; sName, sValue</paragraph>
-<paragraph role="bascode" localize="false">Msgbox sName & " " & sValue</paragraph>
... etc. - the rest is truncated
More information about the Libreoffice-commits
mailing list