| Writes |
write (91, '(a,a)')
* '/bin/cat /infobank/programs/html/dictionary2html/',
* 'format_onoff.!_EQUIPMENT_TYPE.txt > /tmp/head.temp'
write (91, '(a,a,a)')
* '/bin/cat ',path(1:pathlength),
* ' >> /tmp/head.temp'
write (91, '(a,a,/)')
* '/bin/cp /tmp/head.temp ',
* path(1:pathlength)
|