:OpenLink
{
0AC8: 0@ = allocate_memory_size 128
0AD3: 0@ = format "www.google.com"
0AB1: call_scm_func @OpenLink 1 0@ //IF AND SET
0AC9: free_allocated_memory 0@
}
IF 0AA2: 31@ = "shell32.dll"
THEN
0AA4: 30@ = "ShellExecuteA" 31@
0AA7: call 30@ 6 0 0 0 0 0@ "open" 0 29@
0AA3: free_library 31@
IF 29@ <= 32
THEN 059A: return_false
ELSE 0485: return_true
END
END
0AB2: 0