RosettaCodeData/Task/Call-a-foreign-language-function/BBC-BASIC/call-a-foreign-language-function.basic
2023-07-01 13:44:08 -04:00

7 lines
260 B
Text

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%