00 { 189-Byte Prgm }
01▸LBL "GFWtr"
02 ADV
03 "---GF Wasser---"
04 PRA
05 CLA
06 DATE
07 ADATE
08 ├" "
09 TIME
10 ATIME24
11 PRA
12 CLA
13 DROPN 2
14 INPUT "Asslg l"
15 INPUT "Malz kg"
16 2,7
17 ×
18 3,5
19 +
20 STO 01
21 RCL "Asslg l"
22 5
23 +
24 RCL 01
25 -
26 RCL "Malz kg"
27 0,8
28 ×
29 +
30 STO 02
31 "Ausschlag= "
32 ARCL "Asslg l"
33 ├" l[LF]Malz= "
34 ARCL "Malz kg"
35 ├" kg"
36 PRA
37 "Hauptguss= "
38 ARCL 01
39 ├" l[LF]Nachguss= "
40 ARCL 02
41 ├" l"
42 AVIEW
43 .END.