diff --git a/base/base.txt b/base/base.txt
index d07d7d6..c4b55e3 100644
--- a/base/base.txt
+++ b/base/base.txt
@@ -1,75 +1,74 @@
-00 { 181-Byte Prgm }
-01▸LBL "BASE"
-02▸LBL 00
-03 255
-04 AND
-05 STO "WORD"
-06 CLMENU
-07 "ASCII"
-08 KEY 1 XEQ 01
-09 "HEX"
-10 KEY 2 XEQ 02
-11 "DEC"
-12 KEY 3 XEQ 03
-13 "BIN"
-14 KEY 4 XEQ 04
-15 KEY 9 GTO 09
-16 " "
-17 XTOA
-18 10
-19 X<>Y
-20 X=Y?
-21 "LF"
-22 ├"  "
-23 256
-24 +
-25 HEXM
-26 ARCL ST X
-27 ├"  "
-28 744
-29 +
-30 AIP
-31 ├"  "
-32 LASTX
-33 -
-34 BINM
-35 ARCL ST X
-36 4
-37 AROT
-38 ATOX
-39 4
-40 AROT
-41 ATOX
-42 5
-43 AROT
-44 ATOX
-45 8
-46 AROT
-47 AVIEW
-48 MENU
-49 RCL "WORD"
-50 STOP
-51 GTO 00
-52▸LBL 01
-53 CLA
-54 RCL "WORD"
-55 XTOA
-56 AON
-57 STOP
-58 AOFF
-59 ATOX
-60 RTN
-61▸LBL 02
-62 HEXM
-63 GTO 05
-64▸LBL 03
-65 DECM
-66 GTO 05
-67▸LBL 04
-68 BINM
-69▸LBL 05
-70 INPUT "WORD"
-71 RTN
-72▸LBL 09
-73 EXITALL
-74 END
+LBL "BASE"
+LBL 00
+255
+AND
+STO "WORD"
+CLMENU
+"ASCII"
+KEY 1 XEQ 01
+"HEX"
+KEY 2 XEQ 02
+"DEC"
+KEY 3 XEQ 03
+"BIN"
+KEY 4 XEQ 04
+KEY 9 GTO 09
+" "
+XTOA
+10
+X<>Y
+X=Y?
+"LF"
+├"  "
+256
++
+HEXM
+ARCL ST X
+├"  "
+744
++
+AIP
+├"  "
+LASTX
+-
+BINM
+ARCL ST X
+4
+AROT
+ATOX
+4
+AROT
+ATOX
+5
+AROT
+ATOX
+8
+AROT
+AVIEW
+MENU
+RCL "WORD"
+STOP
+GTO 00
+LBL 01
+CLA
+RCL "WORD"
+XTOA
+AON
+STOP
+AOFF
+ATOX
+RTN
+LBL 02
+HEXM
+GTO 05
+LBL 03
+DECM
+GTO 05
+LBL 04
+BINM
+LBL 05
+INPUT "WORD"
+RTN
+LBL 09
+EXITALL
+END
diff --git a/brewery/gfwtr.txt b/brewery/gfwtr.txt
index 7dc86fb..934256a 100644
--- a/brewery/gfwtr.txt
+++ b/brewery/gfwtr.txt
@@ -1,25 +1,24 @@
-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
+LBL "GFWtr"
+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
+"H Guss: "
+ARCL 01
+├"[LF]N Guss: "
+ARCL 02
+AVIEW
+END
diff --git a/brewery/spund.txt b/brewery/spund.txt
index dcac8f1..8ba6ceb 100644
--- a/brewery/spund.txt
+++ b/brewery/spund.txt
@@ -1,22 +1,21 @@
-00 { 77-Byte Prgm }
-01▸LBL "SPND"
-02 MVAR "bar"
-03 MVAR "°C"
-04 MVAR "g/l"
-05 2617.25
-06 273.15
-07 RCL "°C"
-08 +
-09 ÷
-10 10.73797
-11 -
-12 E↑X
-13 RCL "bar"
-14 1.013
-15 +
-16 ×
-17 10
-18 ×
-19 RCL "g/l"
-20 -
-21 END
+LBL "SPND"
+MVAR "bar"
+MVAR "°C"
+MVAR "g/l"
+2617.25
+273.15
+RCL "°C"
++
+÷
+10.73797
+-
+E↑X
+RCL "bar"
+1.013
++
+×
+10
+×
+RCL "g/l"
+-
+END
diff --git a/diving/mod.txt b/diving/mod.txt
index ccf7b74..68189b0 100644
--- a/diving/mod.txt
+++ b/diving/mod.txt
@@ -1,25 +1,24 @@
-00 { 64-Byte Prgm }
-01▸LBL "MOD"
-02 100
-03 ÷
-04 STO 01
-05 1.4
-06 RCL 01
-07 ÷
-08 1
-09 -
-10 10
-11 ×
-12 "MOD1,4= "
-13 ARCL ST X
-14 1.6
-15 RCL 01
-16 ÷
-17 1
-18 -
-19 10
-20 ×
-21 ├"[LF]MOD1,6= "
-22 ARCL ST X
-23 AVIEW
-24 END
+LBL "MOD"
+100
+÷
+STO 01
+1.4
+RCL 01
+÷
+1
+-
+10
+×
+"MOD1,4= "
+ARCL ST X
+1.6
+RCL 01
+÷
+1
+-
+10
+×
+├"[LF]MOD1,6= "
+ARCL ST X
+AVIEW
+END
diff --git a/diving/nitrox.txt b/diving/nitrox.txt
index 70351b3..6a0ee6f 100644
--- a/diving/nitrox.txt
+++ b/diving/nitrox.txt
@@ -1,18 +1,17 @@
-00 { 46-Byte Prgm }
-01▸LBL "NTRX"
-02 MVAR "D"
-03 MVAR "Pp"
-04 MVAR "EAN"
-05 RCL "D"
-06 10
-07 ÷
-08 1
-09 +
-10 RCL "EAN"
-11 100
-12 ÷
-13 ×
-14 RCL "Pp"
-15 -
-16 END
+LBL "NTRX"
+MVAR "D"
+MVAR "Pp"
+MVAR "EAN"
+RCL "D"
+10
+÷
+1
++
+RCL "EAN"
+100
+÷
+×
+RCL "Pp"
+-
+END
 
