Fix some low memory conditions

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"

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

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_