Remove more pamphlet files

1 files changed, 0 insertions, 1606 deletions

diff --git a/src/interp/nag-s.boot.pamphlet b/src/interp/nag-s.boot.pamphlet
deleted file mode 100644
index 99c54d7f..00000000
--- a/src/interp/nag-s.boot.pamphlet
+++ /dev/null
@@ -1,1606 +0,0 @@
-\documentclass{article}
-\usepackage{axiom}
-\begin{document}
-\title{\$SPAD/src/interp nag-s.boot}
-\author{The Axiom Team}
-\maketitle
-\begin{abstract}
-\end{abstract}
-\eject
-\tableofcontents
-\eject
-\section{License}
-<<license>>=
--- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
--- All rights reserved.
---
--- Redistribution and use in source and binary forms, with or without
--- modification, are permitted provided that the following conditions are
--- met:
---
---     - Redistributions of source code must retain the above copyright
---       notice, this list of conditions and the following disclaimer.
---
---     - Redistributions in binary form must reproduce the above copyright
---       notice, this list of conditions and the following disclaimer in
---       the documentation and/or other materials provided with the
---       distribution.
---
---     - Neither the name of The Numerical ALgorithms Group Ltd. nor the
---       names of its contributors may be used to endorse or promote products
---       derived from this software without specific prior written permission.
---
--- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
--- IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
--- TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
--- PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
--- OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
--- EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
--- PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
--- PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
--- LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
--- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
--- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-@
-<<*>>=
-<<license>>
-
-)package "BOOT"
-
-s01eaf() ==
-  page := htInitPage("S01EAF - Complex exponential {\em exp(z)} ",nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs01eaf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s01eaf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\newline ")
-    (text . "Evaluates the exponential function, exp(z), for complex z. ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Real part of {\it z}:")
-    (text . "\tab{32} \menuitemstyle{}\tab{34}")
-    (text . "Imaginary part of {\it z}:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "-0.5" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "2.0" y F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's01eafGen)
-  htShowPage()
-
-s01eafGen htPage == 
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  linkGen STRCONC('"s01eaf(complex(",x,",",y,"),",STRINGIMAGE ifail,")")
-
-
-
-s13aaf() ==
-  page := htInitPage("S13AAF - Exponential integral \htbitmap{s13aaf2}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs13aaf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13aaf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the exponential integral \vspace{-32} ")
-    (text . "\htbitmap{s13aaf1} ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x > 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "2.0" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s13aaf")
-  htShowPage()
-
-s13acf() ==
-  page := htInitPage("S13ACF - Cosine integral {\em Ci(x)} ",nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs13acf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13acf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the cosine integral \space{1} ")
-    (text . "\htbitmap{s13acf} ")
-    (text . ", where \gamma denotes Euler's constant. ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x > 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.2" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s13acf")
-  htShowPage()
-
-s13adf() ==
-  page := htInitPage("S13ADF - Sine integral Si(x) ",nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs13adf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s13adf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the sine integral \space{1} \vspace{-32} ")
-    (text . "\inputbitmap{\htbmdir{}/s13adf.bitmap} \vspace{-37}. ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.2" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s13adf")
-  htShowPage()
-
-s14aaf() ==
-  page := htInitPage("S14AAF - Gamma Function \Gamma(x) ",nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs14aaf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14aaf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the gamma function, {\em Gamma(x)}. ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x > 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "1.25" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s14aaf")
-  htShowPage()
-
-s14abf() ==
-  page := htInitPage("S14ABF - Log Gamma Function \Gamma(x) ",nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs14abf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14abf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the logarithm of the gamma function, ")
-    (text . "{\em ln Gamma(x)}. ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x > 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "1.25" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s14abf")
-  htShowPage()
-
-s14baf() ==
-  htInitPage("S14BAF - Incomplete Gamma Functions P(a,x) & Q(a,x)",nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs14baf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s14baf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the incomplete gamma functions, \space{1} ")
-    (text . "\vspace{-32} \inputbitmap{\htbmdir{}/s14baf.bitmap} \vspace{-37}, ")
-    (text . "which are normalised such that P(a,x) + Q(a,x) = 1. ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\blankline ")
-    (text . "\newline \menuitemstyle{}\tab{2} ")
-    (text . "Enter the value of {\em a}: > 0.0")
-    (text . "\tab{32} \menuitemstyle{}\tab{34} ")
-    (text . "Enter the value of {\em x}:  >= 0.0 ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (10 "2.0" a F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "3.0" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the tolerance:")
-    (text . "\newline\tab{2} ")
-    (bcStrings (30 "1.1102230246251600E-16" tol F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's14bafGen)
-  htShowPage()
-
-s14bafGen htPage == 
-  a := htpLabelInputString(htPage,'a)
-  x := htpLabelInputString(htPage,'x)
-  tol := htpLabelInputString(htPage,'tol)
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  linkGen STRCONC('"s14baf(",a,",",x,",",tol,",",STRINGIMAGE ifail,")")
-
-s15adf() ==
-  page := htInitPage("S15ADF - Complement of error function erfc x",nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs15adf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s15adf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the complementary gamma functions, erfc x = ")
-    (text . "\space{1} \vspace{-32} \inputbitmap{\htbmdir{}/s15adf.bitmap} ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "-10.0" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s15adf")
-  htShowPage()
-
-s15aef() ==
-  page := htInitPage("S15AEF - Error Function erf x", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs15aef} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s15aef| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the error function, erf x = \space{1} ")
-    (text . "\vspace{-32} \inputbitmap{\htbmdir{}/s15aef.bitmap} ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "-6.0" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s15aef")
-  htShowPage()
-
-s17acf() ==
-  page := htInitPage("S17ACF - Bessel Function \space{1} \htbitmap{s17acf}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs17acf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17acf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Bessel function \space{1} \htbitmap{s17acf}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x > 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.5" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s17acf")
-  htShowPage()
-
-s17adf() ==
-  page := htInitPage("S17ADF - Bessel Function \space{1} \htbitmap{s17adf}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs17adf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17adf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Bessel function \space{1} \htbitmap{s17adf}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x > 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.5" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s17adf")
-  htShowPage()
-
-s17aef() ==
-  page := htInitPage("S17AEF - Bessel Function \space{1} \htbitmap{s17aef}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs17aef} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17aef| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Bessel function \space{1}")
-    (text . "\htbitmap{s17aef}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x > 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.5" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s17aef")
-  htShowPage()
-
-s17aff() ==
-  page := htInitPage("S17AFF - Bessel Function \space{1} \htbitmap{s17aff}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs17aff} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17aff| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Bessel function \space{1} \htbitmap{s17aff}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.5" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s17aff")
-  htShowPage()
-
-s17agf() ==
-  page := htInitPage("S17AGF - Airy Function {\em Ai(x)}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs17agf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17agf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Airy function {\em Ai(x)} ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "-10.0" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s17agf")
-  htShowPage()
-
-s17ahf() ==
-  page := htInitPage("S17AHF - Airy Function {\em Bi(x)}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs17ahf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17ahf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Airy function {\em Bi(x)} ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "-10.0" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s17ahf")
-  htShowPage()
-
-s17ajf() ==
-  page := htInitPage("S17AJF - Airy Function {\em Ai'(x)}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs17ajf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17ajf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates {\em Ai'(x)}, ")
-    (text . "the derivative of the Airy function Ai(x) ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "-10.0" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s17ajf")
-  htShowPage()
-
-s17akf() ==
-  page := htInitPage("S17AKF - Airy Function {\em Bi'(x)}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs17akf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17akf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates {\em Bi'(x)}, ")
-    (text . "the derivative of the Airy function Bi(x) ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "-10.0" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s17akf")
-  htShowPage()
-
-s17dcf() ==
-  htInitPage('"S17DCF - Bessel function \htbitmap{s17dcf}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil)
-  htMakePage '(
-    (domainConditions 
-       (isDomain F (Float))
-         (isDomain PI (PositiveInteger)))
-    (text . "\windowlink{Manual Page}{manpageXXs17dcf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dcf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\newline ")
-    (text . "Returns a sequence of values for the Bessel functions ")
-    (text . "\htbitmap{s17dcf}, for complex z, non-negative v ")
-    (text . "and n = 0,1,...,N-1, with an option for exponential scaling.")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Order v of the first member of the sequence of functions ")
-    (text . "{\it FNU} \htbitmap{great=} 0:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.0" fnu F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Real part of {\it z}:")
-    (text . "\tab{32} \menuitemstyle{}\tab{34}")
-    (text . "Imaginary part of {\it z}:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.3" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "0.4" y F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Number of members required in sequence {\it N} ")
-    (text . "\htbitmap{great=} 1:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 2 n PI))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Scaling option: ")
-    (radioButtons scale
-        ("" "  Unscaled" u)
-        ("" "  Scaled" s))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Ifail value: ")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's17dcfGen)
-  htShowPage()
-
-
-s17dcfGen htPage == 
-  n :=
-    $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n)
-    objValUnwrap htpLabelSpadValue(htPage, 'n)
-  fnu := htpLabelInputString(htPage,'fnu)
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  uors := htpButtonValue(htPage,'scale)
-  scale := 
-    uors = 'u => '"u"
-    '"s"
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  prefix := STRCONC('"s17dcf(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n)
-  prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")")
-  linkGen prefix
-
-s17def() ==
-  htInitPage('"S17DEF - Bessel function \htbitmap{s17def}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil)
-  htMakePage '(
-    (domainConditions 
-       (isDomain F (Float))
-         (isDomain PI (PositiveInteger)))
-    (text . "\windowlink{Manual Page}{manpageXXs17def} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17def| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\newline ")
-    (text . "Returns a sequence of values for the Bessel functions ")
-    (text . "\htbitmap{s17def}, for complex z, non-negative v ")
-    (text . "and n = 0,1,...,N-1, with an option for exponential scaling.")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Order v of the first member of the sequence of functions ")
-    (text . "{\it FNU} \htbitmap{great=} 0:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.0" fnu F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Real part of {\it z}:")
-    (text . "\tab{32} \menuitemstyle{}\tab{34}")
-    (text . "Imaginary part of {\it z}:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.3" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "0.4" y F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Number of members required in sequence {\it N} ")
-    (text . "\htbitmap{great=} 1:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 2 n PI))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Scaling option: ")
-    (radioButtons scale
-        ("" "  Unscaled" u)
-        ("" "  Scaled" s))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Ifail value: ")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's17defGen)
-  htShowPage()
-
-
-s17defGen htPage == 
-  n :=
-    $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n)
-    objValUnwrap htpLabelSpadValue(htPage, 'n)
-  fnu := htpLabelInputString(htPage,'fnu)
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  uors := htpButtonValue(htPage,'scale)
-  scale := 
-    uors = 'u => '"u"
-    '"s"
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  prefix := STRCONC('"s17def(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n)
-  prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")")
-  linkGen prefix
-
-
-s17dgf() ==
-  htInitPage('"S17DGF - Airy functions {\em Ai(z)} and {\em Ai'(z)} ",nil)
-  htMakePage '(
-    (domainConditions 
-       (isDomain F (Float))
-         (isDomain PI (PositiveInteger)))
-    (text . "\windowlink{Manual Page}{manpageXXs17dgf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dgf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\newline ")
-    (text . "Evaluates the Airy function Ai(z) or its derivative Ai'(z), ")
-    (text . "for complex z, with an option for exponential scaling. ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Real part of {\it z}:")
-    (text . "\tab{32} \menuitemstyle{}\tab{34}")
-    (text . "Imaginary part of {\it z}:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.3" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "0.4" y F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Function or derivative required: ")
-    (radioButtons deriv
-        ("" "  Function" f)
-        ("" "  Derivative" d))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Scaling option: ")
-    (radioButtons scale
-        ("" "  Unscaled" u)
-        ("" "  Scaled" s))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Ifail value: ")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's17dgfGen)
-  htShowPage()
-
-
-s17dgfGen htPage == 
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  ford := htpButtonValue(htPage,'deriv)
-  deriv := 
-    ford = 'f => '"f"
-    '"d"
-  uors := htpButtonValue(htPage,'scale)
-  scale := 
-    uors = 'u => '"u"
-    '"s"
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  prefix := STRCONC('"s17dgf(_"",deriv,"_",complex(",x,",",y,"),_"")
-  prefix := STRCONC(prefix,scale,"_", ",STRINGIMAGE ifail,")")
-  linkGen prefix
-
-s17dhf() ==
-  htInitPage('"S17DHF - Airy functions {\em Bi(z)} and {\em Bi'(z)} ",nil)
-  htMakePage '(
-    (domainConditions 
-       (isDomain F (Float))
-         (isDomain PI (PositiveInteger)))
-    (text . "\windowlink{Manual Page}{manpageXXs17dhf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dhf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\newline ")
-    (text . "Evaluates the Airy function Bi(z) or its derivative Bi'(z), ")
-    (text . "for complex z, with an option for exponential scaling. ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Real part of {\it z}:")
-    (text . "\tab{32} \menuitemstyle{}\tab{34}")
-    (text . "Imaginary part of {\it z}:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.3" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "0.4" y F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Function or derivative required: ")
-    (radioButtons deriv
-        ("" "  Function" f)
-        ("" "  Derivative" d))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Scaling option: ")
-    (radioButtons scale
-        ("" "  Unscaled" u)
-        ("" "  Scaled" s))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Ifail value: ")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's17dhfGen)
-  htShowPage()
-
-
-s17dhfGen htPage == 
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  ford := htpButtonValue(htPage,'deriv)
-  deriv := 
-    ford = 'f => '"f"
-    '"d"
-  uors := htpButtonValue(htPage,'scale)
-  scale := 
-    uors = 'u => '"u"
-    '"s"
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  prefix := STRCONC('"s17dhf(_"",deriv,"_",complex(",x,",",y,"),_"")
-  prefix := STRCONC(prefix,scale,"_", ",STRINGIMAGE ifail,")")
-  linkGen prefix
-
-
-s17dlf() ==
-  htInitPage('"S17DLF - Hankel function \vspace{-28} \htbitmap{s17dlf} \vspace{-37}, j = 1,2, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil)
-  htMakePage '(
-    (domainConditions 
-       (isDomain F (Float))
-         (isDomain PI (PositiveInteger)))
-    (text . "\windowlink{Manual Page}{manpageXXs17dlf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s17dlf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\newline ")
-    (text . "Returns a sequence of values for the Hankel functions ")
-    (text . "\htbitmap{s17dlf}, j = 1,2, for complex z, ")
-    (text . "non-negative v ")
-    (text . "and n = 0,1,...,N-1, with an option for exponential scaling.")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Order v of the first member of the sequence of functions ")
-    (text . "{\it FNU} \htbitmap{great=} 0:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.0" fnu F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Real part of {\it z}:")
-    (text . "\tab{32} \menuitemstyle{}\tab{34}")
-    (text . "Imaginary part of {\it z}:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.3" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "0.4" y F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Number of members required in sequence {\it N} ")
-    (text . "\htbitmap{great=} 1:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 2 n PI))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Hankel function {\it m}: ")
-    (radioButtons hankel
-        ("" "  \htbitmap{s17dlf1}" mone)
-        ("" "  \htbitmap{s17dlf2}" mtwo))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Scaling option: ")
-    (radioButtons scale
-        ("" "  Unscaled" u)
-        ("" "  Scaled" s))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Ifail value: ")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's17dlfGen)
-  htShowPage()
-
-
-s17dlfGen htPage == 
-  n :=
-    $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n)
-    objValUnwrap htpLabelSpadValue(htPage, 'n)
-  fnu := htpLabelInputString(htPage,'fnu)
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  hankel := htpButtonValue(htPage,'hankel)
-  m := 
-    hankel = 'mone => '1
-    '2
-  uors := htpButtonValue(htPage,'scale)
-  scale := 
-    uors = 'u => '"u"
-    '"s"
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  prefix := STRCONC('"s17dlf(",STRINGIMAGE m,", ",fnu,",complex(")
-  prefix := STRCONC(prefix,x,",",y,"),",STRINGIMAGE n)
-  prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")")
-  linkGen prefix
-
-
-s18acf() ==
-  page := htInitPage("S18ACF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18acf1.bitmap}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs18acf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18acf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}")
-    (text . "\inputbitmap{\htbmdir{}/s18acf.bitmap} \vspace{-40}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x > 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.4" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s18acf")
-  htShowPage()
-
-s18adf() ==
-  page := htInitPage("S18ADF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18adf1.bitmap}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs18adf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18adf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}")
-    (text . "\inputbitmap{\htbmdir{}/s18adf.bitmap} \vspace{-40}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x > 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.4" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s18adf")
-  htShowPage()
-
-s18aef() ==
-  page := htInitPage("S18AeF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18aef1.bitmap}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs18aef} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18aef| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}")
-    (text . "\inputbitmap{\htbmdir{}/s18aef.bitmap} \vspace{-40}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.5" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s18aef")
-  htShowPage()
-
-s18aff() ==
-  page := htInitPage("S18AFF - Modified Bessel Function \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s18aff1.bitmap}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs18aff} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18aff| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the modified Bessel function \space{1} \vspace{-28}")
-    (text . "\inputbitmap{\htbmdir{}/s18aff.bitmap} \vspace{-40}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.5" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s18aff")
-  htShowPage()
-
-s18dcf() ==
-  htInitPage('"S18DCF - Bessel function \htbitmap{s18dcf}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil)
-  htMakePage '(
-    (domainConditions 
-       (isDomain F (Float))
-         (isDomain PI (PositiveInteger)))
-    (text . "\windowlink{Manual Page}{manpageXXs18dcf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18dcf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\newline ")
-    (text . "Returns a sequence of values for the modified Bessel functions ")
-    (text . "\htbitmap{s18dcf}, for complex z, non-negative v ")
-    (text . "and n = 0,1,...,N-1, with an option for exponential scaling.")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Order v of the first member of the sequence of functions ")
-    (text . "{\it FNU} \htbitmap{great=} 0:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.0" fnu F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Real part of {\it z}:")
-    (text . "\tab{32} \menuitemstyle{}\tab{34}")
-    (text . "Imaginary part of {\it z}:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.3" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "0.4" y F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Number of members required in sequence {\it N} ")
-    (text . "\htbitmap{great=} 1:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 2 n PI))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Scaling option: ")
-    (radioButtons scale
-        ("" "  Unscaled" u)
-        ("" "  Scaled" s))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Ifail value: ")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's18dcfGen)
-  htShowPage()
-
-
-s18dcfGen htPage == 
-  n :=
-    $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n)
-    objValUnwrap htpLabelSpadValue(htPage, 'n)
-  fnu := htpLabelInputString(htPage,'fnu)
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  uors := htpButtonValue(htPage,'scale)
-  scale := 
-    uors = 'u => '"u"
-    '"s"
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  prefix := STRCONC('"s18dcf(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n)
-  prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")")
-  linkGen prefix
-
-s18def() ==
-  htInitPage('"S18DEF - Modified bessel function \htbitmap{s18def}, real a \space{1} \htbitmap{great=} 0, complex z, v = 0,1,2,...",nil)
-  htMakePage '(
-    (domainConditions 
-       (isDomain F (Float))
-         (isDomain PI (PositiveInteger)))
-    (text . "\windowlink{Manual Page}{manpageXXs18def} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s18def| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\newline ")
-    (text . "Returns a sequence of values for the modified Bessel functions ")
-    (text . "\htbitmap{s18def}, for complex z, non-negative v ")
-    (text . "and n = 0,1,...,N-1, with an option for exponential scaling.")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Order v of the first member of the sequence of functions ")
-    (text . "{\it FNU} \htbitmap{great=} 0:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.0" fnu F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Real part of {\it z}:")
-    (text . "\tab{32} \menuitemstyle{}\tab{34}")
-    (text . "Imaginary part of {\it z}:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 "0.3" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "-0.4" y F))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Number of members required in sequence {\it N} ")
-    (text . "\htbitmap{great=} 1:")
-    (text . "\newline \tab{2} ")
-    (bcStrings (10 2 n PI))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Scaling option: ")
-    (radioButtons scale
-        ("" "  Unscaled" u)
-        ("" "  Scaled" s))
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{} \tab{2} ")
-    (text . "\newline \tab{2} ")
-    (text . "Ifail value: ")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's18defGen)
-  htShowPage()
-
-
-s18defGen htPage == 
-  n :=
-    $bcParseOnly => PARSE_-INTEGER htpLabelInputString(htPage, 'n)
-    objValUnwrap htpLabelSpadValue(htPage, 'n)
-  fnu := htpLabelInputString(htPage,'fnu)
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  uors := htpButtonValue(htPage,'scale)
-  scale := 
-    uors = 'u => '"u"
-    '"s"
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  prefix := STRCONC('"s18def(",fnu,",complex(",x,",",y,"),",STRINGIMAGE n)
-  prefix := STRCONC(prefix,",_"",scale,"_", ",STRINGIMAGE ifail,")")
-  linkGen prefix
-
-
-s19aaf() ==
-  page := htInitPage("S19AAF - Kelvin Function {\em ber x}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs19aaf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19aaf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Kelvin function {\em ber x}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "1.0" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s19aaf")
-  htShowPage()
-
-s19abf() ==
-  page := htInitPage("S19ABF - Kelvin Function {\em bei x}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs19abf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19abf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Kelvin function {\em bei x}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.1" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s19abf")
-  htShowPage()
-
-s19acf() ==
-  page := htInitPage("S19ACF - Kelvin Function {\em ker x}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs19acf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19acf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Kelvin function {\em ker x}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x > 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.1" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s19acf")
-  htShowPage()
-
-s19adf() ==
-  page := htInitPage("S19AAF - Kelvin Function {\em kei x}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs19adf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s19adf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Kelvin function {\em kei x}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x \inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.0" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s19adf")
-  htShowPage()
-
-s20acf() ==
-  page := htInitPage("S20ACF - Fresnel Integral {\em S(x)}",nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs20acf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s20acf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Fresnel Integral {\em S(x)}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.5" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s20acf")
-  htShowPage()
-
-s20adf() ==
-  page := htInitPage("S20ADF - Fresnel Integral {\em C(x)}",nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs20adf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s20adf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the Fresnel Integral {\em C(x)}")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument x: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (9 "0.5" x F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 'sGen)
-  htpSetProperty(page,'routine,"s20adf")
-  htShowPage()
-
-s21baf() ==
-  htInitPage("S21BAF - Degenerate Symmetrised Elliptic Integral of 1st Kind \vspace{-28} \inputbitmap{\htbmdir{}/s21baf1.bitmap}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs21baf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21baf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the elementary (degenerate symmetrised elliptic) ")
-    (text . " integral \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21baf.bitmap} ")
-    (text . "\blankline ")
-    (text . "\newline ")
-    (text . "\blankline ")
-    (text . "\newline \menuitemstyle{}\tab{2} ")
-    (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ")
-    (text . "\tab{32} \menuitemstyle{}\tab{34} ")
-    (text . "Enter the argument y \notequal 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (10 "0.5" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "1.0" y F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's21bafGen)
-  htShowPage()
-
-s21bafGen htPage == 
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  linkGen STRCONC("s21baf(",x,'",",y,",",STRINGIMAGE ifail,'")")
-
-s21bbf() ==
-  htInitPage("S21BBF - Symmetrised Elliptic Integral of 1st Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bbf1.bitmap}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs21bbf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bbf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the symmetrised elliptic integral of the first kind ")
-    (text . "\space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bbf.bitmap} ")
-    (text . "\newline ")
-    (text . "\blankline ")
-    (text . "\newline \menuitemstyle{}\tab{2} ")
-    (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ")
-    (text . "\tab{32} \menuitemstyle{}\tab{34} ")
-    (text . "Enter the argument y \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (10 "0.5" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "1.0" y F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument z \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0; ")
-    (text . "at most one of x,y and z may be equal to 0.0: \newline \tab{2}")
-    (bcStrings (10 "1.5" z F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's21bbfGen)
-  htShowPage()
-
-s21bbfGen htPage == 
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  z := htpLabelInputString(htPage,'z)
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  linkGen STRCONC("s21bbf(",x,'",",y,",",z,",",STRINGIMAGE ifail,'")")
-
-s21bcf() ==
-  htInitPage("S21BCF - Symmetrised Elliptic Integral of 2nd Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bcf1.bitmap}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs21bcf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bcf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the symmetrised elliptic integral of the second kind ")
-    (text . "\space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bcf.bitmap} ")
-    (text . "\newline ")
-    (text . "\blankline ")
-    (text . "\newline \menuitemstyle{}\tab{2} ")
-    (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ")
-    (text . "\tab{32} \menuitemstyle{}\tab{34} ")
-    (text . "Enter the argument y \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (10 "0.5" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "0.5" y F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument z > 0.0; ")
-    (text . "at most one of x, y and z may be equal to 0.0: \newline \tab{2}")
-    (bcStrings (10 "1.0" z F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's21bcfGen)
-  htShowPage()
-
-s21bcfGen htPage == 
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  z := htpLabelInputString(htPage,'z)
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  linkGen STRCONC("s21bcf(",x,'",",y,",",z,",",STRINGIMAGE ifail,'")")
-
-s21bdf() ==
-  htInitPage("S21BDF - Symmetrised Elliptic Integral of 3rd Kind \space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bdf1.bitmap}", nil)
-  htMakePage '(
-    (domainConditions
-       (isDomain F (Float)))
-    (text . "\windowlink{Manual Page}{manpageXXs21bdf} for this routine ")
-    (text . "\newline ")
-    (text . "\lispwindowlink{Browser operation page}{(|oPageFrom| '|s21bdf| '|NagSpecialFunctionsPackage|)} for this routine")
-    (text . "\newline \horizontalline ")
-    (text . "\blankline ")
-    (text . "Evaluates the symmetrised elliptic integral of the third kind ")
-    (text . "\space{1} \vspace{-28} \inputbitmap{\htbmdir{}/s21bdf.bitmap} ")
-    (text . "\newline ")
-    (text . "\blankline ")
-    (text . "\newline \menuitemstyle{}\tab{2} ")
-    (text . "Enter the argument x \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ")
-    (text . "\tab{32} \menuitemstyle{}\tab{34} ")
-    (text . "Enter the argument y \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0: ")
-    (text . "\newline\tab{2} ")
-    (bcStrings (10 "0.5" x F))
-    (text . "\tab{34} ")
-    (bcStrings (10 "0.5" y F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument z \space{1}\inputbitmap{\htbmdir{}/great=.bitmap} 0.0; ")
-    (text . "at most one of x, y and z may be equal to 0.0: \newline \tab{2}")
-    (bcStrings (10 "0.5" z F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Enter the argument \rho \notequal 0.0: \newline \tab{2} ")
-    (bcStrings (10 "2.0" r F))
-    (text . "\blankline")
-    (text . "\newline ")
-    (text . "\menuitemstyle{}\tab{2}")
-    (text . "Ifail value:")
-    (radioButtons ifail
-        ("" " -1, Print error messages" minusOne)
-        ("" "  1, Suppress error messages" one)))
-  htMakeDoneButton('"Continue", 's21bdfGen)
-  htShowPage()
-
-s21bdfGen htPage == 
-  x := htpLabelInputString(htPage,'x)
-  y := htpLabelInputString(htPage,'y)
-  z := htpLabelInputString(htPage,'z)
-  r := htpLabelInputString(htPage,'r)
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  linkGen STRCONC("s21bdf(",x,'",",y,",",z,",",r,",",STRINGIMAGE ifail,'")")
-
-sGen htPage == 
-  routine := htpProperty(htPage,'routine)
-  x := htpLabelInputString(htPage,'x)
-  error := htpButtonValue(htPage,'ifail)
-  ifail := 
-    error = 'one => 1
-    -1
-  linkGen STRCONC(routine,"(",x,'",",STRINGIMAGE ifail,'")")
-
-@
-\eject
-\begin{thebibliography}{99}
-\bibitem{1} nothing
-\end{thebibliography}
-\end{document}