Obspy to S4 Data Format

I need to push waveform data from an obspy read object to a binary file in S4 format. As per my understanding my S4 format requirements are: 32 bit long in big ending format.

I am reading from a reftek130 using:
data = read(file_path, format=“REFTEK130”)

I am in need of an example demonstrating how to write to this format. Any help is greatly appreciated.