begin
  byteinteger bi1
  shortinteger si1
  integer i1
  longinteger li1
  real r1
  longreal lr1
  string (15) s15 1
  string (255) s255 1

  byteinteger bi
  shortinteger si
  integer i
  longinteger li
  real r
  longreal lr
  string (15) s15
  string (255) s255

  byteinteger bi2
  shortinteger si2
  integer i2
  longinteger li2
  real r2
  longreal lr2
  string (15) s15 2
  string (255) s255 2

  ! First set of tests are where all 3 values are of the same type.

  if bi1 <= bi <= bi2 start
  else if si1 <= si <= si2
  else if i1 <= i <= i2
  else if li1 <= li <= li2
  else if r1 <= r <= r2
  else if lr1 <= lr <= lr2
  else if s15 1 <= s15 <= s15 2
  else if s255 1 <= s255 <= s255 2
  else if s255 1 <= s15 <= s255 2
  else
  finish
  
endofprogram