PROGRAM 30


PROGRAM STATE_PROGRAM;
        {ANTHONY F. ORITZ, ASSIGNMENT 12, JULY 26, 1994}
        {THIS PROGRAM IS A MENU DRIVEN PROGRAM THAT ALLOWS THE USER TO
         MANIPULATE A DATABASE.}
USES CRT;

TYPE
      STR20 = STRING [20];
       STR2 = STRING [2];
   STATEREC = RECORD
       NAME:  STR20;
     ABBREV:  STR2;
    CAPITOL:  STR20;
        POP:  INTEGER;
   LANDSIZE:  REAL;
END;
    STATEFILE = FILE OF STATEREC;
   STATEARRAY = ARRAY [1..50] OF STATEREC;
     REALTYPE = ARRAY [1..50] OF REAL;

PROCEDURE LOADARRAY (VAR INFILE:  STATEFILE; VAR S:  STATEARRAY; VAR SIZE:  INTEGER);

VAR
   ROW:  INTEGER;

BEGIN
     ASSIGN (INFILE, 'A:\STATES.DAT');
     RESET (INFILE);
     ROW := 0;
     WHILE NOT EOF (INFILE) DO
           BEGIN
                ROW := ROW + 1;
                READ (INFILE, S [ROW])
           END;
     SIZE := ROW;
     CLOSE (INFILE);
END;

PROCEDURE CALCULATE (VAR S:  STATEARRAY; VAR INFILE2:  TEXT; VAR PER, POP2:  REALTYPE);

VAR
   ROW:  INTEGER;
BEGIN
     ASSIGN (INFILE2, 'A:/STATES2.DAT');
     RESET (INFILE2);
     ROW := 0;
     WHILE NOT EOF (INFILE2) DO
           BEGIN
                ROW := ROW + 1;
                READLN (INFILE2, PER [ROW]);
           END;
     FOR ROW := 1 TO 50 DO
         POP2 [ROW] := (PER [ROW] / 100 * S [ROW].POP) + S [ROW].POP;
     CLOSE (INFILE2)
END;

PROCEDURE CALCULATE2 (VAR S:  STATEARRAY; VAR POP2, DENSITY:  REALTYPE);

VAR
   ROW:  INTEGER;

BEGIN
     FOR ROW := 1 TO 50 DO
         DENSITY [ROW] := POP2 [ROW] / S [ROW].LANDSIZE;
END;

PROCEDURE PRINTARRAY (VAR S:  STATEARRAY; VAR DENSITY, PER, POP2:  REALTYPE);

VAR
   ROW, COUNT:  INTEGER;

BEGIN
     COUNT := 0;
     CLRSCR;
     WRITELN ('U. S. STATES');
     WRITELN;
     WRITELN ('       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.');
     WRITELN ('                                          POP.       SIZE               DEC.');
     WRITELN;
     FOR ROW := 1 TO 50 DO
         BEGIN
              WRITELN (S [ROW].NAME:15,'    ', S [ROW].ABBREV, '  ', S [ROW].CAPITOL:14,'    ', POP2 [ROW]:5:0,'  '
              , S [ROW].LANDSIZE:10:0, '',DENSITY [ROW]:10:3, '    ', PER [ROW]:5:2);
              COUNT := COUNT + 1;
              IF COUNT = 10 THEN
                 BEGIN
                      COUNT := 0;
                      WRITELN;
                      WRITE ('PRESS ENTER KEY TO CONTINUE. ');
                      READLN;
                      CLRSCR;
                      WRITELN ('U. S. STATES');
                      WRITELN;
                      WRITELN ('       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.');
                      WRITELN ('                                          POP.       SIZE               DEC.');
                      WRITELN;
                 END;
         END;
END;

PROCEDURE MENU (VAR CH:  CHAR);

