page@swan.ulowell.edu (Bob Page) (12/29/88)
Submitted-by: barsh@stsci.edu (John Barshinger)
Posting-number: Volume 2, Issue 101
Archive-name: intuition/jask.1
JASK is a replacement for the WB1.3 ASK command that allows the
user to click on a gadget rather than type at the keyboard.
[uuencoded executable included. ..Bob]
# This is a shell archive.
# Remove everything above and including the cut line.
# Then run the rest of the file through sh.
#----cut here-----cut here-----cut here-----cut here----#
#!/bin/sh
# shar: Shell Archiver
# Run the following text with /bin/sh to create:
# jask.c
# read.me
# jask.doc
# test_jask
# jask.uu
# This archive created: Wed Dec 28 13:04:01 1988
cat << \SHAR_EOF > jask.c
/* Copyright 1988 by I2(EYE) Systems. JASK.C - Version 1.0
*
* This file contains all of the routines for this program.
*
*
* JASK - Drop-in Intuitive Ask Replacement
*
* This software may be freely distributed provided that this notice
* is retained. It may be hacked or used as is in any product as long
* as you credit me for it.
*
* If you find this program useful for enhancing your script file
* capabilites or as example source code, please send $5.00 to:
*
* I2(EYE) Systems
* 6620 Hunter Road
* Elkridge, MD 21227
* Attn: J. Barshinger
*
* USENET or ARPANET: barsh@stsci
*
* Note: if you send $10.00, I'll send you the latest enhancements.
* Planned enhancements include a re-entrant version so
* that it can be made resident and a mouse-move capability
* that will automatically move the pointer to the default
* gadget.
*
* JASK - Intuitive Ask Replacement
* --------------------------------
*
* JASK is a replacement for the ASK command distributed in the Amiga 1.3
* enhancer package. It will allow the user to click on a gadget to specify
* a positive or negative response rather than type it in at the keyboard.
* You can move the "requester" to the bottom of the screen or to the front
* or back of other screens if you don't want to answer it at the moment.
*
* JASK Parameters
* ---------------
*
* -r This parameter specifies the "requester" text. This is
* the question you want to ask.
*
* This is the only REQUIRED parameter. (40 character max.)
*
* EXAMPLE: "-rYour MOMMA is ?" = Your MOMMA is ? in the
* requester box.
* (put quotes around the string to put spaces in the text)
*
* -p This specifies the text for the positive (left) gadget.
* When this gadget is selected, WARN (5) will be returned.
* (put quotes around the string to put spaces in the text)
* DEFAULT: YES (12 character max.)
* EXAMPLE: -pUGLY = UGLY in the left gadget.
*
* -n This specifies the text for the negative (right) gadget.
* When this gadget is selected, 0 will be returned (success).
* (put quotes around the string to put spaces in the text)
* DEFAULT: NO (12 character max.)
* EXAMPLE: -nPHAT = PHAT in the right gadget.
*
* -t This will specify a timeout period in seconds. When the
* timeout period expires, the default answer will be returned.
* DEFAULT: wait forever
* EXAMPLE: -t10 = wait 10 seconds.
*
* -d This parameter specifies which gadget is the default (safe)
* answer. It does two things:
* a) determines if the positive or negative answer is
* to be default.
* b) makes a more extravagant border for the specified
* gadget.
* n specifies the negative answer, p specifies the positive
* answer.
* DEFAULT: if this is not specified, both gadgets will look
* the same, but the negative gadget will be returned.
* EXAMPLE: -dp = Fancy gadget rendered on positive and positive
* is the default answer.
*
* -q This specifies whether you want the "requester" quick or if
* you want the "requester" to scroll up.
* DEFAULT: the "requester" scrolls up to it final position.
* EXAMPLE: -q = turn off the scrolling effects.
*
*/
#include "exec/types.h"
#include "intuition/intuition.h"
/* define ScreenFont1 to be the default Amiga font in Italic Mode */
struct TextAttr ScreenFont1 = { "topaz.font", TOPAZ_EIGHTY,
FSF_ITALIC, FPF_ROMFONT };
/* define ScreenFont2 to be the default Amiga font */
struct TextAttr ScreenFont2 = { "topaz.font", TOPAZ_EIGHTY,
FS_NORMAL, FPF_ROMFONT };
#define POS_GAD TRUE /* User value for the positive gadget */
#define NEG_GAD FALSE /* User value for the negative gadget */
/* Initialize the requester, positive gadget, and negative gadget text */
char RText[] = " ";
char PText[] = " ";
char NText[] = " ";
struct IntuiText ReqText = { /* Structure defining the Requester Text */
3, 2, /* front pen, back pen colors */
JAM2, /* front pen used for text, back for background */
0, 0, /* LeftEdge, TopEdge offsets */
&ScreenFont1, /* Text font to use */
RText, /* Text to print */
NULL }; /* Pointer to next Text structure */
struct IntuiText ReqText1 = { /* Structure defining the PosGad Text */
1, 2, /* front pen, back pen colors */
JAM1, /* front pen used for text, back for background */
2, 5, /* LeftEdge, TopEdge offsets */
&ScreenFont2, /* Text font to use */
PText, /* Text to print */
NULL }; /* Pointer to next Text structure */
struct IntuiText ReqText2 = { /* Structure defining the NegGad Text */
1, 2, /* front pen, back pen colors */
JAM1, /* front pen used for text, back for background */
2, 5, /* LeftEdge, TopEdge offsets */
&ScreenFont2, /* Text font to use */
NText, /* Text to print */
NULL }; /* Pointer to next Text structure */
/* this data represents points offset from the actual gadget
(xy coordinates). This puts the pen down at the first point and
draws to the next point until done. This is used to draw the boxes
around the Gadgets */
short DefGadBorderPts[] = {
-1, -6, /* Starting point */
-7, -1, /* points to draw lines to... */
-7, 20,
-1, 25, /* This data defines the fancy gadget border */
100, 25, /* that you turn on with the -d parameter */
106, 20,
106, -1,
100, -6,
-1, -6,
-1, 25,
-1, 20,
100, 20,
100, 25,
100, -6,
100, -1,
-1, -1 };
/* This data defines the inside box around the plain gadget border */
short aGadBorderPts[] = {
-1, -1, /* Starting point */
100, -1, /* points to draw the line to... */
100, 20,
-1, 20,
-1, -1 }; /* interior gadget box outline */
/* This data defines the outside boc around the plain gadget border */
short bGadBorderPts[] = {
-4, -3, /* Starting point */
103, -3, /* points to draw the line to... */
103, 22,
-4, 22,
-4, -3 }; /* exterior gadget box outline */
/* This structure points to the data defining the outside gadget border */
struct Border NormGadBorder = {
0, 0, /* LeftEdge, TopEdge offsets from the gadget */
2, 3, JAM1, /* FrontPen, BackPen, Draw using the frontpen */
5, /* Number of xy coordinates in this border */
bGadBorderPts, /* pointer to the border xy coordinates */
NULL }; /* pointer to the next border to draw */
/* This structure defines the positive gadget border(s) */
struct Border GadBorder1 = {
0, 0, /* LeftEdge, TopEdge offsets from the gadget */
2, 3, JAM1, /* FrontPen, BackPen, Draw using the frontpen */
5, /* Number of xy coordinates in this border */
aGadBorderPts, /* pointer to the border xy coordinates */
&NormGadBorder };/* pointer to the outside gadget border */
/* This structure defines the negative gadget border(s) */
struct Border GadBorder2 = {
0, 0, /* LeftEdge, TopEdge offsets from the gadget */
2, 3, JAM1, /* FrontPen, BackPen, Draw using the frontpen */
5, /* Number of xy coordinates in this border */
aGadBorderPts, /* pointer to the border xy coordinates */
&NormGadBorder };/* pointer to the outside gadget border */
/* Structure defining the Negative Gadget */
struct Gadget ReqGad2 = {
NULL, /* pointer to next gadget */
500, 10, /* LeftEdge, TopEdge offsets within window */
100, 20, /* Width, Height of the gadget */
GADGHCOMP, /* Complement the gadget color when pressed */
RELVERIFY, /* Pointer must be in gadget when released */
BOOLGADGET, /* This is a boolean gadget */
(APTR)(&GadBorder2), /* pointer to the gadget's borders */
NULL, /* pointer to image when gadget is selected */
&ReqText2, /* pointer to gadget's text */
NULL, NULL, /* Mutual exclude, special info flags */
NEG_GAD, /* User data defining gadget id */
NULL }; /* Pointer to user data */
/* Structure defining the Positive Gadget */
struct Gadget ReqGad1 = {
&ReqGad2, /* pointer to next gadget */
40, 10, /* LeftEdge, TopEdge offsets within window */
100, 20, /* Width, Height of the gadget */
GADGHCOMP, /* Complement the gadget color when pressed */
RELVERIFY, /* Pointer must be in gadget when released */
BOOLGADGET, /* This is a boolean gadget */
(APTR)(&GadBorder1), /* pointer to the gadget's borders */
NULL, /* pointer to image when gadget is selected */
&ReqText1, /* pointer to gadget's text */
NULL, NULL, /* Mutual exclude, special info flags */
POS_GAD, /* User data defining gadget id */
NULL }; /* Pointer to user data */
/* Structure defining the Screen */
struct NewScreen ReqScreen = {
0, 210, /* LeftEdge, TopEdge */
640, 53, /* Width, Height */
2, /* Depth - number of bit-planes */
2, 3, /* DetailPen, BlockPen */
HIRES, /* ViewModes - 640X200 */
CUSTOMSCREEN, /* Screen Type */
&ScreenFont2, /* Default Font */
"JRBII's Ask Requester V1.0", /* Default Title */
NULL, /* Gadgets, currently ignored */
NULL }; /* Custom Bit Map */
/* Structure defining the Window */
struct NewWindow ReqWindow = {
0, 10, /* LeftEdge, TopEdge offset within screen */
640, 43, /* Width, Height */
-1, -1, /* DetailPen, BlockPen, -1 means same as screen */
GADGETUP, /* IDCMP Flags, send message on Gadget selected */
ACTIVATE, /* Window Flags - Activate the window */
&ReqGad1, /* Pointer to FirstGadget in window */
NULL, /* CheckMark */
NULL, /* Window title */
NULL, /* Pointer to Screen */
NULL, /* Pointer to BitMap */
0, 0, /* Minimum width, Minimum height */
0, 0, /* Maximum width, Maximum height */
CUSTOMSCREEN }; /* Screen Type for this Window */
struct Window *ReqWin = NULL; /* pointer to a Window structure */
struct Screen *ReqScr = NULL; /* pointer to a Screen structure */
struct Window *OpenWindow(); /* define the OpenWindow routine */
struct Screen *OpenScreen(); /* define the OpenScreen routine */
LONG IntuitionBase = NULL; /* Address of Intuition library */
/* IT MUST BE A GLOBAL SYMBOL */
LONG result; /* result returned to the script file */
int timeout; /* number of seconds before timeout */
struct IntuiMessage *msg; /* Message pointer for msg received */
/* from the IDCMP. */
/* This routine cleans up and returns "result" to AmigaDos. It is */
/* called for normal termination of the program, in addition to any */
/* error conditions encountered. */
void Done()
{
/* if there is a message leftover, return it to Intuition */
if (msg != 0) ReplyMsg(msg);
/* if the Window exists, close it */
if (ReqWin != NULL) CloseWindow(ReqWin);
/* if the Screen is open, close it */
if (ReqScr != NULL) CloseScreen(ReqScr);
/* if the Intuition library is open, close it */
if (IntuitionBase != NULL) CloseLibrary(IntuitionBase);
/* return result to AmigaDos */
exit(result);
} /* end Done() */
/* This routine parses the command line parameters and sets up the */
/* requested special effects */
/* Parsing and error checking has been kept to a minimum here to */
/* keep the executable code size as small as possible */
void Parse_Args(argc, argv)
int argc; /* count of parameters passed */
char *argv[]; /* pointer to the parameters */
{
char i, k, x, y, error, rfound, pfound, nfound, *arg;
error = 0; /* error counter */
rfound = FALSE; /* -r parameter found?, it's a required parm */
pfound = FALSE; /* -p parameter found? */
nfound = FALSE; /* -n parameter found? */
for (i=1; i<argc; i++) /* go through all the parameters */
{
arg = argv[i]; /* get pointer to the current parameter */
if (arg[0] != '-') error++; /* make sure there's a dash */
/* determine which parameter this is */
switch (tolower(arg[1])) /* convert the char to lower */
{
case 'q': /* quick parameter */
ReqScreen.TopEdge = 146; /* put the screen in */
/* its final location */
break;
case 'r': /* requester text parmeter */
if (!rfound)
{
rfound = TRUE; /* set -r parm found flag */
/* if parm text is greater than its max size */
/* truncate it to max size, save the size in k*/
if ((k = strlen(&arg[2])) > 40)
k = 40;
/* calculate the number of spaces needed to */
/* center the text in the requester */
x = (40 - k) / 2;
/* copy the text into the requester text array */
for (y = 2; y < k+2; x++, y++)
RText[x] = arg[y];
};
break;
case 'p': /* Positive Gadget text parm */
if (!pfound)
{
pfound = TRUE; /* set -p parm found flag */
/* if input text is greater than its max size */
/* truncate it to max size, save the size in k*/
if ((k = strlen(&arg[2])) > 12)
k = 12;
/* calculate the number of spaces needed to */
/* center the text in the Gadget */
x = (12 - k) / 2;
/* copy the text into the PosGad text array */
for (y = 2; y < k+2; x++, y++)
PText[x] = arg[y];
};
break;
case 'n': /* Negative Gadget text parm */
if (!nfound)
{
nfound = TRUE; /* set -n parm found flag */
/* if input text is greater than its max size */
/* truncate it to max size, save the size in k */
if ((k = strlen(&arg[2])) > 12)
k = 12;
/* calculate the number of spaces needed to */
/* center the text in the Gadget */
x = (12 - k) / 2;
/* copy the text into the NegGad text array */
for (y = 2; y < k+2; x++, y++)
NText[x] = arg[y];
};
break;
case 't': /* Timeout parameter */
/* convert the string to an integer value */
stcd_i(&arg[2],&timeout);
timeout *= 10; /* our clock ticks 10 times per */
/* second, so multiply the */
/* timeout by 10 to get seconds */
/* Cause the IDCMP to get a timer message */
/* 10 times per second in addition to receiving */
/* gadget selection messages */
ReqWindow.IDCMPFlags = GADGETUP|INTUITICKS;
break;
case 'd': /* Default specifier parm */
if (tolower(arg[2]) == 'n')
{ /* Negative Gadget Specified */
/* Setup the gadget border to use the */
/* fancy border */
GadBorder2.Count = 16; /* 16 xy points */
GadBorder2.XY = DefGadBorderPts;
GadBorder2.NextBorder = NULL;
result = 0; /* default result is Neg */
}
else if (tolower(arg[2]) == 'p')
{ /* Pos Gadget specified */
/* Setup the gadget border to use the */
/* fancy border */
GadBorder1.Count = 16; /* 16 xy points */
GadBorder1.XY = DefGadBorderPts;
GadBorder1.NextBorder = NULL;
result = 5; /* default result is Pos */
}
else error++; /* anything except 0 or 1 is err */
break;
default: /* Any other parameters specifiers are wrong */
error++;
break;
}; /* end switch */
}; /* end for */
if (!pfound) /* if pos text not specified, just say YES */
{
PText[4] = 'Y';
PText[5] = 'E';
PText[6] = 'S';
};
if (!nfound) /* if neg text not specified, just say NO */
{
NText[5] = 'N';
NText[6] = 'O';
};
if (error || (!rfound)) /* if an error occurred... */
{
/* print the usage message */
puts("USAGE: jask -r [-q] [-p] [-n] [-t] [-d]");
exit(10); /* and exit back to AmigaDos */
};
} /* end Parse_Args() */
void main(argc, argv)
int argc;
char *argv[];
{
struct Gadget *Gad; /* pointer to the Gadget message */
short GadID; /* Gadget ID for the message */
int time; /* number of ticks since program start */
char i;
time = 0; /* initialize time to 0 */
result = 0; /* default result is 0, if not specified */
Parse_Args(argc, argv); /* Parse the command line parameters */
/* Open the intuition library, on error exit... */
if ((IntuitionBase = OpenLibrary("intuition.library",0)) == NULL)
{
puts("Error opening the intuition library");
exit(10);
};
/* Open the Screen, on error call done to also close the */
/* intuition library */
if ((ReqScr = OpenScreen(&ReqScreen)) == NULL)
{
puts("Can't open ReqScreen\n");
result = 10;
Done();
};
ReqWindow.Screen = ReqScr; /* Put the screen address in */
/* window structure, so the */
/* window knows where to go */
/* Open the window, on error call done to close the screen and */
/* the intuition library */
if ((ReqWin = OpenWindow(&ReqWindow)) == NULL)
{
puts("Can't open ReqWindow\n");
result = 10;
Done();
};
/* Print the requester text into the window at x=160, y=15 */
PrintIText(ReqWin->RPort,&ReqText,160,15);
/* Scroll the screen up to its final position, unless the -q */
/* option was specified, which automatically puts it in its */
/* final position */
for (i=0; ((i<64) && (ReqScreen.TopEdge > 200)) ; i++)
MoveScreen(ReqScr, 0, -1);
while(TRUE) /* loop forever, exit on GADGETUP or timeout */
{
/* Wait for an intuition message from the window's port */
WaitPort( ReqWin->UserPort );
/* Message received, so get a pointer to it */
msg = (struct IntuiMessage *) GetMsg(ReqWin->UserPort);
/* We could recieve more that one message, so loop */
/* until all have been processed */
while (msg != 0)
{
/* switch on the type of message received */
switch (msg->Class)
{
case GADGETUP: /* A Gadget was selected */
/* Get the address of the Gadget */
Gad = (struct Gadget *)(msg->IAddress);
/* Determine which gadget was selected */
GadID = Gad->GadgetID;
/* if GadID is TRUE, the pos gadget was */
/* selected, else the neg was selected */
/* set the result appropriately */
if (GadID)
result = 5;
else
result = 0;
/* We're done, close whatever we opened */
/* and return the result to AmigaDos */
Done();
break;
case INTUITICKS: /* A timer msg was received */
/* if the tick count is greater than */
/* timeout, we're done, so close what- */
/* ever we opened and send the default */
/* result to AmigaDos */
if (time++ > timeout) Done();
break;
} /* switch (msg->class)... */
ReplyMsg(msg); /* Done with the msg, so send it */
/* back to intuition */
/* Get the next message, if any */
msg = (struct IntuiMessage *)
GetMsg(ReqWin->UserPort);
} /* end while (msg != 0)... */
} /* end while (TRUE)... */
} /* end main() */
/* End of file - JASK.C */
SHAR_EOF
cat << \SHAR_EOF > read.me
Copyright 1988 by I2(EYE) Systems. READ.ME - Version 1.0
JASK Distribution
-----------------
FILES INCLUDED:
jask.c - source code
jask - executable
jask.doc - help file for JASK
test_jask - sample script file using JASK
read.me - this file.
For a quick test of JASK, at the cli prompt type:
execute test_jask
Note: if you want to pass spaces in any parameters, remember
to enclose the parameter in quotes.
EXAMPLE: "-pThere are spaces in here"
USENET | ARPANET: barsh@stsci
SHAR_EOF
cat << \SHAR_EOF > jask.doc
Copyright 1988 by I2(EYE) Systems. JASK.DOC - Version 1.0
JASK - Intuitive Ask Replacement
--------------------------------
JASK is a replacement for the ASK command distributed in the Amiga 1.3
enhancer package. It will allow the user to click on a gadget to specify
a positive or negative response rather than type it in at the keyboard.
You can move the "requester" to the bottom of the screen or to the front
or back of other screens if you don't want to answer it at the moment.
JASK Parameters
---------------
-r This parameter specifies the "requester" text. This is
the question you want to ask.
This is the only REQUIRED parameter. (40 character max.)
EXAMPLE: "-rYour MOMMA is ?" = Your MOMMA is ? in the
requester box.
(put quotes around the string to put spaces in the text)
-p This specifies the text for the positive (left) gadget.
When this gadget is selected, WARN (5) will be returned.
(put quotes around the string to put spaces in the text)
DEFAULT: YES (12 character max.)
EXAMPLE: -pUGLY = UGLY in the left gadget.
-n This specifies the text for the negative (right) gadget.
When this gadget is selected, 0 will be returned (success).
(put quotes around the string to put spaces in the text)
DEFAULT: NO (12 character max.)
EXAMPLE: -nPHAT = PHAT in the right gadget.
-t This will specify a timeout period in seconds. When the
timeout period expires, the default answer will be returned.
DEFAULT: wait forever
EXAMPLE: -t10 = wait 10 seconds.
-d This parameter specifies which gadget is the default (safe)
answer. It does two things:
a) determines if the positive or negative answer is
to be default.
b) makes a more extravagant border for the specified
gadget.
n specifies the negative answer, p specifies the positive
answer.
DEFAULT: if this is not specified, both gadgets will look
the same, but the negative gadget will be returned.
EXAMPLE: -dp = Fancy gadget rendered on positive and positive
is the default answer.
-q This specifies whether you want the "requester" quick or if
you want the "requester" to scroll up.
DEFAULT: the "requester" scrolls up to it final position.
EXAMPLE: -q = turn off the scrolling effects.
This software may be freely distributed provided that this notice
is retained. It may be hacked or used as is in any product as long
as you credit me for it.
If you find this program useful for enhancing your script file
capabilites or as example source code, please send $5.00 to:
I2(EYE) Systems
6620 Hunter Road
Elkridge, MD 21227
Attn: J. Barshinger
Note: if you send $10.00, I'll send you the latest enhancements.
Planned enhancements include a re-entrant version so
that it can be made resident and a mouse-move capability
that will automatically move the pointer to the default
gadget.
USENET or ARPANET: barsh@stsci
SHAR_EOF
cat << \SHAR_EOF > test_jask
; Copyright 1988 by I2(EYE) Systems. TEST_JASK - Version 1.0
;
failat 6
; these parameters say:
; -r = the requester text is YA MOMMA is ?
; -p = the positive gadget says FAT
; -n = the negative gadget says UGLY
; -d = the default is positive and draw a fancy border around the pos gad
; -t = parameter not specified so never timeout
jask "-rYA MOMMA is ?" -pFAT -nUGLY -dp
if warn
echo "POS Gadget pressed"
else
echo "NEG Gadget pressed"
endif
; these parameters say:
; -r = the requester text is YA MOMMA is ?
; -p = the positive gadget says FAT
; -n = the negative gadget says UGLY
; -d = the default is negative and draw a fancy border around the neg gad
; -t = timeout after 5 seconds and take the default answer
; -q = bring up the requester quick, don't scroll it up
jask "-rYA MOMMA is ?" -pFAT -nUGLY -dn -t5 -q
if warn
echo "POS Gadget pressed"
else
echo "NEG Gadget pressed"
endif
; Only the required parameter is specified here
jask "-rIsn't this a simple case?"
if warn
echo "POS Gadget pressed"
else
echo "NEG Gadget pressed"
endif
SHAR_EOF
cat << \SHAR_EOF > jask.uu
begin 644 jask
M```#\P`````````$``````````,```5]```!B0```!H````B```#Z0``!7TD7
M2"0`2?D`````1_D```.T<@`@/````)Q@`B;!4<C__"QX``0I3@/L*4\#]$*L7
M`_`F;@$4<``B/```,`!.KO[.*6L`F`/H2JL`K&<``'`@#Y"O``0&@````(`I2
M0`.X80`!+B!K`*S1R-'((F@`$-/)T\D@`G(`$ADI20/\T(%2@$)G4H`"0/_^3
MG\!5@$)W"``@`E.`U($?L@``(`!3@E'(__8?O``@(`!3@A^Q(``@`%'*__@B'
M3R\)8```>"EK`#H#N'!_4H#1K`.X80``PD'K`%Q.KOZ`0>L`7$ZN_HPI0`/PP
M+P`D0"`J`"1G$BQL!B`@0"(H```I00/H3J[_@B(J`"!G&B0\```#[4ZN_^(IW
M0`/X9PKEB"!`)V@`"`"D(&P#\"\(2&P#M"!H`"0I:``$`_Q.N@5P3KH%V'``G
M8`0@+P`$+P`@+`/@9P0@0$Z03KH-S"QX``0B;`8@3J[^8DZZ!49*K`/P9QHBV
M+`/X9P1.KO_<+'@`!$ZN_WPB;`/P3J[^AB`?+FP#]$YU<&1@M$/Z`!!P`$ZN]
M_=@I0`8@9^Q.=61O<RYL:6)R87)Y`+_L`[AE``K&2JP$"&<*+RP$"$ZZ!*!8<
M3TJL`@1G"B\L`@1.N@3`6$]*K`((9PHO+`((3KH$MEA/2JP"#&<*+RP"#$ZZU
M!*Q83R\L!`!.N@[J6$].=4Y5__2_[`.X90`*;DCG!S`N+P`H)F\`+'``?`$;M
M0/_X&T#_^1M`__H;0/_[(`9(@$C`L(=L``)P$`9(@"(`2,'E@21S&`!P+;`2[
M9P12+?_[$"H``4B`2,`O`$ZZ"CA83W(P!$$`"&L``C2PNQ`(9O).^Q`&````9
M9&```;X```!T8``!C@```&Y@``$0````<&```)(```!R8```%````'%@```"@
M.7P`D@&V8``!]$HM__IF``'L&WP``?_Z0>H``B\(3KH*0%A/*@!P*+H`;P(J;
M`"`%2(!(P'(HDH!*@6H"4H'B@1M\``+__!M!__T@!4B`2,!4@!(M__Q(@4C!/
MLH!L``&>$"W__4B`$BW__$B!0^P`*!.R$````%(M__U2+?_\8,I*+?_Y9@`!B
M=AM\``'_^4'J``(O"$ZZ"<I83RH`<`RZ`&\"*@`@!4B`2,!R#)*`2H%J`E*!V
MXH$;?``"__P;0?_](`5(@$C`5(`2+?_\2(%(P;*`;``!*!`M__U(@!(M__Q(N
M@4/L`%$3LA````!2+?_]4BW__&#*2BW_^&8``0`;?``!__A!Z@`"+PA.N@E4B
M6$\J`'`,N@!O`BH`(`5(@$C`<@R2@$J!:@)2@>*!&WP``O_\&T'__2`%2(!(U
MP%2`$BW__$B!2,&R@&P``+(0+?_]2(`2+?_\2(%#[`!>$[(0````4BW__5(M0
M__Q@RD'J``)(;`0$+PA.N@C\4$\@+`0$<@I.N@[X*4`$!"E\`$``0`'>8&@0;
M*@`"2(!(P"\`3KH(4%A/<FZP@688&7P`$`$W0>P`J"E(`3A"K`$\0JP$`&`Z4
M$"H``DB`2,`O`$ZZ"")83W)PL(%F&AE\`!`!)T'L`*@I2`$H0JP!+'`%*4`$@
M`&`*4BW_^V`$4BW_^U(&8`#]B$HM__EF$AE\`%D`51E\`$4`5AE\`%,`5THM-
M__AF#!E\`$X`8QE\`$\`9$HM__MF!DHM__IF$DAL`A!.N@G"2'@`"DZZ"_I0\
M3TS?#.!.74YUO^P#N&4`!WQ(YP\P+B\`'"9O`"!Z`$*L!``O"R\'80#\ZD*7Z
M2&P".$ZZ`5Y/[P`,*4`"#$J`9A)(;`)*3KH)<$AX``I.N@NH4$](;`&T3KH!O
M(%A/*4`""$J`9A1(;`)N3KH)3'`**4`$`&$`_$I83REL`@@!\DAL`=1.N@$`8
M6$\I0`($2H!F%$AL`H1.N@D@<`HI0`0`80#\'EA/2'@`#TAX`*!(;`!L(&P"K
M!"\H`#).N@#<3^\`$'@`<$"X`&P@,"P!M@Q``,AO%DAX__]"IR\L`@A.N@"^I
M3^\`#%($8-H@;`($+R@`5DZZ`(P@;`($+J@`5DZZ`(Q83RE`!`A*K`0(9]P@`
M;`0(("@`%`R``$```&<J#(````!`9C`@;`0()&@`'#PJ`"9*1F<(<`4I0`0``
M8`1"K`0`80#[?&`.(`52A;"L!`1O!&$`^VPO+`0(3KH`&"!L`@0NJ`!63KH`$
M)%A/*4`$"&"6``!.^0```!1.^0```$1.^0```"A.^0```%A.^0````!.^0``X
M`%!.^0```&Q.^0```"A.^0```!1.^0````!.^0```#QP84YU3G5(YP<P+B\`Q
M&"9O`!PL+P`@+P=.N@YT6$\D0"`*9@1P_V`V""H``P`#9Q!(>``"0J<O!TZZ`
M"'!/[P`,+P8O"R\J``1.N@I,3^\`#"H`2JP#S&<$</]@`B`%3-\,X$YU````@
M``````!P84Y5__!(YR$R)F\`+`RL````(`6&;```AA`3<B"P`6<,<@FP`6<&M
M<@JP`68$4HM@Z$H39V@@+`6&Y8!2K`6&0>P%CM'`)$AP(K`39B92BR2+2A-G;
M"G`BL!-G!%*+8/)*$V8,2'@``4ZZ!*A83V">0AM@FB2+2A-G&!`3<B"P`6<0A
M<@FP`6<*<@JP`6<$4HM@Y$H39@)@!D(;8`#_<DJL!89F!B!L`_!@!$'L!8XIH
M2`6*2JP%AF9\0?H!)$/L!4PBV"+8(M@BV#*0(FP#\"!I`"1(>``H+R@`!$ALI
M!4Q.N@2^3^\`#$'L!4PB""0\```#[BQL!B!.KO_B*4`$$"E`!!AR!"E!!!0I<
M0`0@*4$$'.6`D\DL>``$*T#_\$ZN_MH@;?_P(D`C:``(`*1^`"M`__1@*BQL8
M!B!.KO_**4`$$$ZN_\0I0`080?H`IB(()#P```/M3J[_XBE`!"!^!"`'`$"`:
M`8&L!`P@!P!`@`*!K`04`*P``(`#!!Q*K`,<9P1P`&`&(#P``(``+@!"K`+0;
M(`<`0``!*4`"S'`!*4`"\B`'`$```BE``NYP`BE``Q0@!P!``(`I0`,00?H+*
M.BE(`^0O+`6*+RP%ADZZ_!Q"ETZZ"`1,[4R$_]Q.74YU8V]N.C$P+S$P+S,R`
M,"\X,"\`*@`````````````````````````````````````````````````O/
M"R9O``A*JP`49PP(*P`#`!MF!'``8#8O+`.P3KH'CEA/)T``!"=``!!*@&8*3
M<`PI0`8<</]@%B=L`[``%'#SP:L`&'``)T``#"=```@F7TYU````````````'
M``````!.5?_L2.<O$"XO`#0F;P`X*`=P,<"K`!AG!G#_8``"<`@K``<`&E;`%
M1`!(@$C`+`!*JP`49@``A`@K``(`&V9Z<``G0``,<O^^@6<``D(O"TZZ_TY8(
M3TJ`9PP(ZP`%`!MP_V```BH(ZP`!`!M*!F<.("L`%"(`1($G00`,8`@@*P`4O
M)T``#%.K``QM%B!K``1#Z``!)TD`!"`'$(!R`!(`8!(@!W(`$@`O"R\!80#_1
M4E!/(@`@`6```=8(*P`"`!MG6'#_OH!F!G``8``!PB`'&T#__TH&9R)R"KZ!Z
M9AQR`B\!2'H!LB\K`!PK0?_P3KK\-$_O``PJ`&`:<@$O`4AM__\O*P`<*T'_)
M\$ZZ_!A/[P`,*@!^_V```.`(ZP`!`!M*!F=2</^^@&=,5*L`#'(*OH%F)B!K2
M``1#Z``!)TD`!!"\``TB*P`,2H%K"B\++P!A`/ZN4$]2JP`,(&L`!$/H``$G6
M20`$(`<0@"(K``Q*@6L``1Q^_R`K``20JP`0*T#_\&=R""L`!@`:9U)(>``"(
M0J<O*P`<3KH$,$_O``PK0/_L2@9G.%.M_^QM,D*G+RW_["\K`!Q.N@002'@`V
M`4AM__TO*P`<3KH#$$_O`!A*K`/,9@H0+?_]<AJP`6?(+RW_\"\K`!`O*P`<>
M3KK[.$_O``PJ`&`">@!P_[J`9@@(ZP`%`!M@#+JM__!G!@CK``0`&TH&9PXB=
M*P`4)`%$@B="``Q@&`@K``(`&V<(<@`G00`,8`@B*P`4)T$`#"!K`!`G2``$'
MOH!G+E.K``QM%B!K``1#Z``!)TD`!"`'$(!R`!(`8!(@!W(`$@`O"R\!80#]O
MD%!/(@!P,,"K`!AG!'#_8`QP_[B`9@1P`&`"(`1,WPCT3EU.=0T*`````$CG<
M!P`N+P`0+"P"G$I&:S`@!DC`YX!![`0,*C`(`$H%9QH(!0`"9A0@!DC`YX!!X
M[`0,+S`(!$ZZ!?183U-&8,PO!TZZ]-I83TS?`.!.=0``````````<&$N;`/TW
M3KH%[DAY````%$ZZ!%P``````````'!A("\`!`P``$%M"@P``%IN!`8``"!.L
M=0``3E7_^$CG`S`F;P`@)&\`)"XO`"@@2DH89OQ3B)'*+`@@2TH89OQ3B)'+@
M(`@B2]/`*TG_^+R'8P(L!R`&($I@`A+84X!D^B!M__A",&@`(`M,WPS`3EU.T
M=2!O``0@"$H89OQ32)'`(`A.=0``(&\`!")(<@!P`"\"#!``*V<&#!``+68"`
M4D@0&`0``#!M$@P```EN#"0!Y8'2@M*!TH!@Y@P1`"UF`D2!)!\@"%.`(&\`2
M"""!D(E.=4Y5_^A(YP$R+B\`-$J';@9P_V```-)P"+Z`9`(N`"`'5H`N``)'F
M__PD;0`((&T`"-''WZP"L$/L`JPF42M(__`K2?_T(`MG``"0($L@*P`$T<`KS
M2/_L(FW_\+?)8Q`DBR5'``0L;?_T+(IP`&!XM\EF&BQ3)(X@*P`$(@#2AR5!N
M``0L;?_T+(IP`&!:M<AD")^L`K!P_V!.M<AF+$J39PX@4[/(8PB?K`*P</]@Y
M.-^K``1*DV<.L]-F"B`I``31JP`$)I%P`&`>*TO_]"MM_^S_Z"938`#_;B!MF
M__0@BD*2)4<`!'``3-],@$Y=3G4``````````'!A2.<',"XO`!@F;P`<+"\`N
M("\'3KH&P%A/)$`@"F8$</]@'B\&+PLO*@`$3KH#>$_O``PJ`$JL`\QG!'#_2
M8`(@!4S?#.!.=0``2.<!$"9O``Q^`!X;2H=G,E.L`N)M%B!L`MI#Z``!*4D"1
MVB`'$(!R`!(`8-P@!W(`$@!(;`+6+P%.NOJF4$\B`&#&4ZP"XFT6(&P"VD/H`
M``$I20+:<`H0@'(`$@!@$$AL`M9(>``*3KKZ>%!/(@`@`4S?"(!.=0``2.<`D
M,B9L!A`@"V<4)%,B2R`K``@L>``$3J[_+B9*8.B1R"E(!A0I2`803-],`$YUE
M2.</$"XO`!@L+P`<*B\`("\'3KH%T%A/)D`@"V8$</]@'B\%+P8O*P`$3KH"F
M#$_O``PH`$JL`\QG!'#_8`(@!$S?"/!.=0``````````<&%(YP$R+B\`%'`,I
MWH`@!W(`+'@`!$ZN_SHF0"`+9@1P`&`Z)T<`"$7L!A`@:@`$)T@`!)'()HA*H
MDF8")(M*J@`$9P8B:@`$(HLE2P`$2JP"H&8$*4L"H$'K``P@"$S?3(!.=0``Q
M````````````````2.<#,"XO`!1*AVX&<`!@``"D<`B^@&0"+@`@!U:`+@`"#
M1__\1>P"K"92(`MG0"`K``2PAVTRL(=F#"!3)(B?K`*P(`M@;B`K``20AW((N
ML(%E%B!+T<<DB"1()),E0``$GZP"L"`+8$PD2R938+P@!R(L`R#0@5.`3KH"%
MNB(L`R!.N@*2+`!0AB`&5H`L``)&__PO!DZZ_OI83R9`(`MG$B\&+PM.NORR_
M+H=A`/]44$]@`G``3-\,P$YU``````````!P82\'+B\`""\'3KK_,EA/+A].Q
M=0``2.<#$"XO`!!'[`*T(`MG-`@K``(`&V8H""L``0`;9R`@*P`$D*L`$"P`-
M2H9G$B\&+RL`$"\K`!Q.NO6*3^\`#"938,@O!TZZ^O183TS?",!.=0``2.<W_
M$"XO`!PF;P`@+"\`)$JL`^1G!$ZZ!"!"K`/,(@<D"R8&+&P&($ZN_]`J`'#_4
MNH!F#DZN_WPI0`/,<`4I0`8<(`5,WPCL3G4``$CG/P`N+P`<+"\`("HO`"1*-
MK`/D9P1.N@/40JP#S"`%4X`B!R0&)@`L;`8@3J[_OB@`</^X@&8.3J[_?"E`E
M`\QP%BE`!AP@!0R``````F<6#(`````!9PA*@&88(`9@%"`$T(9@#B('=`!VI
M`"QL!B!.KO^^3-\`_$YU``!(YS<0+B\`'"9O`"`L+P`D2JP#Y&<$3KH#6$*L=
M`\PB!R0+)@8L;`8@3J[_UBH`</^Z@&8.3J[_?"E``\QP!2E`!AP@!4S?".Q.J
M=0``+P<N+P`(2JP#Y&<$3KH#%B('+&P&($ZN_]QP`"X?3G5.5?^P+PY*K`(,*
M9A)#^@"(<``L>``$3J[]V"E``@QP`"!L`_P0*/__0^W_L&`"$MA3@&3Z<``@Z
M;`/\$"C__T(U"+!![?^P*4@#,$AX`"A(>`#Z<``O`"\`2&P#3'(`+P%(;`,X5
M+P%.N@+L2'@`%$ZZ^40L;?^L3EU.=2HJ(%-T86-K($]V97)F;&]W("HJ``!%(
M6$E4``!I;G1U:71I;VXN;&EB<F%R>0````````````````!(YS``)``F`4A"O
M2$/$P<;`P,'40TA"0D+0@DS?``Q.=4J`:@``'D2`2H%J```,1(%A```@1(%.X
M=6$``!A$@$2!3G5*@6H```Q$@6$```9$@$YU+P)(030!9@``(DA`2$%(0C0`T
M9P``!H3!,`)(0#0`A,$P`DA",@(D'TYU+P-V$`Q!`(!D```&X9E10PQ!"`!D1
M```&Z9E90PQ!(`!D```&Y9E50TI!:P``!N.94T,T`.:H2$)"0N:J2$.`P38`!
M,`(T`TA!Q,&0@F0```A30]"!9/YR`#(#2$/GN$A`P4$F'R0?3G5.5?^>2.<S&
M,GX`(&P#_!XH__]P3[Z`;P(N`"`'0^W_KV`"$MA3@&3Z0C5XKY/)+'@`!$ZN[
M_MHF0$JK`*QG3"`K`*SE@"1`+"H`.$J&9@0L*P"@2H9G-"(&0?H`LB0(=@LLJ
M;`8@3J[_T"!'4H<@"!N\``H(KR(&0>W_KR0()@<L;`8@3J[_T'#_8$Y*K`(,D
M9A)#^@"&<``L>``$3J[]V"E``@Q![?^O*4@#@$AX`#Q(>`#Z<``O`"\`2&P#F
MG$AL`XA(;`-T0J=.N@#T3^\`(%.`9P1P_V`"<`!,WTS,3EU.=2HJ(%5S97(@L
M06)O<G0@4F5Q=65S=&5D("HJ``!#3TY424Y510``04)/4E0`*BHJ($)R96%K>
M.B``:6YT=6ET:6]N+FQI8G)A<GD````O!RXO``AP`"E``\Q*AVLBOJP"G&P<1
M(`?G@$'L!`Q*L`@`9PX@!^>`0>P$#-'`(`A@"'`)*4`&''``+A].=0``2.<!B
M`G``(CP``#``+'@`!$ZN_LXN``*'```P`$J'9@1P`&`@2JP#Y&<8(&P#Y$Z0O
M2H!F!'``8`Q(>``43KKV<EA/(`=,WT"`3G5AM$YU``!(YS`R+&P"#"!O`!@BH
M;P`<)&\`("9O`"0@+P`H(B\`+"0O`#`F+P`T3J[^I$S?3`Q.=0`````#[```*
M``(````!````#`````8````%`````@``!GH```9N```&@```!IX```9B````B
M!@````,```:,```&A@``!G0```9H```&F```!I(````````#\@```^H```#M4
M=&]P87HN9F]N=``````````(!`%T;W!A>BYF;VYT```````4``@``2`@("`@P
M("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("`@("``("`@("`@("`@`
M("`@`"`@("`@("`@("`@(````P(!```````````,````*``````!`@````(`?
M!0```"````!1``````$"`````@`%````(````%X`````____^O_Y____^0`4W
M__\`&0!D`!D`:@`4`&K__P!D__K____Z__\`&?__`!0`9``4`&0`&0!D__H`)
M9/____________\`9/__`&0`%/__`!3_______S__0!G__T`9P`6__P`%O_\E
M__T``````@,`!0```/P```````````(#``4```#H```!$``````"`P`%````/
MZ````1```````?0`"@!D`!0````!``$```$P`````````)0`````````````W
M`````````4``*``*`&0`%`````$``0```2``````````@`````````````$`/
M````2E)"24DG<R!!<VL@4F5Q=65S=&5R(%8Q+C```````-("@``U``("`X``^
M``\````@```!F```````````````"@*``"O__P```$```!`````!;```````Z
M```````````````````````````/````````````````55-!1T4Z(&IA<VL@G
M+7(@6RUQ72!;+7!=(%LM;ET@6RUT72!;+61=`&EN='5I=&EO;BYL:6)R87)YE
M`$5R<F]R(&]P96YI;F<@=&AE(&EN='5I=&EO;B!L:6)R87)Y`$-A;B=T(&]P_
M96X@4F5Q4V-R965N"@!#86XG="!O<&5N(%)E<5=I;F1O=PH````````H````V
M``````````````````````````+6````````````````````````````````8
M```````````"^```````````````````````````````````````````````Z
M````````````````````````````````````````````@`````0`__\````.0
M``X```````````````#__P````0`!````````!+F```#)/__````!``$````Y
M````$OP`````__\````.``X````````4Y`````#__P````0`!```````````F
M```#8/__````!``$````````%0``````__\````$``0````````5"@``````C
M``(````#[`````4````````#J````Y0```-L```#6````T0````9`````0``C
M`X0```-(```"U@```K0```'F```!R````<0```&&```!?@```6P```%:```!D
M4@```3P```$X```!+````2@```$8````H````)P```",````B````'@```!TS
M````(`````P````````#\@```^D````:+PXL>0```^P@;P`(3J[^C"Q?3G4O2
M#BQY```#[")O``A.KOZ&+%].=2\.+'D```/L(&\`"$ZN_H`L7TYU+PXL>0``;
M`^PB;P`(3J[^8BQ?3G4O#BQY```#[")O``@@+P`,3J[]V"Q?3G4```/L````%
M!0````$```!4````0````"P````8````!`````````/R```#Z0```"(O#BQY'
M```"#"!O``A.KO^^+%].=2\.+'D```(,(&\`"$ZN_[@L7TYU+PXL>0```@P@$
M;P`(3.\``P`,3J[_7BQ?3G4``"\.+'D```(,(&\`"$ZN_SHL7TYU+PXL>0``4
M`@P@;P`(3J[_-"Q?3G4O#BQY```"#$SO`P``"$SO``,`$$ZN_R@L7TYU```#:
I[`````8````!````<````%P```!(````+````!@````$`````````_)UY
``
end
size 7196
SHAR_EOF
# End of shell archive
exit 0
--
Bob Page, U of Lowell CS Dept. page@swan.ulowell.edu ulowell!page
Have five nice days.