; Это аналогично объявлению формата структур
Prototype.i MyFirstFunction(string.p-unicode)
Prototype.i MySecondFunction(*i.Integer)

Define String$
Define num
; Это аналогично созданию структуры, где My1Func это имя, а MyFirstFunction - формат
Define My1Func.MyFirstFunction
Define My2Func.MySecondFunction

If OpenLibrary(0, "My.dll")
	My1Func = GetFunction(0, "MyFirstFunction") ; возвращает указатель на функцию из DLL
	My2Func = GetFunction(0, "MySecondFunction")

	Debug My2Func(@num) ; Вызов функции с пеердачей параметра
	MessageRequester("", Str(num))

	String$ = Space(256)
	Debug My1Func(String$) ; Передается указатель на строку размером 256
	MessageRequester("", String$)

	CloseLibrary(0)
EndIf