Dim PriSize 

PriSize = 2048 

Allow Manual Reboot

Set Default Bad Sector Test State OFF 

Select Disk 1 

Dim PriNum 

Dim i 

i = 1 

PriNum = 0 

Select Partition FIRST 

DO WHILE i < GetTotalPartitions 

    IF IsPrimary Then 

         PriNum = PriNum + 1 

    End If 

    Select Partition Next 

    i = i + 1 

Loop 

IF IsPrimary Then 

    PriNum = PriNum + 1 

End If 

dim ExtNum 

ExtNum = GetPartitionNumber Extended 

If  ExtNum <> 0 Then 

    PriNum = PriNum + 1 

End If 

IF PriNum < 4 Then 

    Select Partition Last 

    check 

    Dim bQuit 

    bQuit = 0 

    IF GetUnusedAmount >= PriSize Then 

                Resize Space After PriSize 

    Else 

         bQuit = 1 

    End If 

    If bQuit = 0 Then 

         Select Unallocated After Selected Partition 

         Create /FS=FAT32 /LABEL="IBM_SERVICE" 

         Convert To Primary 

    End If 

End IF