**TI92P*bmainbusgeogr usgeogr acapQ admun akalxarareaastataz!ca%co,ct4deZ7flp=gaQBgeofinisCgeoinfo\FgeoixIgeosetupMhivShiptTiaZidg^ilainXeisbase1!eixd kkplks4rkyvla|lowptO}maԃmd9memiƑmnmomsmtӥncandůnenhfnjDnmnv8nyohdoklorepapop,popdensriscscew7scnssd"statedat tntx"usa.usgeogr<utVAvaEvtIwaJPwaitkey!QwiUwv \wybgeoinfo2rggeorankhxakixalixarixcajxcojxctjxdejxflTkxgakxhikxiakxidlxilElxin`lxkslxkylxlalxma(mxmdmxmemxminxmnnnxmonxmsnxmtoxncaFoxndwoxneoxnhoxnj pxnmYpxnvpxnyqxoh!rxoklOrxorerxpahsxri|sxscsxsdsxtnsxtxtxuttxva,uxvtmuxwauxwiuxwvuxwy-vusaneLusnav ߅xaz.geosplshpgsplashZ]() Prgm U.S. Geography and State Facts "Book" by Stephen L. Reid Copyright 2002 by Texas Instruments. All Rights Reserved. Version 1.0.0 : 13 March 2002 file:USGeography.v2P =================================================== usgeogr\geosplsh() usgeogr\geosetup() setFold(usgeogr) usgeogr\usgeogr() usgeogr\geofinis() EndPrgm#q%???x?8?X?x?x9?x6Zx0x6x6x?x?x00?p80;`x8p9Þ? <;?7 @0sL.? ? ||?8q8Ï`<`x` | ?x??@? gD`|````````````````p00008           @`000000000000888??``p88|llll.|ߚTgx`` 0 `  8x8p|xp0`p0p"p`"@`0x``+0   fV%???x?8?X?x?x?x?x?1x>ֻx>x>ջx>֋x?x?x?x?x?x?x?X?8?x??[Y%???x?8?X?x?x9?x6Zx0x6x6x?x?x?``0X0 x<?80 >B|=g9 0 `8pp00000000 0000p0         Ap8 `p808?|, ` ```?oKgq>0x0 ~@ @`  `?ap8`~`,0 0 x  p`00  `@```000?  8`88p p 8<ߖcg]??000808  0 < p8@p  p`<` ` ```p0 `000 8000000 <xx0p0p0`p`0`0     x0|N() Prgm =================================================== U.S. Geography and State Facts "Book" by Stephen L. Reid Copyright 2002 by Texas Instruments. All Rights Reserved. Version 1.0.0 : 12 March 2002 file:geofinis.v2P =================================================== setFold(#usgeogr\foldr) DelVar usgeogr\foldr ClrDraw ClrGraph Disp "" ClrIO EndPrgmܾvx(rank,indx,w) Prgm =================================================== U.S. Geography and State Facts "Book" by Stephen L. Reid Copyright 2002 by Texas Instruments. All Rights Reserved. Version 1.0.0 : 12 March 2002 file:geoinfo.v2P =================================================== Local c 140c PxlText string(rank)&":"&(statedat[2])[indx],2,c PxlText "Area:"&string((statedat[4])[indx])&" mi",13,c PxlText "Population:",22,c PxlText string((statedat[14])[indx]),31,c+4 PxlText "Capital:",40,c PxlText (statedat[6])[indx],49,c+4 PxlText "Admission:",58,c PxlText (statedat[5])[indx],67,c+4 EndPrgmܞ(fn,ix) Func =================================================== U.S. Geography and State Facts "Book" by Stephen L. Reid Copyright 2002 by Texas Instruments. All Rights Reserved. Version 1.0.0 : 13 March 2002 file:geonext.v2F =================================================== Local k ---------------------------------------------------- fn=1 : Order states alphabetically fn=2 : Order states by admission date fn=3 : Order states by Population fn=4 : Order states by area(size) in sq. miles. fn=5 : Order states by Highest Location fn=6 : Order states by Lowest Location fn=7 : Order states by Capitals, alphabetically fn=8 : Order states by Capitals, north to south fn=9 : Order states by Capitals, east to west fn=10: Order states by Population Density, least to most ---------------------------------------------------- (ixd[fn])[ix]k Return k EndFuncܺ () Prgm =================================================== U.S. Geography and State Facts "Book" by Stephen L. Reid Copyright 2002 by Texas Instruments. All Rights Reserved. Version 1.0.0 : 13 March 2002 file:geosetup.v2F =================================================== Local k FnOff usgeogr\isbase1("k") If k=true Then setMode("SplitScreen","Full") setMode("Graph","FUNCTION") FnOff setGraph("Axes","Off") setGraph("Grid","Off") setMode("Exponential Format","Normal") setMode("Exact/Approx","Auto") setMode("Display Digits","Float") Else setMode("8","1") setMode("1","1") FnOff setGraph("4","1") setGraph("3","1") setMode("4","1") setMode("14","1") setMode("2","14") EndIf getFold()usgeogr\foldr 350k While k>0 k-1k EndWhile EndPrgmck[0À0À00p? x  "p9??>0w0cas3??p>p>~~?<`8`pp`x`8p0  < p  8M%???x?8?X?x?x?{x?Hx?kx?x?x?x?x?x?x?x?x?x?x?X?8?x??߇W_`` ` x   000     0008<    0@`@`@x@8@@       x`````````````````ppx? ``ߔdgF``````````````p0 `p8`p8 00```p00<  p 0000000000000000000000000000008=^=g;0000p08  8p``?000p````0`pP0 P p8    p80``` 80`000p```p`8 00?xsTgB?@    @       008       00 ``0 0880000to?op|`<K/ O4|$R"j$"Q -gS. j(NT>/ jNX fh"j$"Q J np,`p+ j$R P j$.?<?<@/ jNO$_Nu! 210/.-,+*)('&%$#"!       $,2 /)"0%1+  #*-'! .( &2-")'  0,%$(1*/.! #&   +'- 0(*.#&!   1 $"/) ,2%+ ' #1&"(- 0$ .*!)+% , 2/2,)" 1#$ 0*-/.+('&%!      ,%.!')/$*-1 &#(20 "+   +  ($!*.0 #&,2' 1 -)%"/ %/ ,2")+$ 1*  #0(!.& -' ' &#  .! *( /1+0-$%, )"2>bE||_ܝjwܸ;Q[ϟojJϘ߈]Lppp008""      ???hs? >788p    8D <0( |0n0(0Dxs`?`0<  8`?1`8` p```` |? ? ?HUgt ?   `    ` p 0       ``>`>`|xp<<     0080@0 0p`@p>00a000`;```> `xa>8? ~`x6``<>@??=0|gx< ~<0p ߍ%???x?8?X?x?x?x?]x?Ux?Ux?x?x?x?x?x?x?x?x?x?X?8?x??ߒZ}\@?00p``~<><xFx x `0p0000p`` ?>xwl<l~~/0` 0 0 0p}80? 6x ?7p;p?p~0p|``<0`>9` 0~0 ~0~0P0 0P00090 |080p0 0|0`0`???<   `000?<3>?~?<<w|?}q3`{{7{sgE00 1?p880`  000p  <x<88~~nn````````````p```?`?``7`>?p`?`?}`?`{`{`o`߼``x`}````` ` ```````8`1g^gY?p8p8`>8 ~~0?9<?>~?{`x`<  9 0`p q`a`p`x 8     800p0@`0ϸ0 0 ` `8  ` ``00     @ ?~0@`0`00`?^ogZ?`000`0000|00000000?8<  8      0 p   8 p 80`x <   x<x Ygx?    @`0```p0 p8x<>        p    ` p 8          8 0 8 0 0  ` `0 008p808`P=g?   8 p    <``0p0`0p0p0000000 0 p `` `p`p`p`0`0`8`0@8@@@  @<@8 000p@ <8p`` 0??p`@`@@@@@@@`````0@`` ߐTR000000000000000088888p< x? @@    `          ? 000?3`d6000   ~ ~x< <@?yxぁ၀? ?xxgC ? <8`00; >p`0 4<88߾lV``000              ` ` ````````   00000  ?߄NC   s >    | |        ```@`px  ``@```````@```p`8` ` ````Rg7`s`0`0`0000000000000    0~     8 0 ` ` @    ``@`8  00`0`00 ߾2g60p x0`000 ``@   >8``~p ``@@@0p> 08`x`p0  00 ?~xp  xx0  D@ga            D (  ( D                   000000000000    ````lT;gG?0`0`0`0`0`0`0`0`0`0`0`0`0`0`0`0`0`0`0`0`0`0p0000000000000000000000000000004@02010204@080008p8p p8`0Lp8x8 0`8s;߈ECg?800000xpp`p0008<800 0000>>6?p?<0~80088 <"8`"  8 800880`0000000p08000000888?>?  8wug^=x88 <6>09`888880000000 0@00@ 0 0 00000x00000000p00000p0`> p? `?333p`߃``p~8pfKK000000000     @00@0000000000000<ay98pkLgw``<``  8`<8x >?   00  ````       0000080000 ````@@  00``0 XU>>`0<x  0``0000000000000000p000 0@00@0 0000x0000000?0`??AX%???x?8?X?x?x?x?x?x?cx?x?x?x?nx?x?x?x?x?x?X?8?x??ߒ[%???x?8?X?x?cx?x?x?x?nx?x?x?x>1lx>+x>Lx>ox>1hx?x?X?8?x??U gI D (  ) E     g  ` 0   c c ? ? =Ø ? v 43o <> >?     | x q 1    D     v  1  >p(```@wog0| 0`8 p8p8p8p8   @@ 8`x|/ 000000008` &<@``|`x` x4v~p`?`@`|`|`p|?`%???x>#18=}X>v?x?x3?x=kx=x={x>-{_x?x?x?{x?x?x?X?}~8?x??ߤI%???x>#18=}X>v?x?x3?x=kx=x={x>-{_x?x?x?xx?x?x?X?q8?x??|  v;[F$wy-wi-wv-wa-va-vt-ut-tx-tn-sd-sc-ri-pa-ore-okl-oh-nd-nca-ny-nm-nj-nh-nv-ne-mt-mo-ms-mn-mi-ma-md-me-la-ky-ks-ia-in-il-id-hi-ga-fl-de-ct-co-ca-ar-az-ak-al-=Wyoming-Wisconsin-West Virginia-Washington-Virginia-Vermont-Utah-Texas-Tennesee-South Dakota-South Carolina-Rhode Island-Pennsylvania-Oregon-Oklahoma-Ohio-North Dakota-North Carolina-New York-New Mexico-New Jersey-New Hampshire-Nevada-Nebraska-Montana-Missouri-Mississippi-Minnesota-Michigan-Massachusetts-Maryland-Maine-Louisiana-Kentucky-Kansas-Iowa-Indiana-Illinois-Idaho-Hawaii-Georgia-Florida-Delaware-Connecticut-Colorado-California-Arkansas-Arizona-Alaska-Alabama-Indian Paintbrush-Wood Violet-Rhododendron-Pink Rhododendron-Dogwood-Red Clover-Sego Lily-Bluebonnet-Iris-Pasque Flower-Yellow Jessamine-Violet-Mountain Laurel-Oregon Grape-Mistletoe-Scarlet Carnation-Wild Prairie Rose-Dogwood-Rose-Yucca flower-Violet-Purple Lilac-Sagebrush-Goldenrod-Bitterroot-Hawthorn-Magnolia-Pink and White Ladies-Slipper-Apple Blossom-Mayflower-Black-eyed Susan-White Pine cone and tassel-Magnolia-Goldenrod-Sunflower-Wild Prairie Rose-Peony-Purple Violet-Syringa-Hibiscus-Cherokee Rose-Orange Blossom-Peach Blossom-Mountain Laurel-Rocky Mountain Columbine-California Poppy-Apple Blossom-Saguaro Cactus Blossom-Forget Me Not-Camelia-~^%K9A-} R0="$..f>M2S*z;)w0;۝jAD>vF*1 {V) Jul 10,1890-May 29,1848-Jun 20,1863-Nov 11,1889-Jun 25,1788-Mar 4,1791-Jan 4,1896-Dec 29,1845-Jun 1,1796-Nov 2,1889-May 23,1788-May 29,1790-Dec 12,1787-Feb 14,1859-Nov 16,1907-Mar 1,1803-Nov 2,1889-Nov 21,1789-Jul 26,1788-Jan 6,1912-Dec 18,1787-Jun 21,1788-Oct 31,1864-Mar 1,1867-Nov 8,1889-Aug 10,1821-Dec 10,1817-May 11,1858-Jan 26,1837-Feb 6,1788-Apr 28,1788-Mar 15,1820-Apr 30,1812-Jun 1,1792-Jan 29,1861-Dec 28,1846-Dec 11,1816-Dec 3,1818-Jul 3,1890-Aug 21,1959-Jan 2,1788-Mar 3,1845-Dec 7,1787-Jan 9,1788-Aug 1,1876-Sep 9,1850-Jun 15,1836-Feb 14,1912-Jan 3,1959-Dec 14,1818-;Cheyenne-Madison-Charleston-Olympia-Richmond-Montpelier-Salt Lake City-Austin-Nashville-Pierre-Columbia-Providence-Harrisburg-Salem-Oklahoma City-Columbus-Bismarck-Raleigh-Albany-Santa Fe-Trenton-Concord-Carson City-Lincoln-Helena-Jefferson City-Jackson-Saint Paul-Lansing-Boston-Annapolis-Augusta-Baton Rouge-Frankfort-Topeka-Des Moines-Indianapolis-Springfield-Boise-Honolulu-Atlanta-Tallahassee-Dover-Hartford-Denver-Sacremento-Little Rock-Phoenix-Juneau-Montgomery-41.145N-43.044N-38.350N-47.041N-37.531N-44.266N-40.777N-30.305N-36.171N-44.372N-34.039N-41.821N-40.276N-44.924N-35.467N-39.988N-46.805N-35.821N-42.665N-35.678N-40.223N-43.231N-39.148N-40.816N-46.596N-38.571N-32.320N-44.839N-42.709N-42.336N-38.971N-44.330N-30.448N-38.190N-39.037N-41.576N-39.776N-39.781N-43.606N-25.002N-33.762N-30.457N-39.158N-41.765N-39.768N-38.546N-34.722N-33.542N-58.388N-32.354N-(104.792W-089.409W-081.630W-122.893W-077.474W-072.571W-111.929W-097.750W-086.784W-100.322W-080.886W-071.419W-076.884W-123.022W-097.513W-082.987W-100.767W-078.658W-073.799W-105.954W-074.764W-071.560W-119.743W-096.688W-112.020W-092.190W-090.207W-092.994W-084.553W-071.017W-076.503W-069.729W-091.126W-084.865W-095.691W-093.617W-086.146W-089.644W-116.226W-167.998W-084.422W-084.281W-075.517W-072.683W-104.872W-121.426W-092.354W-112.071W-134.133W-086.284W- &Western Meadowlark-Robin-Cardinal-Willow Goldfinch-Cardinal-Hermit Thrush-California Seagull-Mockingbird-Mockingbird-Ring-necked Pheasant-Great Carolina Wren-Rhode Island Red-Ruffed Grouse-Western Meadowlark-Scissor-tailed Flycatcher-Cardinal-Western Meadowlark-Cardinal-Bluebird-Roadrunner-Eastern Goldfinch-Purple Finch-Mountain Bluebird-Western Meadowlark-Western Meadowlark-Bluebird-Mockingbird-Common Loon-Robin-Chickadee-Baltimore Oriole-Chickadee-Eastern Brown Pelican-Cardinal-Western Meadowlark-Eastern Goldfinch-Cardinal-Cardinal-Mountain Bluebird-Nene-Brown Thrasher-Mockingbird-Blue Hen Chicken-Robin-Lark Bunting-California Valley Quail-Mockingbird-Cactus Wren-Willow Ptarmigan-Yellowhammer- Gannett Peak-Timms Hill-Spruce Knob-Mt. Rainier-Mt. Rogers-Mt. Mansfield-Kings Peak-Guadalupe Peak-Clingmans Dome-Harney Peak-Sassafras Mtn.-Jerimoth Hill-Mt. Davis-Mount Hood-Black Mesa-Campbell Hill-White Butte-Mt. Mitchell-Mt. Marcy-Wheeler Peak-High Point-Mt. Washington-Boundary Peak-Panorama Pt.-Granite Peak-Taum Sauk Mtn.-Woodall Mtn.-Eagle Mountain-Mt. Arvon-Mt. Greylock-Backbone Mtn.-Katahdin Mtn.-Driskill Mtn-Black Mtn.-Mt. Sunflower-High Point-Hoosier Hill-Charles Mound-Borah Peak-Mauna Kea-Brasstown Bald-Britton Hill-Ebright Azimuth-Mt. Frisell-Mt. Elbert-Mt. Whitney-Magazine Mtn.-Humphreys Peak-Mt. McKinley-Cheaha Mtn.- 5J8a)4-"J , +m i3 W301&  1v15YL a88 Y1`Og  Belle Fourche River-Shore of Lake Michigan-Potomac River-Pacific Coast-Atlantic Coast-Lake Champlain-Beaverdam Creek-Gulf Coast-Mississippi River-Big Stone Lake-Atlantic Coast-Atlantic Coast-Delaware River-Pacific Coast-Little River-Ohio River-Red River-Atlantic Coast-Atlantic Coast-Red Bluff Lake-Atlantic Coast-Atlantic Coast-Colorado River-Missouri River-Kootenai River-Saint Francis River-Gulf Coast-Shore of Lake Superior-Shore of Lake Erie-Atlantic Coast-Atlantic Coast-Atlantic Coast-at New Orleans-Mississippi River-Verdigris River-Jctn. of Miss. & Des Moines Rivers-Southwest boundry-Mississippi River-Snake River-Pacific coast-Atlantic Coast-Atlantic & Gulf Coasts-Atlantic Coast-Long Island Sound-Arikaree River-Death Valley-Ouachita River-Colorado River-Pacific Ocean-Gulf of Mexico-  E_ Z< @  7FֈQؗYsl;J Q"l,>V 7=d4444< zɎ!dJ}3 K`Ug+K )`fP+t0D)=),\݀|U|* 3͡A (IN |CEqual Rights-Forward-Montani semper liberi-Alki-Sic Semper Tyrannis-Freedom and Unity-Industry-Friendship-Agriculture and Commerce-Under God the people rule-Animis Opibusque Parati / Dum Spiro Spero-Hope-Virtue, Liberty, and Independence-Alis Volat Propiis-Labor omnia vincit-With God, all things are possible-Liberty and Union-Esse quam videri-Excelsior-Crescit eundo-Liberty and Prosperity-Live free or die-All for our country-Equality before law-Oro y plata-Salus populi suprema lex esto-Virtute et armis-L'Etoile du nord-Si quaeris peninsulam amoenam, circumspice-Ense petit placid am sub libertate quietem-Fatti maschii parole femine-Dirigo-Union, justice, and confidence-United we stand, divided we fall-Ad astra per aspera-Our liberties we prize and our rights we will maintain-The Crossroads of America-State Sovereignty, National Union-Esto perpetua-Ua mau ke ea o ka aina I ka pono-Wisdom, Justice, and Moderation-In God We Trust-Liberty and Independence-Qui transtulit sustinet-Nilsine Numine-Eureka-Regnat populus-Ditat Deus-North To The Future-Audemus jura nostra defendere-|Equality State-Badger State-Mountain State-The Evergreen State-Old Dominion State-Green Mountain State-The Beehive State-Lone Star State-The Volunteer State-Mount Rushmore State-Palmetto State-The Ocean State-Keystone State-Beaver State-The Sooner State-Buckeye State-Peace Garden State-Tar Heel State-Empire State-Land of Enchantment-Garden State-Granite State-The Silver State-Cornhusker State-Treasure State-Show Me State-Magnolia State-North Star State-Wolverine State-Bay State-Old Line State-Pine Tree State-Pelican State-Bluegrass State-Sunflower State-Hawkeye State-Hoosier State-Prairie State-Gem State-Aloha State-Peach State-Sunshine State-First State-Constitution State-Centennial State-Golden State-The Natural State-The Grand Canyon State-The Last Frontier-Yellowhammer State- ` s _@B T j 'Z I U K^ V6 a 6 7 G CRx ? Z Y \LE t ?L_B ; F [] q 9  `W x Y bD f'P P 8<x~ r<gj                `?@x?@ ````` ` ` ` ` ` ppapp08 `x  p  <p8x8p`p8??  |xp`p8pp@_ g@01 > 0gc  g 7o  x` ` pp@p @|@Xp` ~i`>o`O qfl00`b0@f00`0s`` p0`00 @0 0~ @? `0>Ͽ@`8;` A@ xv x0 ~ = L yH~0@:0@@  m@0~``/`` `8 ~` `` ;` 0g   0ƀ 000; 0 00=0  0 60`<ox0 0 `@80 `p    ``` `<` `?,0 `0 ` 3 `   ```` > @<8 0dxf"}8`X `` `8` ``  @`0  `0@0c@06@00@ o0o0p0 8000 00'?1 @| <``p D88aE@DDD@70`E@@XVDD@ @`D]QdYDT@` D@EO@<D@< 0D@EAA D@`009@8@88À`0@ 08`8 DQD`09cQ` %U0=DQ@`!EQQ |=|ߜ() Prgm =================================================== U.S. Geography and State Facts "Book" by Stephen L. Reid Copyright 2002 by Texas Instruments. All Rights Reserved. Version 1.0.0 : 12 March 2002 file:USGeog.v2P =================================================== Local k,kw,stord,indx,w,h,t,r,c,usm,nem,stp Local sl,si,v1,kwt,rp,cp,stp1 {"astat","admun","pop","area","hipt","lowpt","acap","scns","scew","popdens"}sl {1,0,5,8,0,9,10,11,12,0,16,18,19,27,35,38,0,39,40,42,44,45,47,0,0,0}si Lbl top 0nem:0usm:4kwt:""stp1 ClrDraw:ClrGraph:ClrIO RclPic usa Lbl t1 1indx:1stord:1k Lbl t4 If stp1"" Then XorPic #stp1,rp,cp EndIf If usm=0 Then (usnav[1])[indx]r (usnav[2])[indx]c If nem=0 Then If r<0 Then rr:ClrDraw:RclPic usane 1nem EndIf Else If r>0 Then ClrDraw:RclPic usa 0nem Else rr EndIf EndIf "usgeogr\x"&(statedat[1])[indx]stp XorPic #stp,r,c stpstp1:rrp:ccp EndIf Lbl t2 If usm0 Then Goto t3 EndIf waitkey("kw"):0t F1=About If kw=268 Then Goto ab1 Left ElseIf kw=337 Then (usnav[5])[indx]t Right ElseIf kw=340 Then (usnav[6])[indx]t Up ElseIf kw=338 Then (usnav[3])[indx]t Down ElseIf kw=344 Then (usnav[4])[indx]t ENTER ElseIf kw=13 Then georank(stord,indx)indx Goto n3 ESC/Quit ElseIf kw=4360 or kw=264 Then Goto qu1 Everything else. Else Goto t2 EndIf handle navigation of map here. If t=0 Then Goto t2 EndIf tindx geoix(stord,indx)k Goto t4 Lbl t3 waitkey("kw") F1=About If kw=268 Then Goto ab1 F2=Order ElseIf kw=269 Then Goto or1 F3=Info ElseIf kw=270 or kw=13 Then Goto i1 ESC ElseIf kw=264 Then (ixd[stord])[indx]indx georank(1,indx)indx ClrDraw If nem=1 Then RclPic usane Else RclPic usa EndIf ""stp1:0usm Goto t4 [2nd]ESC (QUIT) = quit. ElseIf kw=4360 Then Goto qu1 <- previous ElseIf kw=337 Then Goto p1 -> Next ElseIf kw=340 Then Goto n1 up : select previous sort order. ElseIf kw=338 Then If usm0 Then (ixd[stord])[indx]indx stord-1stord If stord<1:10stord georank(stord,indx)indx Goto n3 EndIf dn : select next sort order. ElseIf kw=344 Then If usm0 Then (ixd[stord])[indx]indx stord+1stord If stord>10:1stord georank(stord,indx)indx Goto n3 EndIf CLR : set to start of list. ElseIf kw=263 Then 0indx Goto n1 Alpha A-Z... ElseIf kw97 and kw122 Then kw-96kw si[kw]kw If kw=0 Then Goto t2 EndIf georank(stord,kw)indx Goto n3 Else Goto t2 EndIf Goto t2 Lbl or1 stordv1 Dialog Title "Select Order" DropDown "View",{"Alpha. by State","by Admission Date","by Population","by Area of State(mi)","Highest Pt(ft)","Lowest Pt(ft)","Alpha. by Capital","North to South Capitals","East to West Capitals","Population Density"},v1 EndDlog If ok=0:Goto t2 v1stord:1indx:geoix(stord,indx)k Goto n2 Lbl i1 If k0 and indx0 Then geoinfo2(indx,k) Goto n2 EndIf Goto t2 Lbl ab1 ClrDraw PxlText "U.S. Geography Factbook",3,1 PxlText "by Stephen L. Reid",12,1 PxlText " 2002  All Rights Reserved.",21,1 PxlText "Data on population current as of 12/00",30,1 PxlText "States data obtained from public",39,1 PxlText "Sources of data...",48,1 Pause ClrDraw:""stp1 If usm0 Then Goto n3 Else ClrDraw If nem=1 Then RclPic usane Else RclPic usa EndIf ""stp1:0usm Goto t4 EndIf Lbl p1 indx-1indx If indx<1:50indx geoix(stord,indx)k Goto n2 Lbl n1 indx+1indx If indx>50:1indx Lbl n3 geoix(stord,indx)k Lbl n2 140w:103h (statedat[17])[k]t If t<0 Then tw Else th EndIf int((140-w)/2)c int((103-h)/2)r ClrDraw:1usm RclPic #((statedat[1])[k]),r,c geoinfo(indx,k,w+c+2) RclPic kp,78,139 RclPic #(sl[stord]),78,202 Goto t3 Lbl qu1 EndPrgmfrgT8800"0000"0000000000000000000000000000000000000pp`````````````````````````````o@`xxp80>07p7s` 8`q?8?p`p ?߀q xw;?~0p9x ?>gB>   0   00 0```@`x     0 `@ @   @@@@@@@00000 `@@@```@@@?߷L_?``|808??=  ?~}A```px?o7>@<87??<<>>><<<9?>`~ @ H0O4|$R&j$&S -gS. j(NT>/ jNX fh&j$&SA.?< j NT6g j$R P CcK j$R P j$R P`JCg j$R P j$R P j$.?<?<@/ jNOL Nu5g`?>~x0`00~p`@ p< <    `@̀{    <0000`00``````   00  `0@Kgs           0 0 0?0?`yÀ< |`0x\FpÁb@6 x   6 0`0  "|8"0``00  0`@@` 0 '`s ~0x߀~~?>><0& !& ?$  >???~ =??|>~xV$??pppp`  >>~?~p`$>`s??>> ?????߰ G??????????ߍ2 ???߄/>~~~~~~~~~~~M???/6#  x0߰) @P& @; 0||~~~x{x>>~~xxG @? ??????@@j*S>?????|0 "@-8????????L `? v& .>???7"!/3?????ߓ `xxxߟ =? & @U 0_/@( '( ????x߲W-???????_ X, <>y 9 ?/G??:% p?ߚ @??<|x߉50? ?@m" g`8 08 p0`0@0@`0@00@0000 0 0@ @` x`` f>>0p@` p < 87` 0`@ 0<@ 0 ``>0x0` @@`6 p?`` `0<`0x`````@ ` 0 0 000000``@`@``>00#a" a>!3< D88`0E@DDD@`E@@XVDD@`D]QdYDT@` aD@EO@<D@`0!D@EAA D@`19@8@88À8`8@DQD`9cQ` %U`=DQ`!EQQ @|=|)) %=7<' 0 ;" 3  :8  "#,A  J J./ %#4>OG ) *<9@y[nU{^qiA}Sj& $"! /. %)*&1* &2%,* .%! +)(&2'.*$*,  /  0 2# *&-2 "1 0+  / , $). ! 0+," 1 0 #('/ kG?d&:() Prgm ClrDraw:RclPic usgeogr\gsplash EndPrgm Y g@_1 TK>4w X򪋀kW (gTMT%?R ,ڱo%/’LzZj-MO_JjZAe&A^rpi%@ry6/@}I NWE\t.`6X'ZI%47 kV"6 i>oI`TQT!FE*oK{fmPpzrA&*] vV 3U U7]?))peMx(tQx_ҘjeX5 wKpTPHX(kr*S+VQ9S)mἼhT) RP޿U-R[ɿ%+e?RVU߿TSIKz{U!K RYRz-Tҝ+'ADID**UV$ܧv+UnAů+7x8]~k-<*ȧ?N L'Š(}3"N~5UeaR%уN&z5+H/l̮h@1G_+]Io* @0~lkH).Uz䳊`sIcҔȔxrKj~dJ/"Tbk;rWR⤘I!hrWg+VJQ% T05JR4qV;{&T7mV_)8u-N=2;W!U)JVtR-:-VIJZY~[RK)-eT;>xW%JΊi_5'V,Mi/;:VMB쉖9Rg *,TblCX=f F [HjV?=__<j6(b#)/,w(Ti2rZPOM%JJo)zU>*%rQvUU .%T)M[qDW`&gٵJuGeĞҪRRQTU<c>KQ=&l+J_,f)ͤRTңY6J}JWK+#82JW|`aZ$K.`<$ti]6VKT+:OaRԝ]}+@tV%ꮚR8VAҪXDʵfW]F[=Nv%t."/m,(Y#xD@EO@<?qT!\ID@EAAJ[,f]^Iex9@8@8 v/B:Yg/r54?D8UI um8D0@D|,蒪_ΕD0@D DJ]-LEP@@TeaU*E@@DD`S)@LDĄjة`8@8Ì85s?tÀ8`8uDQD? U0`9cQX %Ue =DQ5p!EQQ R`50|=|I@ pc PQ<lp9c5U44DcADMWLQLYD49ETD_DP<@`EPEPDPy<