diff --git a/src/inc/cmdsys.plh b/src/inc/cmdsys.plh
index 2327116..4a69623 100644
--- a/src/inc/cmdsys.plh
+++ b/src/inc/cmdsys.plh
@@ -2,7 +2,7 @@ import cmdsys
     //
     // Useful values for everyone
     //
-    const _SYSVER_ = $0201 // Version built against
+    const _SYSVER_ = $0210 // Version built against
     const FALSE    = 0
     const TRUE     = not FALSE
     const NULL     = 0
@@ -11,7 +11,7 @@ import cmdsys
     //
     const MACHID_CLOCK = $01
     const MACHID_80COL = $02
-    const MACHID_MEM   = $03
+    const MACHID_MEM   = $30
     const MACHID_64K   = $20
     const MACHID_128K  = $30
     const MACHID_MODEL = $C8
diff --git a/src/mk4th b/src/mk4th
index ff6d2b0..8b8a227 100755
--- a/src/mk4th
+++ b/src/mk4th
@@ -4,6 +4,7 @@ cat rel/HRFORTH#FE1000             | ./ac.jar -p   PLASMA-2.1-4TH.po sys/HRFORTH
 cat rel/HR2FORTH#FE1000            | ./ac.jar -p   PLASMA-2.1-4TH.po sys/HR2FORTH REL
 cat rel/PLFORTH#FE1000             | ./ac.jar -p   PLASMA-2.1-4TH.po sys/PLFORTH REL
 cat scripts/plasma.4th    	       | ./ac.jar -ptx PLASMA-2.1-4TH.po sys/scripts/PLASMA.4TH TXT
+cat scripts/machid.4th    	       | ./ac.jar -ptx PLASMA-2.1-4TH.po sys/scripts/MACHID.4TH TXT
 cat scripts/conio.4th     	       | ./ac.jar -ptx PLASMA-2.1-4TH.po sys/scripts/CONIO.4TH TXT
 cat scripts/fileio.4th    	       | ./ac.jar -ptx PLASMA-2.1-4TH.po sys/scripts/FILEIO.4TH TXT
 cat scripts/grlib.4th     	       | ./ac.jar -ptx PLASMA-2.1-4TH.po sys/scripts/GRLIB.4TH TXT
diff --git a/src/mk800 b/src/mk800
index 7bc84f4..e0c8ea0 100755
--- a/src/mk800
+++ b/src/mk800
@@ -61,6 +61,7 @@ cat rel/PLFORTH#FE1000             | ./ac.jar -p   PLASMA-2.1.po sys/PLFORTH REL
 
 #mkdir sys/scripts
 cat scripts/plasma.4th    	  | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/PLASMA.4TH TXT
+cat scripts/machid.4th    	  | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/MACHID.4TH TXT
 cat scripts/conio.4th     	  | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/CONIO.4TH TXT
 cat scripts/fileio.4th    	  | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/FILEIO.4TH TXT
 cat scripts/grlib.4th     	  | ./ac.jar -ptx PLASMA-2.1.po sys/scripts/GRLIB.4TH TXT
diff --git a/src/mkrel b/src/mkrel
index 2251538..345274f 100755
--- a/src/mkrel
+++ b/src/mkrel
@@ -61,6 +61,7 @@ cp rel/PLFORTH#FE1000             prodos/sys/PLFORTH.REL
 
 mkdir prodos/sys/scripts
 cp scripts/plasma.4th    	  prodos/sys/scripts/PLASMA.4TH.TXT
+cp scripts/machid.4th    	  prodos/sys/scripts/MACHID.4TH.TXT
 cp scripts/conio.4th     	  prodos/sys/scripts/CONIO.4TH.TXT
 cp scripts/fileio.4th    	  prodos/sys/scripts/FILEIO.4TH.TXT
 cp scripts/grlib.4th     	  prodos/sys/scripts/GRLIB.4TH.TXT
diff --git a/src/scripts/machid.4th b/src/scripts/machid.4th
new file mode 100644
index 0000000..480861b
--- /dev/null
+++ b/src/scripts/machid.4th
@@ -0,0 +1,14 @@
+' MACHID ENDSRC
+$01 CONSTANT MACHID_CLOCK
+$02 CONSTANT MACHID_80COL
+$30 CONSTANT MACHID_MEM
+$20 CONSTANT MACHID_64K
+$30 CONSTANT MACHID_128K
+$C8 CONSTANT MACHID_MODEL
+$00 CONSTANT MACHID_II
+$40 CONSTANT MACHID_IIPLUS
+$80 CONSTANT MACHID_IIE
+$C0 CONSTANT MACHID_III
+$88 CONSTANT MACHID_IIC
+$08 CONSTANT MACHID_I
+LOOKUP MACHID C@ CONSTANT MACHID
diff --git a/src/scripts/plasma.4th b/src/scripts/plasma.4th
index 32c3117..1e3527d 100644
--- a/src/scripts/plasma.4th
+++ b/src/scripts/plasma.4th
@@ -26,4 +26,4 @@ LOOKUP HEAPAVAIL PLASMA FREEMEM
 LOOKUP FILEIO 0  IFACE PLASMA GETPFX
 LOOKUP FILEIO 1  IFACE PLASMA SETPFX
 : PFX. HERE GETPFX DROP HERE (.") ;
-: PFX" 34 WORD SETPFX DROP ;
\ No newline at end of file
+: PFX" 34 WORD SETPFX DROP ;