BEGIN
     WRITELN ('MENU OPTIONS');
     WRITELN;
     WRITELN ('A.  SORT AND PRINT DATA BY STATE''S NAME. ');
     WRITELN ('B.  SORT AND PRINT DATA BY STATES''S ABBREV. ');
     WRITELN ('C.  SORT AND PRINT DATA BY STATES''S CAPITOL.');
     WRITELN ('D.  SORT AND PRINT DATA BY LANDSIZE. ');
     WRITELN ('E.  SORT AND PRINT DATA BY 1990 POPULATION. ');
     WRITELN ('F.  QUIT');
     WRITELN;
     WRITE ('CHOOSE ONE OF THE ABOVE MENU OPTIONS. ');
     READLN (CH);
     CH := UPCASE (CH);
END;

PROCEDURE SORT1 (VAR S:  STATEARRAY; SIZE:  INTEGER; VAR DENSITY, PER, POP2:  REALTYPE);

VAR
                            TEMPORARY:  STATEREC;
                 ROW, POS, LARGESTPOS:  INTEGER;
   TEMPORARY2, TEMPORARY3, TEMPORARY4:  REAL;

BEGIN
     FOR POS := 1 TO SIZE DO
         BEGIN
              LARGESTPOS := POS;
              FOR ROW := POS + 1 TO SIZE DO
                  IF S [ROW].NAME < S [LARGESTPOS].NAME THEN
                     LARGESTPOS := ROW;
              TEMPORARY := S [LARGESTPOS];
              S [LARGESTPOS] := S [POS];
              S [POS] := TEMPORARY;
              TEMPORARY2 := POP2 [LARGESTPOS];
              POP2 [LARGESTPOS] := POP2 [POS];
              POP2 [POS] := TEMPORARY2;
              TEMPORARY3 := PER [LARGESTPOS];
              PER [LARGESTPOS] := PER [POS];
              PER [POS] := TEMPORARY3;
              TEMPORARY4 := DENSITY [LARGESTPOS];
              DENSITY [LARGESTPOS] := DENSITY [POS];
              DENSITY [POS] := TEMPORARY4;
         END;
END;


PROCEDURE SORT2 (VAR S:  STATEARRAY; SIZE:  INTEGER; VAR DENSITY, PER, POP2:  REALTYPE);

VAR
                            TEMPORARY:  STATEREC;
                 ROW, POS, LARGESTPOS:  INTEGER;
   TEMPORARY2, TEMPORARY3, TEMPORARY4:  REAL;
BEGIN
     FOR POS := 1 TO SIZE DO
         BEGIN
              LARGESTPOS := POS;
              FOR ROW := POS + 1 TO SIZE DO
                  IF S [ROW].ABBREV < S [LARGESTPOS].ABBREV THEN
                     LARGESTPOS := ROW;
              TEMPORARY := S [LARGESTPOS];
              S [LARGESTPOS] := S [POS];
              S [POS] := TEMPORARY;
              TEMPORARY2 := POP2 [LARGESTPOS];
              POP2 [LARGESTPOS] := POP2 [POS];
              POP2 [POS] := TEMPORARY2;
              TEMPORARY3 := PER [LARGESTPOS];
              PER [LARGESTPOS] := PER [POS];
              PER [POS] := TEMPORARY3;
              TEMPORARY4 := DENSITY [LARGESTPOS];
              DENSITY [LARGESTPOS] := DENSITY [POS];
              DENSITY [POS] := TEMPORARY4;
         END;
END;

PROCEDURE SORT3 (VAR S:  STATEARRAY; SIZE:  INTEGER; VAR DENSITY, PER, POP2:  REALTYPE);

VAR
                            TEMPORARY:  STATEREC;
                 ROW, POS, LARGESTPOS:  INTEGER;
   TEMPORARY2, TEMPORARY3, TEMPORARY4:  REAL;

BEGIN
     FOR POS := 1 TO SIZE DO
         BEGIN
              LARGESTPOS := POS;
              FOR ROW := POS + 1 TO SIZE DO
                  IF S [ROW].CAPITOL < S [LARGESTPOS].CAPITOL THEN
                     LARGESTPOS := ROW;
              TEMPORARY := S [LARGESTPOS];
              S [LARGESTPOS] := S [POS];
              S [POS] := TEMPORARY;
              TEMPORARY2 := POP2 [LARGESTPOS];
              POP2 [LARGESTPOS] := POP2 [POS];
              POP2 [POS] := TEMPORARY2;
              TEMPORARY3 := PER [LARGESTPOS];
              PER [LARGESTPOS] := PER [POS];
              PER [POS] := TEMPORARY3;
              TEMPORARY4 := DENSITY [LARGESTPOS];
              DENSITY [LARGESTPOS] := DENSITY [POS];
              DENSITY [POS] := TEMPORARY4;
         END;
