/*Converts a fido style BRE file attach to an Adept crash file. */
/* By Richard W. Hawley, Erasmus BBS 1-203-666-5113, 1:142/113 */

do i = 1 to 12

infile = i'.msg'

a = charin(infile,73,0)
filetosend = charin(infile,,35)

b = charin(infile,203,0)
node = charin(infile,,3)

if filetosend <> ''
  then do
         c = lineout('d:\adept\mailer\outbound_mail\C.1.142.'node'.0.FIDONET',filetosend)
         say 'Created d:\adept\mailer\outbound_mail\C.1.142.'node'.0.FIDONET'
         d = lineout(infile)  /* Closes the file */
         say 'Unlinking Fido file attach 'i'.MSG'
         del infile
       end

end /* do loop */

exit