char buf1 [48];
var buf1: array [0..47] of byte;