1REM  USA graphic for the ADAM computer
5REM  programmed by Bob Zimmerman, ALL RIGHTS RESERVED.
10HGR:HCOLOR =7
12? "   PRESS <return> TO CONTINUE":GET z$
14?:?:?:?
15ONERR  GOTO 8000
20DATA      7,7,6,15,1,32,0,40,0,45,1,54,4,65,10,70,13,75,20,76,32,84,38,84
30DATA       41,84,41,83,46,83,56,95,60,92,64,92,75,107,77,99,89,91,89,92,104,93,104,89
40DATA      107,88,110,88,118,89,121,88,125,90,127,95,129,99,131,103,135,106,137,103,136,96
50DATA      131,88,129,84,131,79,138,70,145,62,144,57,145,51,145,49,145,47,146,40,148,39,148,38  
60DATA      153,35,154,34,155,32,152,28,152,24,159,17,154,9,152,8,150,9,148,19,147,20,143,22
70DATA      140,23,136,28,135,31,129,32,129,34,118,40,119,36,121,34,120,27,112,23,107,18,104,15
80DATA       100,15,97,19,81,17,77,17,60,17,30,11,28,11,13,6,13,12,12,12,12,9,7,7,279,279
90 size=1.4
100READ ww, xx, yy, zz
110 ww=ww*size+20: yy=yy*size+20
6009 xx=xx*size: zz=zz*size
6010HPLOT ww, xx TO yy, zz
6020 ww=yy: xx=zz
6030READ yy, zz
6035IF yy>=279 THEN 6060
6040 yy=yy*size+20: zz=zz*size
6050GOTO 6010
6060HCOLOR =3
6500READ ww, xx, yy, zz
6510 ww=ww*size+20: yy=yy*size+20
6520 xx=xx*size: zz=zz*size
6530HPLOT ww, xx TO yy, zz
6540 ww=yy: xx=zz
6550READ yy, zz
6555IF yy>=279 THEN 6060
6560 yy=yy*size+20: zz=zz*size
6570HPLOT  TO yy, zz
6580GOTO 6550
7000DATA                      7,7,6,15,9,20,25,22,28,11,13,6,13,12,12,12,12,9,7,7,279,279
7002REM     Washington
7100DATA               6,15,1,32,12,35,21,38,25,22,9,20,6,15,279,279 
7105REM      Oregon 
7110DATA     1,32,0,40,0,45,1,54,4,65,10,70,13,75,20,76,22,68,9,48,12,35,1,32,279,279
7112REM     California
7120DATA               12,35,9,48,22,68,22,63,24,63,25,60,28,40,21,38,12,35,279,279 
7122REM     Nevada
7130DATA              21,38,25,22,28,11,30,11,30,15,31,21,30,24,32,26,33,29,39,31,37,42,28,40,21,38,279,279
7132REM     Idaho
7140DATA                30,11,30,15,31,21,30,24,32,26,33,29,39,31,40,29,59,32,59,28,60,17,30,11,279,279  
7142REM     Montana
7150DATA                40,29,39,31,37,42,36,45,43,47,57,48,58,40,59,32,40,29,279,279
7152REM     Wyoming
7160DATA             28,40,25,60,40,62,43,47,36,45,37,42,28,40,279,279                     
7162REM     Utah
7170DATA                20,76,32,84,38,84,40,62,25,60,24,63,22,63,22,68,20,76,279,279
7172REM     Arizona
7180DATA                   38,84,41,84,41,83,46,83,58,83,59,64,40,62,38,84,279,279
7182REM     New Mexico
7190DATA                 40,62,62,64,62,48,57,48,43,47,40,62,279,279
7192REM     Colorado
7200DATA     46,83,56,95,60,92,64,92,75,107,77,99,89,91,87,84,87,77,85,76,75,76,68,74,68,66,59,66,58,83,46,83,279,279
7210REM     Texas
7220DATA     59,66,59,64,85,64,85,76,68,74,68,66,59,66,279,279
7222REM     Oklahoma
7230DATA     62,64,62,52,81,52,84,55,85,64,62,64,279,279
7232REM     Kansas
7240DATA     57,48,58,40,75,40,79,42,81,49,81,52,62,52,62,48,57,48,279,279
7242REM     Nebraska
7250DATA     58,40,59,32,59,28,78,28,79,32,79,42,75,40,58,40,279,279
7252REM     South Dakota
7260DATA     59,28,60,17,77,17,78,28,59,28,279,279
7262REM     North Dakota
7270DATA     77,17,78,28,79,32,79,38,94,38,91,34,89,29,91,25,97,19,77,17,279,279
7272REM     Minnesota
7280DATA     79,38,79,42,81,49,93,49,96,41,94,38,79,38,279,279
7282REM     Iowa
7290DATA     81,49,81,52,84,55,85,65,99,65,101,66,102,64,102,62,100,60,98,55,93,49,81,49,279,279
7292REM     Missouri
7300DATA     85,65,85,76,87,77,87,79,97,79,100,70,101,66,99,65,85,65,279,279
7302REM     Arkansas
7310DATA     87,79,87,84,89,91,89,92,104,93,104,89,102,86,97,87,98,82,97,79,87,79,279,279
7312REM     Louisiana
7320DATA     97,79,100,70,106,70,107,88,104,89,102,86,97,87,98,82,97,79,279,279
7322REM     Mississippi
7330DATA     107,88,106,70,115,69,118,85,109,85,110,88,107,88,279,279
7332REM     Alabama
7340DATA     110,88,109,85,118,85,129,84,131,88,136,96,137,103,135,106,131,103,129,99,127,95,125,90,121,88,118,89,110,88,279,279
7342REM     Florida
7350DATA     118,85,115,69,118,68,122,68,131,79,129,84,118,85,279,279
7352REM     Georgia
7360DATA     131,79,122,68,133,67,138,70,131,79,279,279
7362REM     South Carolina
7370DATA     138,70,133,67,122,68,118,68,126,61,144,57,145,62,138,70,279,279
7372REM     North Carolina
7380DATA     126,61,118,68,115,69,100,70,101,66,102,64,120,62,126,61,279,279
7382REM     Tennessee
7390DATA     102,64,102,62,105,61,106,58,111,57,115,53,120,53,124,57,120,62,102,64,279,279
7392REM     Kentucky
7400DATA     102,62,98,55,94,50,96,41,104,40,106,43,107,55,106,58,105,61,102,62,279,279 
7402REM     Illinois
7410DATA     96,41,94,38,91,34,89,29,91,25,94,24,97,25,104,30,104,40,96,41,279,279
7412REM     Wisconson
7420DATA     97,25,101,22,105,24,109,23,112,24,112,26,107,26,104,30,104,40,106,43,108,43,109,37,107,31,109,29,111,27,114,28
7422DATA     116,32,116,34,117,33,119,36,118,40,117,42,114,42,108,43,279,279
7424REM     Michigan
7500DATA     106,43,107,55,106,58,111,57,115,53,114,42,106,43,279,279
7502REM     Indiana
7510DATA     114,42,117,42,126,38,127,47,126,48,123,53,120,53,115,53,114,42,279,279
7512REM     Ohio
7520DATA     120,53,124,57,126,58,130,56,137,49,136,48,132,49,131,47,127,47,126,38,126,48,123,53,120,53,279,279
7522REM     West Virginia
7530DATA     124,57,120,62,126,61,144,57,145,51,140,51,137,49,130,56,126,58,124,57,279,279
7532REM     Virginia
7540DATA     145,51,140,51,137,49,136,48,132,49,131,47,142,45,145,49,145,51,279,279
7542REM     Maryland
7550DATA     145,49,142,45,143,43,145,47,145,49,279,279
7552REM     Deleware
7560DATA     126,38,127,47,131,47,142,45,143,43,144,37,141,35,127,38,126,38,279,279
7562REM     Pennsylvania
7570DATA     127,38,129,34,129,32,135,31,136,28,140,23,143,22,147,31,147,35,148,38,148,39,141,35,127,38,279,279
7572REM     New York
7580DATA     147,35,148,38,153,35,151,33,147,35,279,279
7582REM     Connecticut
7590DATA     153,35,151,33,152,32,154,34,153,35,279,279
7592REM     Rhode Island
7600DATA     154,34,152,32,151,33,147,35,147,31,148,30,152,28,155,32,154,34,279,279
7602REM     Massachusetts
7610DATA     148,30,147,31,143,22,147,20,148,30,279,279
7612REM     Vermont
7620DATA     147,20,148,30,152,28,148,19,147,20,279,279
7622REM     New Hampshire
7630DATA     148,19,150,9,152,8,154,9,159,17,152,24,152,28,148,19,279,279
7632REM     Maine
7640DATA     148,39,146,40,145,47,143,43,144,37,148,39,279,279
7642REM     New Jersey
8000CLRERR:? "The Good Ole USA!"
