diff --git a/src/samplesrc/hgr1.pla b/src/samplesrc/hgr1.pla
index c0e7b33..c16fed3 100644
--- a/src/samplesrc/hgr1.pla
+++ b/src/samplesrc/hgr1.pla
@@ -5,10 +5,12 @@ import cmdsys
     //
     const restxt1     = $0001
     const restxt2     = $0002
-    const reshgr1     = $0004
-    const reshgr2     = $0008
-    const resxhgr1    = $0010
-    const resxhgr2    = $0020
+    const resxtxt1    = $0004
+    const resxtxt2    = $0008
+    const reshgr1     = $0010
+    const reshgr2     = $0020
+    const resxhgr1    = $0040
+    const resxhgr2    = $0080
 end
 
 sysflags reshgr1	// Reserve HGR page 1
diff --git a/src/samplesrc/hgr1test.pla b/src/samplesrc/hgr1test.pla
index b8fa643..278a437 100644
--- a/src/samplesrc/hgr1test.pla
+++ b/src/samplesrc/hgr1test.pla
@@ -1,5 +1,7 @@
 import cmdsys
-    predef memset, memcpy, getc, heapalloc, heapmark, heaprelease
+    predef memset, memcpy, heapalloc, heapmark, heaprelease
+    predef puts, putc, gets, getc
+    predef isugt, isuge, isult, isule
 end
 import HGR1
 end
@@ -50,6 +52,7 @@ word           = $02D0,$06D0,$0AD0,$0ED0,$12D0,$16D0,$1AD0,$1ED0
 word           = $0350,$0750,$0B50,$0F50,$1350,$1750,$1B50,$1F50
 word           = $03D0,$07D0,$0BD0,$0FD0,$13D0,$17D0,$1BD0,$1FD0
 word hcolor[]  = $0000,$552A,$2A55,$7F7F,$8080,$D5AA,$AAD5,$FFFF
+word testval
 //
 // def draw_scan(d8p8, scanptr)
 //
@@ -116,7 +119,6 @@ def draw_ground(page)
         draw_scan((127 << fix_bits) / ip, hgrpage[page] + hgrscan[ip + 191 - view_height] + 2)
     next
 end
-
 draw_ground(page1)
 getc
 ^showpage1