PEEK/POKE Video buffer

[BDS107]

Hello everyone,
In the good old days we used PEEK and POKE to read and write on the screen address. See also the example below.

Code: (Select All)

SCREEN 0
WIDTH 80, 25
DEF SEG = &HB800
DO
  FOR a = 0 TO 4000 STEP 4
      x = INT(RND * 2) + 48
      y = ((INT(RND * 2)) * 8) + 2
      POKE a, x
      POKE a + 1, y
  NEXT
LOOP UNTIL INKEY$ <> ""
SYSTEM

If we use SCREEN _NEWIMAGE(80, 25, 0) it no longer works. See example below.
Any suggestions on how to use PEEK/POKE?

Code: (Select All)

SCREEN _NEWIMAGE(80, 25, 0)
DEF SEG = &HB800
DO
  FOR a = 0 TO 4000 STEP 4
      x = INT(RND * 2) + 48
      y = ((INT(RND * 2)) * 8) + 2
      POKE a, x
      POKE a + 1, y
  NEXT
LOOP UNTIL INKEY$ <> ""
SYSTEM