Создание файла с Qb64

Question

со следующими

DIM a AS INTEGER 
a = 10 
OPEN "myFile" FOR BINARY AS #1 
PUT #1, 1, a 
CLOSE #1 

Я получаю файл (Myfile) с двумя байтами (с использованием Qb64). Первый байт действительно 0A, но есть второй байт 00.

Как создать файл с одним байтом?

Answer 1

Попробуйте

DIM a AS _UNSIGNED _BYTE 
a = 10 
OPEN "myFile" FOR BINARY AS #1 
PUT #1, 1, a 
CLOSE #1 

Похоже INTEGER 2 байта.

Answer 2

Снип записать байт в файл:

DIM B AS STRING * 1 
x = 10 
B = CHR$(x) 
OPEN "myfile" FOR BINARY AS #1 
PUT #1, 1, B 
CLOSE #1