SCOUG-General Mailing List Archives

>> Next Message >>

Date:	Sun, 8 Jun 2003 23:03:53 PDT7
From:	"Virginia R. Hetrick" <drjuice@gte.net >
Reply-To:	scoug-general@scoug.com
To:	scoug-general@scoug.com
Subject:	SCOUG-General: Tonight's really dumb situation - if anybody's still awake

Content Type: text/plain

I've been fussing with the following little bitty rexx program for two
hours. I can't believe I'm having so much trouble with it. Can anybody
see anything wrong with what I've got? I sure can't. A small sample
from the end of the data file presently at
d:\cincom\CensusBureau\co06_d00.nobounds is also below as a comment at
the end of the rexx program.

Thanks for any light anybody can shed.

virginia
--
\ / Virginia R. Hetrick, here in sunny California
0 Voicemail: 310.471.1766 Email: drjuice@gte.net
Oo "There is always hope."
My health site: http://www.yana.org/hetrick
Site of the month: http://www.washington.edu
/* */
xmin = 1000000.
ymin = xmin
xmax = -xmin
ymax = xmax
kntr = 0
do forever
thisline = linein("d:\cincom\CensusBureau\co06-d00.nobounds")
parse var thisline x y .
say "thisline = " || thisline
say "x = " || x
say "y = " || y

if x = y then leave
if (x < xmin) then xmin = x
if (x > xmax) then xmax = x
if (y < ymin) then ymin = x
if (y > ymax) then ymax = y
end
say "xmin = "xmin
say "ymin = "ymin
say "xmax = "xmax
say "ymax = "ymax
/*
-0.118524531000000 0.328954880000000
-0.118535823000000 0.329062800000000
-0.118551134000000 0.329451550000000
-0.118560887000000 0.329578910000000
-0.118573522000000 0.329691830000000
-0.118586928000000 0.330082810000000
-0.118596037000000 0.330153570000000
-0.118606559000000 0.330146900000000
-0.118605534000000 0.330309990000000
-0.118594033000000 0.330359510000000
-0.118587938415284 0.330353083770155
-0.118581313717210 0.330346098580114
END END
*/

=====================================================

To unsubscribe to this list, send an email message
to "steward@scoug.com". In the body of the message,
put the command "unsubscribe scoug-general".

For problems, contact the list owner at
"rollin@scoug.com".

=====================================================

Return to [ 08 | June | 2003 ]

SCOUG, Warp Expo West, and Warpfest are trademarks of the Southern California OS/2 User Group. OS/2, Workplace Shell, and IBM are registered trademarks of International Business Machines Corporation. All other trademarks remain the property of their respective owners.