RosettaCodeData/Task/Call-a-foreign-language-function/BBC-BASIC/call-a-foreign-language-function.basic

      SYS "LoadLibrary", "MSVCRT.DLL" TO msvcrt%
      SYS "GetProcAddress", msvcrt%, "_strdup" TO `strdup`
      SYS "GetProcAddress", msvcrt%, "free" TO `free`

      SYS `strdup`, "Hello World!" TO address%
      PRINT $$address%
      SYS `free`, address%