REM An example of how to use gPEEKLINE

PROC main:
  local d%(1)
  local count%
  local id%

  count%=0
  id%=gcreate(50,10,200,10,1)
  guse id%
  glineby 12,0

  gPEEKLINE id%,0,0,d%(),17

  do
    print peekb(uadd(addr(d%()),count%))
    count% = count% + 1
  until count% = 2
  get
ENDP