diff --git a/loc.sh b/loc.sh
new file mode 100755
index 00000000..77cffa4b
--- /dev/null
+++ b/loc.sh
@@ -0,0 +1 @@
+find . -name '*.pas' | xargs wc -l | awk '/./{line=$0} END{print line}'