END;

PROCEDURE SORT4 (VAR S:  STATEARRAY; SIZE:  INTEGER; VAR DENSITY, PER, POP2:  REALTYPE);

VAR
                            TEMPORARY:  STATEREC;
                 ROW, POS, LARGESTPOS:  INTEGER;
   TEMPORARY2, TEMPORARY3, TEMPORARY4:  REAL;

BEGIN
     FOR POS := 1 TO SIZE DO
         BEGIN
              LARGESTPOS := POS;
              FOR ROW := POS + 1 TO SIZE DO
                  IF POP2 [ROW] < POP2 [LARGESTPOS] THEN
                     LARGESTPOS := ROW;
              TEMPORARY := S [LARGESTPOS];
              S [LARGESTPOS] := S [POS];
              S [POS] := TEMPORARY;
              TEMPORARY2 := POP2 [LARGESTPOS];
              POP2 [LARGESTPOS] := POP2 [POS];
              POP2 [POS] := TEMPORARY2;
              TEMPORARY3 := PER [LARGESTPOS];
              PER [LARGESTPOS] := PER [POS];
              PER [POS] := TEMPORARY3;
              TEMPORARY4 := DENSITY [LARGESTPOS];
              DENSITY [LARGESTPOS] := DENSITY [POS];
              DENSITY [POS] := TEMPORARY4;
         END;
END;

PROCEDURE SORT5 (VAR S:  STATEARRAY; SIZE:  INTEGER; VAR DENSITY, PER, POP2:  REALTYPE);

VAR
                            TEMPORARY:  STATEREC;
                 ROW, POS, LARGESTPOS:  INTEGER;
   TEMPORARY2, TEMPORARY3, TEMPORARY4:  REAL;

BEGIN
     FOR POS := 1 TO SIZE DO
         BEGIN
              LARGESTPOS := POS;
              FOR ROW := POS + 1 TO SIZE DO
                  IF S [ROW].LANDSIZE < S [LARGESTPOS].LANDSIZE THEN
                     LARGESTPOS := ROW;
              TEMPORARY := S [LARGESTPOS];
              S [LARGESTPOS] := S [POS];
              S [POS] := TEMPORARY;
              TEMPORARY2 := POP2 [LARGESTPOS];
              POP2 [LARGESTPOS] := POP2 [POS];
              POP2 [POS] := TEMPORARY2;
              TEMPORARY3 := PER [LARGESTPOS];
              PER [LARGESTPOS] := PER [POS];
              PER [POS] := TEMPORARY3;
              TEMPORARY4 := DENSITY [LARGESTPOS];
              DENSITY [LARGESTPOS] := DENSITY [POS];
              DENSITY [POS] := TEMPORARY4;
         END;
END;

PROCEDURE SORTANDPRINT1 (VAR S:  STATEARRAY; VAR SIZE:  INTEGER; VAR DENSITY, PER, POP2:  REALTYPE);

BEGIN
     CLRSCR;
     SORT1 (S, SIZE, DENSITY, PER, POP2);
     PRINTARRAY (S, DENSITY, PER, POP2);
END;

PROCEDURE SORTANDPRINT2 (VAR S:  STATEARRAY; VAR SIZE:  INTEGER; VAR DENSITY, PER, POP2:  REALTYPE);

BEGIN
     CLRSCR;
     SORT2 (S, SIZE, DENSITY, PER, POP2);
     PRINTARRAY (S, DENSITY, PER, POP2);
END;

PROCEDURE SORTANDPRINT3 (VAR S:  STATEARRAY; VAR SIZE:  INTEGER; VAR DENSITY, PER, POP2:  REALTYPE);

BEGIN
     CLRSCR;
     SORT3 (S, SIZE, DENSITY, PER, POP2);
     PRINTARRAY (S, DENSITY, PER, POP2);
END;

