中国DOS联盟

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