12 lines
271 B
Text
12 lines
271 B
Text
make "Void "V0
|
|
make "Long "U4
|
|
make "kernel32_handle libload "kernel32.dll
|
|
to Sleep :dwMilliseconds
|
|
end
|
|
external "Sleep [ Void Sleep Long] :kernel32_handle
|
|
|
|
to millisleep :n
|
|
print [Sleeping...]
|
|
Sleep :n ; units: 1/1000th of a second
|
|
print [Awake.]
|
|
end
|