PROCEDURE SORTANDPRINT4 (VAR S:  STATEARRAY; VAR SIZE:  INTEGER; VAR DENSITY, PER, POP2:  REALTYPE);

BEGIN
     CLRSCR;
     SORT4 (S, SIZE, DENSITY, PER, POP2);
     PRINTARRAY (S, DENSITY, PER, POP2);
END;

PROCEDURE SORTANDPRINT5 (VAR S:  STATEARRAY; VAR SIZE:  INTEGER; VAR DENSITY, PER, POP2:  REALTYPE);

BEGIN
     CLRSCR;
     SORT5 (S, SIZE, DENSITY, PER, POP2);
     PRINTARRAY (S, DENSITY, PER, POP2);
END;

PROCEDURE QUIT;

BEGIN
END;

PROCEDURE MENU2 (VAR CH:  CHAR);

BEGIN
     WRITELN ('MENU OPTIONS');
     WRITELN;
     WRITELN ('A.  PRINT STATES UNDER 999. ');
     WRITELN ('B.  PRINT STATES BETWEEN 1000 TO 5000. ');
     WRITELN ('C.  PRINT STATES OVER 5000. ');
     WRITELN ('D.  ALL STATES. ');
     WRITELN ('E.  QUIT.');
     WRITELN;
     WRITE ('CHOOSE ONE OF THE ABOVE CHOICES. ');
     READLN (CH);
     CH := UPCASE (CH);
END;

PROCEDURE PAUSE;

BEGIN
     WRITELN;
     WRITE ('PRESS ENTER KEY TO CONTINUE. ');
     READLN;
END;

PROCEDURE FINDSTATES1 (VAR S:  STATEARRAY; VAR DENSITY, PER, POP2:  REALTYPE);

VAR
   ROW, COUNT:  INTEGER;

BEGIN
     COUNT := 0;
     CLRSCR;
     WRITELN ('U. S. STATES UNDER 999');
     WRITELN;
     WRITELN ('       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.');
     WRITELN ('                                          POP.       SIZE               DEC.');
     WRITELN;
     FOR ROW := 1 TO 50 DO
         IF POP2 [ROW] < 999 THEN
            BEGIN
                 WRITELN (S [ROW].NAME:15,'    ', S [ROW].ABBREV, '  ', S [ROW].CAPITOL:14,'    ', POP2 [ROW]:5:0,'  '
                 , S [ROW].LANDSIZE:10:0, '',DENSITY [ROW]:10:3, '    ', PER [ROW]:5:2);
                 COUNT := COUNT + 1;
                 IF COUNT = 10 THEN
                    BEGIN
                         COUNT := 0;
                         WRITELN;
                         WRITE ('PRESS ENTER KEY TO CONTINUE. ');
                         READLN;
                         CLRSCR;
                         WRITELN ('U. S. STATES UNDER 999');
                         WRITELN;
                         WRITELN ('       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.');
                         WRITELN ('                                          POP.       SIZE               DEC.');
                         WRITELN;
                    END;
            END;
     PAUSE;
END;

PROCEDURE FINDSTATES2 (VAR S:  STATEARRAY; VAR DENSITY, PER, POP2:  REALTYPE);

VAR
   ROW, COUNT:  INTEGER;

BEGIN
      COUNT := 0;
      CLRSCR;
      WRITELN ('U. S. STATES BETWEEN 1000 AND 5000');
      WRITELN;
      WRITELN ('       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.');
      WRITELN ('                                          POP.       SIZE               DEC.');
      WRITELN;
      FOR ROW := 1 TO 50 DO
          IF (POP2 [ROW] <=  5000) AND (POP2 [ROW] >= 1000) THEN
             BEGIN
                  WRITELN (S [ROW].NAME:15,'    ', S [ROW].ABBREV, '  ', S [ROW].CAPITOL:14,'    ', POP2 [ROW]:5:0,'  '
                  , S [ROW].LANDSIZE:10:0, '',DENSITY [ROW]:10:3, '    ', PER [ROW]:5:2);
                  COUNT := COUNT + 1;
                  IF COUNT = 10 THEN
                     BEGIN
                          COUNT := 0;
                          WRITELN;
                          WRITE ('PRESS ENTER KEY TO CONTINUE. ');
                          READLN;
                          CLRSCR;
                          WRITELN ('U. S. STATES BETWEEN 1000 AND 5000');
                          WRITELN;
                          WRITELN ('       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.');
                          WRITELN ('                                          POP.       SIZE               DEC.');
                          WRITELN;
                     END;
             END;
      PAUSE;
