write (file, &record, size_of (record));

write (file, position, chars, length (chars));

write (file, position, string_ptr->chars, string_ptr->length);

write (file, position, number, size_of (number), WRITE_WORD | BIG_ENDIAN);
