PROGRAM PROMPTER
Programmer: Edward E. Carlson
Last Update: 06/22/88

PURPOSE
This is an interactive program which creates control point records in blue book format either with:
1. Geodetic positions in geographic coordinates. (*80*)
2. Geodetic positions in state plane coordinates. (*81*)
3. Geodetic positions in UTM coordinates. NOTE: Use the state plane record format. (*81*)

INPUT
The control point record information which is put into a new file or added to an existing one.

OUTPUT
The output file with control point records in blue book format.

EXECUTION:
1. Load the program (PROMPTER.EXE) from the floppy disk to the main storage, or the program can be executed from a floopy disk drive.
2. To execute the program:
Type PROMPTER of (disk drive name):PROMPTER (floopy disk).
The program will prompt for:

I. If you want to create a new file or not.

II. Name of the output file.

III. Type of control point records you want to create.

IV. The prompts for all the information in appendix A or B.

V. If you want to create another record.

APPENDIX A Control Point Record (IE: *80* record) **

** Format specified in the FGCC publication, Input Formats and Specifications of the National Geodetic Survey Data Base.

APPENDIX B Control Point Record (*81* record) **

** Format specified in the FGCC publication, Input Formats and Specifications of the National Geodetic Survey Data Base.

                           APPENDIX C
 
            STATE PLANE COORDINATES (SPC) ZONE CODES
                        FOR THE NAD 27
 
 ZONE CODE         ZONE CODE         ZONE CODE         ZONE CODE
 
AL  E  0101       ID  E  1101       NV  E  2701       UT  N  4301
    W  0102           C  1102           C  2702           C  4302
                      W  1103           W  2703           S  4303
AK  1  5001
    2  5002       IL  E  1201       NH     2800       VT     4400
    3  5003           W  1202
    4  5004                         NJ     2900       VA  N  4501
    5  5005       IN  E  1301                             S  4501
    6  5006           W  1302       NM  E  3001
    7  5007                             C  3002       WA  N  4601
    8  5008       IA  N  1401           W  3003           S  4602
    9  5009           S  1402
   10  5010                         NY  E  3101       WV  N  4701
                  KS  N  1501           C  3102           S  4702
AZ  E  0201           S  1502           W  3103
    C  0202                             L  3104       WI  N  4801
    W  0203       KY  N  1601                             C  4802
                      S  1602       NC     3200           S  4803
AR  N  0301
    S  0302       LA  N  1701       ND  N  3301       WY  E  4901
                      S  1702           S  3302          EC  4902
CA  1  0401          SH  1703                            WC  4903
    2  0402                         OH  N  3401           W  4904
    3  0403       ME  E  1801           S  3402
    4  0404           W  1802                         PR Z1  5201
    5  0405                         OK  N  3501       VI Z1  5201
    6  0406       MD     1900           S  3502       VI SX  5202
    7  0407
                                                      AS     5300
CO  N  0501       MA  M  2001       OR  N  3601
    C  0502           I  2002           S  3602       GU     5400
    S  0503
                  MI  N  2111       PA  N  3701
CT     0600           C  2112           S  3702
                      S  2113
DE     0700                         RI     3800
                  MN  N  2201
FL  E  0901           C  2202       SC  N  3901
    W  0902           S  2203           S  3902
    N  0903
                                    SD  N  4001
                  MS  E  2301           S  4002
GA  E  1001           W  2302
    W  1002                         TN     4100
                  MO  E  2401
HI  1  5101           C  2402       TX  N  4201
    2  5102           W  2403          NC  4202
    3  5103                             C  4203
    4  5104       MT     2500          SC  4204
    5  5105                             S  4205
                  NE  N  2601
                      S  2602

APPENDIX E Standard IBM Fortran 77 Runtime Error Messages

3009 Invalid file handle for CLOSE
3010 Invalid file handle for DELETE
3011 File deletion failure DOS has indicated and error on an attempt to erase a file
3012 File opening failure DOS has indicated an error on an attempt to locate or create a file
3013 Formatted direct record length 1 not found
3014 Read error on formatted direct record length 1
3015 Formatted direct record not found
3016 Read error on formatted direct record
3017 Unformatted direct record not found
3019 Read error on unformatted sequential record's header
3020 Read error on unformatted sequential record
3023 End of file before newline on reading formatted seqential record
3024 Formatted sequential input record too long
4001 Required math coprocessor not found