From edec3000d2a3a71d2dd96c0d5018bdbb3294c1c1 Mon Sep 17 00:00:00 2001
From: Joerg Elfring <devops@elfrinjo.de>
Date: Mon, 4 Nov 2019 23:23:05 +0100
Subject: [PATCH] Add Grainfather water calculator

---
 brewery/README.md |  12 ++++++++++++
 brewery/gfwtr.raw | Bin 0 -> 96 bytes
 brewery/gfwtr.txt |  25 +++++++++++++++++++++++++
 3 files changed, 37 insertions(+)
 create mode 100644 brewery/gfwtr.raw
 create mode 100644 brewery/gfwtr.txt

diff --git a/brewery/README.md b/brewery/README.md
index 786f892..a5afe74 100644
--- a/brewery/README.md
+++ b/brewery/README.md
@@ -16,4 +16,16 @@ p: Carbonization gauge pressure in bar
 
 https://elfring.ms/blog/rpn-karbonisierungsrechner
 
+## GFWtr - Grainfather Water Calculator
+Asks for the batchvolume in l (Aussschlahmenge / Asslg) and grainbill in kg (Malz) and 
+calculates the amount of mash- and sparge-water for grain bills > 4,5 kg according to
+this formula from the Grainfather manual:
+```
+MashWater = GB * 2.7 + 3.5
+SpargeWater = (BV + WL) - MashWater + (GB * 0.8)
+```
+GB: Grainbill in kg  
+BV: Batchvolume in l  
+WL: Waterloss in boil & trub in l (defaults to 5)  
+Adjust waterloss in line 10
 
diff --git a/brewery/gfwtr.raw b/brewery/gfwtr.raw
new file mode 100644
index 0000000000000000000000000000000000000000..f75318b79fc8c531fdd88fe60da5a60c99ebe734
GIT binary patch
literal 96
zcmX@W@QuOUExe@Y$5F@P;+%AaoF7Mh6LYE*veSj6#2K7~r9>GV41Y|7N&-2Gjz1<s
jRR~B)FgQ6F{qRt5FD)*%Qkc#7tDegb#$l>Ez`zRtkx?Mm

literal 0
HcmV?d00001

diff --git a/brewery/gfwtr.txt b/brewery/gfwtr.txt
new file mode 100644
index 0000000..7dc86fb
--- /dev/null
+++ b/brewery/gfwtr.txt
@@ -0,0 +1,25 @@
+00 { 93-Byte Prgm }
+01▸LBL "GFWtr"
+02 INPUT "Asslg l"
+03 INPUT "Malz kg"
+04 2.7
+05 ×
+06 3.5
+07 +
+08 STO 01
+09 RCL "Asslg l"
+10 5
+11 +
+12 RCL 01
+13 -
+14 RCL "Malz kg"
+15 0.8
+16 ×
+17 +
+18 STO 02
+19 "H Guss: "
+20 ARCL 01
+21 ├"[LF]N Guss: "
+22 ARCL 02
+23 AVIEW
+24 END