100	! GEOGRA -- GEOGRAPHICAL ANALYSIS OF CURRENT STUDENTS
120	! USE CSB FILE, SORTED FIRST BY CITY FIELD (FIRST
	! SIX BYTES), THEN BY STATE (NOT ZIP).
140	! ALL ENTRIES FOR A GIVEN CITY SHOULD BE SPELLED THE 
	! SAME; OTHERWISE, A SEPARATE SUBTOTAL WILL BE PRINTED
	! FOR EACH SPELLING.
160	! 03-DEC-73	J. WARDEN	WABASH COLLEGE
180 PRINT"GEOGRAPHICAL ANALYSIS"
200 INPUT"CSB FILE";I$
220  IF I$="" THEN I$='DK3:CSB73'
240 INPUT"OUTPUT TO";O$
260 IF O$="" THEN O$="KB:"
280 C9$=CHR$(9%)
300 F1$=C9$+"    TOTAL                    #####   *"
320 F2$=C9$+"    \               \        #####"
340 DIM T$(60)=2%,T1$(60)
360 READ T$(I%),T1$(I%) FOR I%=1% TO 52%
380 OPEN I$ FOR INPUT AS FILE 1%
400 FIELD #1%,255%*A% AS Z$, 255% AS A$(A%) FOR A%=0% TO 1%
420 OPEN O$ FOR OUTPUT AS FILE 2%
440 S%=0% : C%=0%	! STATE, CITY
460 S$="  " : C$=SPACE$(14%)
480	GOSUB 1120
500 IF A%<1% THEN A%=A%+1% ELSE A%=0% : GET #1%
520 IF LEFT(A$(A%),1%)="\" THEN 660
540	S1$=MID(A$(A%),224%,2%) :
	C1$=MID(A$(A%),210%,14%)
560 IF S1$<>S$ THEN GOSUB 720 : GO TO 500
580 S%=S%+1%
600 IF C1$<>C$ THEN GOSUB 1020 : GO TO 500
620 C%=C%+1%
640 GO TO 500
660 PRINT #2%,USING F1$,S%
680 CLOSE 1%,2%
700 GO TO 2220
720 PRINT #2%,USING F2$,C$,C%
740 C$=C1$ : C%=1%
760 PRINT #2%
780 PRINT #2%,USING F1$,S%
800 P%=P%+3% : IF P%>50% THEN GOSUB 1100
820 S$=S1$ : S%=1%
840 PRINT #2%
860 	FOR J%=1% TO 52%
880	IF T$(J%)=S$ THEN 940
900	NEXT J%
920 H$=SPACE$(10%) : GO TO 960
940 H$=T1$(J%)
960 PRINT #2% : PRINT #2%,C9$+H$
980 P%=P%+3%
1000 RETURN
1020 PRINT #2%,USING F2$,C$,C%
1040 P%=P%+1% : IF P%>50% THEN GOSUB 1100
1060 C$=C1$ : C%=1%
1080 RETURN
1100 PRINT #2%,CHR$(12%)
1120 PRINT #2%,"GEOGRAPHICAL ANALYSIS OF CURRENT STUDENTS";
	SPACE$(12%);DATE$(0%)
1140 PRINT #2%,CHR$(10%)
1160 P%=1% : RETURN
1180 DATA AL,ALABAMA
1200 DATA AK,ALASKA
1220 DATA AZ,ARIZONA
1240 DATA AR,ARKANSAS
1260 DATA CA,CALIFORNIA
1280 DATA CO,COLORADO
1300 DATA CT,CONNECTICUT
1320 DATA DE,DELAWARE
1340 DATA DC,"DISTRICT OF COLUMBIA"
1360 DATA FL,FLORIDA
1380 DATA GA,GEORGIA
1400 DATA HI,HAWAII
1420 DATA ID,IDAHO
1440 DATA IL,ILLINOIS
1460 DATA IN,INDIANA
1480 DATA IA,IOWA
1500 DATA KS,KANSAS
1520 DATA KY,KENTUCKY
1540 DATA LA,LOUISIANA
1560 DATA ME,MAINE
1580 DATA MD,MARYLAND
1600 DATA MA,MASSACHUSETTS
1620 DATA MI,MICHIGAN
1640 DATA MN,MINNESOTA
1660 DATA MS,MISSISSIPPI
1680 DATA MO,MISSOURI
1700 DATA MT,MONTANA
1720 DATA NE,NEBRASKA
1740 DATA NV,NEVADA
1760 DATA NH,"NEW HAMPSHIRE"
1780 DATA NJ,"NEW JERSEY"
1800 DATA NM,"NEW MEXICO"
1820 DATA NY,"NEW YORK"
1840 DATA NC,NORTH CAROLINA
1860 DATA ND,"NORTH DAKOTA"
1880 DATA OH,OHIO
1900 DATA OK,OKLAHOMA
1920 DATA OR,OREGON
1940 DATA PA,PENNSYLVANIA
1960 DATA PR,"PUERTO RICO"
1980 DATA RI,"RHODE ISLAND"
2000 DATA SC,"SOUTH CAROLINA"
2020 DATA SD,"SOUTH DAKOTA"
2040 DATA TN,TENNESSEE
2060 DATA TX,TEXAS
2080 DATA UT,UTAH
2100 DATA VT,VERMONT
2120 DATA VA,VIRGINIA
2140 DATA WA,WASHINGTON
2160 DATA WV,"WEST VIRGINIA"
2180 DATA WI,WISCONSIN
2200 DATA WY,WYOMING
2220 END