Интересно, нашел вот тут такой пример.

https://github.com/congdm/Patchouli-Com ... rce/Sys.cp

## Код:
```
PROCEDURE Write_4bytes* (VAR file : FileHandle; n : INTEGER);
   VAR b : UBYTE;
BEGIN
   b := USHORT(n MOD 256); file.f.WriteByte (b);
   n := n DIV 256; b := USHORT(n MOD 256); file.f.WriteByte (b);
   n := n DIV 256; b := USHORT(n MOD 256); file.f.WriteByte (b);
   n := n DIV 256; b := USHORT(n MOD 256); file.f.WriteByte (b)
END Write_4bytes;
```

Что за функция USHORT? Видимо она в GPCP поддерживается.

Есть идея, что они на пару с UBYTE...  беззнаковый байт и беззнаковое укорачивание?