diff --git a/microwave/mwve.txt b/microwave/mwve.txt
index 3baaac3..c47734f 100644
--- a/microwave/mwve.txt
+++ b/microwave/mwve.txt
@@ -1,44 +1,43 @@
-00 { 133-Byte Prgm }
-01▸LBL "MWVE"
-02 INPUT "Watt"
-03 INPUT "Zeit"
-04 →HR
-05 STO "Zeit"
-06 100
-07 STO 00
-08 RCL "Watt"
-09 270
-10 X≤Y?
-11 STO 00
-12 RCL "Watt"
-13 300
-14 X≤Y?
-15 STO 00
-16 RCL "Watt"
-17 440
-18 X≤Y?
-19 STO 00
-20 RCL "Watt"
-21 600
-22 X≤Y?
-23 STO 00
-24 RCL "Watt"
-25 950
-26 X≤Y?
-27 STO 00
-28 RCL "Watt"
-29 RCL 00
-30 ÷
-31 RCL "Zeit"
-32 ×
-33 "t= "
-34 →HMS
-35 0.01
-36 ×
-37 ATIME
-38 RCL 00
-39 ├"[LF]P= "
-40 AIP
-41 ├"W"
-42 AVIEW
-43 END
+LBL "MWVE"
+INPUT "Watt"
+INPUT "Zeit"
+→HR
+STO "Zeit"
+100
+STO 00
+RCL "Watt"
+270
+X≤Y?
+STO 00
+RCL "Watt"
+300
+X≤Y?
+STO 00
+RCL "Watt"
+440
+X≤Y?
+STO 00
+RCL "Watt"
+600
+X≤Y?
+STO 00
+RCL "Watt"
+950
+X≤Y?
+STO 00
+RCL "Watt"
+RCL 00
+÷
+RCL "Zeit"
+×
+"t= "
+→HMS
+0.01
+×
+ATIME
+RCL 00
+├"[LF]P= "
+AIP
+├"W"
+AVIEW
+END
diff --git a/split/split.txt b/split/split.txt
index a0b630a..01e74cc 100644
--- a/split/split.txt
+++ b/split/split.txt
@@ -1,20 +1,19 @@
-00 { 35-Byte Prgm }
-01▸LBL "SPLIT"
-02 STO "m"
-03 RSUM
-04 DET
-05 STO 01
-06 RCL "m"
-07 DIM?
-08 RCL 01
-09 X<>Y
-10 ÷
-11 STO 02
-12 RCL 01
-13 X<>Y
-14 RCL "m"
-15 X<>Y
-16 -
-17 RCL 02
-18 X<>Y
-19 END
+LBL "SPLIT"
+STO "m"
+RSUM
+DET
+STO 01
+RCL "m"
+DIM?
+RCL 01
+X<>Y
+÷
+STO 02
+RCL 01
+X<>Y
+RCL "m"
+X<>Y
+-
+RCL 02
+X<>Y
+END
diff --git a/statitics/SnCk.txt b/statitics/SnCk.txt
index 92472c8..2fcd8cf 100644
--- a/statitics/SnCk.txt
+++ b/statitics/SnCk.txt
@@ -1,18 +1,17 @@
-00 { 40-Byte Prgm }
-01▸LBL "ΣnCk"
-02 0
-03 STO 00
-04 INPUT "n"
-05 INPUT "k"
-06▸LBL 06
-07 RCL "n"
-08 RCL "k"
-09 COMB
-10 STO+ 00
-11 1
-12 STO- "k"
-13 RCL "k"
-14 X>0?
-15 GTO 06
-16 RCL 00
-17 END
+LBL "ΣnCk"
+0
+STO 00
+INPUT "n"
+INPUT "k"
+LBL 06
+RCL "n"
+RCL "k"
+COMB
+STO+ 00
+1
+STO- "k"
+RCL "k"
+X>0?
+GTO 06
+RCL 00
+END
diff --git a/virtvar/dm42_virtvar.txt b/virtvar/dm42_virtvar.txt
index 706d31f..545bb48 100644
--- a/virtvar/dm42_virtvar.txt
+++ b/virtvar/dm42_virtvar.txt
@@ -1,120 +1,119 @@
-00 { 359-Byte Prgm }
-01▸LBL "VirtV"
-02▸LBL A
-03 "DevID"
-04 KEY 1 XEQ 01
-05 "GrMod"
-06 KEY 2 XEQ 02
-07 "ResX"
-08 KEY 3 XEQ 03
-09 "ResY"
-10 KEY 4 XEQ 04
-11 "Vbat"
-12 KEY 5 XEQ 05
-13 "RefLCD"
-14 KEY 6 XEQ 06
-15 KEY 7 GTO B
-16 KEY 8 GTO B
-17 KEY 9 GTO 09
-18 MENU
-19 STOP
-20 GTO A
-21▸LBL 09
-22 RTN
-23▸LBL B
-24 RCL "GrMod"
-25 "HP"
-26 X=0?
-27 ├"•"
-28 KEY 1 GTO 11
-29 "200"
-30 2
-31 -
-32 X=0?
-33 ├"•"
-34 KEY 2 GTO 12
-35 1
-36 -
-37 "400"
-38 X=0?
-39 ├"•"
-40 KEY 3 GTO 13
-41 1
-42 RCL "RefLCD"
-43 AND
-44 "Main"
-45 X≠0?
-46 ├"•"
-47 KEY 4 GTO 14
-48 RCL "RefLCD"
-49 2
-50 AND
-51 "Goos"
-52 X≠0?
-53 ├"•"
-54 KEY 5 GTO 15
-55 RCL "RefLCD"
-56 4
-57 AND
-58 "Ann"
-59 X≠0?
-60 ├"•"
-61 KEY 6 GTO 16
-62 KEY 7 GTO A
-63 KEY 8 GTO A
-64 KEY 9 GTO 09
-65 MENU
-66 STOP
-67 RTN
-68▸LBL 01
-69 "DevID"
-70 GTO 00
-71▸LBL 02
-72 "GrMod"
-73 GTO 00
-74▸LBL 03
-75 "ResX"
-76 GTO 00
-77▸LBL 04
-78 "ResY"
-79 GTO 00
-80▸LBL 05
-81 "Vbat"
-82 GTO 00
-83▸LBL 06
-84 "RefLCD"
-85▸LBL 00
-86 ASTO ST L
-87 FS?C 22
-88 STO IND ST L
-89 CLX
-90 RCL IND ST L
-91 ├"="
-92 ARCL ST X
-93 AVIEW
-94 RTN
-95▸LBL 11
-96 CLX
-97▸LBL 10
-98 STO "GrMod"
-99 GTO B
-100▸LBL 12
-101 2
-102 GTO 10
-103▸LBL 13
-104 3
-105 GTO 10
-106▸LBL 14
-107 1
-108▸LBL 17
-109 RCL "RefLCD"
-110 XOR
-111 STO "RefLCD"
-112 GTO B
-113▸LBL 15
-114 2
-115 GTO 17
-116▸LBL 16
-117 4
-118 GTO 17
-119 END
+LBL "VirtV"
+LBL A
+"DevID"
+KEY 1 XEQ 01
+"GrMod"
+KEY 2 XEQ 02
+"ResX"
+KEY 3 XEQ 03
+"ResY"
+KEY 4 XEQ 04
+"Vbat"
+KEY 5 XEQ 05
+"RefLCD"
+KEY 6 XEQ 06
+KEY 7 GTO B
+KEY 8 GTO B
+KEY 9 GTO 09
+MENU
+STOP
+GTO A
+LBL 09
+RTN
+LBL B
+RCL "GrMod"
+"HP"
+X=0?
+├"•"
+KEY 1 GTO 11
+"200"
+2
+-
+X=0?
+├"•"
+KEY 2 GTO 12
+1
+-
+"400"
+X=0?
+├"•"
+KEY 3 GTO 13
+1
+RCL "RefLCD"
+AND
+"Main"
+X≠0?
+├"•"
+KEY 4 GTO 14
+RCL "RefLCD"
+2
+AND
+"Goos"
+X≠0?
+├"•"
+KEY 5 GTO 15
+RCL "RefLCD"
+4
+AND
+"Ann"
+X≠0?
+├"•"
+KEY 6 GTO 16
+KEY 7 GTO A
+KEY 8 GTO A
+KEY 9 GTO 09
+MENU
+STOP
+RTN
+LBL 01
+"DevID"
+GTO 00
+LBL 02
+"GrMod"
+GTO 00
+LBL 03
+"ResX"
+GTO 00
+LBL 04
+"ResY"
+GTO 00
+LBL 05
+"Vbat"
+GTO 00
+LBL 06
+"RefLCD"
+LBL 00
+ASTO ST L
+FS?C 22
+STO IND ST L
+CLX
+RCL IND ST L
+├"="
+ARCL ST X
+AVIEW
+RTN
+LBL 11
+CLX
+LBL 10
+STO "GrMod"
+GTO B
+LBL 12
+2
+GTO 10
+LBL 13
+3
+GTO 10
+LBL 14
+1
+LBL 17
+RCL "RefLCD"
+XOR
+STO "RefLCD"
+GTO B
+LBL 15
+2
+GTO 17
+LBL 16
+4
+GTO 17
+END