Add useful test/example file.

diff --git a/examples/grid.sps b/examples/grid.sps
new file mode 100644 (file)
index 0000000..cfaa80a
--- /dev/null
+++ b/examples/grid.sps
@@ -0,0 +1,18 @@
+COMMENT  -*-pspp-*- .
+
+COMMENT This program is useful for testing the behaviour of the Data and Variable Sheets.
+
+input program.
+  vector var(500 F8.3).
+  loop #c = 1 to 1000.
+    loop #v = 1 to 500.
+      compute var(#v) = #v + #c / 1000.
+    end loop.
+    end case.
+  end loop.
+  end file.
+end input program.
+
+save outfile='grid.sav'.
+
+execute.