Announcement

Collapse

Forum Guidelines

This forum is for finished source code that is working properly. If you have questions about this or any other source code, please post it in one of the Discussion Forums, not here.
See more
See less

Parallel Computing AKA Processing 2000 files with 50 threads

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    PBWin Parallel Computing AKA Processing 2000 files with 50 threads

    Version VXII final version
    Code:
    'Compilable Example:
    #COMPILE EXE "threadsVXII.exe"  'Version V12 in case you were wondering
    #DIM ALL
    
    '7,734 lines of code
    'Updated by Jim Fritts on 2020-SEP-16
    'Designed to run on Windows 10 2004
    'Platform: PBWIN10 and J. Roca includes
    'To use this program as is you will need to download Gary Beene's sample files from
    'http://www.garybeene.com/files/threads.zip
    'Replace his Threads.bas with this app.
    'As a comparison Gary's unmodified code ran 6.1 minutes for 2000 files.
    'My modified version uses 11 threads and ran 12.4 seconds for 2000 files.
    
    'This version VXII processes 2000 files with 50 threads in ~13 seconds.
    
    'Like the previous versions this version is designed to show the User that parallel
    ' processing threads can help reduce the Process Time.
    ' Threads that are available are (50).
    
    'NOTE:
    ' The first time through after the app is launched the results are longer.
    ' To process all files select Do All Files button.
    ' Be advised that on my system if I process 5800 files and above my HDD
    ' goes into saturation which slows down all processes.
    ' I can get 6,000 files in the cache. 795 MB
    
    ' 2000 Sample files = 265 MB which gives us an average size 132.5 KB per file so
    ' 151.7 files per second = ~20 MB per second (Read, Modify, Store)
    
    
    ' 1) Realtime priority for reading and saving files.
    ' 2) The components to read files have been merged.
    '    Reading from an array has been eliminated.
    ' 3) Process Time still uses Parallel Computing techniques.
    
    'Parallel Computing Article:
    'https://computing.llnl.gov/tutorials/parallel_comp/#WhyUse
    
    'My system is a 10 year old laptop with these characteristics:
    'Processors=Core2 Duo
    'RAM=4GiB
    'Drive=Mechanical
    'Hyper-Threading=None
    'Virtualization=None
    
    'Where speedup = 1/((P/N) + S)
    'The maximum speed increase for 2 cores is speedup = ~1.98 times no matter how many threads are used.
    'Given: P = 99% Code parallelized
    '       S = 01% Code serialized
    '       N = 2 system cores
    
    'The maximum speed increase for 4 cores is speedup = ~3.88 times no matter how many threads are used.
    'Given: P = 99% Code parallelized
    '       S = 01% Code serialized
    '       N = 4 system cores
    
    'The maximum speed increase for 8 cores is speedup = ~7.476 times no matter how many threads are used.
    'Given: P = 99% Code parallelized
    '       S = 01% Code serialized
    '       N = 8 system cores
    
    'These are the most recent values captured from Process Time 2020-SEP-05
    'They document the lowest values Process Time can have when testing the app
    ' multiple times for each thread selection.
    '(These are not average values):
    
    'Measured for 2 core system doing 2000 files... Verified
    'Threads    Process Time    Files         Speed (times faster)
    'Used       in seconds      per Thread    for 2 cores
    ' 01        10.17           100           1 (all serialized no speed increase)
    ' 02         5.725           50           1.776
    ' 04         5.542           25           1.835
    ' 05         5.437           20           1.870
    ' 10         5.401           10           1.882
    ' 20         5.363            5           1.896
    ' 25         5.357            4           1.898
    ' 50         5.343            2           1.903  <<< Added 2020-SEP-16
    
    'Projected for 4 core system doing 2000 files... Unverified
    'Threads    Process Time    Files         Speed (times faster)
    'Used       in seconds      per Thread    for 4 cores
    ' 01         5.085          100           1 (all serialized no speed increase) Process Time based on 5.085 = 10.17/(4 cores/2 cores)
    ' 02                         50
    ' 04                         25
    ' 05                         20
    ' 10                         10
    ' 20                          5
    ' 25         1.3395           4           3.796  if (1.898/2 = X/4) then X = 3.796 projected acceleration.
    '                                         1.3395 = (5.085/3.796) projected Process Time for 25 threads and 4 cores.
    ' 50         1.3360           2           3.806  if (1.903/2 = X/4) then X = 3.806 projected acceleration.   <<< Added 2020-SEP-16
    '                                         1.3360 = (5.085/3.806) projected Process Time for 50 threads and 4 cores.
    
    'Projected for 8 core system doing 2000 files... Unverified
    'Threads    Process Time    Files         Speed (times faster)
    'Used       in seconds      per Thread    for 8 cores
    ' 01         2.5425         100           1 (all serialized no speed increase) Process Time based on 2.5425 = 10.17/(8 cores/2 cores)
    ' 02                         50
    ' 04                         25
    ' 05                         20
    ' 10                         10
    ' 20                          5
    ' 25         0.3348           4           7.592  if (1.898/2 = X/8) then X = 7.592 projected acceleration.
    '                                         0.3348 = (2.5425/7.592) projected Process Time for 25 threads and 8 cores.
    ' 50         0.3340           2           7.612  if (1.903/2 = X/8) then X = 7.612 projected acceleration.  <<< Added 2020-SEP-16
    '                                         0.3340 = (2.5425/7.612) projected Process Time for 50 threads and 8 cores.
    
    'VXII does not use an array to store 2000 file data
    'VXII Single block test (times are in seconds)
    '
    ' Files are initially in the cache  (2020-SEP-23)
    ' This is just for testing files in the cache.
    ' In order to perform this test you must run the app at least twice.
    ' The first run puts the files in the cache.
    ' Files Processed   2,000
    ' Threads           50
    ' Process/Thread    2
    ' Drive Trouble     0
    ' Overall Time      12.903  <<< (~13 seconds/2000 files)
    ' 50,000 in minutes  5.376  <<< (Estimated based on running 2,000 files from inside the cache)
    
    ' Read Time          1.691  <<< (~1.7 seconds/2000 files)
    ' Process Time       5.975  <<< (Parallel Computing) This is influenced by the CPU usage, memory availability, and the threads used. (~6.259 seconds/2000 files)
    ' Save Time          5.236  <<< (~5 seconds/2000 files)
    '                               Out of tolerance values will result in a 3 second wait period if mitigation is enabled.
    ' Files per second 155.0    <<<
    ' File Time          0.0065 <<<
    
    
    ' Files are initially not in the cache (2020-SEP-23)
    '(this is what you should expect for each block assuming no Save Time issues when doing Multi-blocks)
    ' Files Processed   2,000
    ' Threads           50
    ' Process/Thread    2
    ' Drive Trouble     0
    ' Overall Time      12.979  <<< (~13 seconds/2000 files)
    ' 50,000 in minutes  5.408  <<< (Estimated based on running 2,000 files from outside the cache)
    
    ' Read Time          1.48   <<< (~1.5 seconds/2000 files)
    ' Process Time       6.067  <<< (Parallel Computing) This is influenced by the CPU usage, memory availability, and the threads used. (~6.067 seconds/2000 files)
    ' Save Time          5.431  <<< (~5 seconds/2000 files)
    '                               Out of tolerance values will result in a 3 second wait period if mitigation is enabled.
    ' Files per second 154.1    <<<
    ' File Time          0.0065 <<<
    
    'VXII Multi-block test (times are in seconds)
    '
    ' Files are initially not in the cache. (2020-SEP-23)
    ' Files Processed   10,000
    ' Threads           50
    ' Process/Thread    2
    ' Drive Trouble     0
    ' Overall Time      54.523  <<< (~11 seconds/2000 files)
    ' 50,000 in minutes  4.544  <<< (Estimated based on running 2,000 files from outside the cache)
    
    ' Read Time          6.125  <<< (~1.2 seconds/2000 files)
    ' Process Time      27.406  <<< (Parallel Computing) This is influenced by the CPU usage, memory availability, and the threads used. (~5.4812 seconds/2000 files)
    ' Save Time         20.991  <<< (~4.2 seconds/2000 files)
    '                               Out of tolerance values will result in a 3 second wait period if mitigation is enabled.
    ' Files per second 183.4    <<<
    ' File Time          0.0055 <<<
    
    
    'Version V9 files processed 10,000 (earlier version)  reads a block of 2,000 at once
    ' V9   Overall Time              152.113  <<< (~30 seconds/2000 files)
    ' V9   50,000 in minutes          12.676  <<< (Estimated based on running 10,000 files from outside the cache)
    ' V9   Read Time                 105.28   <<< (~21 seconds/2000 files)
    ' V9   Process Time               26.764  <<< (~5.352 seconds/2000 files)
    ' V9   Save Time                  19.82   <<< (~4 seconds/2000 files)
    
    'Version VX files processed 10,000 (earlier version)  reads a block of 2,000 at once
    ' VX   Overall Time              182.593  <<< (~37 seconds/2000 files)
    ' VX   50,000 in minutes          15.216  <<< (Estimated based on running 10,000 files from outside the cache)
    ' VX   Read Time                 134.433  <<< (~27 seconds/2000 files)
    ' VX   Process Time               26.994  <<< (~5.398 seconds/2000 files)
    ' VX   Save Time                  21.164  <<< (~4 seconds/2000 files)
    
    'Version VXI files processed 10,000 (last version)    reads a block of 2,000 at once
    ' VXI  Overall Time              188.696  <<< (~38 seconds/2000 files)
    ' VXI  50,000 in minutes          15.725  <<< (Estimated based on running 10,000 files from outside the cache)
    ' VXI  Read Time                 141.722  <<< (~28 seconds/2000 files)
    ' VXI  Process Time               26.734  <<< (~5.346 seconds/2000 files)
    ' VXI  Save Time                  20.029  <<< (~4 seconds/2000 files)
    
    'Version VXII files processed 10,000 (this version)   reads 100 files at once 20 times for each block
    ' VXII Overall Time               54.523  <<< (~11 seconds/2000 files)
    ' VXII 50,000 in minutes           4.544  <<< (Estimated based on running 10,000 files from outside the cache)
    ' VXII Read Time                   6.125  <<< (~1.2 seconds/2000 files)
    ' VXII Process Time               27.406  <<< (~5.4812 seconds/2000 files) (It appears 1 second has been added to each 2000 files processed)
    ' VXII Save Time                  20.991  <<< (~4.2 seconds/2000 files)
    
    'Version comparison
    ' VXII is 3.46 times faster than Version VXI in Overall Time.
    ' VXII is 3.46 times faster than Version VXI in 50,000 in minutes.
    ' VXII is 23.1 times faster than Version VXI in Read Time.
    ' VXII is 1.02 times slower than Version VXI in Process Time.
    ' VXII is 1.04 times slower than Version VXI in Save Time.
    
    'Prediction for 4 core system
    'Given:
    '4.544 minutes for 50,000 files
    '12/3.6 as the ratio between 2 core and 4 core systems
    'Therefore the time to run 50,000 files on a 4 core system would be
    'X = (4.544 * 3.6)/12 = ~1.3632 minutes = ~82 seconds
    
    'As you can see the primary change between version VXI and VXII was
    'eliminating reading 2000 files at a time to a global string array.
    'VXII reads only 100 files at a time to global string variables which
    'are then processed by 50 parallel threads and then stored. This
    'method is faster because the app is just dealing with 100 files at
    'a time. Handling 100 files 13.2 MB instead of handling 2000 files
    '265 MB in memory made a significant change in throughput.
    
    '#DEBUG ERROR ON
    '#DEBUG DISPLAY ON
    
    %Unicode = 1
    #INCLUDE "Win32API.inc"
    
    #RESOURCE ICON logo, "index.ico"
    
    %URL_MAX = 50000   '<< maximum files  Note: Set FileTotal to the total number of files the app can process
    %ProcessCnt = 100  'default number of files to process
    %ThreadCount = 50  'default is 50
    
    ENUM Equates SINGULAR
       IDC_Stop = 1500
       IDC_Start
       IDC_Next
       IDC_Finished
       IDC_Label_A
       IDC_Label_B
       IDC_Label_02
       IDC_Label_03
       IDC_Text_01
       IDC_Label_04
       IDC_Label_05
       IDC_Label_06
       IDC_Label_07
       IDC_Drive
       IDC_ReadWait
       IDC_SaveWait
       IDC_TypeRunA
       IDC_TypeRunB
       IDC_ClearText
       IDC_FetchMsg_1
       IDC_FetchMsg_2
       IDC_Down_01
       IDC_Up_01
       IDC_Down_02
       IDC_Up_02
       IDC_Yes
       IDC_Not
    END ENUM
    
    GLOBAL hDlg            AS LONG
    GLOBAL gsDL            AS STRING 'Drive Letter ex K:\
    GLOBAL gsSavePath      AS STRING 'gsDL + "threads_formatted\"
    GLOBAL gsReadPath      AS STRING
    GLOBAL ThreadCnt       AS LONG
    GLOBAL StopAction      AS LONG
    GLOBAL giTypeRunA      AS LONG
    GLOBAL giTypeRunB      AS LONG
    GLOBAL giTypeMitigateA AS LONG
    GLOBAL giTypeMitigateB AS LONG
    GLOBAL DriveTroubles   AS LONG
    GLOBAL ReadIssueCnt    AS LONG
    GLOBAL IssueWait       AS LONG
    GLOBAL Takeabreak      AS LONG  '=0 no break =1 take a break
    GLOBAL BlockCount      AS LONG
    GLOBAL SaveAndLoadIt   AS LONG
    GLOBAL DoInitialLoad   AS LONG
    
    GLOBAL gString         AS STRING
    
    GLOBAL hThreadSAL      AS DWORD
    GLOBAL hThread01       AS DWORD
    GLOBAL hThread02       AS DWORD
    GLOBAL hThread03       AS DWORD
    GLOBAL hThread04       AS DWORD
    GLOBAL hThread05       AS DWORD
    GLOBAL hThread06       AS DWORD
    GLOBAL hThread07       AS DWORD
    GLOBAL hThread08       AS DWORD
    GLOBAL hThread09       AS DWORD
    GLOBAL hThread10       AS DWORD
    GLOBAL hThread11       AS DWORD
    GLOBAL hThread12       AS DWORD
    GLOBAL hThread13       AS DWORD
    GLOBAL hThread14       AS DWORD
    GLOBAL hThread15       AS DWORD
    GLOBAL hThread16       AS DWORD
    GLOBAL hThread17       AS DWORD
    GLOBAL hThread18       AS DWORD
    GLOBAL hThread19       AS DWORD
    GLOBAL hThread20       AS DWORD
    GLOBAL hThread21       AS DWORD
    GLOBAL hThread22       AS DWORD
    GLOBAL hThread23       AS DWORD
    GLOBAL hThread24       AS DWORD
    GLOBAL hThread25       AS DWORD
    GLOBAL hThread26       AS DWORD
    GLOBAL hThread27       AS DWORD
    GLOBAL hThread28       AS DWORD
    GLOBAL hThread29       AS DWORD
    GLOBAL hThread30       AS DWORD
    GLOBAL hThread31       AS DWORD
    GLOBAL hThread32       AS DWORD
    GLOBAL hThread33       AS DWORD
    GLOBAL hThread34       AS DWORD
    GLOBAL hThread35       AS DWORD
    GLOBAL hThread36       AS DWORD
    GLOBAL hThread37       AS DWORD
    GLOBAL hThread38       AS DWORD
    GLOBAL hThread39       AS DWORD
    GLOBAL hThread40       AS DWORD
    GLOBAL hThread41       AS DWORD
    GLOBAL hThread42       AS DWORD
    GLOBAL hThread43       AS DWORD
    GLOBAL hThread44       AS DWORD
    GLOBAL hThread45       AS DWORD
    GLOBAL hThread46       AS DWORD
    GLOBAL hThread47       AS DWORD
    GLOBAL hThread48       AS DWORD
    GLOBAL hThread49       AS DWORD
    GLOBAL hThread50       AS DWORD
    
    GLOBAL URLS()          AS STRING    'file name array shared between main app and storage routine
    
    GLOBAL FireIt()        AS LONG      'command array
    GLOBAL Completed()     AS LONG      'command array
    GLOBAL Ready()         AS LONG      'Process thread availability array
    
    GLOBAL FilesAccum      AS LONG
    
    GLOBAL RPSAccum        AS QUAD
    
    GLOBAL qFreq           AS QUAD
    GLOBAL qStart          AS QUAD
    GLOBAL qStop           AS QUAD
    GLOBAL qRunAccum       AS QUAD
    
    GLOBAL qStartRead      AS QUAD   'Read Time
    GLOBAL qStopRead       AS QUAD
    GLOBAL qReadAccum      AS QUAD
    
    GLOBAL qStartProcess   AS QUAD   'Process Time
    GLOBAL qStopProcess    AS QUAD
    GLOBAL qProcessAccum   AS QUAD
    
    GLOBAL qStartSave      AS QUAD   'Save Time
    GLOBAL qStopSave       AS QUAD
    GLOBAL qSaveAccum      AS QUAD
    
    GLOBAL StartPT         AS LONG   'jumps by ProcessCnt each time
    GLOBAL NextPT          AS LONG
    
    GLOBAL giWipedFolder   AS LONG
    
    GLOBAL giSaveAndLoad   AS LONG
    
    GLOBAL File01        AS STRING
    GLOBAL File02        AS STRING
    GLOBAL File03        AS STRING
    GLOBAL File04        AS STRING
    GLOBAL File05        AS STRING
    GLOBAL File06        AS STRING
    GLOBAL File07        AS STRING
    GLOBAL File08        AS STRING
    GLOBAL File09        AS STRING
    GLOBAL File10        AS STRING
    
    GLOBAL File11        AS STRING
    GLOBAL File12        AS STRING
    GLOBAL File13        AS STRING
    GLOBAL File14        AS STRING
    GLOBAL File15        AS STRING
    GLOBAL File16        AS STRING
    GLOBAL File17        AS STRING
    GLOBAL File18        AS STRING
    GLOBAL File19        AS STRING
    GLOBAL File20        AS STRING
    
    GLOBAL File21        AS STRING
    GLOBAL File22        AS STRING
    GLOBAL File23        AS STRING
    GLOBAL File24        AS STRING
    GLOBAL File25        AS STRING
    GLOBAL File26        AS STRING
    GLOBAL File27        AS STRING
    GLOBAL File28        AS STRING
    GLOBAL File29        AS STRING
    GLOBAL File30        AS STRING
    
    GLOBAL File31        AS STRING
    GLOBAL File32        AS STRING
    GLOBAL File33        AS STRING
    GLOBAL File34        AS STRING
    GLOBAL File35        AS STRING
    GLOBAL File36        AS STRING
    GLOBAL File37        AS STRING
    GLOBAL File38        AS STRING
    GLOBAL File39        AS STRING
    GLOBAL File40        AS STRING
    
    GLOBAL File41        AS STRING
    GLOBAL File42        AS STRING
    GLOBAL File43        AS STRING
    GLOBAL File44        AS STRING
    GLOBAL File45        AS STRING
    GLOBAL File46        AS STRING
    GLOBAL File47        AS STRING
    GLOBAL File48        AS STRING
    GLOBAL File49        AS STRING
    GLOBAL File50        AS STRING
    
    GLOBAL File51        AS STRING
    GLOBAL File52        AS STRING
    GLOBAL File53        AS STRING
    GLOBAL File54        AS STRING
    GLOBAL File55        AS STRING
    GLOBAL File56        AS STRING
    GLOBAL File57        AS STRING
    GLOBAL File58        AS STRING
    GLOBAL File59        AS STRING
    GLOBAL File60        AS STRING
    
    GLOBAL File61        AS STRING
    GLOBAL File62        AS STRING
    GLOBAL File63        AS STRING
    GLOBAL File64        AS STRING
    GLOBAL File65        AS STRING
    GLOBAL File66        AS STRING
    GLOBAL File67        AS STRING
    GLOBAL File68        AS STRING
    GLOBAL File69        AS STRING
    GLOBAL File70        AS STRING
    
    GLOBAL File71        AS STRING
    GLOBAL File72        AS STRING
    GLOBAL File73        AS STRING
    GLOBAL File74        AS STRING
    GLOBAL File75        AS STRING
    GLOBAL File76        AS STRING
    GLOBAL File77        AS STRING
    GLOBAL File78        AS STRING
    GLOBAL File79        AS STRING
    GLOBAL File80        AS STRING
    
    GLOBAL File81        AS STRING
    GLOBAL File82        AS STRING
    GLOBAL File83        AS STRING
    GLOBAL File84        AS STRING
    GLOBAL File85        AS STRING
    GLOBAL File86        AS STRING
    GLOBAL File87        AS STRING
    GLOBAL File88        AS STRING
    GLOBAL File89        AS STRING
    GLOBAL File90        AS STRING
    
    GLOBAL File91        AS STRING
    GLOBAL File92        AS STRING
    GLOBAL File93        AS STRING
    GLOBAL File94        AS STRING
    GLOBAL File95        AS STRING
    GLOBAL File96        AS STRING
    GLOBAL File97        AS STRING
    GLOBAL File98        AS STRING
    GLOBAL File99        AS STRING
    GLOBAL File100       AS STRING
    
    GLOBAL giAppRunning AS LONG
    GLOBAL FileTotal    AS LONG
    GLOBAL BlockTotal   AS LONG
    GLOBAL BreakTime    AS LONG
    
    FUNCTION PBMAIN() AS LONG
       LOCAL i    AS LONG
       LOCAL Egi  AS RECT
    
       BreakTime = 1'< How long the threads wait per loop when not performing a task.
       ThreadCnt = %ThreadCount
       SELECT CASE ThreadCnt
           CASE 50
               'let it pass
           CASE ELSE
               ThreadCnt = 50
       END SELECT
       giTypeRunA = 1
       giTypeRunB = 0
       IssueWait = 3000 'saturation remediation
       giTypeMitigateA = 1
       giTypeMitigateB = 0
    
       DIALOG DEFAULT FONT "Tahoma",12, 0
       DIALOG NEW PIXELS, 0, "Processing 2000 Files with 50 threads",,,520,300, %WS_OVERLAPPEDWINDOW TO hDlg
    
       GetWindowRect hDlg, Egi
       SetCursorPos(Egi.nLeft + 60, Egi.nTop + 50)
    
       DIALOG SET ICON hDlg, "logo"
    
       CONTROL ADD LABEL, hDlg, %IDC_Label_02, "Results: Times in seconds", 10,10,235,25, %SS_CENTER
       CONTROL ADD TEXTBOX, hDlg, %IDC_Text_01, "", 10,40,240,250, %ES_MULTILINE OR %ES_AUTOHSCROLL OR %ES_AUTOVSCROLL
    
       CONTROL ADD BUTTON, hDlg, %IDC_Start,"Start", 270,10,70,25, %WS_TABSTOP OR %BS_DEFAULT
       CONTROL ADD BUTTON, hDlg, %IDC_Stop,"Stop", 355,10,70,25
       CONTROL ADD BUTTON, hDlg, %IDC_Drive,"HDD", 260 + 180,10,70,25
    
       CONTROL DISABLE hDlg, %IDC_Stop
       CONTROL ENABLE hDlg, %IDC_Drive
    
       CONTROL ADD CHECKBOX, hDlg, %IDC_TypeRunA, "Do 2000 Files", 270,40,120,25, %WS_TABSTOP OR %BS_PUSHLIKE
       CONTROL ADD CHECKBOX, hDlg, %IDC_TypeRunB, "Do All Files", 390,40,120,25, %WS_TABSTOP OR %BS_PUSHLIKE
       CONTROL SET CHECK hDlg, %IDC_TypeRunA, 1
       CONTROL SET CHECK hDlg, %IDC_TypeRunB, 0
    
       CONTROL ADD LABEL, hDlg, %IDC_Label_03, "File Starting Point. (1 to" & STR$(%URL_MAX - 1999) & ")", 270,70,240,25, %SS_CENTER
       CONTROL ADD LABEL, hDlg, %IDC_Label_04, "1", 340,100,50,20, %SS_CENTER
       CONTROL ADD BUTTON, hDlg, %IDC_Down_01,"<", 390,100,25,25
       CONTROL ADD BUTTON, hDlg, %IDC_Up_01,">", 415,100,25,25
    
       CONTROL ADD LABEL, hDlg, %IDC_Label_05, "Thread not working sleep time.", 270,190 - 60,240,25, %SS_CENTER
       CONTROL ADD LABEL, hDlg, %IDC_Label_06, LTRIM$(STR$(BreakTime)), 340,220 - 60,50,20, %SS_CENTER
       CONTROL ADD BUTTON, hDlg, %IDC_Down_02,"<", 390,220 - 60,25,25
       CONTROL ADD BUTTON, hDlg, %IDC_Up_02,">", 415,220 - 60,25,25
    
       CONTROL ADD LABEL, hDlg, %IDC_Label_07, "Use drive saturation mitigation?", 270,250 - 60,240,25, %SS_CENTER
       CONTROL ADD CHECKBOX, hDlg, %IDC_Yes, "Yes", 350,280 - 60,40,25, %WS_GROUP OR %WS_TABSTOP OR %BS_PUSHLIKE
       CONTROL ADD CHECKBOX, hDlg, %IDC_Not, "No", 390,280 - 60,40,25, %WS_TABSTOP OR %BS_PUSHLIKE
    
       SELECT CASE giTypeMitigateA
           CASE 1
               CONTROL SET CHECK hDlg, %IDC_Yes, 1
           CASE 0
               CONTROL SET CHECK hDlg, %IDC_Not, 1
       END SELECT
    
       CONTROL ADD LABEL, hDlg, %IDC_Label_A, "", 270,250,235,22, %SS_CENTER
       CONTROL ADD LABEL, hDlg, %IDC_Label_B, "", 270,272,235,22, %SS_CENTER
    
       SetFocus GetDlgItem(hDlg, %IDC_Start)
    
       DIALOG SHOW MODAL hDlg CALL DlgProc
    END FUNCTION
    
    CALLBACK FUNCTION DlgProc() AS LONG
        LOCAL StringValue AS STRING
        LOCAL SValue      AS LONG
        LOCAL Time        AS TIMECAPS
    
        SELECT CASE CB.MSG
           CASE %WM_INITDIALOG
               'Settings_INI "get"
               DIM Completed(1 TO 50)
               DIM FireIt(1 TO 50)
               DIM Ready(1 TO 50)
               CALL LoadURLs
               QueryPerformanceFrequency qFreq
               gsDL = EXE.PATH$
               gsSavePath = gsDL + "threads_formatted\"
               gsReadPath = EXE.PATH$ + "threads\"
               giAppRunning = 1
               StartPT = 1
               CALL CreateTheThreads
    
           CASE %WM_DESTROY
               timeEndPeriod (1)
               Takeabreak = 0
    
               winbeep(3000, 75)
               giAppRunning = 0
               Settings_INI "save"
    
           CASE %WM_COMMAND
               SELECT CASE CB.CTL
    
                   CASE %IDC_Yes
                       SELECT CASE giTypeMitigateA
                           CASE 0
                               giTypeMitigateA = 1
                               CONTROL SET CHECK hDlg, %IDC_Yes, 1
                               giTypeMitigateB = 0
                               CONTROL SET CHECK hDlg, %IDC_Not, 0
                           CASE 1
                               giTypeMitigateA = 0
                               CONTROL SET CHECK hDlg, %IDC_Yes, 0
                               giTypeMitigateB = 1
                               CONTROL SET CHECK hDlg, %IDC_Not, 1
    
                       END SELECT
    
                   CASE %IDC_Not
                       SELECT CASE giTypeMitigateB
                           CASE 0
                               giTypeMitigateB = 1
                               CONTROL SET CHECK hDlg, %IDC_Not, 1
                               giTypeMitigateA = 0
                               CONTROL SET CHECK hDlg, %IDC_Yes, 0
                           CASE 1
                               giTypeMitigateB = 0
                               CONTROL SET CHECK hDlg, %IDC_Not, 0
                               giTypeMitigateA = 1
                               CONTROL SET CHECK hDlg, %IDC_Yes, 1
    
                       END SELECT
    
                   CASE %IDC_Up_01
                       CONTROL GET TEXT hDlg, %IDC_Label_04 TO StringValue
                       SValue = VAL(StringValue)
                       StringValue = LTRIM$(STR$(SValue + 2000))
                       IF VAL(StringValue) < UBOUND(URLS()) THEN
                           CONTROL SET TEXT hDlg, %IDC_Label_04, StringValue
                       END IF
    
                   CASE %IDC_Down_01
                       CONTROL GET TEXT hDlg, %IDC_Label_04 TO StringValue
                       SValue = VAL(StringValue)
                       StringValue = LTRIM$(STR$(SValue - 2000))
                       IF VAL(StringValue) > 0 THEN
                           CONTROL SET TEXT hDlg, %IDC_Label_04, StringValue
                       END IF
    
                   CASE %IDC_Up_02
                       CONTROL GET TEXT hDlg, %IDC_Label_06 TO StringValue
                       SValue = VAL(StringValue)
                       StringValue = LTRIM$(STR$(SValue + 1))
                       IF VAL(StringValue) < 11 THEN
                           BreakTime = VAL(StringValue)
                           CONTROL SET TEXT hDlg, %IDC_Label_06, StringValue
                       END IF
    
                   CASE %IDC_Down_02
                       CONTROL GET TEXT hDlg, %IDC_Label_06 TO StringValue
                       SValue = VAL(StringValue)
                       StringValue = LTRIM$(STR$(SValue - 1))
                       IF VAL(StringValue) > -1 THEN
                           BreakTime = VAL(StringValue)
                           CONTROL SET TEXT hDlg, %IDC_Label_06, StringValue
                       END IF
    
    
                   CASE %IDC_FetchMsg_1
                       CONTROL SET TEXT hDlg, %IDC_Label_A, ""
                       CONTROL SET TEXT hDlg, %IDC_Label_B, "Reading 100 files..."
                   CASE %IDC_FetchMsg_2
                       CONTROL SET TEXT hDlg, %IDC_Label_A, ""
                       CONTROL SET TEXT hDlg, %IDC_Label_B, "Processing 100 files."
    
                   CASE %IDC_ClearText
                       CONTROL SET TEXT hDlg, %IDC_Label_A, ""
                       CONTROL SET TEXT hDlg, %IDC_Label_B, ""
    
                   CASE %IDC_ReadWait
                       CONTROL SET TEXT hDlg, %IDC_Label_A, "File Read Issue"
                       CONTROL SET TEXT hDlg, %IDC_Label_B, "Read Time=" & STR$(((qStopRead - qStartRead)/qFreq))
    
                   CASE %IDC_SaveWait
                       CONTROL SET TEXT hDlg, %IDC_Label_A, "File" & STR$(StartPT) & " Save Issue"
                       CONTROL SET TEXT hDlg, %IDC_Label_B, "Save Time=" & STR$(((qStopSave - qStartSave)/qFreq))
    
                   CASE %IDC_TypeRunA
                       SELECT CASE giTypeRunA
                           CASE 0
                               giTypeRunA = 1
                               CONTROL SET CHECK hDlg, %IDC_TypeRunA, 1
                               giTypeRunB = 0
                               CONTROL SET CHECK hDlg, %IDC_TypeRunB, 0
                           CASE 1
                               giTypeRunA = 0
                               CONTROL SET CHECK hDlg, %IDC_TypeRunA, 0
                               giTypeRunB = 1
                               CONTROL SET CHECK hDlg, %IDC_TypeRunB, 1
    
                       END SELECT
    
                   CASE %IDC_TypeRunB
                       SELECT CASE giTypeRunB
                           CASE 0
                               giTypeRunB = 1
                               CONTROL SET CHECK hDlg, %IDC_TypeRunB, 1
                               giTypeRunA = 0
                               CONTROL SET CHECK hDlg, %IDC_TypeRunA, 0
                           CASE 1
                               giTypeRunB = 0
                               CONTROL SET CHECK hDlg, %IDC_TypeRunB, 0
                               giTypeRunA = 1
                               CONTROL SET CHECK hDlg, %IDC_TypeRunA, 1
    
                       END SELECT
    
                   CASE %IDC_Drive
                       IF gsDL <> "K:\" THEN
                           gsDL = "K:\"
                           gsSavePath = gsDL + "threads_formatted\"
                           CONTROL SET TEXT hDlg, %IDC_Text_01, ""
                           CONTROL SET TEXT hDlg, %IDC_Drive, gsDL
                       ELSE
                           gsDL = EXE.PATH$
                           gsSavePath = gsDL + "threads_formatted\"
                           CONTROL SET TEXT hDlg, %IDC_Text_01, ""
                           CONTROL SET TEXT hDlg, %IDC_Drive, "HDD"
                       END IF
    
                   CASE %IDC_Stop
                       StopAction = 1
                       timeEndPeriod (1)
    
                       CONTROL SET TEXT hDlg, %IDC_Text_01, "Current location=" & STR$(StartPT)
                       CONTROL ENABLE hDlg, %IDC_Start
                       CONTROL DISABLE hDlg, %IDC_Stop
                       CONTROL ENABLE hDlg, %IDC_Drive
                       DIALOG SET TEXT hDlg, "Processing 2000 Files with 50 threads"
    
                       CONTROL ENABLE hDlg, %IDC_TypeRunA
                       CONTROL ENABLE hDlg, %IDC_TypeRunB
    
                       CONTROL ENABLE hDlg, %IDC_Down_01
                       CONTROL ENABLE hDlg, %IDC_Up_01
    
                   CASE %IDC_Start
                       DIALOG SET TEXT hDlg, "Processing..."
    
                       CONTROL SET TEXT hDlg, %IDC_Text_01, ""
                       CONTROL DISABLE hDlg, %IDC_Start
                       CONTROL ENABLE hDlg, %IDC_Stop
                       CONTROL DISABLE hDlg, %IDC_Drive
    
                       CONTROL DISABLE hDlg, %IDC_TypeRunA
                       CONTROL DISABLE hDlg, %IDC_TypeRunB
    
                       CONTROL DISABLE hDlg, %IDC_Down_01
                       CONTROL DISABLE hDlg, %IDC_Up_01
                       CONTROL SET TEXT hDlg, %IDC_Label_A, ""
                       CONTROL SET TEXT hDlg, %IDC_Label_B, ""
    
                       IF ISFALSE ISFOLDER(RTRIM$(gsSavePath, "\")) THEN MKDIR RTRIM$(gsSavePath, "\")
    
                       'remove formatted files on first run
                       'IF DIR$(gsSavePath & "*.HTM") <> "" AND giWipedFolder = 0 THEN
                       '    KILL gsSavePath & "*.HTM"
                       '    giWipedFolder = 1
                       'END IF
    
                       TimeGetDevCaps ( Time, SIZEOF(Time) )
                       timeBeginPeriod (Time.wPeriodMin)
                       SLEEP 16
    
                       qStart = 0
                       qStop = 0
    
                       StopAction = 0
                       Takeabreak = 0
                       BlockCount = -1
                       DriveTroubles = 0
                       ReadIssueCnt = 0
    
                       qRunAccum = 0
                       qReadAccum = 0
                       qProcessAccum = 0
                       qSaveAccum = 0
                       FilesAccum = 0
    
                       CONTROL GET TEXT hDlg, %IDC_Label_04 TO StringValue
    
                       IF VAL(StringValue) < 1 THEN
                           StringValue = "1"
                       END IF
    
                       IF giTypeRunA = 1 THEN
                           IF VAL(StringValue) > UBOUND(URLs) - 1999 THEN
                               StringValue = STR$(UBOUND(URLs) - 1999)
                           END IF
                       END IF
    
                       IF giTypeRunB = 1 THEN
                           StringValue = "1"
                       END IF
    
                       CONTROL SET TEXT hDlg, %IDC_Label_04, StringValue
    
                       StartPT = VAL(StringValue)
                       NextPT = VAL(StringValue)
                       BlockTotal = 2000
    
                       IF giTypeRunA = 1 THEN
                           FileTotal = StartPT + 1999
                       END IF
                       IF giTypeRunB = 1 THEN
                           FileTotal = UBOUND(URLs)
                       END IF
    
                       QueryPerformanceCounter   qStart
                       QueryPerformanceCounter   qStart
                       QueryPerformanceCounter   qStart
    
                       DoInitialLoad = 1
    
    
                   CASE %IDC_Finished
                       Takeabreak = 1
    
                       timeEndPeriod (1)
    
                       'there will be a small time delay here
                       DIALOG SET TEXT hDlg, "Processing 2000 Files with 50 threads" '"Completed"
    
                       FilesAccum = FilesAccum + 2000
                       CONTROL ENABLE hDlg, %IDC_Start
                       CONTROL DISABLE hDlg, %IDC_Stop
                       CONTROL ENABLE hDlg, %IDC_Drive
                       CONTROL ENABLE hDlg, %IDC_TypeRunA
                       CONTROL ENABLE hDlg, %IDC_TypeRunB
                       CONTROL ENABLE hDlg, %IDC_Down_01
                       CONTROL ENABLE hDlg, %IDC_Up_01
    
                       RPSAccum = qReadAccum + qProcessAccum + qSaveAccum
                       CONTROL SET TEXT hDlg, %IDC_Text_01, _
                             " Files Processed " & $TAB & FORMAT$(FilesAccum, "##,##0") & $CRLF & _
                             " Threads" & $TAB & $TAB & LTRIM$(STR$(ThreadCnt)) & $CRLF & _
                             " Process/Thread" & $TAB & LTRIM$(STR$(%ProcessCnt/ThreadCnt)) & $CRLF & _
                             " Drive Trouble " & $TAB & LTRIM$(STR$(DriveTroubles)) & $CRLF & _
                             " Overall Time " & $TAB + FORMAT$( qRunAccum/qFreq,"###.###") & $CRLF & _
                             " 50,000 in minutes " & $TAB + FORMAT$(((( qRunAccum/qFreq ) * 50000)/FilesAccum)/60,"###.###") & $CRLF & $CRLF & _
                             " Read Time " & $TAB + FORMAT$(qReadAccum/qFreq,"###.###") & $CRLF & _
                             " Process Time " & $TAB + FORMAT$(qProcessAccum/qFreq,"###.###") & $CRLF & _
                             " Save Time " & $TAB + FORMAT$(qSaveAccum/qFreq,"###.###") & $CRLF & $CRLF & _
                             " Files per second " & $TAB + FORMAT$( 1/((RPSAccum/qFreq)/FilesAccum),"###.#") & $CRLF & _
                             " File Time " & $TAB + FORMAT$( (RPSAccum/qFreq)/FilesAccum, "###.####")
    
                               CONTROL SET TEXT hDlg, %IDC_Label_A, ""
                               CONTROL SET TEXT hDlg, %IDC_Label_B, ""
    
                       SetFocus GetDlgItem(hDlg, %IDC_Start)
               END SELECT
        END SELECT
    END FUNCTION
    
    
    SUB LoadURLs
      'Has been modified from Gary's original code for this reason:
      'The code was mixing his file names and my filenames
      'His names looked like this 000536.htm
      'My file names looked like this 00_0001.htm
    
      LOCAL i AS LONG
      REDIM URLS(1 TO %URL_MAX)  '<<< changed 2020-AUG-26
    
      URLS(1) = DIR$("threads\*.htm")
      FOR i = 2 TO UBOUND(URLS)  '<<< changed 2020-AUG-26
          URLS(i) = DIR$(NEXT)
          IF URLS(i) = "" THEN
              REDIM PRESERVE URLS(1 TO i-1)  '<<< added 2020-AUG-26
              EXIT FOR
          END IF
      NEXT i
    
      ARRAY SORT URLS(), ASCEND  '<<< added 2020-AUG-26
    END SUB
    
    
    SUB Settings_INI(Task$)
       LOCAL xResult, yResult, tempZ, INIFileName AS WSTRINGZ * %MAX_PATH, WinPla AS WindowPlacement
       'set ini filename
       INIFileName = EXE.PATH$ + "threads.ini"
    
       IF Task$ = "get" THEN
    
          'get dialog width/height from INI file and use to set Dialog size
          GetPrivateProfileString "All", "Width", "1070", xResult, %MAX_PATH, INIFileName
          GetPrivateProfileString "All", "Height", "125", yResult, %MAX_PATH, INIFileName
          DIALOG SET SIZE hDlg,VAL(xResult), VAL(yResult)   'width/height
    
          'default position should be centered on screen
          LOCAL DefaultX, DefaultY, wDeskTop, hDeskTop AS LONG
          DESKTOP GET CLIENT TO wDeskTop, hDeskTop
          DefaultX = (wDeskTop-VAL(xResult))/2
          DefaultY = (hDeskTop-VAL(yResult))/2
    
          'get dialog top/left from INI file and use to set Dialog location
          Getprivateprofilestring "All", "Left", STR$(DefaultX), xResult, %MAX_PATH, INIFileName
          Getprivateprofilestring "All", "Top", STR$(DefaultY), yResult, %MAX_PATH, INIFileName
          DIALOG SET LOC hDlg, VAL(xResult), VAL(yResult)   'left/top
    
       END IF
    
       IF Task$ = "save" THEN
          'If Len(Dir$(INIFileName)) Then Kill INIFileName
          'save dialog size/location unless minimized or maximized
          WinPla.length = SIZEOF(WinPla)
          GetWindowPlacement hDlg, WinPla
          WritePrivateProfileString "All", "Left", STR$(WinPla.rcNormalPosition.nLeft), INIFileName
          WritePrivateProfileString "All", "Top", STR$(WinPla.rcNormalPosition.nTop), INIFileName
          WritePrivateProfileString "All", "Width", STR$(WinPla.rcNormalPosition.nRight - WinPla.rcNormalPosition.nLeft), INIFileName
          WritePrivateProfileString "All", "Height", STR$(WinPla.rcNormalPosition.nBottom - WinPla.rcNormalPosition.nTop), INIFileName
          WritePrivateProfileString "All", "MinMaxState", STR$(WinPla.showCmd), INIFileName
    
       END IF
    END SUB
    
    
    SUB CreateTheThreads
    
      StopAction = 0
      'Split processing the files between 50 threads
      IF Ready(01) = 0 THEN
          THREAD CREATE FT01(999) TO hThread01   : THREAD CLOSE hThread01 TO hThread01
      END IF
      IF Ready(02) = 0 THEN
          THREAD CREATE FT02(999) TO hThread02   : THREAD CLOSE hThread02 TO hThread02
      END IF
      IF Ready(03) = 0 THEN
          THREAD CREATE FT03(999) TO hThread03   : THREAD CLOSE hThread03 TO hThread03
      END IF
      IF Ready(04) = 0 THEN
          THREAD CREATE FT04(999) TO hThread04   : THREAD CLOSE hThread04 TO hThread04
      END IF
      IF Ready(05) = 0 THEN
          THREAD CREATE FT05(999) TO hThread05   : THREAD CLOSE hThread05 TO hThread05
      END IF
      IF Ready(06) = 0 THEN
          THREAD CREATE FT06(999) TO hThread06   : THREAD CLOSE hThread06 TO hThread06
      END IF
      IF Ready(07) = 0 THEN
          THREAD CREATE FT07(999) TO hThread07   : THREAD CLOSE hThread07 TO hThread07
      END IF
      IF Ready(08) = 0 THEN
          THREAD CREATE FT08(999) TO hThread08   : THREAD CLOSE hThread08 TO hThread08
      END IF
      IF Ready(09) = 0 THEN
          THREAD CREATE FT09(999) TO hThread09   : THREAD CLOSE hThread09 TO hThread09
      END IF
      IF Ready(10) = 0 THEN
          THREAD CREATE FT10(999) TO hThread10   : THREAD CLOSE hThread10 TO hThread10
      END IF
      IF Ready(11) = 0 THEN
          THREAD CREATE FT11(999) TO hThread11   : THREAD CLOSE hThread11 TO hThread11
      END IF
      IF Ready(12) = 0 THEN
          THREAD CREATE FT12(999) TO hThread12   : THREAD CLOSE hThread12 TO hThread12
      END IF
      IF Ready(13) = 0 THEN
          THREAD CREATE FT13(999) TO hThread13   : THREAD CLOSE hThread13 TO hThread13
      END IF
      IF Ready(14) = 0 THEN
          THREAD CREATE FT14(999) TO hThread14   : THREAD CLOSE hThread14 TO hThread14
      END IF
      IF Ready(15) = 0 THEN
          THREAD CREATE FT15(999) TO hThread15   : THREAD CLOSE hThread15 TO hThread15
      END IF
      IF Ready(16) = 0 THEN
          THREAD CREATE FT16(999) TO hThread16   : THREAD CLOSE hThread16 TO hThread16
      END IF
      IF Ready(17) = 0 THEN
          THREAD CREATE FT17(999) TO hThread17   : THREAD CLOSE hThread17 TO hThread17
      END IF
      IF Ready(18) = 0 THEN
          THREAD CREATE FT18(999) TO hThread18   : THREAD CLOSE hThread18 TO hThread18
      END IF
      IF Ready(19) = 0 THEN
          THREAD CREATE FT19(999) TO hThread19   : THREAD CLOSE hThread19 TO hThread19
      END IF
      IF Ready(20) = 0 THEN
          THREAD CREATE FT20(999) TO hThread20   : THREAD CLOSE hThread20 TO hThread20
      END IF
      IF Ready(21) = 0 THEN
          THREAD CREATE FT21(999) TO hThread21   : THREAD CLOSE hThread21 TO hThread21
      END IF
      IF Ready(22) = 0 THEN
          THREAD CREATE FT22(999) TO hThread22   : THREAD CLOSE hThread22 TO hThread22
      END IF
      IF Ready(23) = 0 THEN
          THREAD CREATE FT23(999) TO hThread23   : THREAD CLOSE hThread23 TO hThread23
      END IF
      IF Ready(24) = 0 THEN
          THREAD CREATE FT24(999) TO hThread24   : THREAD CLOSE hThread24 TO hThread24
      END IF
      IF Ready(25) = 0 THEN
          THREAD CREATE FT25(999) TO hThread25   : THREAD CLOSE hThread25 TO hThread25
      END IF
      IF Ready(26) = 0 THEN
          THREAD CREATE FT26(999) TO hThread26   : THREAD CLOSE hThread26 TO hThread26
      END IF
      IF Ready(27) = 0 THEN
          THREAD CREATE FT27(999) TO hThread27   : THREAD CLOSE hThread27 TO hThread27
      END IF
      IF Ready(28) = 0 THEN
          THREAD CREATE FT28(999) TO hThread28   : THREAD CLOSE hThread28 TO hThread28
      END IF
      IF Ready(29) = 0 THEN
          THREAD CREATE FT29(999) TO hThread29   : THREAD CLOSE hThread29 TO hThread29
      END IF
      IF Ready(30) = 0 THEN
          THREAD CREATE FT30(999) TO hThread30   : THREAD CLOSE hThread30 TO hThread30
      END IF
      IF Ready(31) = 0 THEN
          THREAD CREATE FT31(999) TO hThread31   : THREAD CLOSE hThread31 TO hThread31
      END IF
      IF Ready(32) = 0 THEN
          THREAD CREATE FT32(999) TO hThread32   : THREAD CLOSE hThread32 TO hThread32
      END IF
      IF Ready(33) = 0 THEN
          THREAD CREATE FT33(999) TO hThread33   : THREAD CLOSE hThread33 TO hThread33
      END IF
      IF Ready(34) = 0 THEN
          THREAD CREATE FT34(999) TO hThread34   : THREAD CLOSE hThread34 TO hThread34
      END IF
      IF Ready(35) = 0 THEN
          THREAD CREATE FT35(999) TO hThread35   : THREAD CLOSE hThread35 TO hThread35
      END IF
      IF Ready(36) = 0 THEN
          THREAD CREATE FT36(999) TO hThread36   : THREAD CLOSE hThread36 TO hThread36
      END IF
      IF Ready(37) = 0 THEN
          THREAD CREATE FT37(999) TO hThread37   : THREAD CLOSE hThread37 TO hThread37
      END IF
      IF Ready(38) = 0 THEN
          THREAD CREATE FT38(999) TO hThread38   : THREAD CLOSE hThread38 TO hThread38
      END IF
      IF Ready(39) = 0 THEN
          THREAD CREATE FT39(999) TO hThread39   : THREAD CLOSE hThread39 TO hThread39
      END IF
      IF Ready(40) = 0 THEN
          THREAD CREATE FT40(999) TO hThread40   : THREAD CLOSE hThread40 TO hThread40
      END IF
      IF Ready(41) = 0 THEN
          THREAD CREATE FT41(999) TO hThread41   : THREAD CLOSE hThread41 TO hThread41
      END IF
      IF Ready(42) = 0 THEN
          THREAD CREATE FT42(999) TO hThread42   : THREAD CLOSE hThread42 TO hThread42
      END IF
      IF Ready(43) = 0 THEN
          THREAD CREATE FT43(999) TO hThread43   : THREAD CLOSE hThread43 TO hThread43
      END IF
      IF Ready(44) = 0 THEN
          THREAD CREATE FT44(999) TO hThread44   : THREAD CLOSE hThread44 TO hThread44
      END IF
      IF Ready(45) = 0 THEN
          THREAD CREATE FT45(999) TO hThread45   : THREAD CLOSE hThread45 TO hThread45
      END IF
      IF Ready(46) = 0 THEN
          THREAD CREATE FT46(999) TO hThread46   : THREAD CLOSE hThread46 TO hThread46
      END IF
      IF Ready(47) = 0 THEN
          THREAD CREATE FT47(999) TO hThread47   : THREAD CLOSE hThread47 TO hThread47
      END IF
      IF Ready(48) = 0 THEN
          THREAD CREATE FT48(999) TO hThread48   : THREAD CLOSE hThread48 TO hThread48
      END IF
      IF Ready(49) = 0 THEN
          THREAD CREATE FT49(999) TO hThread49   : THREAD CLOSE hThread49 TO hThread49
      END IF
      IF Ready(50) = 0 THEN
          THREAD CREATE FT50(999) TO hThread50   : THREAD CLOSE hThread50 TO hThread50
      END IF
    
    
      IF giSaveAndLoad = 0 THEN
          THREAD CREATE SALThread(999) TO hThreadSAL   : THREAD CLOSE hThreadSAL TO hThreadSAL
      END IF
      'wait for threads to start running
      SLEEP 20
    END SUB
    
    SUB SaveAndLoad
      LOCAL lResult AS LONG
    
      Takeabreak = 1
      QueryPerformanceCounter qStopProcess
      qProcessAccum = qProcessAccum + (qStopProcess - qStartProcess)
    
      QueryPerformanceCounter qStartSave
    
      CALL Save01to50Files
      CALL Save51to100Files
    
      QueryPerformanceCounter qStopSave
      qSaveAccum = qSaveAccum + (qStopSave - qStartSave)
    
      IF ( (qStopSave - qStartSave)/qFreq ) > .8 THEN   '> .185 saturation remediation
          PostMessage hDlg, %WM_COMMAND, %IDC_SaveWait, 0
          DriveTroubles = DriveTroubles + 1
          ReadIssueCnt = 0
          IF giTypeMitigateA THEN
              CALL SimpleDriveSaturationRemediation
          END IF
      END IF
    
      StartPT = NextPT
    
      IF giTypeRunB = 1 THEN
          SELECT CASE StartPT
              CASE 2001, 4001, 6001, 8001, _
                   10001, 12001, 14001, 16001, _
                   18001, 20001, 22001, 24001, _
                   26001, 28001, 30001, 32001, _
                   34001, 36001, 38001, 40001, _
                   42001, 44001, 46001, 48001
                  IF StartPT < FileTotal THEN
                      FilesAccum = FilesAccum + 2000
                  END IF
          END SELECT
      END IF
    
      IF StartPT > FileTotal THEN
          QueryPerformanceCounter   qStop
          qRunAccum = qRunAccum + (qStop - qStart)
          PostMessage hDlg, %WM_COMMAND, %IDC_Finished, 0
          EXIT SUB
      END IF
    
      CALL Load100FilesIntoVariables
    
    END SUB
    
    SUB Load100FilesIntoVariables
      QueryPerformanceCounter qStartRead
    
      'Signal to load the array into variables
      CALL Read01to100Files
    
      QueryPerformanceCounter qStopRead
      qReadAccum = qReadAccum + (qStopRead - qStartRead)
    
      NextPT = StartPT + %ProcessCnt
    
      Takeabreak = 0
      CALL FireTheThreads  'calling threads to process the files
    END SUB
    
    
    SUB FireTheThreads
      QueryPerformanceCounter qStartProcess
      SELECT CASE ThreadCnt
          CASE 50
              FireIt(01) = 1
              FireIt(02) = 1
              FireIt(03) = 1
              FireIt(04) = 1
              FireIt(05) = 1
              FireIt(06) = 1
              FireIt(07) = 1
              FireIt(08) = 1
              FireIt(09) = 1
              FireIt(10) = 1
              FireIt(11) = 1
              FireIt(12) = 1
              FireIt(13) = 1
              FireIt(14) = 1
              FireIt(15) = 1
              FireIt(16) = 1
              FireIt(17) = 1
              FireIt(18) = 1
              FireIt(19) = 1
              FireIt(20) = 1
              FireIt(21) = 1
              FireIt(22) = 1
              FireIt(23) = 1
              FireIt(24) = 1
              FireIt(25) = 1
              FireIt(26) = 1
              FireIt(27) = 1
              FireIt(28) = 1
              FireIt(29) = 1
              FireIt(30) = 1
              FireIt(31) = 1
              FireIt(32) = 1
              FireIt(33) = 1
              FireIt(34) = 1
              FireIt(35) = 1
              FireIt(36) = 1
              FireIt(37) = 1
              FireIt(38) = 1
              FireIt(39) = 1
              FireIt(40) = 1
              FireIt(41) = 1
              FireIt(42) = 1
              FireIt(43) = 1
              FireIt(44) = 1
              FireIt(45) = 1
              FireIt(46) = 1
              FireIt(47) = 1
              FireIt(48) = 1
              FireIt(49) = 1
              FireIt(50) = 1
      END SELECT
    END SUB
    
    THREAD FUNCTION SALThread(BYVAL x AS LONG) AS LONG
    
        giSaveAndLoad = 1
    
        WHILE giAppRunning = 1
            IF DoInitialLoad = 1 THEN
                DoInitialLoad = 0
                Takeabreak = 1
                'Fetch the files and load them into an array
                'CALL FetchFiles
                CALL Load100FilesIntoVariables
    
            END IF
            IF SaveAndLoadIt = 1 THEN
                SaveAndLoadIt = 0
    
                CALL SaveAndLoad
    
            END IF
            IF giAppRunning = 1 THEN
                SLEEP BreakTime
            END IF
        WEND
        giSaveAndLoad = 0
    END FUNCTION
    
    'Example of Parallel Computing
    THREAD FUNCTION FT01(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(01) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(01) = 1 THEN
                FireIt(01) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify01to02Files
                    END SELECT
    
                END IF
            END IF
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(01) = 0
    END FUNCTION
    
    THREAD FUNCTION FT02(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(02) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(02) = 1 THEN
                FireIt(02) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify03to04Files
                    END SELECT
                END IF
            END IF
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(02) = 0
    END FUNCTION
    
    THREAD FUNCTION FT03(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(03) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(03) = 1 THEN
                FireIt(03) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify05to06Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(03) = 0
    END FUNCTION
    
    THREAD FUNCTION FT04(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(04) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(04) = 1 THEN
                FireIt(04) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify07to08Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(04) = 0
    END FUNCTION
    
    THREAD FUNCTION FT05(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(05) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(05) = 1 THEN
                FireIt(05) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify09to10Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(05) = 0
    END FUNCTION
    
    THREAD FUNCTION FT06(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(06) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(06) = 1 THEN
                FireIt(06) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify11to12Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(06) = 0
    END FUNCTION
    
    THREAD FUNCTION FT07(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(07) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(07) = 1 THEN
                FireIt(07) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify13to14Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(07) = 0
    END FUNCTION
    
    THREAD FUNCTION FT08(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(08) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(08) = 1 THEN
                FireIt(08) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify15to16Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(08) = 0
    END FUNCTION
    
    THREAD FUNCTION FT09(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(09) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(09) = 1 THEN
                FireIt(09) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify17to18Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(09) = 0
    END FUNCTION
    
    THREAD FUNCTION FT10(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(10) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(10) = 1 THEN
                FireIt(10) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify19to20Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(10) = 0
    END FUNCTION
    
    THREAD FUNCTION FT11(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(11) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(11) = 1 THEN
                FireIt(11) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify21to22Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(11) = 0
    END FUNCTION
    
    THREAD FUNCTION FT12(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(12) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(12) = 1 THEN
                FireIt(12) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify23to24Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(12) = 0
    END FUNCTION
    
    THREAD FUNCTION FT13(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(13) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(13) = 1 THEN
                FireIt(13) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify25to26Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(13) = 0
    END FUNCTION
    
    THREAD FUNCTION FT14(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(14) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(14) = 1 THEN
                FireIt(14) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify27to28Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(14) = 0
    END FUNCTION
    
    THREAD FUNCTION FT15(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(15) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(15) = 1 THEN
                FireIt(15) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify29to30Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(15) = 0
    END FUNCTION
    
    THREAD FUNCTION FT16(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(16) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(16) = 1 THEN
                FireIt(16) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify31to32Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(16) = 0
    END FUNCTION
    
    THREAD FUNCTION FT17(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(17) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(17) = 1 THEN
                FireIt(17) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify33to34Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(17) = 0
    END FUNCTION
    
    THREAD FUNCTION FT18(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(18) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(18) = 1 THEN
                FireIt(18) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify35to36Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(18) = 0
    END FUNCTION
    
    THREAD FUNCTION FT19(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(19) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(19) = 1 THEN
                FireIt(19) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify37to38Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(19) = 0
    END FUNCTION
    
    THREAD FUNCTION FT20(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(20) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(20) = 1 THEN
                FireIt(20) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify39to40Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(20) = 0
    END FUNCTION
    
    THREAD FUNCTION FT21(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(21) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(21) = 1 THEN
                FireIt(21) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify41to42Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(21) = 0
    END FUNCTION
    
    THREAD FUNCTION FT22(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(22) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(22) = 1 THEN
                FireIt(22) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify43to44Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(22) = 0
    END FUNCTION
    
    THREAD FUNCTION FT23(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(23) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(23) = 1 THEN
                FireIt(23) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify45to46Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(23) = 0
    END FUNCTION
    
    THREAD FUNCTION FT24(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(24) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(24) = 1 THEN
                FireIt(24) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify47to48Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(24) = 0
    END FUNCTION
    
    THREAD FUNCTION FT25(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(25) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(25) = 1 THEN
                FireIt(25) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify49to50Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(25) = 0
    END FUNCTION
    
    THREAD FUNCTION FT26(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(26) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(26) = 1 THEN
                FireIt(26) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify51to52Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(26) = 0
    END FUNCTION
    
    THREAD FUNCTION FT27(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(27) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(27) = 1 THEN
                FireIt(27) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify53to54Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(27) = 0
    END FUNCTION
    
    THREAD FUNCTION FT28(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(28) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(28) = 1 THEN
                FireIt(28) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify55to56Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(28) = 0
    END FUNCTION
    
    THREAD FUNCTION FT29(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(29) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(29) = 1 THEN
                FireIt(29) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify57to58Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(29) = 0
    END FUNCTION
    
    THREAD FUNCTION FT30(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(30) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(30) = 1 THEN
                FireIt(30) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify59to60Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(30) = 0
    END FUNCTION
    
    THREAD FUNCTION FT31(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(31) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(31) = 1 THEN
                FireIt(31) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify61to62Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(31) = 0
    END FUNCTION
    
    THREAD FUNCTION FT32(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(32) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(32) = 1 THEN
                FireIt(32) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify63to64Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(32) = 0
    END FUNCTION
    
    THREAD FUNCTION FT33(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(33) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(33) = 1 THEN
                FireIt(33) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify65to66Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(33) = 0
    END FUNCTION
    
    THREAD FUNCTION FT34(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(34) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(34) = 1 THEN
                FireIt(34) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify67to68Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(34) = 0
    END FUNCTION
    
    THREAD FUNCTION FT35(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(35) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(35) = 1 THEN
                FireIt(35) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify69to70Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(35) = 0
    END FUNCTION
    
    THREAD FUNCTION FT36(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(36) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(36) = 1 THEN
                FireIt(36) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify71to72Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(36) = 0
    END FUNCTION
    
    THREAD FUNCTION FT37(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(37) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(37) = 1 THEN
                FireIt(37) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify73to74Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(37) = 0
    END FUNCTION
    
    THREAD FUNCTION FT38(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(38) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(38) = 1 THEN
                FireIt(38) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify75to76Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(38) = 0
    END FUNCTION
    
    THREAD FUNCTION FT39(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(39) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(39) = 1 THEN
                FireIt(39) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify77to78Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(39) = 0
    END FUNCTION
    
    THREAD FUNCTION FT40(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(40) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(40) = 1 THEN
                FireIt(40) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify79to80Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(40) = 0
    END FUNCTION
    
    THREAD FUNCTION FT41(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(41) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(41) = 1 THEN
                FireIt(41) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify81to82Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(41) = 0
    END FUNCTION
    
    THREAD FUNCTION FT42(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(42) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(42) = 1 THEN
                FireIt(42) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify83to84Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(42) = 0
    END FUNCTION
    
    THREAD FUNCTION FT43(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(43) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(43) = 1 THEN
                FireIt(43) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify85to86Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(43) = 0
    END FUNCTION
    
    THREAD FUNCTION FT44(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(44) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(44) = 1 THEN
                FireIt(44) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify87to88Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(44) = 0
    END FUNCTION
    
    THREAD FUNCTION FT45(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(45) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(45) = 1 THEN
                FireIt(45) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify89to90Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(45) = 0
    END FUNCTION
    
    THREAD FUNCTION FT46(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(46) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(46) = 1 THEN
                FireIt(46) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify91to92Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(46) = 0
    END FUNCTION
    
    THREAD FUNCTION FT47(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(47) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(47) = 1 THEN
                FireIt(47) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify93to94Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(47) = 0
    END FUNCTION
    
    THREAD FUNCTION FT48(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(48) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(48) = 1 THEN
                FireIt(48) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify95to96Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(48) = 0
    END FUNCTION
    
    THREAD FUNCTION FT49(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(49) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(49) = 1 THEN
                FireIt(49) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify97to98Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(49) = 0
    END FUNCTION
    
    THREAD FUNCTION FT50(BYVAL x AS LONG) AS LONG
        LOCAL I AS LONG
    
        Ready(50) = 1
    
        WHILE giAppRunning = 1
            IF FireIt(50) = 1 THEN
                FireIt(50) = 0
                Takeabreak = 0
                IF StopAction = 0 AND giAppRunning = 1 THEN
                    SELECT CASE ThreadCnt
                        CASE 50
                            CALL Modify99to100Files
                    END SELECT
                END IF
            END IF
    
            IF giAppRunning = 1 THEN
                SELECT CASE Takeabreak
                    CASE 0
                        SLEEP BreakTime
                    CASE 1
                        FOR I = 1 TO 50
                            IF Takeabreak = 0 THEN EXIT SELECT
                            SLEEP 2
                        NEXT I
                END SELECT
            END IF
        WEND
        Ready(50) = 0
    END FUNCTION
    
    
    SUB GetTheBlockCount
      SELECT CASE StartPT
          CASE 1
              BlockCount = 0
          CASE 2001
              BlockCount = 1
          CASE 4001
              BlockCount = 2
          CASE 6001
              BlockCount = 3
          CASE 8001
              BlockCount = 4
          CASE 10001
              BlockCount = 5
          CASE 12001
              BlockCount = 6
          CASE 14001
              BlockCount = 7
          CASE 16001
              BlockCount = 8
          CASE 18001
              BlockCount = 9
          CASE 20001
              BlockCount = 10
          CASE 22001
              BlockCount = 11
          CASE 24001
              BlockCount = 12
          CASE 26001
              BlockCount = 13
          CASE 28001
              BlockCount = 14
          CASE 30001
              BlockCount = 15
          CASE 32001
              BlockCount = 16
          CASE 34001
              BlockCount = 17
          CASE 36001
              BlockCount = 18
          CASE 38001
              BlockCount = 19
          CASE 40001
              BlockCount = 20
          CASE 42001
              BlockCount = 21
          CASE 44001
              BlockCount = 22
          CASE 46001
              BlockCount = 23
          CASE 48001
              BlockCount = 24
          'CASE 50001          'not used
          '    BlockCount = 25
      END SELECT
    END SUB
    
    SUB Read01to100Files    'Read 100 files in
      LOCAL RetroCount AS LONG
      LOCAL Result     AS LONG
      LOCAL i01        AS LONG
      LOCAL Seq        AS LONG
    
      CALL GetTheBlockCount
    
      RetroCount = StartPT - (BlockCount * 2000)
    
      PostMessage hDlg, %WM_COMMAND, %IDC_FetchMsg_1, 0
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 00) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File01 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 01) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File02 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 02) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File03 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 03) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File04 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 04) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File05 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 05) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File06 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 06) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File07 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 07) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File08 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 08) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File09 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 09) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File10 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 10) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File11 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 11) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File12 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 12) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File13 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 13) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File14 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 14) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File15 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 15) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File16 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 16) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File17 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 17) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File18 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 18) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File19 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 19) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File20 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 20) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File21 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 21) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File22 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 22) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File23 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 23) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File24 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 24) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File25 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 25) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File26 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 26) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File27 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 27) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File28 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 28) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File29 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 29) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File30 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 30) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File31 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 31) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File32 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 32) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File33 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 33) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File34 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 34) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File35 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 35) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File36 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 36) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File37 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 37) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File38 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 38) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File39 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 39) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File40 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 40) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File41 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 41) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File42 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 42) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File43 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 43) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File44 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 44) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File45 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 45) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File46 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 46) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File47 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 47) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File48 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 48) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File49 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 49) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File50 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 50) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File51 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 51) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File52 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 52) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File53 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 53) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File54 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 54) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File55 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 55) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File56 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 56) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File57 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 57) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File58 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 58) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File59 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 59) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File60 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 60) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File61 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 61) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File62 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 62) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File63 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 63) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File64 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 64) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File65 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 65) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File66 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 66) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File67 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 67) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File68 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 68) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File69 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 69) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File70 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 70) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File71 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 71) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File72 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 72) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File73 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 73) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File74 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 74) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File75 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 75) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File76 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 76) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File77 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 77) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File78 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 78) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File79 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 79) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File80 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 80) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File81 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 81) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File82 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 82) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File83 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 83) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File84 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 84) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File85 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 85) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File86 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 86) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File87 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 87) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File88 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 88) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File89 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 89) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File90 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 90) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File91 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 91) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File92 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 92) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File93 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 93) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File94 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 94) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File95 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 95) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File96 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 96) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File97 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 97) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File98 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 98) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File99 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsReadPath + URLS(RetroCount + 99) FOR BINARY AS #i01 : GET$ #i01, LOF(i01), File100 : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
    
    
      PostMessage hDlg, %WM_COMMAND, %IDC_FetchMsg_2, 0
    END SUB
    
    
    SUB SimpleDriveSaturationRemediation
      Takeabreak = 1
      SLEEP IssueWait
      Takeabreak = 0
    END SUB
    
    SUB Mod_01
      'do something to the content
      REPLACE "a" WITH "z" IN File01
      REPLACE "e" WITH "z" IN File01
      REPLACE "i" WITH "z" IN File01
      REPLACE "o" WITH "z" IN File01
      REPLACE "u" WITH "z" IN File01
    END SUB
    SUB Mod_02
      'do something to the content
      REPLACE "a" WITH "z" IN File02
      REPLACE "e" WITH "z" IN File02
      REPLACE "i" WITH "z" IN File02
      REPLACE "o" WITH "z" IN File02
      REPLACE "u" WITH "z" IN File02
    END SUB
    SUB Mod_03
      'do something to the content
      REPLACE "a" WITH "z" IN File03
      REPLACE "e" WITH "z" IN File03
      REPLACE "i" WITH "z" IN File03
      REPLACE "o" WITH "z" IN File03
      REPLACE "u" WITH "z" IN File03
    END SUB
    SUB Mod_04
      'do something to the content
      REPLACE "a" WITH "z" IN File04
      REPLACE "e" WITH "z" IN File04
      REPLACE "i" WITH "z" IN File04
      REPLACE "o" WITH "z" IN File04
      REPLACE "u" WITH "z" IN File04
    END SUB
    SUB Mod_05
      'do something to the content
      REPLACE "a" WITH "z" IN File05
      REPLACE "e" WITH "z" IN File05
      REPLACE "i" WITH "z" IN File05
      REPLACE "o" WITH "z" IN File05
      REPLACE "u" WITH "z" IN File05
    END SUB
    SUB Mod_06
      'do something to the content
      REPLACE "a" WITH "z" IN File06
      REPLACE "e" WITH "z" IN File06
      REPLACE "i" WITH "z" IN File06
      REPLACE "o" WITH "z" IN File06
      REPLACE "u" WITH "z" IN File06
    END SUB
    SUB Mod_07
      'do something to the content
      REPLACE "a" WITH "z" IN File07
      REPLACE "e" WITH "z" IN File07
      REPLACE "i" WITH "z" IN File07
      REPLACE "o" WITH "z" IN File07
      REPLACE "u" WITH "z" IN File07
    END SUB
    SUB Mod_08
      'do something to the content
      REPLACE "a" WITH "z" IN File08
      REPLACE "e" WITH "z" IN File08
      REPLACE "i" WITH "z" IN File08
      REPLACE "o" WITH "z" IN File08
      REPLACE "u" WITH "z" IN File08
    END SUB
    SUB Mod_09
      'do something to the content
      REPLACE "a" WITH "z" IN File09
      REPLACE "e" WITH "z" IN File09
      REPLACE "i" WITH "z" IN File09
      REPLACE "o" WITH "z" IN File09
      REPLACE "u" WITH "z" IN File09
    END SUB
    SUB Mod_10
      'do something to the content
      REPLACE "a" WITH "z" IN File10
      REPLACE "e" WITH "z" IN File10
      REPLACE "i" WITH "z" IN File10
      REPLACE "o" WITH "z" IN File10
      REPLACE "u" WITH "z" IN File10
    END SUB
    SUB Mod_11
      'do something to the content
      REPLACE "a" WITH "z" IN File11
      REPLACE "e" WITH "z" IN File11
      REPLACE "i" WITH "z" IN File11
      REPLACE "o" WITH "z" IN File11
      REPLACE "u" WITH "z" IN File11
    END SUB
    SUB Mod_12
      'do something to the content
      REPLACE "a" WITH "z" IN File12
      REPLACE "e" WITH "z" IN File12
      REPLACE "i" WITH "z" IN File12
      REPLACE "o" WITH "z" IN File12
      REPLACE "u" WITH "z" IN File12
    END SUB
    SUB Mod_13
      'do something to the content
      REPLACE "a" WITH "z" IN File13
      REPLACE "e" WITH "z" IN File13
      REPLACE "i" WITH "z" IN File13
      REPLACE "o" WITH "z" IN File13
      REPLACE "u" WITH "z" IN File13
    END SUB
    SUB Mod_14
      'do something to the content
      REPLACE "a" WITH "z" IN File14
      REPLACE "e" WITH "z" IN File14
      REPLACE "i" WITH "z" IN File14
      REPLACE "o" WITH "z" IN File14
      REPLACE "u" WITH "z" IN File14
    END SUB
    SUB Mod_15
      'do something to the content
      REPLACE "a" WITH "z" IN File15
      REPLACE "e" WITH "z" IN File15
      REPLACE "i" WITH "z" IN File15
      REPLACE "o" WITH "z" IN File15
      REPLACE "u" WITH "z" IN File15
    END SUB
    SUB Mod_16
      'do something to the content
      REPLACE "a" WITH "z" IN File16
      REPLACE "e" WITH "z" IN File16
      REPLACE "i" WITH "z" IN File16
      REPLACE "o" WITH "z" IN File16
      REPLACE "u" WITH "z" IN File16
    END SUB
    SUB Mod_17
      'do something to the content
      REPLACE "a" WITH "z" IN File17
      REPLACE "e" WITH "z" IN File17
      REPLACE "i" WITH "z" IN File17
      REPLACE "o" WITH "z" IN File17
      REPLACE "u" WITH "z" IN File17
    END SUB
    SUB Mod_18
      'do something to the content
      REPLACE "a" WITH "z" IN File18
      REPLACE "e" WITH "z" IN File18
      REPLACE "i" WITH "z" IN File18
      REPLACE "o" WITH "z" IN File18
      REPLACE "u" WITH "z" IN File18
    END SUB
    SUB Mod_19
      'do something to the content
      REPLACE "a" WITH "z" IN File19
      REPLACE "e" WITH "z" IN File19
      REPLACE "i" WITH "z" IN File19
      REPLACE "o" WITH "z" IN File19
      REPLACE "u" WITH "z" IN File19
    END SUB
    SUB Mod_20
      'do something to the content
      REPLACE "a" WITH "z" IN File20
      REPLACE "e" WITH "z" IN File20
      REPLACE "i" WITH "z" IN File20
      REPLACE "o" WITH "z" IN File20
      REPLACE "u" WITH "z" IN File20
    END SUB
    SUB Mod_21
      'do something to the content
      REPLACE "a" WITH "z" IN File21
      REPLACE "e" WITH "z" IN File21
      REPLACE "i" WITH "z" IN File21
      REPLACE "o" WITH "z" IN File21
      REPLACE "u" WITH "z" IN File21
    END SUB
    SUB Mod_22
      'do something to the content
      REPLACE "a" WITH "z" IN File22
      REPLACE "e" WITH "z" IN File22
      REPLACE "i" WITH "z" IN File22
      REPLACE "o" WITH "z" IN File22
      REPLACE "u" WITH "z" IN File22
    END SUB
    SUB Mod_23
      'do something to the content
      REPLACE "a" WITH "z" IN File23
      REPLACE "e" WITH "z" IN File23
      REPLACE "i" WITH "z" IN File23
      REPLACE "o" WITH "z" IN File23
      REPLACE "u" WITH "z" IN File23
    END SUB
    SUB Mod_24
      'do something to the content
      REPLACE "a" WITH "z" IN File24
      REPLACE "e" WITH "z" IN File24
      REPLACE "i" WITH "z" IN File24
      REPLACE "o" WITH "z" IN File24
      REPLACE "u" WITH "z" IN File24
    END SUB
    SUB Mod_25
      'do something to the content
      REPLACE "a" WITH "z" IN File25
      REPLACE "e" WITH "z" IN File25
      REPLACE "i" WITH "z" IN File25
      REPLACE "o" WITH "z" IN File25
      REPLACE "u" WITH "z" IN File25
    END SUB
    SUB Mod_26
      'do something to the content
      REPLACE "a" WITH "z" IN File26
      REPLACE "e" WITH "z" IN File26
      REPLACE "i" WITH "z" IN File26
      REPLACE "o" WITH "z" IN File26
      REPLACE "u" WITH "z" IN File26
    END SUB
    SUB Mod_27
      'do something to the content
      REPLACE "a" WITH "z" IN File27
      REPLACE "e" WITH "z" IN File27
      REPLACE "i" WITH "z" IN File27
      REPLACE "o" WITH "z" IN File27
      REPLACE "u" WITH "z" IN File27
    END SUB
    SUB Mod_28
      'do something to the content
      REPLACE "a" WITH "z" IN File28
      REPLACE "e" WITH "z" IN File28
      REPLACE "i" WITH "z" IN File28
      REPLACE "o" WITH "z" IN File28
      REPLACE "u" WITH "z" IN File28
    END SUB
    SUB Mod_29
      'do something to the content
      REPLACE "a" WITH "z" IN File29
      REPLACE "e" WITH "z" IN File29
      REPLACE "i" WITH "z" IN File29
      REPLACE "o" WITH "z" IN File29
      REPLACE "u" WITH "z" IN File29
    END SUB
    SUB Mod_30
      'do something to the content
      REPLACE "a" WITH "z" IN File30
      REPLACE "e" WITH "z" IN File30
      REPLACE "i" WITH "z" IN File30
      REPLACE "o" WITH "z" IN File30
      REPLACE "u" WITH "z" IN File30
    END SUB
    SUB Mod_31
      'do something to the content
      REPLACE "a" WITH "z" IN File31
      REPLACE "e" WITH "z" IN File31
      REPLACE "i" WITH "z" IN File31
      REPLACE "o" WITH "z" IN File31
      REPLACE "u" WITH "z" IN File31
    END SUB
    SUB Mod_32
      'do something to the content
      REPLACE "a" WITH "z" IN File32
      REPLACE "e" WITH "z" IN File32
      REPLACE "i" WITH "z" IN File32
      REPLACE "o" WITH "z" IN File32
      REPLACE "u" WITH "z" IN File32
    END SUB
    SUB Mod_33
      'do something to the content
      REPLACE "a" WITH "z" IN File33
      REPLACE "e" WITH "z" IN File33
      REPLACE "i" WITH "z" IN File33
      REPLACE "o" WITH "z" IN File33
      REPLACE "u" WITH "z" IN File33
    END SUB
    SUB Mod_34
      'do something to the content
      REPLACE "a" WITH "z" IN File34
      REPLACE "e" WITH "z" IN File34
      REPLACE "i" WITH "z" IN File34
      REPLACE "o" WITH "z" IN File34
      REPLACE "u" WITH "z" IN File34
    END SUB
    SUB Mod_35
      'do something to the content
      REPLACE "a" WITH "z" IN File35
      REPLACE "e" WITH "z" IN File35
      REPLACE "i" WITH "z" IN File35
      REPLACE "o" WITH "z" IN File35
      REPLACE "u" WITH "z" IN File35
    END SUB
    SUB Mod_36
      'do something to the content
      REPLACE "a" WITH "z" IN File36
      REPLACE "e" WITH "z" IN File36
      REPLACE "i" WITH "z" IN File36
      REPLACE "o" WITH "z" IN File36
      REPLACE "u" WITH "z" IN File36
    END SUB
    SUB Mod_37
      'do something to the content
      REPLACE "a" WITH "z" IN File37
      REPLACE "e" WITH "z" IN File37
      REPLACE "i" WITH "z" IN File37
      REPLACE "o" WITH "z" IN File37
      REPLACE "u" WITH "z" IN File37
    END SUB
    SUB Mod_38
      'do something to the content
      REPLACE "a" WITH "z" IN File38
      REPLACE "e" WITH "z" IN File38
      REPLACE "i" WITH "z" IN File38
      REPLACE "o" WITH "z" IN File38
      REPLACE "u" WITH "z" IN File38
    END SUB
    SUB Mod_39
      'do something to the content
      REPLACE "a" WITH "z" IN File39
      REPLACE "e" WITH "z" IN File39
      REPLACE "i" WITH "z" IN File39
      REPLACE "o" WITH "z" IN File39
      REPLACE "u" WITH "z" IN File39
    END SUB
    SUB Mod_40
      'do something to the content
      REPLACE "a" WITH "z" IN File40
      REPLACE "e" WITH "z" IN File40
      REPLACE "i" WITH "z" IN File40
      REPLACE "o" WITH "z" IN File40
      REPLACE "u" WITH "z" IN File40
    END SUB
    SUB Mod_41
      'do something to the content
      REPLACE "a" WITH "z" IN File41
      REPLACE "e" WITH "z" IN File41
      REPLACE "i" WITH "z" IN File41
      REPLACE "o" WITH "z" IN File41
      REPLACE "u" WITH "z" IN File41
    END SUB
    SUB Mod_42
      'do something to the content
      REPLACE "a" WITH "z" IN File42
      REPLACE "e" WITH "z" IN File42
      REPLACE "i" WITH "z" IN File42
      REPLACE "o" WITH "z" IN File42
      REPLACE "u" WITH "z" IN File42
    END SUB
    SUB Mod_43
      'do something to the content
      REPLACE "a" WITH "z" IN File43
      REPLACE "e" WITH "z" IN File43
      REPLACE "i" WITH "z" IN File43
      REPLACE "o" WITH "z" IN File43
      REPLACE "u" WITH "z" IN File43
    END SUB
    SUB Mod_44
      'do something to the content
      REPLACE "a" WITH "z" IN File44
      REPLACE "e" WITH "z" IN File44
      REPLACE "i" WITH "z" IN File44
      REPLACE "o" WITH "z" IN File44
      REPLACE "u" WITH "z" IN File44
    END SUB
    SUB Mod_45
      'do something to the content
      REPLACE "a" WITH "z" IN File45
      REPLACE "e" WITH "z" IN File45
      REPLACE "i" WITH "z" IN File45
      REPLACE "o" WITH "z" IN File45
      REPLACE "u" WITH "z" IN File45
    END SUB
    SUB Mod_46
      'do something to the content
      REPLACE "a" WITH "z" IN File46
      REPLACE "e" WITH "z" IN File46
      REPLACE "i" WITH "z" IN File46
      REPLACE "o" WITH "z" IN File46
      REPLACE "u" WITH "z" IN File46
    END SUB
    SUB Mod_47
      'do something to the content
      REPLACE "a" WITH "z" IN File47
      REPLACE "e" WITH "z" IN File47
      REPLACE "i" WITH "z" IN File47
      REPLACE "o" WITH "z" IN File47
      REPLACE "u" WITH "z" IN File47
    END SUB
    SUB Mod_48
      'do something to the content
      REPLACE "a" WITH "z" IN File48
      REPLACE "e" WITH "z" IN File48
      REPLACE "i" WITH "z" IN File48
      REPLACE "o" WITH "z" IN File48
      REPLACE "u" WITH "z" IN File48
    END SUB
    SUB Mod_49
      'do something to the content
      REPLACE "a" WITH "z" IN File49
      REPLACE "e" WITH "z" IN File49
      REPLACE "i" WITH "z" IN File49
      REPLACE "o" WITH "z" IN File49
      REPLACE "u" WITH "z" IN File49
    END SUB
    SUB Mod_50
      'do something to the content
      REPLACE "a" WITH "z" IN File50
      REPLACE "e" WITH "z" IN File50
      REPLACE "i" WITH "z" IN File50
      REPLACE "o" WITH "z" IN File50
      REPLACE "u" WITH "z" IN File50
    END SUB
    
    SUB Mod_51
      'do something to the content
      REPLACE "a" WITH "z" IN File51
      REPLACE "e" WITH "z" IN File51
      REPLACE "i" WITH "z" IN File51
      REPLACE "o" WITH "z" IN File51
      REPLACE "u" WITH "z" IN File51
    END SUB
    SUB Mod_52
      'do something to the content
      REPLACE "a" WITH "z" IN File52
      REPLACE "e" WITH "z" IN File52
      REPLACE "i" WITH "z" IN File52
      REPLACE "o" WITH "z" IN File52
      REPLACE "u" WITH "z" IN File52
    END SUB
    SUB Mod_53
      'do something to the content
      REPLACE "a" WITH "z" IN File53
      REPLACE "e" WITH "z" IN File53
      REPLACE "i" WITH "z" IN File53
      REPLACE "o" WITH "z" IN File53
      REPLACE "u" WITH "z" IN File53
    END SUB
    SUB Mod_54
      'do something to the content
      REPLACE "a" WITH "z" IN File54
      REPLACE "e" WITH "z" IN File54
      REPLACE "i" WITH "z" IN File54
      REPLACE "o" WITH "z" IN File54
      REPLACE "u" WITH "z" IN File54
    END SUB
    SUB Mod_55
      'do something to the content
      REPLACE "a" WITH "z" IN File55
      REPLACE "e" WITH "z" IN File55
      REPLACE "i" WITH "z" IN File55
      REPLACE "o" WITH "z" IN File55
      REPLACE "u" WITH "z" IN File55
    END SUB
    SUB Mod_56
      'do something to the content
      REPLACE "a" WITH "z" IN File56
      REPLACE "e" WITH "z" IN File56
      REPLACE "i" WITH "z" IN File56
      REPLACE "o" WITH "z" IN File56
      REPLACE "u" WITH "z" IN File56
    END SUB
    SUB Mod_57
      'do something to the content
      REPLACE "a" WITH "z" IN File57
      REPLACE "e" WITH "z" IN File57
      REPLACE "i" WITH "z" IN File57
      REPLACE "o" WITH "z" IN File57
      REPLACE "u" WITH "z" IN File57
    END SUB
    SUB Mod_58
      'do something to the content
      REPLACE "a" WITH "z" IN File58
      REPLACE "e" WITH "z" IN File58
      REPLACE "i" WITH "z" IN File58
      REPLACE "o" WITH "z" IN File58
      REPLACE "u" WITH "z" IN File58
    END SUB
    SUB Mod_59
      'do something to the content
      REPLACE "a" WITH "z" IN File59
      REPLACE "e" WITH "z" IN File59
      REPLACE "i" WITH "z" IN File59
      REPLACE "o" WITH "z" IN File59
      REPLACE "u" WITH "z" IN File59
    END SUB
    SUB Mod_60
      'do something to the content
      REPLACE "a" WITH "z" IN File60
      REPLACE "e" WITH "z" IN File60
      REPLACE "i" WITH "z" IN File60
      REPLACE "o" WITH "z" IN File60
      REPLACE "u" WITH "z" IN File60
    END SUB
    SUB Mod_61
      'do something to the content
      REPLACE "a" WITH "z" IN File61
      REPLACE "e" WITH "z" IN File61
      REPLACE "i" WITH "z" IN File61
      REPLACE "o" WITH "z" IN File61
      REPLACE "u" WITH "z" IN File61
    END SUB
    SUB Mod_62
      'do something to the content
      REPLACE "a" WITH "z" IN File62
      REPLACE "e" WITH "z" IN File62
      REPLACE "i" WITH "z" IN File62
      REPLACE "o" WITH "z" IN File62
      REPLACE "u" WITH "z" IN File62
    END SUB
    SUB Mod_63
      'do something to the content
      REPLACE "a" WITH "z" IN File63
      REPLACE "e" WITH "z" IN File63
      REPLACE "i" WITH "z" IN File63
      REPLACE "o" WITH "z" IN File63
      REPLACE "u" WITH "z" IN File63
    END SUB
    SUB Mod_64
      'do something to the content
      REPLACE "a" WITH "z" IN File64
      REPLACE "e" WITH "z" IN File64
      REPLACE "i" WITH "z" IN File64
      REPLACE "o" WITH "z" IN File64
      REPLACE "u" WITH "z" IN File64
    END SUB
    SUB Mod_65
      'do something to the content
      REPLACE "a" WITH "z" IN File65
      REPLACE "e" WITH "z" IN File65
      REPLACE "i" WITH "z" IN File65
      REPLACE "o" WITH "z" IN File65
      REPLACE "u" WITH "z" IN File65
    END SUB
    SUB Mod_66
      'do something to the content
      REPLACE "a" WITH "z" IN File66
      REPLACE "e" WITH "z" IN File66
      REPLACE "i" WITH "z" IN File66
      REPLACE "o" WITH "z" IN File66
      REPLACE "u" WITH "z" IN File66
    END SUB
    SUB Mod_67
      'do something to the content
      REPLACE "a" WITH "z" IN File67
      REPLACE "e" WITH "z" IN File67
      REPLACE "i" WITH "z" IN File67
      REPLACE "o" WITH "z" IN File67
      REPLACE "u" WITH "z" IN File67
    END SUB
    SUB Mod_68
      'do something to the content
      REPLACE "a" WITH "z" IN File68
      REPLACE "e" WITH "z" IN File68
      REPLACE "i" WITH "z" IN File68
      REPLACE "o" WITH "z" IN File68
      REPLACE "u" WITH "z" IN File68
    END SUB
    SUB Mod_69
      'do something to the content
      REPLACE "a" WITH "z" IN File69
      REPLACE "e" WITH "z" IN File69
      REPLACE "i" WITH "z" IN File69
      REPLACE "o" WITH "z" IN File69
      REPLACE "u" WITH "z" IN File69
    END SUB
    SUB Mod_70
      'do something to the content
      REPLACE "a" WITH "z" IN File70
      REPLACE "e" WITH "z" IN File70
      REPLACE "i" WITH "z" IN File70
      REPLACE "o" WITH "z" IN File70
      REPLACE "u" WITH "z" IN File70
    END SUB
    SUB Mod_71
      'do something to the content
      REPLACE "a" WITH "z" IN File71
      REPLACE "e" WITH "z" IN File71
      REPLACE "i" WITH "z" IN File71
      REPLACE "o" WITH "z" IN File71
      REPLACE "u" WITH "z" IN File71
    END SUB
    SUB Mod_72
      'do something to the content
      REPLACE "a" WITH "z" IN File72
      REPLACE "e" WITH "z" IN File72
      REPLACE "i" WITH "z" IN File72
      REPLACE "o" WITH "z" IN File72
      REPLACE "u" WITH "z" IN File72
    END SUB
    SUB Mod_73
      'do something to the content
      REPLACE "a" WITH "z" IN File73
      REPLACE "e" WITH "z" IN File73
      REPLACE "i" WITH "z" IN File73
      REPLACE "o" WITH "z" IN File73
      REPLACE "u" WITH "z" IN File73
    END SUB
    SUB Mod_74
      'do something to the content
      REPLACE "a" WITH "z" IN File74
      REPLACE "e" WITH "z" IN File74
      REPLACE "i" WITH "z" IN File74
      REPLACE "o" WITH "z" IN File74
      REPLACE "u" WITH "z" IN File74
    END SUB
    SUB Mod_75
      'do something to the content
      REPLACE "a" WITH "z" IN File75
      REPLACE "e" WITH "z" IN File75
      REPLACE "i" WITH "z" IN File75
      REPLACE "o" WITH "z" IN File75
      REPLACE "u" WITH "z" IN File75
    END SUB
    SUB Mod_76
      'do something to the content
      REPLACE "a" WITH "z" IN File76
      REPLACE "e" WITH "z" IN File76
      REPLACE "i" WITH "z" IN File76
      REPLACE "o" WITH "z" IN File76
      REPLACE "u" WITH "z" IN File76
    END SUB
    SUB Mod_77
      'do something to the content
      REPLACE "a" WITH "z" IN File77
      REPLACE "e" WITH "z" IN File77
      REPLACE "i" WITH "z" IN File77
      REPLACE "o" WITH "z" IN File77
      REPLACE "u" WITH "z" IN File77
    END SUB
    SUB Mod_78
      'do something to the content
      REPLACE "a" WITH "z" IN File78
      REPLACE "e" WITH "z" IN File78
      REPLACE "i" WITH "z" IN File78
      REPLACE "o" WITH "z" IN File78
      REPLACE "u" WITH "z" IN File78
    END SUB
    SUB Mod_79
      'do something to the content
      REPLACE "a" WITH "z" IN File79
      REPLACE "e" WITH "z" IN File79
      REPLACE "i" WITH "z" IN File79
      REPLACE "o" WITH "z" IN File79
      REPLACE "u" WITH "z" IN File79
    END SUB
    SUB Mod_80
      'do something to the content
      REPLACE "a" WITH "z" IN File80
      REPLACE "e" WITH "z" IN File80
      REPLACE "i" WITH "z" IN File80
      REPLACE "o" WITH "z" IN File80
      REPLACE "u" WITH "z" IN File80
    END SUB
    SUB Mod_81
      'do something to the content
      REPLACE "a" WITH "z" IN File81
      REPLACE "e" WITH "z" IN File81
      REPLACE "i" WITH "z" IN File81
      REPLACE "o" WITH "z" IN File81
      REPLACE "u" WITH "z" IN File81
    END SUB
    SUB Mod_82
      'do something to the content
      REPLACE "a" WITH "z" IN File82
      REPLACE "e" WITH "z" IN File82
      REPLACE "i" WITH "z" IN File82
      REPLACE "o" WITH "z" IN File82
      REPLACE "u" WITH "z" IN File82
    END SUB
    SUB Mod_83
      'do something to the content
      REPLACE "a" WITH "z" IN File83
      REPLACE "e" WITH "z" IN File83
      REPLACE "i" WITH "z" IN File83
      REPLACE "o" WITH "z" IN File83
      REPLACE "u" WITH "z" IN File83
    END SUB
    SUB Mod_84
      'do something to the content
      REPLACE "a" WITH "z" IN File84
      REPLACE "e" WITH "z" IN File84
      REPLACE "i" WITH "z" IN File84
      REPLACE "o" WITH "z" IN File84
      REPLACE "u" WITH "z" IN File84
    END SUB
    SUB Mod_85
      'do something to the content
      REPLACE "a" WITH "z" IN File85
      REPLACE "e" WITH "z" IN File85
      REPLACE "i" WITH "z" IN File85
      REPLACE "o" WITH "z" IN File85
      REPLACE "u" WITH "z" IN File85
    END SUB
    SUB Mod_86
      'do something to the content
      REPLACE "a" WITH "z" IN File86
      REPLACE "e" WITH "z" IN File86
      REPLACE "i" WITH "z" IN File86
      REPLACE "o" WITH "z" IN File86
      REPLACE "u" WITH "z" IN File86
    END SUB
    SUB Mod_87
      'do something to the content
      REPLACE "a" WITH "z" IN File87
      REPLACE "e" WITH "z" IN File87
      REPLACE "i" WITH "z" IN File87
      REPLACE "o" WITH "z" IN File87
      REPLACE "u" WITH "z" IN File87
    END SUB
    SUB Mod_88
      'do something to the content
      REPLACE "a" WITH "z" IN File88
      REPLACE "e" WITH "z" IN File88
      REPLACE "i" WITH "z" IN File88
      REPLACE "o" WITH "z" IN File88
      REPLACE "u" WITH "z" IN File88
    END SUB
    SUB Mod_89
      'do something to the content
      REPLACE "a" WITH "z" IN File89
      REPLACE "e" WITH "z" IN File89
      REPLACE "i" WITH "z" IN File89
      REPLACE "o" WITH "z" IN File89
      REPLACE "u" WITH "z" IN File89
    END SUB
    SUB Mod_90
      'do something to the content
      REPLACE "a" WITH "z" IN File90
      REPLACE "e" WITH "z" IN File90
      REPLACE "i" WITH "z" IN File90
      REPLACE "o" WITH "z" IN File90
      REPLACE "u" WITH "z" IN File90
    END SUB
    SUB Mod_91
      'do something to the content
      REPLACE "a" WITH "z" IN File91
      REPLACE "e" WITH "z" IN File91
      REPLACE "i" WITH "z" IN File91
      REPLACE "o" WITH "z" IN File91
      REPLACE "u" WITH "z" IN File91
    END SUB
    SUB Mod_92
      'do something to the content
      REPLACE "a" WITH "z" IN File92
      REPLACE "e" WITH "z" IN File92
      REPLACE "i" WITH "z" IN File92
      REPLACE "o" WITH "z" IN File92
      REPLACE "u" WITH "z" IN File92
    END SUB
    SUB Mod_93
      'do something to the content
      REPLACE "a" WITH "z" IN File93
      REPLACE "e" WITH "z" IN File93
      REPLACE "i" WITH "z" IN File93
      REPLACE "o" WITH "z" IN File93
      REPLACE "u" WITH "z" IN File93
    END SUB
    SUB Mod_94
      'do something to the content
      REPLACE "a" WITH "z" IN File94
      REPLACE "e" WITH "z" IN File94
      REPLACE "i" WITH "z" IN File94
      REPLACE "o" WITH "z" IN File94
      REPLACE "u" WITH "z" IN File94
    END SUB
    SUB Mod_95
      'do something to the content
      REPLACE "a" WITH "z" IN File95
      REPLACE "e" WITH "z" IN File95
      REPLACE "i" WITH "z" IN File95
      REPLACE "o" WITH "z" IN File95
      REPLACE "u" WITH "z" IN File95
    END SUB
    SUB Mod_96
      'do something to the content
      REPLACE "a" WITH "z" IN File96
      REPLACE "e" WITH "z" IN File96
      REPLACE "i" WITH "z" IN File96
      REPLACE "o" WITH "z" IN File96
      REPLACE "u" WITH "z" IN File96
    END SUB
    SUB Mod_97
      'do something to the content
      REPLACE "a" WITH "z" IN File97
      REPLACE "e" WITH "z" IN File97
      REPLACE "i" WITH "z" IN File97
      REPLACE "o" WITH "z" IN File97
      REPLACE "u" WITH "z" IN File97
    END SUB
    SUB Mod_98
      'do something to the content
      REPLACE "a" WITH "z" IN File98
      REPLACE "e" WITH "z" IN File98
      REPLACE "i" WITH "z" IN File98
      REPLACE "o" WITH "z" IN File98
      REPLACE "u" WITH "z" IN File98
    END SUB
    SUB Mod_99
      'do something to the content
      REPLACE "a" WITH "z" IN File99
      REPLACE "e" WITH "z" IN File99
      REPLACE "i" WITH "z" IN File99
      REPLACE "o" WITH "z" IN File99
      REPLACE "u" WITH "z" IN File99
    END SUB
    SUB Mod_100
      'do something to the content
      REPLACE "a" WITH "z" IN File100
      REPLACE "e" WITH "z" IN File100
      REPLACE "i" WITH "z" IN File100
      REPLACE "o" WITH "z" IN File100
      REPLACE "u" WITH "z" IN File100
    END SUB
    
    
    SUB Modify01to02Files
    
      CALL Mod_01
      CALL Mod_02
    
      Completed(01) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify03to04Files
    
      CALL Mod_03
      CALL Mod_04
    
      Completed(02) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    
    SUB Modify05to06Files
    
      CALL Mod_05
      CALL Mod_06
    
      Completed(03) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    
    SUB Modify07to08Files
    
      CALL Mod_07
      CALL Mod_08
    
      Completed(04) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify09to10Files
    
      CALL Mod_09
      CALL Mod_10
    
      Completed(05) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify11to12Files
    
      CALL Mod_11
      CALL Mod_12
    
      Completed(06) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify13to14Files
    
      CALL Mod_13
      CALL Mod_14
    
      Completed(07) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify15to16Files
    
      CALL Mod_15
      CALL Mod_16
    
      Completed(08) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify17to18Files
    
      CALL Mod_17
      CALL Mod_18
    
      Completed(09) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify19to20Files
    
      CALL Mod_19
      CALL Mod_20
    
      Completed(10) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    
    SUB Modify21to22Files
    
      CALL Mod_21
      CALL Mod_22
    
      Completed(11) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify23to24Files
    
      CALL Mod_23
      CALL Mod_24
    
      Completed(12) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify25to26Files
    
      CALL Mod_25
      CALL Mod_26
    
      Completed(13) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify27to28Files
    
      CALL Mod_27
      CALL Mod_28
    
      Completed(14) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify29to30Files
    
      CALL Mod_29
      CALL Mod_30
    
      Completed(15) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify31to32Files
    
      CALL Mod_31
      CALL Mod_32
    
      Completed(16) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify33to34Files
    
      CALL Mod_33
      CALL Mod_34
    
      Completed(17) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify35to36Files
    
      CALL Mod_35
      CALL Mod_36
    
      Completed(18) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify37to38Files
    
      CALL Mod_37
      CALL Mod_38
    
      Completed(19) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify39to40Files
    
      CALL Mod_39
      CALL Mod_40
    
      Completed(20) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify41to42Files
    
      CALL Mod_41
      CALL Mod_42
    
      Completed(21) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify43to44Files
    
      CALL Mod_43
      CALL Mod_44
    
      Completed(22) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify45to46Files
    
      CALL Mod_45
      CALL Mod_46
    
      Completed(23) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify47to48Files
    
      CALL Mod_47
      CALL Mod_48
    
      Completed(24) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify49to50Files
    
      CALL Mod_49
      CALL Mod_50
    
      Completed(25) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify51to52Files
    
      CALL Mod_51
      CALL Mod_52
    
      Completed(26) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify53to54Files
    
      CALL Mod_53
      CALL Mod_54
    
      Completed(27) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify55to56Files
    
      CALL Mod_55
      CALL Mod_56
    
      Completed(28) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify57to58Files
    
      CALL Mod_57
      CALL Mod_58
    
      Completed(29) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify59to60Files
    
      CALL Mod_59
      CALL Mod_60
    
      Completed(30) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify61to62Files
    
      CALL Mod_61
      CALL Mod_62
    
      Completed(31) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify63to64Files
    
      CALL Mod_63
      CALL Mod_64
    
      Completed(32) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify65to66Files
    
      CALL Mod_65
      CALL Mod_66
    
      Completed(33) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify67to68Files
    
      CALL Mod_67
      CALL Mod_68
    
      Completed(34) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify69to70Files
    
      CALL Mod_69
      CALL Mod_70
    
      Completed(35) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify71to72Files
    
      CALL Mod_71
      CALL Mod_72
    
      Completed(36) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify73to74Files
    
      CALL Mod_73
      CALL Mod_74
    
      Completed(37) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify75to76Files
    
      CALL Mod_75
      CALL Mod_76
    
      Completed(38) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify77to78Files
    
      CALL Mod_77
      CALL Mod_78
    
      Completed(39) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify79to80Files
    
      CALL Mod_79
      CALL Mod_80
    
      Completed(40) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify81to82Files
    
      CALL Mod_81
      CALL Mod_82
    
      Completed(41) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify83to84Files
    
      CALL Mod_83
      CALL Mod_84
    
      Completed(42) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify85to86Files
    
      CALL Mod_85
      CALL Mod_86
    
      Completed(43) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify87to88Files
    
      CALL Mod_87
      CALL Mod_88
    
      Completed(44) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify89to90Files
    
      CALL Mod_89
      CALL Mod_90
    
      Completed(45) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify91to92Files
    
      CALL Mod_91
      CALL Mod_92
    
      Completed(46) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify93to94Files
    
      CALL Mod_93
      CALL Mod_94
    
      Completed(47) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify95to96Files
    
      CALL Mod_95
      CALL Mod_96
    
      Completed(48) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify97to98Files
    
      CALL Mod_97
      CALL Mod_98
    
      Completed(49) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Modify99to100Files
    
      CALL Mod_99
      CALL Mod_100
    
      Completed(50) = 1
    
      IF Completed(01) = 1 AND _
         Completed(02) = 1 AND _
         Completed(03) = 1 AND _
         Completed(04) = 1 AND _
         Completed(05) = 1 AND _
         Completed(06) = 1 AND _
         Completed(07) = 1 AND _
         Completed(08) = 1 AND _
         Completed(09) = 1 AND _
         Completed(10) = 1 AND _
         Completed(11) = 1 AND _
         Completed(12) = 1 AND _
         Completed(13) = 1 AND _
         Completed(14) = 1 AND _
         Completed(15) = 1 AND _
         Completed(16) = 1 AND _
         Completed(17) = 1 AND _
         Completed(18) = 1 AND _
         Completed(19) = 1 AND _
         Completed(20) = 1 AND _
         Completed(21) = 1 AND _
         Completed(22) = 1 AND _
         Completed(23) = 1 AND _
         Completed(24) = 1 AND _
         Completed(25) = 1 AND _
         Completed(26) = 1 AND _
         Completed(27) = 1 AND _
         Completed(28) = 1 AND _
         Completed(29) = 1 AND _
         Completed(30) = 1 AND _
         Completed(31) = 1 AND _
         Completed(32) = 1 AND _
         Completed(33) = 1 AND _
         Completed(34) = 1 AND _
         Completed(35) = 1 AND _
         Completed(36) = 1 AND _
         Completed(37) = 1 AND _
         Completed(38) = 1 AND _
         Completed(39) = 1 AND _
         Completed(40) = 1 AND _
         Completed(41) = 1 AND _
         Completed(42) = 1 AND _
         Completed(43) = 1 AND _
         Completed(44) = 1 AND _
         Completed(45) = 1 AND _
         Completed(46) = 1 AND _
         Completed(47) = 1 AND _
         Completed(48) = 1 AND _
         Completed(49) = 1 AND _
         Completed(50) = 1 THEN
          RESET Completed()
          SaveAndLoadIt = 1
      END IF
    END SUB
    
    SUB Save01to50Files
      LOCAL i01 AS LONG
      LOCAL Result AS LONG
    
      i01 = FREEFILE
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 00) FOR OUTPUT AS #i01 : PRINT #i01, File01; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File01 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 01) FOR OUTPUT AS #i01 : PRINT #i01, File02; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File02 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 02) FOR OUTPUT AS #i01 : PRINT #i01, File03; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File03 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 03) FOR OUTPUT AS #i01 : PRINT #i01, File04; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File04 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 04) FOR OUTPUT AS #i01 : PRINT #i01, File05; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File05 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 05) FOR OUTPUT AS #i01 : PRINT #i01, File06; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File06 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 06) FOR OUTPUT AS #i01 : PRINT #i01, File07; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File07 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 07) FOR OUTPUT AS #i01 : PRINT #i01, File08; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File08 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 08) FOR OUTPUT AS #i01 : PRINT #i01, File09; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File09 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 09) FOR OUTPUT AS #i01 : PRINT #i01, File10; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File10 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 10) FOR OUTPUT AS #i01 : PRINT #i01, File11; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File11 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 11) FOR OUTPUT AS #i01 : PRINT #i01, File12; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File12 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 12) FOR OUTPUT AS #i01 : PRINT #i01, File13; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File13 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 13) FOR OUTPUT AS #i01 : PRINT #i01, File14; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File14 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 14) FOR OUTPUT AS #i01 : PRINT #i01, File15; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File15 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 15) FOR OUTPUT AS #i01 : PRINT #i01, File16; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File16 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 16) FOR OUTPUT AS #i01 : PRINT #i01, File17; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File17 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 17) FOR OUTPUT AS #i01 : PRINT #i01, File18; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File18 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 18) FOR OUTPUT AS #i01 : PRINT #i01, File19; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File19 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 19) FOR OUTPUT AS #i01 : PRINT #i01, File20; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File20 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 20) FOR OUTPUT AS #i01 : PRINT #i01, File21; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File21 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 21) FOR OUTPUT AS #i01 : PRINT #i01, File22; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File22 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 22) FOR OUTPUT AS #i01 : PRINT #i01, File23; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File23 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 23) FOR OUTPUT AS #i01 : PRINT #i01, File24; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File24 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 24) FOR OUTPUT AS #i01 : PRINT #i01, File25; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File25 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 25) FOR OUTPUT AS #i01 : PRINT #i01, File26; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File26 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 26) FOR OUTPUT AS #i01 : PRINT #i01, File27; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File27 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 27) FOR OUTPUT AS #i01 : PRINT #i01, File28; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File28 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 28) FOR OUTPUT AS #i01 : PRINT #i01, File29; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File29 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 29) FOR OUTPUT AS #i01 : PRINT #i01, File30; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File30 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 30) FOR OUTPUT AS #i01 : PRINT #i01, File31; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File31 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 31) FOR OUTPUT AS #i01 : PRINT #i01, File32; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File32 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 32) FOR OUTPUT AS #i01 : PRINT #i01, File33; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File33 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 33) FOR OUTPUT AS #i01 : PRINT #i01, File34; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File34 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 34) FOR OUTPUT AS #i01 : PRINT #i01, File35; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File35 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 35) FOR OUTPUT AS #i01 : PRINT #i01, File36; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File36 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 36) FOR OUTPUT AS #i01 : PRINT #i01, File37; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File37 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 37) FOR OUTPUT AS #i01 : PRINT #i01, File38; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File38 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 38) FOR OUTPUT AS #i01 : PRINT #i01, File39; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File39 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 39) FOR OUTPUT AS #i01 : PRINT #i01, File40; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File40 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 40) FOR OUTPUT AS #i01 : PRINT #i01, File41; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File41 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 41) FOR OUTPUT AS #i01 : PRINT #i01, File42; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File42 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 42) FOR OUTPUT AS #i01 : PRINT #i01, File43; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File43 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 43) FOR OUTPUT AS #i01 : PRINT #i01, File44; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File44 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 44) FOR OUTPUT AS #i01 : PRINT #i01, File45; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File45 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 45) FOR OUTPUT AS #i01 : PRINT #i01, File46; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File46 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 46) FOR OUTPUT AS #i01 : PRINT #i01, File47; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File47 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 47) FOR OUTPUT AS #i01 : PRINT #i01, File48; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File48 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 48) FOR OUTPUT AS #i01 : PRINT #i01, File49; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File49 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 49) FOR OUTPUT AS #i01 : PRINT #i01, File50; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File50 = ""
    
    END SUB
    
    SUB Save51to100Files
      LOCAL i01 AS LONG
      LOCAL Result AS LONG
    
      i01 = FREEFILE
    
      IF StopAction = 1 THEN EXIT SUB
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 50) FOR OUTPUT AS #i01 : PRINT #i01, File51; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File51 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 51) FOR OUTPUT AS #i01 : PRINT #i01, File52; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File52 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 52) FOR OUTPUT AS #i01 : PRINT #i01, File53; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File53 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 53) FOR OUTPUT AS #i01 : PRINT #i01, File54; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File54 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 54) FOR OUTPUT AS #i01 : PRINT #i01, File55; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File55 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 55) FOR OUTPUT AS #i01 : PRINT #i01, File56; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File56 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 56) FOR OUTPUT AS #i01 : PRINT #i01, File57; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File57 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 57) FOR OUTPUT AS #i01 : PRINT #i01, File58; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File58 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 58) FOR OUTPUT AS #i01 : PRINT #i01, File59; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File59 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 59) FOR OUTPUT AS #i01 : PRINT #i01, File60; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File60 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 60) FOR OUTPUT AS #i01 : PRINT #i01, File61; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File61 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 61) FOR OUTPUT AS #i01 : PRINT #i01, File62; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File62 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 62) FOR OUTPUT AS #i01 : PRINT #i01, File63; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File63 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 63) FOR OUTPUT AS #i01 : PRINT #i01, File64; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File64 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 64) FOR OUTPUT AS #i01 : PRINT #i01, File65; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File65 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 65) FOR OUTPUT AS #i01 : PRINT #i01, File66; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File66 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 66) FOR OUTPUT AS #i01 : PRINT #i01, File67; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File67 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 67) FOR OUTPUT AS #i01 : PRINT #i01, File68; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File68 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 68) FOR OUTPUT AS #i01 : PRINT #i01, File69; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File69 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 69) FOR OUTPUT AS #i01 : PRINT #i01, File70; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File70 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 70) FOR OUTPUT AS #i01 : PRINT #i01, File71; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File71 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 71) FOR OUTPUT AS #i01 : PRINT #i01, File72; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File72 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 72) FOR OUTPUT AS #i01 : PRINT #i01, File73; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File73 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 73) FOR OUTPUT AS #i01 : PRINT #i01, File74; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File74 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 74) FOR OUTPUT AS #i01 : PRINT #i01, File75; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File75 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 75) FOR OUTPUT AS #i01 : PRINT #i01, File76; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File76 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 76) FOR OUTPUT AS #i01 : PRINT #i01, File77; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File77 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 77) FOR OUTPUT AS #i01 : PRINT #i01, File78; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File78 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 78) FOR OUTPUT AS #i01 : PRINT #i01, File79; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File79 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 79) FOR OUTPUT AS #i01 : PRINT #i01, File80; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File80 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 80) FOR OUTPUT AS #i01 : PRINT #i01, File81; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File81 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 81) FOR OUTPUT AS #i01 : PRINT #i01, File82; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File82 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 82) FOR OUTPUT AS #i01 : PRINT #i01, File83; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File83 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 83) FOR OUTPUT AS #i01 : PRINT #i01, File84; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File84 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 84) FOR OUTPUT AS #i01 : PRINT #i01, File85; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File85 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 85) FOR OUTPUT AS #i01 : PRINT #i01, File86; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File86 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 86) FOR OUTPUT AS #i01 : PRINT #i01, File87; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File87 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 87) FOR OUTPUT AS #i01 : PRINT #i01, File88; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File88 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 88) FOR OUTPUT AS #i01 : PRINT #i01, File89; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File89 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 89) FOR OUTPUT AS #i01 : PRINT #i01, File90; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File90 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 90) FOR OUTPUT AS #i01 : PRINT #i01, File91; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File91 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 91) FOR OUTPUT AS #i01 : PRINT #i01, File92; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File92 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 92) FOR OUTPUT AS #i01 : PRINT #i01, File93; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File93 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 93) FOR OUTPUT AS #i01 : PRINT #i01, File94; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File94 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 94) FOR OUTPUT AS #i01 : PRINT #i01, File95; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File95 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 95) FOR OUTPUT AS #i01 : PRINT #i01, File96; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File96 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 96) FOR OUTPUT AS #i01 : PRINT #i01, File97; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File97 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 97) FOR OUTPUT AS #i01 : PRINT #i01, File98; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File98 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 98) FOR OUTPUT AS #i01 : PRINT #i01, File99; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File99 = ""
    
      Result = SetPriorityClass(GetCurrentProcess(), %REALTIME_PRIORITY_CLASS)
      OPEN gsSavePath + URLS(StartPT + 99) FOR OUTPUT AS #i01 : PRINT #i01, File100; : CLOSE #i01
      Result = SetPriorityClass(GetCurrentProcess(), %NORMAL_PRIORITY_CLASS)
      File100 = ""
    
    END SUB
Working...
X
😀
🥰
🤢
😎
😡
👍
👎