; takes   RegToFill, RegName, RegColour, RegSize, RegBounds
; returns RegToFillNext, RegToMakeCurrent, RegName, RegColour, RegSize, RegBounds

pro NewRegion, RegToFill, RegToFillNext, RegToMakeCurrent, RegName, RegColour, RegSize, RegBounds

MissVal = -999.0

print, "  > Enter name of region: "			; choose name
DatumCha = ""
while (DatumCha EQ "") do begin
  read, DatumCha
endwhile
RegName (RegToFill) = DatumCha

print, "  > Enter colour of region: "			; choose colour
DatumInt = 254
while (DatumInt LT 2 OR DatumInt GT 252) do begin
  read, DatumInt
endwhile
RegColour (RegToFill) = DatumInt

RegSize   [RegToFill]   = 0				; initialise size and reg limits
RegBounds [RegToFill,*] = MissVal

DatumCha = "bunnywhoops"
XReg = 0L
while (DatumCha NE "") do begin				; find new firstfree
  XReg     = XReg + 1
  DatumCha = RegName (XReg)
endwhile

RegToFillNext    = XReg
RegToMakeCurrent = RegToFill

end