--- /dev/null	2003-11-18 19:44:01.609000000 +0000
+++ examples/pni/win32api.imc	2003-11-18 19:40:15.234375000 +0000
@@ -0,0 +1,28 @@
+# This example calls the MessageBoxA Win32 API using the Parrot Native
+# Call Interface.  The function is defined as:-
+# 
+# int MessageBox(
+#     HWND hWnd,
+#     LPCTSTR lpText,
+#     LPCTSTR lpCaption,
+#     UINT uType
+# );
+
+# This is the entry point.
+.sub _MAIN
+	# Load user32.dll library.
+	loadlib P1, "user32"
+	
+	# Set up parameters for the message box.
+	I5 = 0	#Parent hWnd - there is none.
+	S5 = "This is a message from Parrot!"  # The message
+	S6 = "Hey, you!"  # The caption
+	I6 = 64  # This gives us a nice i in a speech bubble icon.
+	
+	# Invoke MessageBoxA.
+	dlfunc P0, P1, "MessageBoxA", "llttl"
+	invoke
+	
+	# Done.
+	end
+.end