PROGRAM — RAPLOT II 



NBAR 



NCORO 



NCOUNT 



NENTRY 



NMAX 



NMBR 



NMIN 



NOPT 



NORTH 



NPLT 



NSTART 



NSTOP 



NTAPE 



NTRAN 



NWRD 



RAO 



RDPLT2 



RMIN 



RTSUM 



SCALE 



SDEAST 



SDNRTH 



SEC 



SENTNL 



SETIME 



SIGMA 



SINE 



SITEE 



SITEN 



SQDSTB 



SORT 



STUEV 



STOP 



SUM 



SUM2 



TIME 



T I NORM 



WORD1 



WOR02 



ZHR 



ZMIN 



2m 



ICO 



248WR 

 2RL 

 259AG 

 200 = 

 ICO 

 ICO 

 301 

 ICO 

 ICO 

 2RL 

 172 

 ICO 

 68= 

 93= 



6DA 

 51 

 256= 



301 

 218 



10RO 

 249= 



ICO 

 139AG 

 137AG 

 10R0 

 4IN 

 10RO 

 ICO 

 22= 

 ICO 

 ICO 

 19= 

 20 

 246 

 137 

 285 

 220= 

 221 = 



301 

 273WR 

 141 

 4IN 

 4IN 

 10RD 

 10RO 



242 

 2RL 



169= 



273WR 

 206= 

 160 = 

 2RL 



58R0 

 2RL 



11RO 

 116= 

 174 



11RD 



69 



96 



48R0 



57 

 257AG 



58R0 

 259 



25wR 

 250 



11RO 

 145 

 147 



25WR 



48R0 



25WR 

 199= 



24WR 



45= 



41= 



20 



32 

 249 

 139 



231= 

 232= 

 58RD 



193 



60A 



60A 



25WR 



25WR 



243 

 136= 



209 



217= 



260WR 



63 

 261*R 



34MR 

 131 = 

 273WR 



13 



81= 



51AG 

 59 



27 

 251 



146 

 148 



65 



49 



27= 

 213= 



236 

 247HR 

 64 



263 

 137AG 



215 



258= 



162 

 137 AG 



14= 



82 

 101 



58R0 

 161 



129= 



239= 

 238= 

 185 



50 



28 

 215= 



46 



47WR 

 38 

 114 



237 

 65= 



265 

 147 



218 

 153 



273WR 

 148 



222= 234= 236= 242 

 218AG 234 236 242 



161AG 162AG 273WR 



59AG 

 180 



243= 

 242= 

 186 

 53WR 



216WR 

 115 



108 

 168 



245 

 71= 



219 

 154 



257 

 186 



246= 

 245= 

 189 



227 

 116 



246 

 69 



259 



162AG 166 168 



284 

 189 



169 

 99 



248WR 251 

 248HR 250 

 201 202 



202 215 245 



247WR 2"»9 

 96 99 



126= 228 



26= 

 26 



C 

 C 



c 

 c 



10 



c 

 c 

 c 



RAD(2»2200>» NMBR(2200)» X(2200>> Y(2200)i 



SUBROUTINE BENLH2 (NORTH. EAST.NMBR) 



SUBROUTINE BENLH2 (NORTH .EAST. NMBR) B-L 



B-L 



THIS SUBROUTINE GENERATES THE PLOT INSTRUCTIONS TO DRIVE A BENSON-B-L 



LEHNER MODEL 305 DIGITAL PLOTTER. IF THE INSTRUCTIONS ARE BEING B-L 



WRITTEN ON TAPE. USE OPTIONS N. K» AND E ON THE ASSIGN CARD. B-L 



programmer: PHILIP A. TURNER. GEOLOGY BR. U S A CERC B-L 



R-L 



COMMON NOPT (4). SCALE. NPLT (3). GRID. DUMPN.OUMPE. INOATE. LEGEND! 13) .BEB-L 



1AC1N.BEAC1E.BEAC2N.BEAC2E.NPTS.BGCR (2). SIGMAC2) .NBAR. EBAR. NENTRY. NB-L 



2MAX.NMIN.EMAX.EMIN 



DIMENSION EAST12200) 

 -1ADUL<7) 

 REAL NORTH(2200) .NBAR. NMAX. NMIN.NORGIN 

 ITRNP=0 

 GO TO 10 



ENTRY RDPLT2 (NORTH. EAST. RAD) 

 IF (iMOPT(l).EO.l) 60 TO 120 



IF (N0PT(2).EQ.l. AND. NENTRY. EQ. 3) GO TO 120 



DEFINE THE LOGICAL UNIT ON WHICH PLOTTER COMMANDS ARE TO BE OUTPUTR-L 

 CARD PUNCH = 3 

 MAGNETIC TAPES = 7-34 



CALL INPLOT (9) 



DETERMINE THE MAXIMUM AND MINIMUM VALUES FOR BOTH COORDINATES. 



B-L 



155 



R-L 



16 



B-L 



17 



B-L 



18 



B-L 



19 



B-L 



20 



B-C 



21 



B-L 



22 



B-L 



23 



B-L 



24 



B-L 



25 



39 