END;
PROCEDURE FINDSTATES3 (VAR S:  STATEARRAY; VAR DENSITY, PER, POP2:  REALTYPE);

VAR
   ROW, COUNT:  INTEGER;

BEGIN
     CLRSCR;
     WRITELN ('U. S. STATES OVER 5000');
     WRITELN;
     WRITELN ('       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.');
     WRITELN ('                                          POP.       SIZE               DEC.');
     WRITELN;
     COUNT := 0;
     FOR ROW := 1 TO 50 DO
         IF POP2 [ROW] > 5000 THEN
            BEGIN
                 WRITELN (S [ROW].NAME:15,'    ', S [ROW].ABBREV, '  ', S [ROW].CAPITOL:14,'    ', POP2 [ROW]:5:0,'  '
                 , S [ROW].LANDSIZE:10:0, '',DENSITY [ROW]:10:3, '    ', PER [ROW]:5:2);
                 COUNT := COUNT + 1;
                 IF COUNT = 10 THEN
                    BEGIN
                         COUNT := 0;
                         WRITELN;
                         WRITE ('PRESS ENTER KEY TO CONTINUE. ');
                         READLN;
                         CLRSCR;
                         WRITELN ('U. S. STATES OVER 5000');
                         WRITELN;
                         WRITELN ('       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.');
                         WRITELN ('                                          POP.       SIZE               DEC.');
                         WRITELN;
                    END;
            END;
     PAUSE;
END;

PROCEDURE QUIT2;

BEGIN
END;

PROCEDURE MENU3 (VAR CH:  CHAR);

BEGIN
     WRITELN ('MENU OPTIONS');
     WRITELN;
     WRITELN ('A.  PRINT INFORMATION ON AN INDIVIDUAL STATE. ');
     WRITELN ('B.  QUIT.');
     WRITELN;
     WRITE ('CHOOSE ONE OF THE ABOVE MENU OPTIONS. ');
     READLN (CH);
     CH := UPCASE (CH);
END;

PROCEDURE SEARCHSTATE (VAR S:  STATEARRAY; VAR DENSITY, PER, POP2:  REALTYPE);

VAR
   ROW, POSITION:  INTEGER;
          SEARCH:  STR20;
           FOUND:  BOOLEAN;
BEGIN
     CLRSCR;
     WRITE ('ENTER THE NAME OF A STATE.  FIRST LETTER MUST BE CAPITOL, FOLLOWED BY LOWERCASE. ');
     WRITELN;
     READLN (SEARCH);
     FOUND := FALSE;
     ROW := 1;
     WRITELN;
     WHILE (NOT FOUND) OR (ROW = 50) DO
           BEGIN
                IF SEARCH = S [ROW].NAME THEN
                   BEGIN
                        FOUND := TRUE;
                        POSITION := ROW;
                   END
                ELSE
                   ROW := ROW + 1;
           END;
     IF FOUND THEN
        BEGIN
             WRITELN ('       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.');
             WRITELN ('                                          POP.       SIZE               DEC.');
             WRITELN;
             WRITELN (S [POSITION].NAME:15,'    ', S [POSITION].ABBREV, '  ', S [POSITION].CAPITOL:14,'    '
             , POP2 [POSITION]:5:0,'  ', S [POSITION].LANDSIZE:10:0, ''
             ,DENSITY [POSITION]:10:3, '    ', PER [POSITION]:5:2)
        END
     ELSE
        WRITELN ('THIS STATE NOT FOUND. ');
     WRITELN;
     WRITE ('PRESS ENTER KEY TO CONTINUE. ');
     READLN;
END;

PROCEDURE QUIT3;

BEGIN
END;

VAR
               INFILE:  STATEFILE;
                    S:  STATEARRAY;
                 SIZE:  INTEGER;
              INFILE2:  TEXT;
   POP2, PER, DENSITY:  REALTYPE;
                   CH:  CHAR;

