(define first-index 200)

(define last-index 60000)

(define delta 200)

(do ((j first-index (+ j delta))) ((> j last-index))

(ti-menu-load-string (format #f "file/read-dat *****-~04d.dat" j ))

(ti-menu-load-string (format #f "file/export/ascii pc-~04d.dat pc () yes gas-temperature () no" j ))

)