XST Manhattan cross-street locator [was Re: Re Keystrokes: Possible BIOS compatibility]

[Carl Distefano cld@xxxxxxxx]

Reply to note from Harry Binswanger  Sat, 30 Jul
2005 01:00:45 -0400

> >It's more than a demo if you're based in NYC! I use it all
> the time.
>
> Me, too.

Coincidentally, and to my chagrin, I just discovered a bug that
caused erroneous results to be returned for Park Avenue addresses
only. Results for Park Avenue South and other avenues were not
affected.

If you use XSTreet, please DECODE this revised frame, and copy it
into U2 in place of the existing frame XST*. (Delete the old
frame.) Issue LOADHELP to reload U2.

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5xst*}} Manhattan cross street locator [CLD Rev.7/30/05][c
r|lf]{002}[XH_][BX_]es 1[Q2_]{<}SV01,{>}[DZ_]{<}IF{<}VA$DE{>}
>0&{<}VA$DS{>}<>{<}VA$DN{>}{>}{<}SV50{>}{<}EI{>}{<}LBa{>}{<}I
F{<}VA|50{>}>0{>}{<}GLc{>}{<}EI{>}{<}SU01,{<}SX50,{<}IS00{>}{
>}{>}[BC_]{<}LBb{>}{<}PR|Enter the avenue address (e.g., 666{032}
5th Ave){>}{<}SX02,{<}RK{>}{>}{<}SX03,{<}VA$KC{>}{>}{<}SX03,(
"|"+{<}IS03{>}+"|"){238}"|1|28|67|104|"{>}{<}IF{<}PV03{>}==0{
>}{<}SV01,Abort{>}{<}GLl{>}{<}EI{>}{<}IF{<}PV03{>}<0{>}{<}PV0
2{>}{<}GLb{>}{<}EI{>}{<}GT01{>}{<}GLa{>}[cr|lf]{<}LBc{>}{<}SV
01,{192}A{192}B{192}C{192}D{192}1{192}First{192}2{192}Second{
192}|3[cr|lf]{192}3{192}Third{192}8{192}Eighth{192}|10[cr|lf]
{192}4{192}Fourth{192}|8[cr|lf]{192}5{192}Fifth{192}|{<}LB {1
78}{>}{<}IF{<}PV03{>}<201{>}{<}SX04,13{>}{<}EX{>}{<}EI{>}{<}I
F{<}PV03{>}<401{>}{<}SX04,16{>}{<}EX{>}{<}EI{>}{<}IF{<}PV03{>
}<601{>}{<}SX04,18{>}{<}EX{>}{<}EI{>}{<}IF{<}PV03{>}<776{>}{<
}SX04,20{>}{<}EX{>}{<}EI{>}{<}IF{<}PV03{>}<1287{>}{<}SX05,{<}
PV03{>}/10.0{>}{<}SX05,{<}IS05{>}{>}{<}SX05,{<}VA@05.1{>}{>}{
<}SX04,-18{>}{<}EX{>}{<}EI{>}{<}IF{<}PV03{>}<1501{>}{<}SX04,4
5{>}{<}EX{>}{<}EI{>}{<}IF{<}PV03{>}>1500&{<}PV03{>}<2001{>}{<
}SV01,Between 120th & 124th Streets{>}{<}EX{>}{<}EI{>}{<}SX04
,24{>}[cr|lf]{192}6{192}Sixth{192}|-12[cr|lf]{192}7{192}Seven
th{192}|{<}LB {178}{>}{<}SX04,12{>}{<}IF{<}PV05{>}+{<}PV04{>}
>110{>}{<}SX04,20{>}{<}EI{>}[cr|lf]{192}9{192}Ninth{192}|13[c
r|lf]{192}10{192}Tenth{192}|14[cr|lf]{192}11{192}Eleventh{192
}|14[cr|lf]{192}Amsterdam{192}Columbus{192}|60[cr|lf]{192}Aud
ubon{192}|165[cr|lf]{192}Broadway{192}B'way{192}Bway{192}|{<}
LB {178}{>}{<}SX04,-30{>}{<}IF{<}PV05{>}+{<}PV04{>}<23{>}{<}S
V01,Below 23rd Street{>}{<}
EX{>}{<}EI{>}{<}IF{<}PV05{>}+{<}PV04{>}>192{>}{<}SV01,Above 1
92nd Street{>}{<}EX{>}{<}EI{>}[cr|lf]{192}Convent{192}|127[cr
|lf]{192}CentralParkWest{192}CPW{192}C.P.W.{192}|{<}LB {178}{
>}{<}SX05,{<}PV03{>}/10.0{>}{<}SX05,{<}IS05{>}{>}{<}SX05,{<}V
A@05.1{>}{>}{<}SX04,60{>}[cr|lf]{192}Edgecombe{192}|134[cr|lf
]{192}FtWashington{192}Ft.Washington{192}FortWashington{192}|
158[cr|lf]{192}Lenox{192}|110[cr|lf]{192}Lexington{192}Lex{19
2}Lex.{192}|22[cr|lf]{192}Madison{192}Mad{192}Mad.{192}|26[cr
|lf]{192}Manhattan{192}|100[cr|lf]{192}Park{192}|{<}LB {178}{
>}{<}SX04,35{>}{<}IF@upr({<}IS50{>}){240}"S"{>}{<}SX04,8{>}{<
}EI{>}[cr|lf]{192}Pleasant{192}|101[cr|lf]{192}Riverside{192}
RiversideDr{192}RiversideDr.{192}RiversideDrive{192}|{<}LB {1
78}{>}{<}SX05,{<}PV03{>}/10.0{>}{<}SX05,{<}IS05{>}{>}{<}SX05,
{<}VA@05.1{>}{>}{<}SX04,72{>}{<}IF{<}PV05{>}+{<}PV04{>}>165{>
}{<}SV01,Above 165th St.{>}{<}EI{>}[cr|lf]{192}StNicholas{192
}St.Nicholas{192}SaintNicholas{192}|110[cr|lf]{192}Wadsworth{
192}|173[cr|lf]{192}WestEnd{192}|60[cr|lf]{192}York{192}|4[cr
|lf]{>}{<}IF" "{238}{<}IS50{>}<2&{<}IS50{>}{240}" "{>}{<}SV01
,House number must have at least 2 digits{>}{<}GLl{>}{<}EI{>}
{<}SV02, {>}{<}XS50,02,03,,06{>}{<}IF{<}VA{021}03{>}<1{>}{<}G
Li{>}{<}EI{>}{<}IF"AV"{238}@upr({<}IS06{>})<0{>}{<}GLd{>}{<}E
I{>}{<}IF"AV"{238}@upr({<}IS06{>})==0{>}{<}SV07, {>}{<}XS06,0
7,02,,04{>}{<}SX06,{<}IS04{>}{>}{<}GLe{>}{<}EI{>}{<}SV07,AV{>
}{<}XS06,07,02,,04{>}{<}SX06,{<}IS02{>}{>}{<}LBd{>}{<}SV07,{0
27}X{>}{<}SV02,{>}{<}SV04,{>}{<}SV05,{>}{<}LBe{>}{<}XS06,07,,
04,05{>}{<}IF{<}VA{021}04{>}>0{>}{<}SX02,{<}IS02{>}+{<}IS04{>
}{>}{<}SX06,{<}IS05{>}{>}{<}GLe{>}{<}EI{>}{<}IF{<}VA{021}02{>
}<1{>}{<}GLf{>}{<}EI{>}{<}IF{<}PV02{>}>0&{<}PV02{>}<1
2{>}{<}SX06,{<}IS02{>}{>}{<}GLh{>}{<}EI{>}{<}LBf{>}{<}IF@upr(
{<}IS06{>}){240}"AMERICAS"{>}{<}SX06,6{>}{<}EI{>}{<}SV07, {>}
{<}LBg{>}{<}IF" "{238}{<}IS06{>}>0{>}{<}XS06,07,02,,04{>}{<}S
X06,{<}IS02{>}+{<}IS04{>}{>}{<}GLg{>}[cr|lf]{<}EI{>}{<}LBh{>}
{<}SX05,{<}PV03{>}/20.0{>}{<}SX05,{<}IS05{>}{>}{<}SX07,"."+{<
}VA@05.2{>}{>}{<}SX05,{<}VA@05.1{>}{>}{<}IF{<}VA|07{>}<2{>}{<
}SX07,0{>}{<}EI{>}{<}IF{<}PV07{>}>.4{>}{<}SX05,{<}PV05{>}+1{>
}{<}EI{>}{<}SX06,"{192}"+@upr({<}IS06{>})+"{192}"{>}{<}IF{<}I
S06{>}{238}@upr({<}IS01{>})<0{>}{<}GLi{>}{<}EI{>}{<}XS01,06,0
7,,04{>}{<}SV01,[cr|lf]{>}{<}XS04,01,07,,06{>}{<}SV01,|{>}{<}
XS07,01,02,,06{>}{<}SX04,{<}IS06{>}{>}{<}IF{<}IS04{>}{240}"{1
78}"{>}{<}PV06{>}{<}EI{>}{<}IF{<}VA|01{>}>1{>}{<}GLl{>}{<}EI{
>}{<}SX04,{<}PV05{>}+{<}PV04{>}{>}{<}IF{<}PV04{>}<1{>}{<}LBi{
>}{<}SV01,Address not recognized{>}{<}GLl{>}{<}EI{>}{<}SV03,s
t|nd|rd|th{>}{<}SX07,{<}PV04{>}{>}{<}SX07,{<}IS07{>}{>}{<}SX0
5,{<}VA|07{>}-2{>}{<}IF{<}PV05{>}<1{>}{<}SX05,0{>}{<}EI{>}{<}
IF"11"{238}{<}IS07{>}=={<}PV05{>}!"12"{238}{<}IS07{>}=={<}PV0
5{>}!"13"{238}{<}IS07{>}=={<}PV05{>}{>}{<}SX07,4{>}{<}GLk{>}{
<}EI{>}{<}SV05,{027}X{>}{<}LBj{>}{<}SX07,{<}IS07{>}{>}{<}IF{<
}VA|07{>}>1{>}{<}XS07,05,,01,02{>}{<}SX07,{<}IS02{>}{>}{<}GLj
{>}{<}EI{>}{<}IF{<}PV07{>}<1!{<}PV07{>}>4{>}{<}SX07,4{>}{<}EI
{>}{<}LBk{>}{<}SX05,"{<}VA@03|"+{<}IS07{>}+"{>}"{>}{<}SX05,{<
}PV05{>}{>}{<}SX01,{<}IS04{>}+{<}IS05{>}+" Street"{>}{<}LBl{>
}{<}PR@01{>}{<}EX{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx