commaker

  Subroutine to create a command procedure that extracts 
  infomation for InfoBank.
    

  Clint Steele      2/3/95


    

 open (unit   = 90,
*      file   = FileName,
*      access = 'SEQUENTIAL',
*      carriagecontrol = 'LIST',
*      form   = 'FORMATTED',
*      status = 'NEW')

 open (unit   = 91,
*      file   = ReadMeName(1:ReadMeLength),
*      access = 'SEQUENTIAL',
*      carriagecontrol = 'LIST',
*      form   = 'FORMATTED',
*      status = 'NEW')

    

 read (5, '(a1)', end = 99) Answer
    

 write (FileName, '(255x)')
 write (FileName, 533) UserName(1:UserNameLength)
 write (ReadMeName, 300) UserName(1:UserNameLength)
 write (90, 532) UserName(1:UserNameLength)
 write (91, 603) 
 write (91, 604) CurrentDate, UserName(1:UserNameLength),
*                UserAddress(1:UserAddressLength)
 write (91, 605)
 write (91, 608) 
 write (91, 609)
     write (90, 537) FileList(Loop)(Bracket+1:BangLength)
     write (90, 528) FileList(Loop)(3:BangLength),
*                    FileList(Loop)(Bracket+1:BangLength)
     write (91, 602) FileList(Loop)(Bracket+1:BangLength),
*                    FileList(Loop)(Bang+1:Length)
     write (TempFile, '(100x)')
 write (90, 534) CopyFileName(1:Length)
         write (5, 626) FileMegs / 1000.0, DiskMegs / 1000.0
         write (5, 627) FileMegs, DiskMegs
         write (5, 628) FileMegs * 1000.0, DiskMegs * 1000.0
     write (5, 623)
         write (90, 620) Expiration,
*              FileList(Loop)(Bracket+1:Blank-1)
         write (5, 629) FileMegs / 1000.0
         write (5, 630) FileMegs
         write (5, 631) FileMegs * 1000.0
         write (Command, 536) CopyFileName(1:Length)
         write (6, 535) UserName(1:UserNameLength)
    

 call stringlen (UserName, UserNameLength)
 call stringlen (UserAddress, UserAddressLength)
 call stringlen (UserName, UserNameLength)
 call stringlen (ReadMeName, ReadMeLength)
 call date (CurrentDate)
 call stringlen (UserAddress, UserAddressLength)
 call stringlen (SearchOptionKeep, Length)
 call reportconstraints (91)
 call stringlen (SaveOption, Length)
 call reportoutputs (SaveOptionKeep)
     call stringlen (FileList(Loop)(1:Bang-1), BangLength)
     call stringlen (FileList(Loop), Length)
 call stringlen (CopyFileName, Length)
         call stringlen (FileList(Loop)(1:Bang-1), BangLength)
         call stringlen (FileList(Loop), Length)
     call yesno ('[Y]N', Answer)
         call stringlen (CopyFileName, Length)
         call stringlen (Command, Length)
 call changecase ('CAPITALS', Answer)
     call commenter ('FTP message')