Pascal to Bar

Pascal to Bar conversion.