diff --git a/polymer/eduke32/a.m32 b/polymer/eduke32/a.m32
new file mode 100644
index 000000000..52e059b75
--- /dev/null
+++ b/polymer/eduke32/a.m32
@@ -0,0 +1,47 @@
+// m32 script test & show-off file
+// do "include a" in the console
+
+include names.h
+
+gamevar i 0 1  // per-block (top-level, event, or state) variable
+gamevar j 0 1
+
+gamevar davr 65536 0
+gamevar dayx 65536 0
+
+definequote 0 OK
+definequote 1 DAMN
+
+gamearray ar 128
+gamearray parm 8
+
+defstate artest
+    for j range 128
+        set ar[j] j
+    set i 0
+    for j range 128
+        add i ar[j]
+    ife i 8128 quote 0 else quote 1
+ends
+
+defstate setas
+    set j dayx
+    mul j ydim  mul j 8
+    div j xdim  div j 5
+    setaspect davr j
+ends
+
+onevent EVENT_ANALYZESPRITES
+    for i drawnsprites
+        ifactor LIZTROOP spritepal 6
+endevent
+
+onevent EVENT_ENTER3DMODE
+    state setas
+endevent
+
+defstate itertest
+    for i spritesofsector searchsector
+//        ife sprite[i].picnum AMMO set sprite[i].picnum BATTERYAMMO
+        ifactor parm[0] cactor parm[1]
+ends