remove redundant dollars at InputBox function and fix invalid Basic examples

Change-Id: Idd6f14e127ba5e3939849b0baf7ec499e69e8695
Reviewed-on: https://gerrit.libreoffice.org/10517
Reviewed-by: Caolán McNamara <caolanm@redhat.com>
Tested-by: Caolán McNamara <caolanm@redhat.com>

6 files changed, 12 insertions, 12 deletions

diff --git a/source/text/sbasic/shared/03080101.xhp b/source/text/sbasic/shared/03080101.xhp
index dcd1edeec0..e1e35b1446 100644
--- a/source/text/sbasic/shared/03080101.xhp
+++ b/source/text/sbasic/shared/03080101.xhp
@@ -62,8 +62,8 @@
 <paragraph role="bascode" id="par_id3151112" xml-lang="en-US" l10n="U" oldref="19">' rounded Pi = 3.14159 Is a predefined constant</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As Double</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim d2 As Double</paragraph>
-<paragraph role="bascode" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="22">    d1 = InputBox$ ("Enter the length of the side adjacent to the angle: ","Adjacent")</paragraph>
-<paragraph role="bascode" id="par_id3149482" xml-lang="en-US" l10n="U" oldref="23">    d2 = InputBox$ ("Enter the length of the side opposite the angle: ","Opposite")</paragraph>
+<paragraph role="bascode" id="par_id3149262" xml-lang="en-US" l10n="U" oldref="22">    d1 = InputBox("Enter the length of the side adjacent to the angle: ","Adjacent")</paragraph>
+<paragraph role="bascode" id="par_id3149482" xml-lang="en-US" l10n="U" oldref="23">    d2 = InputBox("Enter the length of the side opposite the angle: ","Opposite")</paragraph>
 <paragraph role="bascode" id="par_id3155415" xml-lang="en-US" l10n="U" oldref="24">    Print "The Alpha angle is"; (atn (d2/d1) * 180 / Pi); " degrees"</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
 </bascode>
diff --git a/source/text/sbasic/shared/03080102.xhp b/source/text/sbasic/shared/03080102.xhp
index 3385f8cffc..8fd32f839b 100644
--- a/source/text/sbasic/shared/03080102.xhp
+++ b/source/text/sbasic/shared/03080102.xhp
@@ -61,8 +61,8 @@
 <paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleCosinus</paragraph>
 <paragraph role="bascode" id="par_id3150010" xml-lang="en-US" l10n="U" oldref="19">' rounded Pi = 3.14159</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As Double, dAngle As Double</paragraph>
