write a
//system
eclog
irhlog

//init IM
log im off
open im 19200
delay 1000
send im "\r"
waitfor im "S9>" 1000
delay 200

//SBE sensors
send im "mod 1\r"
waitfor IM "S9>" 1000
delay 200
send im "\r"
waitfor im "S9>" 1000
delay 200
send im "telmode 1\r"
waitfor IM "S9>" 1000
delay 200
send im "\r"
waitfor im "S9>" 1000
delay 200
send im "swt\r"
waitfor im "S9>" 10000
send im "\r"
waitfor im "S9>" 1000
delay 200
send im "fcl\r"
waitfor im "S9>" 10000
delay 200
send im "\r"
waitfor im "S9>" 1000
log im on
delay 200
send im "#12sl\r"
waitfor im "S9>" 10000
delay 200
send im "fcl\r"
waitfor im "S9>" 10000
delay 200
send im "\r"
delay 200
send im "#17sl\r"
waitfor im "S9>" 10000
delay 200
send im "rel\r"
delay 200
send IM "\e"
delay 200
save im
delay 200
log im off
delay 200

//XT-sensors
send im "mod 4\r"
waitfor IM "S9>" 1000
delay 200
send im "\r"
waitfor im "S9>" 1000
delay 200
send im "telmode 3\r"
waitfor IM "S9>" 1000
delay 200
send im "\r"
waitfor im "S9>" 1000
log im on
delay 200
send IM "XT2 6\r"
delay 200
waitfor IM "S9>" 10000
//CTD under ISA
send IM "REL\r"
delay 500
send IM "XT3 1\r"
delay 200
waitfor IM "S9>" 10000
send IM "\e"
delay 200
save im
delay 200
log im off
delay 200
send im "sleep\r"
waitfor im "S9>" 1000
delay 200
close im

CEXIT 12
//ISA500//
delay 300
parser im ultimodem
adclog
open im
delay 1000
send im "\r"
waitfor IM "S9>" 1000

//switch on power for ISA500
log im on
delay 200
send IM "fcl\r"
delay 300
waitfor IM "S9>" 4000
delay 300
send IM "!0Qimflag=1\r"
delay 400
waitfor IM "S9>" 2000

//run A script on UM that logs ISA500 data to UM S-file and transfers to UM D-file after every 5 kB
send IM "!0Qrun a\r"
delay 500
waitfor IM "S9>" 1000
send IM "REL\r"
delay 118000

//stop the ISA500, REL makes sure the line is not busy and sending imflag=0 twice to make sure it is switched off as it otherwise keeps pingin and draining power. The GETSD command is to log battery and data usage on the UM for later troubleshooting.
send im "\r"
delay 500
send IM "REL\r"
delay 500
waitfor IM "S9>" 1000
send IM "fcl\r"
delay 500
waitfor IM "S9>" 4000
send IM "!0Qimflag=0\r"
delay 500
waitfor IM "S9>" 1000
send IM "!0Qimflag=0\r"
delay 2000
waitfor IM "S9>" 1000
send IM "!0Qgetsd\r" 
delay 500
waitfor IM "S9>" 2000

//read data from UM
//needs save IM every 3.5s (conservative) in MOD 4 with up to 480 bytes/s and 2kB max buffer (S-file)
//the amount of "delay&save IM" repetitions depends on the transferred file (DL=last sample on UM) size
save im
delay 500
send IM "!0Qread DL\r" 
delay 3500
save im
delay 3500
save im
delay 3500
save im

//CTD under ISA
send IM "REL\r"
delay 500
send IM "XT3 1\r"
delay 200
waitfor IM "S9>" 10000
save im
delay 200

//close modem
send im "sleep\r"
waitfor im "S9>" 1000

close im
eclog
adclog
end a