diff --git a/images/apple/PLASMA2-SYS.PO b/images/apple/PLASMA2-SYS.PO
index 2a16a39..d3b1bed 100755
Binary files a/images/apple/PLASMA2-SYS.PO and b/images/apple/PLASMA2-SYS.PO differ
diff --git a/images/apple/PLASMA2.2mg b/images/apple/PLASMA2.2mg
index 45da330..78d3ffc 100644
Binary files a/images/apple/PLASMA2.2mg and b/images/apple/PLASMA2.2mg differ
diff --git a/src/samplesrc/hgr1test.pla b/src/samplesrc/hgr1test.pla
index 41efef9..97ace56 100644
--- a/src/samplesrc/hgr1test.pla
+++ b/src/samplesrc/hgr1test.pla
@@ -20,6 +20,54 @@ const hgr2         = $4000
 const page1        = 0
 const page2        = 1
 word hgrpage[] = hgr1, hgr2
+byte hgradrl[] = $00,$00,$00,$00,$00,$00,$00,$00
+word           = $80,$80,$80,$80,$80,$80,$80,$80
+word           = $00,$00,$00,$00,$00,$00,$00,$00
+word           = $80,$80,$80,$80,$80,$80,$80,$80
+word           = $00,$00,$00,$00,$00,$00,$00,$00
+word           = $80,$80,$80,$80,$80,$80,$80,$80
+word           = $00,$00,$00,$00,$00,$00,$00,$00
+word           = $80,$80,$80,$80,$80,$80,$80,$80
+word           = $28,$28,$28,$28,$28,$28,$28,$28
+word           = $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
+word           = $28,$28,$28,$28,$28,$28,$28,$28
+word           = $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
+word           = $28,$28,$28,$28,$28,$28,$28,$28
+word           = $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
+word           = $28,$28,$28,$28,$28,$28,$28,$28
+word           = $A8,$A8,$A8,$A8,$A8,$A8,$A8,$A8
+word           = $50,$50,$50,$50,$50,$50,$50,$50
+word           = $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
+word           = $50,$50,$50,$50,$50,$50,$50,$50
+word           = $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
+word           = $50,$50,$50,$50,$50,$50,$50,$50
+word           = $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
+word           = $50,$50,$50,$50,$50,$50,$50,$50
+word           = $D0,$D0,$D0,$D0,$D0,$D0,$D0,$D0
+byte hgradrh[] = $00,$04,$08,$0C,$10,$14,$18,$1C
+word           = $00,$04,$08,$0C,$10,$14,$18,$1C
+word           = $01,$05,$09,$0D,$11,$15,$19,$1D
+word           = $01,$05,$09,$0D,$11,$15,$19,$1D
+word           = $02,$06,$0A,$0E,$12,$16,$1A,$1E
+word           = $02,$06,$0A,$0E,$12,$16,$1A,$1E
+word           = $03,$07,$0B,$0F,$13,$17,$1B,$1F
+word           = $03,$07,$0B,$0F,$13,$17,$1B,$1F
+word           = $00,$04,$08,$0C,$10,$14,$18,$1C
+word           = $00,$04,$08,$0C,$10,$14,$18,$1C
+word           = $01,$05,$09,$0D,$11,$15,$19,$1D
+word           = $01,$05,$09,$0D,$11,$15,$19,$1D
+word           = $02,$06,$0A,$0E,$12,$16,$1A,$1E
+word           = $02,$06,$0A,$0E,$12,$16,$1A,$1E
+word           = $03,$07,$0B,$0F,$13,$17,$1B,$1F
+word           = $03,$07,$0B,$0F,$13,$17,$1B,$1F
+word           = $00,$04,$08,$0C,$10,$14,$18,$1C
+word           = $00,$04,$08,$0C,$10,$14,$18,$1C
+word           = $01,$05,$09,$0D,$11,$15,$19,$1D
+word           = $01,$05,$09,$0D,$11,$15,$19,$1D
+word           = $02,$06,$0A,$0E,$12,$16,$1A,$1E
+word           = $02,$06,$0A,$0E,$12,$16,$1A,$1E
+word           = $03,$07,$0B,$0F,$13,$17,$1B,$1F
+word           = $03,$07,$0B,$0F,$13,$17,$1B,$1F
 word hgrscan[] = $0000,$0400,$0800,$0C00,$1000,$1400,$1800,$1C00
 word           = $0080,$0480,$0880,$0C80,$1080,$1480,$1880,$1C80
 word           = $0100,$0500,$0900,$0D00,$1100,$1500,$1900,$1D00
@@ -45,11 +93,29 @@ 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 ball0[9] = $0000, $1800, $3C00, $7E00, $7E00, $3C00, $1800, $0000
+
+def hgrBLT(page, x, y, w, h, pSrc)#0
+    word pDst
+    byte i
+
+    repeat
+        pDst = hgrscan[y] | page + x
+        for i = 0 to w - 1
+            pDst->[i] = pSrc->[i]
+        next
+        pSrc = pSrc + w
+        y++
+        h--
+    until not h
+end
 memset(hgr1, 0, $2000) // Clear HGR page 1
 ^showpage1
 ^showfull
 ^showhires
 ^showgraphics
+hgrBlt(hgrpage[0], 20, 100, 2, 8, @ball0)
 getc
 ^showpage1
 ^showtext