   32101 . FORMAT(/' TESTING : NADB-2101 - HORIZONTAL ALIGNMENT'/)
   32103 . FORMAT(/' INDATA                   : '\)
   32105 . FORMAT(/' RESULT   - 10-TABLE      : '\)
   32107 . FORMAT(/' RESULT   - PRINT./ERRORS : '\)
   32109 . FORMAT(' *** File not found  ***')
   32111 . FORMAT(' *** Unknown path, directory full or read-only file ***'
   32112 .*)
   32114 . FORMAT(' *** Error reading data         ***')
   32116 . FORMAT(' *** Disk full ***')
   32118 . FORMAT(1X,A4)
   32120 . FORMAT(///' 90-CARD MISSING , CALCULATION SKIPPED                '
   32121 .*/)
   32123 . FORMAT(///' WRONG PROGRAM NUMBER, CALCULATION SKIPPED
   32124 .*  '/)
   32126 . FORMAT(/' CALCULATION CONTINUES FROM ELEMENT NO. ',F6.0)
   32128 . FORMAT(///1X,'HEADPOINTS INPUT DATA'//1X,
   32129 .*'PROJECT NO.',4X,'CALC.NO.',5X,'ACCOUNT',9X,'REG.DATE',7X,
   32130 .*'CALC.DATE'/1X,2A6,3X,A6,7X,2A6,4X,2A6,3X,I2,'/',I2,'-',I4/)
   32132 . FORMAT(1H ,'CHAINAGE PARAMETERS'/1X,'STARTPT.',5X,'DIRECTION',6X,
   32133 .*'STATION'/1X,F8.0,7X,F7.0,1X,F12.3//1X,'EL.',6X,'R-START',4X,
   32134 .*'PARAM. I',7X,'N',10X,'E',5X,'L-START O-START I'/1X,'NO.',8X,
   32135 .*'R-END',4X,'LENGTH',28X,'L-END   O-END I')
   32137 . FORMAT(///20X,'H O R I Z O N T A L   A L I G N M E N T',7X,
   32138 .*'PAGE'/1X,'TRIMBLE            H E A D P O I N T S',27X,I4/20X,
   32139 .*'R E S U L T   PROGRAM NADB-2101'/)
   32141 . FORMAT(/1X,'PROJECT NO.',4X,'CALC.NO.',5X,'ACCOUNT',9X,
   32142 .*'REG.DATE',7X,'CALC.DATE'/1X,2A6,3X,A6,7X,2A6,4X,2A6,3X,I2,'/',
   32143 .*I2,'-',I4//1X,'EL. STATION-ST.',5X,'R-START',4X,'PARAM.',9X,
   32144 .*'COORDINATES',4X,'BEAR-ST.'/1X,'NO.',6X,'LENGTH',7X,'R-END',19X,
   32145 .*'N',9X,'E',4X,'BEAR-END')
   32147 . FORMAT(///1X,'CONTROL- AND ERROR-MESSAGES NADB-2101')
   32149 . FORMAT(1H ,/1X,'PROJECT NO.',4X,'CALC.NO.',5X,'ACCOUNT',9X,
   32150 .*'REG.DATE',7X,'CALC.DATE'/1X,2A6,3X,A6,7X,2A6,4X,2A6,3X,I2,'/',
   32151 .*I2,'-',I4/)
   32153 . FORMAT(/3H EL,F6.0,13H LENGTH GIVEN,F7.2,10H EL.LENGTH,F7.2)
   32155 . FORMAT(/8H ELEMENT,F6.0,18H IMPROBABLE OFFSET,F8.2)
   32157 . FORMAT(/28H CALCULATION ABORTED AT ELNO,F6.0)
   32159 . FORMAT(/' DIST. BETW. STRAIGHT LINE AND C.P. OF CIRCLE TOO LONG ',
   32160 .*'OR TOO SHORT',F9.2)
   32162 . FORMAT(/50H DIST. BETW. C.P. OF CIRCLES TOO LONG OR TOO SHORT,
   32163 .*F10.2)
   32165 . FORMAT(/8H ELEMENT,F6.0,12H OVERLAPPING,F10.2)
   32167 . FORMAT(/3H EL,F6.0,50H STRAIGHT LINE CANNOT BE USED BETW. STRAIGHT
   32168 .* LINES)
   32170 . FORMAT(/30H NO CONNECTION BETWEEN ELEMENT,F6.0,2H -,F6.0)
   32172 . FORMAT(/8H ELEMENT,F6.0,24H CIRCLE HAS DIFF. OFFSET)
   32174 . FORMAT(/34H STORAGE FULL , STORING FROM START)
   32176 . FORMAT(/8H ELEMENT,F6.0,38H NO SOLUTION WITHIN CONNECTING ELEMENT)
   32177 .
   32178 .
   32179 . FORMAT(/8H ELEMENT,F6.0,37H FIXED POINT WITHIN ADJOINING ELEMENT,
   32180 .*F9.2)
   32182 . FORMAT(/3H EL,F6.0,42H CLOTHOID IMPOSSIBLE , DISTANCE OR BEARING,
   32183 .*F9.2)
   32184 .
   32185 . FORMAT(/' EL',F6.0,' CONNECTION OUTSIDE CLOTHOID OR FOLLOWING ELEM
   32186 .*ENTS',F9.2)
   32188 . FORMAT(/3H EL,F6.0,16H OFFSET IN ST-PT,F8.2,11H, IN END-PT,
   32189 .*F8.2,8H SIDE L=,F9.2)
   32191 . FORMAT(/8H ELEMENT,F6.0,38H ACCURACY NOT SUFFICIENT FOR CA-RADIUS)
   32192 .
   32193 .
   32194 . FORMAT(/' EL',F6.0,' -',F6.0,' ERROR- AND CONTROL-MESSAGES DO NOT'
   32195 .*,'APPLY , OR APPLY ONLY PARTLY')
   32197 . FORMAT(/3H EL,F6.0,4H AND,F6.0,37H IDENTICAL STATIONS = START-STAT
   32198 .*ION +,F9.3)
   32200 . FORMAT(/3H EL,F6.0,4H AND,F6.0,35H IDENTICAL STATIONS = END-STATIO
   32201 .*N -,F9.3)
   32203 . FORMAT(/3H EL,F6.0,31H CLOTHOID RADIUS CHANGED TO R-O)
   32205 . FORMAT(/8H ELEMENT,F6.0,44H SHORTEST DIST. BETW. THE GEOMETRICAL P
   32206 .*OINTS,F8.2)
   32208 . FORMAT(/3H EL,F6.0,24H CHORD BETW. PT AT DIST.,F9.2,4H AND,F9.2,
   32209 .*17H FROM INFINITE PT)
   32211 . FORMAT(/35H DIST. TO GEOMETRICAL POINTS FOR EL,F6.0,6H CALC.,F8.2,
   32212 .*3H O.,F8.2)
   32214 . FORMAT(/8H ELEMENT,F6.0,36H CONNECTION IMPOSSIBLE (ANGLE DIFF.),
   32215 .*F9.2)
   32216 .
   32217 . FORMAT(/3H EL,F6.0,18H LAST TRIED LENGTH,F9.2,11H GIVES DIST,F9.2,
   32218 .*17H FROM FIXED POINT)
   32220 . FORMAT(/8H ELEMENT,F6.0,38H LINE IS OVER- OR UNDER-VALUED,S -1,0,,
   32221 .*I2,2H/I,I2)
   32223 . FORMAT(/8H ELEMENT,F6.0,38H EL.DESCR. DIFFERENT IN TABLE 2 AND 10)
   32225 . FORMAT(/8H ELEMENT,F6.0,59H R1 AND R2 DIFF., OR ARC-LENGTH AND CA-
   32226 .*PT WITHOUT CA-RADIUS)
   32228 . FORMAT(/8H ELEMENT,F6.0,34H LINE IS OVER- OR UNDER-VALUED,S 0,
   32229 .*2H/I,I2)
   32231 . FORMAT(/8H ELEMENT,F6.0,40H LENGTH GIVEN IN ELEMENT- AND FIXED DAT
   32232 .*A)
   32234 . FORMAT(/8H ELEMENT,F6.0,49H R1 AND R2 DIFF. IN SPITE OF GIVEN C.P.
   32235 .* OF CIRCLE)
   32237 . FORMAT(/8H ELEMENT,F6.0,32H LINE IS OVER- OR UNDER-VALUED,S,I2,
   32238 .*1H,,I2,2H/I,I2)
   32240 . FORMAT(/8H ELEMENT,F6.0,39H DIFFERENT SIGN FOR CIRCLE AND CLOTHOID
   32241 .*)
   32242 .
   32243 . FORMAT(/8H ELEMENT,F6.0,38H ERROR IN RADIUS OR CLOTHOID PARAMETER)
   32245 .
   32246 . FORMAT(/8H ELEMENT,F6.0,30H ERROR IN CLOTHOID COORDINATES,F8.2)
   32248 . FORMAT(/8H ELEMENT,F6.0,30H DISTANCE BETW. POINTS GTR. 2R,F8.2)
   32249 .*F8.2)
   32250 .
   32251 . FORMAT(/' ELEMENT',F6.0,' DIFF. COORDINATES AT FOLLOWING ELEMENTS'
   32252 .*)
   32253 .
   32254 . FORMAT(/' ELEMENT',F6.0,' ANGLE DIFFERENCE AT FOLLOWING ELEMENTS',
   32255 .*F9.2)
   32257 . FORMAT(/3H EL,F6.0,63H AT CIRCLE WITH CA-RADIUS WITHOUT FIXED DATA
   32258 .* , L. MUST BE GIVEN)
   32260 . FORMAT(/8H ELEMENT,F6.0,42H GIVEN LENGTH OR OFFSET HAVE NOT BEEN U
   32261 .*SED)
   32263 . FORMAT(/8H ELEMENT,F6.0,33H ELEMENT MISSING IN TABLE 2 OR 10)
   32265 . FORMAT(/8H ELEMENT,F6.0,40H IN SPITE OF C.P. , LENGTH IN FIXED DAT
   32266 .*A)
   32268 . FORMAT(/' NUMBER OF ELEMENTS GTR ',I5)
   32270 . FORMAT(///62H ERROR IN CARD SUCCESSION. CALCULATION CONTINUES WITH
   32271 .* NEXT JOB)
   32273 . FORMAT(/1X,80A1,/2X,54HTHE LINE ABOVE CONTAINS ONE OR MORE ILLEGAL
   32274 .* CHARACTERS)
   32276 . FORMAT(/1X,80A1,/2X,54HTHE LINE ABOVE CONTAINS ONE OR MORE ILLEGAL
   32277 .* CHARACTERS)
   32279 . FORMAT(/1X,80A1,/2X,73HONE OF THE FIELDS IN THE LINE ABOVE CONTAIN
   32280 .*S MORE THAN ONE FLOATING POINT)
   32282 . FORMAT(//1X,'UNKNOWN TABLE-NO. OR 93-CARD MISSING')
   32284 . FORMAT(//1X,'91-, 92- OR 93-CARD MISSING OR IN WRONG SUCCESSION')
   32285 .
   32287 . FORMAT(//1X,'01-CARD MISSING')
   32289 . FORMAT(/28H CANNOT BE SOLVED BY PROGRAM)
   70044 Fixed
   70045 Partly
   70046 Approx
   72649 App Rad
   72707 Length
   72359 Error!
   70039 Select in file for NADB
   70042 The file <%s> exitsts!
   70043 Overwrite...?
