Платон, спасибо.
Сделал так:
Type sEvent
Field object_
Field type_%
End Type
Global sEvent_Null.sEvent = New sEvent
alPokeI( int(sEvent_Null), 0 ) ;[В типах указатель на данные лежит без смещения]
Function alGetEvent% (event__.sEvent)
If (event__ = Null) Then event__ = sEvent_Null
return alGetEvent_(event__)
End Function