Help for this page

Select Code to Download

Select or download this

    # Read Block
    while (read (DATA, $data, BLOCKLEN)) {
        # Read Block Header
        read (DATA, $data, BLOCKHDR);