home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / pg / pg200 / map-it.200 < prev    next >
Text File  |  2006-10-19  |  7KB  |  110 lines
  1. MAP-IT.200 by Paul Globman (c) 1988
  2.  
  3. MAP-IT.BA draws the continental United States and prompts the user for a two 
  4. character state (use accepted Postal abbreviations).  Input must be in UPPER
  5. CASE.
  6.  
  7. The screen will go blank and user defined information for the selected 
  8. state will be displayed.
  9.  
  10. MAP-IT.BA requires 2 subordinate data files.  MAPDAT.DO is the numerical data
  11. for pixel plotting the individual states and should not be altered (see note). 
  12. STADAT.DO is a user defined data file and can contain whatever the user wishes
  13. to have displayed when the individual state is selected.  The format for state
  14. data is free form but the state data must begin and end with the 2 letter 
  15. state abbreviation in upper case.  The two letter start/stop state abbreviation
  16. must be alone on a line (see sample STADAT.DO, provided).
  17.  
  18. STADAT.DO can contain educationation information like state capitols, governors,
  19. senators, congressmen, etc. or business contacts with phone numbers, etc.
  20.  
  21. NOTE: MAP-IT.BA draws the states in alphabetical order but careful 
  22. rearrangement of the data in MAPDAT.DO can alter the presentation of the map.
  23.  
  24. =======================================
  25. 0 REM MAP-IT by Paul Globman (c) 1988
  26. 5 DEFINTA-Z
  27. 10 CLS:OPEN"MAPDAT"FOR INPUT AS 1
  28. 20 IF EOF(1)THEN80
  29. 30 INPUT#1,S$:INPUT#1,X1,Y1:S=X1:T=Y1
  30. 40 X=X1:Y=Y1:INPUT#1,X1,Y1
  31. 50 LINE(X1+10,Y1-10)-(X+10,Y-10)
  32. 60 IFX1=SANDY1=TTHEN20
  33. 70 GOTO 40
  34. 80 PRINT@560,"State:";:LINEINPUT"";X$
  35. 90 CLS:CLOSE:OPEN"STADAT"FORINPUT AS 1
  36. 100 IF EOF(1) THEN 160
  37. 110 INPUT#1,S$
  38. 120 IFS$<>X$THENLINEINPUT#1,S$:GOTO100
  39. 130 LINEINPUT#1,S$:IFS$=X$THEN150
  40. 140 PRINTS$:GOTO130
  41. 150 LINEINPUT"";X$
  42. 160 BEEP:RUN
  43. =======================================
  44. MAPDAT.DO
  45.  
  46. AL,147,89,148,112,151,112,154,110,152,108,162,107,162,100,158,88,147,89
  47. AR,121,84,122,98,124,98,124,101,136,100,136,95,139,90,139,87,140,86,140,85,138,85,138,83,121,84
  48. AZ,46,78,65,80,62,108,55,108,40,100,40,98,41,97,40,95,43,90,42,86,42,80,44,82,46,78
  49. CA,13,44,11,52,12,56,12,64,15,68,14,70,14,74,18,82,18,85,22,85,29,94,29,97,40,98,41,97,40,95,43,90,42,86,25,63,28,47,13,44
  50. CO,65,80,66,60,92,62,92,82,65,80
  51. CT,194,43,196,46,201,45,200,42,194,43
  52. DE,190,57,193,62,193,64,191,64,189,58,190,57
  53. FL,154,110,152,108,162,107,163,108,173,108,175,109,175,106,177,106,183,118,186,124,186,132,185,133,183,134,180,130,178,125,175,124,175,121,173,120,173,115,168,111,162,113,160,111,154,110
  54. GA,162,107,162,100,158,88,167,87,167,89,178,99,176,104,177,106,175,106,175,109,173,108,163,108,162,107
  55. ID,48,17,44,27,45,29,44,30,43,36,40,39,42,39,40,43,39,50,60,54,62,41,61,40,60,41,56,40,53,34,51,33,52,29,50,23,49,20,51,18,48,17
  56. IL,134,54,143,52,146,56,146,70,144,79,142,78,141,79,136,74,137,72,131,66,132,59,135,57,135,55,134,54
  57. IN,157,68,157,70,155,70,153,74,148,74,145,76,146,70,146,56,155,55,157,68
  58. IO,112,50,112,54,116,64,131,63,132,62,132,59,135,58,135,56,131,52,130,49,112,50
  59. KS,92,68,92,82,120,82,120,72,118,68,92,68
  60. KY,142,82,146,82,146,80,163,79,168,73,167,72,166,69,157,68,157,70,155,70,153,74,148,74,145,76,144,79,142,78,141,79,142,80,142,82
  61. LA,124,101,124,108,127,111,126,118,128,117,132,118,134,116,138,119,145,118,144,116,145,114,143,114,142,112,143,109,135,110,137,104,136,100,124,101
  62. MA,194,40,194,43,198,42,202,42,204,44,207,42,205,43,204,40,202,40,203,38,202,36,194,40
  63. MD,185,62,183,62,183,61,180,61,177,63,176,61,189,58,191,64,193,64,193,66,191,67,189,65,185,65,185,62
  64. ME,198,26,202,36,205,30,205,27,207,27,211,22,209,20,207,20,203,12,200,13,199,16,199,25,198,26
  65. MI,154,32,150,31,149,30,143,32,140,31,138,31,140,28,138,28,131,34,140,36,141,36,142,40,144,36,154,32,MI,146,56,160,54,160,50,162,50,162,46,159,42,156,44,155,43,157,40,156,36,152,35,150,36,150,40,149,38,147,40,147,46,149,51,149,53,146,56
  66. MN,109,23,109,27,112,38,111,40,112,42,112,50,130,49,130,47,125,44,124,38,126,32,134,26,127,26,122,24,120,25,116,23,116,21,114,21,113,23,109,23
  67. MO,116,64,117,68,118,68,120,72,120,84,138,83,138,85,140,85,141,82,142,82,142,80,136,74,137,72,131,66,131,63,116,64
  68. MS,139,90,136,95,136,100,137,104,135,110,143,109,143,112,148,112,147,89,139,90
  69. MT,51,18,62,20,74,22,88,23,86,42,62,40,62,41,61,40,60,41,56,40,53,34,51,33,52,29,50,23,49,20,51,18
  70. NC,161,88,164,84,172,80,172,78,186,76,193,74,196,77,188,85,187,88,185,88,182,85,177,85,174,84,168,86,167,87,161,88
  71. ND,88,23,109,23,109,27,112,38,87,38,88,23
  72. NE,112,54,106,52,85,52,84,61,92,62,92,68,117,68,112,54
  73. NH,198,26,202,36,196,39,196,31,197,30,196,27,198,26
  74. NJ,191,49,194,50,194,52,195,52,195,57,193,60,190,57,192,55,189,53,191,49
  75. NM,65,80,62,108,65,108,65,106,72,106,72,105,87,105,88,82,65,80
  76. NV,28,47,25,63,42,86,42,80,44,82,46,78,49,52,28,47
  77. NY,191,29,192,34,194,37,194,43,196,47,196,49,199,47,200,47,200,48,199,49,195,51,194,51,194,50,192,49,191,49,188,46,173,50,172,49,175,45,173,43,182,40,182,37,181,36,184,31,191,29
  78. OH,155,55,157,68,166,69,169,63,171,62,172,60,170,50,165,55,160,54,155,55
  79. OK,88,82,88,84,100,84,100,94,108,97,122,98,120,82,88,82
  80. OR,44,30,29,30,27,28,24,28,24,25,21,24,16,36,13,38,13,44,39,50,40,43,42,39,40,39,43,36,44,30
  81. PA,173,50,172,49,170,50,173,62,190,57,192,55,192,54,189,53,191,49,188,46,173,50
  82. RI,200,42,202,42,203,44,201,45,200,42
  83. SC,185,88,182,85,177,85,174,84,168,86,167,87,167,89,178,99,178,97,181,95,185,88
  84. SD,87,38,112,38,111,40,112,42,112,54,106,52,85,52,87,38
  85. TN,141,82,140,87,139,87,139,90,161,88,164,84,172,80,172,78,146,80,146,82,141,82
  86. TX,72,105,87,105,88,84,100,84,100,94,108,97,124,98,124,108,127,111,126,118,122,118,118,122,114,122,110,130,110,133,112,136,104,134,102,128,93,116,88,116,86,121,80,118,79,114,72,106,72,105
  87. UT,49,52,46,78,65,80,66,60,59,60,60,54,49,52
  88. VA,163,79,172,78,186,76,193,74,192,71,190,72,189,65,185,65,185,62,181,62,178,66,176,66,176,72,172,73,170,74,168,73,163,79
  89. VT,196,39,196,31,197,30,196,28,191,29,192,34,194,37,194,40,196,39
  90. WA,28,11,48,17,44,27,45,29,44,30,29,30,27,28,24,28,24,25,21,22,22,21,22,15,21,14,22,13,27,16,28,11
  91. WI,130,49,130,47,125,44,124,38,126,33,130,32,130,33,138,36,141,36,142,40,141,41,143,41,143,52,134,54,131,52,130,49
  92. WV,181,62,178,66,176,66,176,72,172,73,170,74,168,73,167,72,166,69,169,63,172,61,173,62,176,61,177,63,180,61,183,61,181,62
  93. WY,62,40,86,42,84,61,59,60,62,40
  94. =======================================
  95. STADAT.DO (sample state data file with entries for CA, FL, and NY).
  96.  
  97. FL
  98. Florida...the 'sunshine state'
  99. capitol...Tallahassee
  100. FL
  101. CA
  102. California...home of the Dodgers
  103. capitol...Sacramento
  104. CA
  105. NY
  106. New York...the empire state
  107. capitol...Albany
  108. NY
  109. =======================================
  110.