\* ------------------------------------------------------------------
\* Name:  stn express script: pickans.sc
\* Function: See original description
\* Author:  Thomas Kaegi, Ascom AG, CH-Bern
\* Date:  04.11.1997
\* ------------------------------------------------------------------

\* This script picks answers x, y, z from answer set Ln and puts
\* them in a new L#
\* The resulting L# will contain the selected answers in descending
\* order of accession #
\* The 2 CAPTURE-commands turn recording to the current
\* transcript file off and on
\* during the input dialog for the 2 variables. However, the
\* second command requires
\* that you confirm the transcript’s file name by clicking on
\* the "Append"-button.
\* You may delete the 2 CAPTURE lines from the script if this
\* were bothering you!
\* Assuming that in a database research L23 comprises 50
\* answers and you listed
\* their titles in order to find the ones that interest you - further
\* assuming that
\* answers 3, 10, 15-18, 37, and 48 were the ones that cought
\* your attention, your
\* input to the first GET would be "L23" (without quotes), and
\* "3, 10,15-18, 37, 48"
\* to the second GET, resulting in the following SORT command:
\* SOR L23 3, 10, 15-18, 37, 48 ED D
\* producing a new L# with 8 answers for further processing.

capture off <>
echo "Specify L# from which to pick answers (Format: Ln)"
get _lnr
echo "Specify answers to pick (Format: v, w, x-z)"
get _answers
echo ""
capture on <>
=> sor _lnr _answers ed d

=> file stnguide
=> d his
=>
\* ------------------------------------------------------------------