Click above to get retro games delivered to your door ever month!

 STREET(<C street address>)
 Orders a database by street name.
 Returns <expC> street name from <street address>.

 Returned street name is uppercase and padded with trailing
 blank spaces to be the same length as <street address> so
 that index keys will have a consistent case and length.

 Useful in creating a street directory of addresses.

 If the first non-space character in <street address> is a digit,
 all characters before the second word are ignored; if the second
 word is a North, South, East, or West direction, it too is ignored.
 Otherwise, the first word in <street address> is considered to
 begin the street name.

 Fails on                Use instead
 ---------------------   ---------------------
 One Snobby Court        1 Snobby Court
 123 1/2 31st Street     123-1/2 31st Street
 123 N.E. Central Ave.   123 Central Ave. N.E.
 123 North Street        123 East North Street
 69th Street Main        Main 69th Street
 6th Street 34th         Sixth Street 34th

 * Examples assume an open database file

 * Street directory
 INDEX ON STREET( Address ) TO Streets
 m_street = SPACE(16)
 @...SAY "Enter street name" GET m_street
 READ
 SEEK UPPER(m_street)

 * Street directory by city
 INDEX ON City + STREET( Address ) TO Cty_strt
 STORE SPACE(16) TO m_street, m_city
 @...SAY "Enter city name" GET m_city
 @...SAY "Enter street name" GET m_street
 READ
 SEEK UPPER(m_city + m_street)


             Placed in the Public Domain by Tom Rettig Assoc.