From 0cc9b20c15460213e488bf5e70963b941482f628 Mon Sep 17 00:00:00 2001
From: William Harrington <kb0iic@berzerkula.org>
Date: Tue, 14 Jan 2025 16:06:02 -0600
Subject: Add source.

---
 spo256/currency.c | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 spo256/currency.c

(limited to 'spo256/currency.c')

diff --git a/spo256/currency.c b/spo256/currency.c
new file mode 100644
index 0000000..b79c036
--- /dev/null
+++ b/spo256/currency.c
@@ -0,0 +1,43 @@
+/*
+ * Currency rules, for USD.
+ * $Id: currency.c 1.2 Mon, 24 Mar 1997 12:25:37 -0500 dyfet $
+ * Copyright (c) 1997 by Tycho Softworks.
+ * For conditions of distribution and reuse see product license.
+ */
+
+#include <other/string.h>
+#include <other/config.h>
+#include "speak.h"
+
+void	currency(char *str)
+{
+	char	*cents;
+	++str;
+
+	cents = strchr(str, '.');
+	if(cents)
+		*(cents++) = 0;
+
+	if(atol(str) != 0)
+	{
+		number(str);
+		if(atol(str) > 1)
+			spo_word("dollars");
+		else
+			spo_word("dollar");
+	}
+
+	if(cents)
+	{
+		if(atol(str) > 0)
+			spo_word("and");
+
+		number(cents);
+		if(atoi(cents) > 1)
+			spo_word("cent");
+		else
+			spo_word("cents");
+	}
+}
+
+		
-- 
cgit v1.2.3-54-g00ecf