1
0
Fork 0

Cleanup and update README

removing line-numbers and fixing a link
This commit is contained in:
J. Elfring 2024-03-19 20:46:59 +01:00
parent 293b51a499
commit 09f357375d
3 changed files with 89 additions and 90 deletions

View file

@ -11,7 +11,8 @@ The directories also contain .raw files which are the binaries.
This is not the git-way but rather useful and I'll give my best to keep them in
sync.
Compilation is done with [Swissmicros' Online Converter](https://www.swissmicros.com/dm42/decoder/)
Compilation is done with [Swissmicros' Online
Converter](https://technical.swissmicros.com/decoders/dm42/index.php)
## License
Most of the programs (the ones I made) are licensed under **GNU GPLv3**.

View file

@ -1,44 +1,43 @@
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.
LBL "GFWtr"
ADV
"---GF Wasser---"
PRA
CLA
DATE
ADATE
├" "
TIME
ATIME24
PRA
CLA
DROPN 2
INPUT "Asslg l"
INPUT "Malz kg"
2,7
×
3,5
+
STO 01
RCL "Asslg l"
5
+
RCL 01
-
RCL "Malz kg"
0,8
×
+
STO 02
"Ausschlag= "
ARCL "Asslg l"
├" l[LF]Malz= "
ARCL "Malz kg"
├" kg"
PRA
"Hauptguss= "
ARCL 01
├" l[LF]Nachguss= "
ARCL 02
├" l"
AVIEW
END

View file

@ -1,45 +1,44 @@
00 { 140-Byte Prgm }
01▸LBL "MOD"
02 ADV
03 "----- Nitrox MO"
04 ├"D -----"
05 PRA
06 CLA
07 DATE
08 ADATE
09 TIME
10 ├" "
11 ATIME24
12 PRA
13 CLA
14 DROPN 2
15 ├"[LF]EAN= "
16 "EAN= "
17 ARCL ST X
18 ├" %"
19 PRA
20 100
21 ÷
22 STO 01
23 1,4
24 RCL 01
25 ÷
26 1
27 -
28 10
29 ×
30 "MOD1,4= "
31 ARCL ST X
32 ├" m"
33 1,6
34 RCL 01
35 ÷
36 1
37 -
38 10
39 ×
40 ├"[LF]MOD1,6= "
41 ARCL ST X
42 ├" m"
43 AVIEW
44 END
LBL "MOD"
ADV
"----- Nitrox MO"
├"D -----"
PRA
CLA
DATE
ADATE
TIME
├" "
ATIME24
PRA
CLA
DROPN 2
├"[LF]EAN= "
"EAN= "
ARCL ST X
├" %"
PRA
100
÷
STO 01
1,4
RCL 01
÷
1
-
10
×
"MOD1,4= "
ARCL ST X
├" m"
1,6
RCL 01
÷
1
-
10
×
├"[LF]MOD1,6= "
ARCL ST X
├" m"
AVIEW
END