[SBJoker]

Скорее так:

SuperStrict

Module тратата.тратата
Import brl.blitz
    
Const DLL:String= "НацНац.dll"

Extern "win32"
    Function FindWindowA%(class%,title$z)
    Function LoadLibraryA(lib$z)
    Function GetProcAddress:Byte Ptr(lib%,fname$z) 
End Extern


    Global Привет(x%,y%) "win32"
    Global Пока   (x%,y%) "win32"



Global lib%=LoadLibraryA()
If lib% Then
    Привет =GetProcAddress(lib,"Preved@8")
    Пока    =GetProcAddress(lib,"GoodPoka@8")
Else
    RuntimeError("Не не не, Девид Блейн!  " + DLL) 
    End
End If