set mem 1000m
log using sf1a70, text replace
*This program reads the 1970 Census Summary File 1A Data File
*Note:  This program is distributed under the GNU GPL. See end of
*this file and http://www.gnu.org/licenses/ for details.
*by Jean Roth Mon Nov  1 11:03:49 EST 2004
*Please report errors to jroth@nber.org
*run with do sf1a70
*Change inpuut file and outdir name and location 
*If you are using a PC, you may need to change the direction of the slashes, as in C:\
*  or "\\Nber\homes\data\census\1970data\sf1a\wy"
clear
quietly infile using sf1a70
set more off
program sf1a
clear
display "State is `1'"
local outdir "/homes/nber/jroth/bulk/"
local gzip "/homes/data/census/1970data/sf1a/`1'.gz"
local raw `outdir'`1'
!gzip -dc "`gzip'" > "`raw'".raw
quietly infile using sf1a70, using("`raw'")
sum
local dta `outdir'`1'
save `dta' , replace
end

sf1a ak
sf1a al
sf1a ar
sf1a az
sf1a ca
sf1a co
sf1a ct
sf1a dc
sf1a de
sf1a fl
sf1a ga
sf1a hi
sf1a ia
sf1a id
sf1a il
sf1a in
sf1a ks
sf1a ky
sf1a la
sf1a ma
sf1a md
sf1a me
sf1a mi
sf1a mn
sf1a mo
sf1a ms
sf1a mt
sf1a nc
sf1a nd
sf1a ne
sf1a nh
sf1a nj
sf1a nm
sf1a nv
sf1a ny
sf1a oh
sf1a ok
sf1a or
sf1a pa
sf1a ri
sf1a sc
sf1a sd
sf1a tn
sf1a tx
sf1a ut
sf1a va
sf1a vt
sf1a wa
sf1a wi
sf1a wv
sf1a wy
/*
Copyright 2004 shared by the National Bureau of Economic Research and Jean Roth

National Bureau of Economic Research.
1050 Massachusetts Avenue
Cambridge, MA 02138
jroth@nber.org

This program and all programs referenced in it are free software. You
can redistribute the program or modify it under the terms of the GNU
General Public License as published by the Free Software Foundation;
either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307
USA.
*/