'$include "CODE\WC_SUBS.WCC"
     dim File_Name as string
     dim Line as string
     dim Dir_Name as string
     dim Count as long
     dim Num_Str as string
     //////////////////////////////////////////////////////////////////////
     Disk_File_Zero_Bytes_Kill ( "*.*", "File\Game\" )
     open "File\Game\BestV3\HRS_Gam.Ini" for input as #1
     open "File\Game\BestV3\Upload.Bat" for output as #2
     ? #2, "cd Games\Disk"
     ? #2, ""
     do while not EOF ( 1 )
       input #1, Line
       Dir_Name = "..\Disk" + Mid ( Line, 64, 3 )
       if Dir_Exists ( "File\Game\BestV3\Games\Disk\" + Dir_Name ) then
         File_Name = Mid ( Line, 72, 8 )
         File_Name = Str_Strip ( File_Name, " " )
         File_Name = Str_Strip ( File_Name, "'" )
         if File_Name = "" then
           File_Name = Mid ( Line, 1, 20 )
           File_Name = Str_Strip ( File_Name, " " )
           File_Name = str_Strip ( File_Name, "'" )
           File_Name = Left ( File_Name, 8 )
         end if
         Count = 0
         do while Exists ( "File\Game\" + File_Name + ".ZIP" )
           Num_Str = Trim ( FormatNumber ( Count, "########" ) )
           File_Name = Left ( File_Name, 8 - Len ( Num_Str ) ) + Num_Str
           Count = Count + 1
         loop
         open "File\Game\" + File_Name + ".ZIP" for output as #3
         close #3
         if File_Name <> "" then
           ? "cd "; Dir_Name
           ? "if not exist File_ID.DIZ copy ..\..\HRS\GAM\GAM";
           ? Mid ( Line, 64, 3 ); ".DIZ File_ID.DIZ"
           ? "call zipdown "; File_Name
           ? "copy "; File_Name; ".Zip ..\..\.."
           ? "del "; File_Name; ".Zip"
           ? #2, "cd "; Dir_Name
           ? #2, "if not exist File_ID.DIZ copy ..\..\HRS\GAM\GAM";
           ? #2, Mid ( Line, 64, 3 ); ".DIZ File_ID.DIZ"
           ? #2, "call zipdown "; File_Name
           ? #2, "copy "; File_Name; ".Zip ..\..\.."
           ? #2, "del "; File_Name; ".Zip"
         end if
       end if
     loop
     ? #2, ""
     ? #2, "exit"
     close #2
     close #1