--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/sdl.tp	Sun Jul 20 00:13:01 2014 -0700
@@ -0,0 +1,20 @@
+#{
+	import: [
+		video
+		timer
+	] from: (sdl subsystems)
+	main <- {
+		if: (sdl init: (video or timer)) = 0 {
+			(sdl createWindow: "SDL Test" pos: 0 0 size: 640 480 flags: 0u32) value: :window {
+				sdl delay: 3000u32
+				window destroy
+			} none: {
+				print: "Failed to create window\n"
+				1
+			}
+		} else: {
+			print: "Failed to initialize SDL\n"
+			1
+		}
+	}
+}
\ No newline at end of file