BEGIN
     CLRSCR;
     LOADARRAY (INFILE, S, SIZE);
     CALCULATE (S, INFILE2, PER, POP2);
     CALCULATE2 (S, POP2, DENSITY);
     PRINTARRAY (S, DENSITY, PER, POP2);
     REPEAT
           CLRSCR;
           MENU (CH);
           CASE CH OF
                'A', 'a':  SORTANDPRINT1 (S, SIZE, DENSITY, PER, POP2);
                'B', 'b':  SORTANDPRINT2 (S, SIZE, DENSITY, PER, POP2);
                'C', 'c':  SORTANDPRINT3 (S, SIZE, DENSITY, PER, POP2);
                'D', 'd':  SORTANDPRINT4 (S, SIZE, DENSITY, PER, POP2);
                'E', 'e':  SORTANDPRINT5 (S, SIZE, DENSITY, PER, POP2);
                'F', 'f':  QUIT;
           END;
     UNTIL CH = 'F';
     REPEAT
           CLRSCR;
           MENU2 (CH);
           CASE CH OF
                'A', 'a':  FINDSTATES1 (S, DENSITY, PER, POP2);
                'B', 'b':  FINDSTATES2 (S, DENSITY, PER, POP2);
                'C', 'c':  FINDSTATES3 (S, DENSITY, PER, POP2);
                'D', 'd':  PRINTARRAY (S, DENSITY, PER, POP2);
                'E', 'e':  QUIT2;
           END;
     UNTIL CH = 'E';
     REPEAT
           CLRSCR;
           MENU3 (CH);
           CASE CH OF
                'A', 'a':  SEARCHSTATE (S, DENSITY, PER, POP2);
                'B', 'b':  QUIT3;
           END;
     UNTIL CH = 'B';
END.

{  DATA FILE:  STATES.DAT, STATES2.DAT  }

{  NOT TEXT FILES  }

{  OUTFILE:  PROG30.OUT  }

U. S. STATES

       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.
                                          POP.       SIZE               DEC.

          Maine    ME         Augusta     1234       33215     0.037     9.70
  New Hampshire    NH         Concord     1114        9304     0.120    21.00
        Vermont    VT      Montpelier      565        9609     0.059    10.50
  Massachusetts    MA          Boston     6030        8257     0.730     5.10
    Connecticut    CT        Hartford     3298        5009     0.658     6.10
   Rhode Island    RI      Providence     1006        1214     0.828     6.20
       New York    NY          Albany    18050       49576     0.364     2.80
   Pennsylvania    PA      Harrisburg    11923       45333     0.263     0.50
     New Jersey    NJ         Trenton     7748        7836     0.989     5.20
       Maryland    MD       Annapolis     4799       10577     0.454    13.80

PRESS ENTER KEY TO CONTINUE.

U. S. STATES

       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.
                                          POP.       SIZE               DEC.

       Delaware    DE           Dover      668        2057     0.325    12.50
       Virginia    VA        Richmond     6219       40817     0.152    16.30
  West Virginia    WV      Charleston     1802       24181     0.075    -7.60
           Ohio    OH        Columbus    10884       41222     0.264     0.80
       Kentucky    KY       Frankfort     3697       40395     0.092     1.00
        Indiana    IN    Indianapolis     5561       36291     0.153     1.30
       Michigan    MI         Lansing     9327       58216     0.160     0.70
      Wisconsin    WI         Madison     4908       56154     0.087     4.30
       Illinois    IL     Springfield    11473       56400     0.203     0.40
      Tennessee    TN       Nashville     4899       42244     0.116     6.70

PRESS ENTER KEY TO CONTINUE.

U. S. STATES

       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.
                                          POP.       SIZE               DEC.

 North Carolina    NC         Raleigh     6658       52586     0.127    13.20
 South Carolina    SC        Columbia     3506       31055     0.113    12.30
        Georgia    GA         Atlanta     6506       58876     0.111    19.10
        Florida    FL     Tallahassee    13001       58560     0.222    33.40
        Alabama    AL      Montgomery     4061       51609     0.079     4.30
    Mississippi    MS         Jackson     2587       47716     0.054     2.60
      Louisiana    LA     Baton Rouge     4240       48523     0.087     0.80
       Arkansas    AR     Little Rock     2361       53104     0.044     3.30
       Missouri    MO  Jefferson City     5138       69868     0.074     4.50
           Iowa    IA      Des Moines     2789       56290     0.050    -4.30

