diff --git a/examples/experimental_sdl/sdl_bounce.claro b/examples/experimental_sdl/sdl_bounce.claro
new file mode 100644
index 0000000..b958f35
--- /dev/null
+++ b/examples/experimental_sdl/sdl_bounce.claro
@@ -0,0 +1,36 @@
+# SDL 1.2 demo: bouncing square
+# Build Claro with -DCLARO_WITH_SDL12=1 and SDL 1.2 libs.
+
+SDL OPEN 640 480 "Claro SDL1.2 Demo"
+
+SET x TO 100
+SET y TO 100
+SET vx TO 3
+SET vy TO 2
+
+SET running TO YES
+
+FOR frame FROM 1 TO 1000000
+    SDL POLL
+    IF SDLEVENT = "QUIT"
+        SET running TO NO
+    ENDIF
+    IF running = NO
+        RAISE "quit"
+    ENDIF
+
+    SET x TO x + vx
+    SET y TO y + vy
+
+    IF (x < 0) OR (x > 600)
+        SET vx TO 0 - vx
+    ENDIF
+    IF (y < 0) OR (y > 440)
+        SET vy TO 0 - vy
+    ENDIF
+
+    SDL CLEAR 20 20 30
+    SDL RECT x y 40 40 200 220 255
+    SDL PRESENT
+    SDL DELAY 16
+DONE