diff --git a/images/apple/PLASMA-2.1.po b/images/apple/PLASMA-2.1.po
index d9a22f1..a06bb4b 100644
Binary files a/images/apple/PLASMA-2.1.po and b/images/apple/PLASMA-2.1.po differ
diff --git a/images/apple/PLASMA2.2mg b/images/apple/PLASMA2.2mg
index 472d1e4..0016aa7 100644
Binary files a/images/apple/PLASMA2.2mg and b/images/apple/PLASMA2.2mg differ
diff --git a/images/apple/apple3.hd b/images/apple/apple3.hd
index 6819d66..363ad9a 100644
Binary files a/images/apple/apple3.hd and b/images/apple/apple3.hd differ
diff --git a/src/scripts/hrplot.4th b/src/scripts/hrplot.4th
index 1689838..9edbbac 100644
--- a/src/scripts/hrplot.4th
+++ b/src/scripts/hrplot.4th
@@ -1,6 +1,11 @@
 LOOKUP HRFORTH  ( HGR page 1 reserved )
 NOT ?ABORT" Must run with HRFORTH."
 
+SRC" MACHID.4TH"
+MACHID MACHID.MEM AND MACHID.128K
+<> ?ABORT" 128K required."
+FORGET MACHID
+
 SRC" PLASMA.4TH"
 SRC" CONIO.4TH"
 SRC" HGRLIB.4TH"
diff --git a/src/scripts/machid.4th b/src/scripts/machid.4th
index 640f7a0..f053f5d 100644
--- a/src/scripts/machid.4th
+++ b/src/scripts/machid.4th
@@ -1,4 +1,5 @@
 ' MACHID ?ENDSRC
+LOOKUP MACHID C@ CONSTANT MACHID
 $01 CONSTANT MACHID.CLOCK
 $02 CONSTANT MACHID.80COL
 $30 CONSTANT MACHID.MEM
@@ -11,4 +12,3 @@ $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/toolsrc/plforth.pla b/src/toolsrc/plforth.pla
index f0c7f6f..743ef1d 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -237,10 +237,14 @@ word = @d_lshift, 0, 0, $9C
 char d_eq = "="
 byte = inline_flag
 word = @d_rshift, 0, 0, $40
+// NOT EQUALS
+char d_ne = "<>"
+byte = inline_flag
+word = @d_eq, 0, 0, $42
 // GREATER THAN
 char d_gt = ">"
 byte = inline_flag
-word = @d_eq, 0, 0, $44
+word = @d_ne, 0, 0, $44
 // LESS THAN
 char d_lt = "<"
 byte = inline_flag
@@ -297,7 +301,7 @@ word = @d_wset, 0, @_wplusset_
 char d_cget = "C@"
 byte = inline_flag
 word = @d_wplusset, 0, 0, $60
-// WORD SET
+// WORD GET
 char d_wget = "@"
 byte = inline_flag
 word = @d_cget, 0, 0, $62
@@ -481,7 +485,7 @@ word = @d_create, 0, @_does_
 char d_comma = ","
 byte = showcr_flag
 word = @d_does, 0, @_dictaddw_
-// COMMA
+// CHAR COMMA
 char d_commab = "C,"
 byte = showcr_flag
 word = @d_comma, 0, @_dictaddb_