PRESS ENTER KEY TO CONTINUE.

U. S. STATES

       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.
                                          POP.       SIZE               DEC.

      Minnesota    MN        St. Paul     4386       84068     0.052     7.60
   North Dakota    ND        Bismarck      642       70665     0.009    -1.70
   South Dakota    SD          Pierre      700       77047     0.009     1.30
       Nebraska    NE         Lincoln     1584       77227     0.021     0.90
         Kansas    KS          Topeka     2487       82264     0.030     5.20
       Oklahoma    OK   Oklahoma City     3158       69919     0.045     4.40
          Texas    TX          Austin    17061      267338     0.064    19.90
     New Mexico    NM        Santa Fe     1522      121666     0.013    16.80
        Arizona    AZ         Phoenix     3696      113909     0.032    36.00
         Nevada    NV     Carson City     1206      110540     0.011    50.70

PRESS ENTER KEY TO CONTINUE.

U. S. STATES

       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.
                                          POP.       SIZE               DEC.

       Colorado    CO          Denver     3309      104247     0.032    14.50
           Utah    UT  Salt Lake City     1728       84916     0.020    18.30
        Wyoming    WY        Cheyenne      456       97914     0.005    -2.90
          Idaho    ID           Boise     1012       83557     0.012     7.20
        Montana    MT          Helena      804      147138     0.005     2.20
     California    CA      Sacramento    29845      158693     0.188    26.10
         Oregon    OR           Salem     2854       96981     0.029     8.40
     Washington    WA         Olympia     4888       68192     0.072    18.30
         Alaska    AK          Juneau      552      589757     0.001    37.40
         Hawaii    HI        Honolulu     1116        6450     0.173    15.60

PRESS ENTER KEY TO CONTINUE.

MENU OPTIONS

A.  SORT AND PRINT DATA BY STATE'S NAME.
B.  SORT AND PRINT DATA BY STATES'S ABBREV.
C.  SORT AND PRINT DATA BY STATES'S CAPITOL.
D.  SORT AND PRINT DATA BY LANDSIZE.
E.  SORT AND PRINT DATA BY 1990 POPULATION.
F.  QUIT

CHOOSE ONE OF THE ABOVE MENU OPTIONS. a

MENU OPTIONS

A.  PRINT STATES UNDER 999.
B.  PRINT STATES BETWEEN 1000 TO 5000.
C.  PRINT STATES OVER 5000.
D.  ALL STATES.
E.  QUIT.

CHOOSE ONE OF THE ABOVE CHOICES. a

U. S. STATES UNDER 999

       STATE      ABB.       CAPITOL      1990       LAND       DEN.    INC.
                                          POP.       SIZE               DEC.

        Vermont    VT      Montpelier      565        9609     0.059    10.50
       Delaware    DE           Dover      668        2057     0.325    12.50
   North Dakota    ND        Bismarck      642       70665     0.009    -1.70
   South Dakota    SD          Pierre      700       77047     0.009     1.30
        Wyoming    WY        Cheyenne      456       97914     0.005    -2.90
        Montana    MT          Helena      804      147138     0.005     2.20
         Alaska    AK          Juneau      552      589757     0.001    37.40

PRESS ENTER KEY TO CONTINUE.

MENU OPTIONS

A.  PRINT STATES UNDER 999.
B.  PRINT STATES BETWEEN 1000 TO 5000.
C.  PRINT STATES OVER 5000.
D.  ALL STATES.
E.  QUIT.

CHOOSE ONE OF THE ABOVE CHOICES. e


MENU OPTIONS

A.  PRINT INFORMATION ON AN INDIVIDUAL STATE.
B.  QUIT.

CHOOSE ONE OF THE ABOVE MENU OPTIONS. b




BACK TO COMP151 PAGE.