-<paragraph role="bascode" id="par_id3144764" xml-lang="en-US" l10n="U" oldref="21">    d1 = InputBox$ (""Enter the length of the adjacent side: ","Adjacent")</paragraph>
-<paragraph role="bascode" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="22">    dAngle = InputBox$ ("Enter the angle Alpha (in degrees): ","Alpha")</paragraph>
+<paragraph role="bascode" id="par_id3144764" xml-lang="en-US" l10n="U" oldref="21">    d1 = InputBox("Enter the length of the adjacent side: ","Adjacent")</paragraph>
+<paragraph role="bascode" id="par_id3154491" xml-lang="en-US" l10n="U" oldref="22">    dAngle = InputBox("Enter the angle Alpha (in degrees): ","Alpha")</paragraph>
 <paragraph role="bascode" id="par_id3151074" xml-lang="en-US" l10n="U" oldref="23">    Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
 </bascode>
diff --git a/source/text/sbasic/shared/03080103.xhp b/source/text/sbasic/shared/03080103.xhp
index 94d5181b26..2793c39c88 100644
--- a/source/text/sbasic/shared/03080103.xhp
+++ b/source/text/sbasic/shared/03080103.xhp
@@ -62,8 +62,8 @@
 <paragraph role="bascode" id="par_id3150011" xml-lang="en-US" l10n="U" oldref="19">' Pi = 3.1415926 is a predefined variable</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As Double</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim dAlpha As Double</paragraph>
-<paragraph role="bascode" id="par_id3145251" xml-lang="en-US" l10n="U" oldref="22">    d1 = InputBox$ ("Enter the length of the opposite side: ","Opposite Side")</paragraph>
-<paragraph role="bascode" id="par_id3148456" xml-lang="en-US" l10n="U" oldref="23">    dAlpha = InputBox$ ("Enter the angle Alpha (in degrees): ","Alpha")</paragraph>
+<paragraph role="bascode" id="par_id3145251" xml-lang="en-US" l10n="U" oldref="22">    d1 = InputBox("Enter the length of the opposite side: ","Opposite Side")</paragraph>
+<paragraph role="bascode" id="par_id3148456" xml-lang="en-US" l10n="U" oldref="23">    dAlpha = InputBox("Enter the angle Alpha (in degrees): ","Alpha")</paragraph>
 <paragraph role="bascode" id="par_id3153877" xml-lang="en-US" l10n="U" oldref="24">    Print "The length of the hypotenuse is"; (d1 / sin (dAlpha * Pi / 180))</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
 </bascode>
diff --git a/source/text/sbasic/shared/03080104.xhp b/source/text/sbasic/shared/03080104.xhp
index 7f0e47066d..0130c6887d 100644
--- a/source/text/sbasic/shared/03080104.xhp
+++ b/source/text/sbasic/shared/03080104.xhp
@@ -62,8 +62,8 @@
 <paragraph role="bascode" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="19">' Pi = 3.1415926 is a pre-defined variable</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim d1 As Double</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim dAlpha As Double</paragraph>
-<paragraph role="bascode" id="par_id3145252" xml-lang="en-US" l10n="U" oldref="22">    d1 = InputBox$ ("Enter the length of the side opposite the angle: ","opposite")</paragraph>
-<paragraph role="bascode" id="par_id3149582" xml-lang="en-US" l10n="U" oldref="23">    dAlpha = InputBox$ ("Enter the Alpha angle (in degrees): ","Alpha")</paragraph>
+<paragraph role="bascode" id="par_id3145252" xml-lang="en-US" l10n="U" oldref="22">    d1 = InputBox("Enter the length of the side opposite the angle: ","opposite")</paragraph>
+<paragraph role="bascode" id="par_id3149582" xml-lang="en-US" l10n="U" oldref="23">    dAlpha = InputBox("Enter the Alpha angle (in degrees): ","Alpha")</paragraph>
 <paragraph role="bascode" id="par_id3154016" xml-lang="en-US" l10n="U" oldref="24">    Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
 </bascode>
diff --git a/source/text/sbasic/shared/03080601.xhp b/source/text/sbasic/shared/03080601.xhp
index 1e0a4ad68c..3663143a66 100644
--- a/source/text/sbasic/shared/03080601.xhp
+++ b/source/text/sbasic/shared/03080601.xhp
@@ -54,8 +54,8 @@
 <paragraph role="bascode" localize="false" xml-lang="en-US">Sub ExampleDifference</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim siW1 As Single</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim siW2 As Single</paragraph>
-<paragraph role="bascode" id="par_id3145786" xml-lang="en-US" l10n="U" oldref="14">    siW1 = Int(InputBox$ ("Please enter the first amount","Value Input"))</paragraph>
-<paragraph role="bascode" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="15">    siW2 = Int(InputBox$ ("Please enter the second amount","Value Input"))</paragraph>
+<paragraph role="bascode" id="par_id3145786" xml-lang="en-US" l10n="U" oldref="14">    siW1 = Int(InputBox("Please enter the first amount","Value Input"))</paragraph>
+<paragraph role="bascode" id="par_id3149561" xml-lang="en-US" l10n="U" oldref="15">    siW2 = Int(InputBox("Please enter the second amount","Value Input"))</paragraph>
 <paragraph role="bascode" id="par_id3145750" xml-lang="en-US" l10n="U" oldref="16">    Print "The difference is "; Abs(siW1 - siW2)</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
 </bascode>
diff --git a/source/text/sbasic/shared/03090301.xhp b/source/text/sbasic/shared/03090301.xhp
index 18b88d25a7..117c632cb6 100644
--- a/source/text/sbasic/shared/03090301.xhp
+++ b/source/text/sbasic/shared/03090301.xhp
@@ -61,8 +61,8 @@
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim iInputa As Single</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim iInputb As Single</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">Dim iInputc As Single</paragraph>
-<paragraph role="bascode" id="par_id3146970" xml-lang="en-US" l10n="U" oldref="25">    iInputa = Int(InputBox$ "Enter the first number: ","NumberInput"))</paragraph>
-<paragraph role="bascode" id="par_id3150329" xml-lang="en-US" l10n="U" oldref="26">    iInputb = Int(InputBox$ "Enter the second number: ","NumberInput"))</paragraph>
+<paragraph role="bascode" id="par_id3146970" xml-lang="en-US" l10n="U" oldref="25">    iInputa = Int(InputBox("Enter the first number: ","NumberInput"))</paragraph>
+<paragraph role="bascode" id="par_id3150329" xml-lang="en-US" l10n="U" oldref="26">    iInputb = Int(InputBox("Enter the second number: ","NumberInput"))</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">    iInputc=iInputa</paragraph>
 <paragraph role="bascode" localize="false" xml-lang="en-US">    GoSub SquareRoot</paragraph>
 <paragraph role="bascode" id="par_id3154756" xml-lang="en-US" l10n="U" oldref="29">    Print "The square root of";iInputa;" is";iInputc</paragraph>