VERSION 2

PROLOGUE
  MOVE MAP:0,0 @
  APPEAR MAP
END

ACTION MAP_PRESS(s:S,t:I,u:I,v:I) PRESS MAP
  LOCAL ix:I,iy:I
  LOCAL dx:I,dy:I
  LOCAL nx:I,ny:I
  $PDS=5
  ix=-1
  dx=$PDX-MAP.X;dy=$PDY-MAP.Y
  WHILE($PDB)
    nx=$PDX-dx;ny=$PDY-dy
    IF(nx!=ix||ny!=iy)
      IF(nx<64-MAP.W)
        nx=64-MAP.W
      ENDIF
      IF(ny<64-MAP.H)
        ny=64-MAP.H
      ENDIF
      IF(nx>$WDW-64)
        nx=$WDW-64
      ENDIF
      IF(ny>$WDH-64)
        ny=$WDH-64
      ENDIF
      MOVE MAP:nx,ny @
      ix=nx;iy=ny
    ENDIF
  ENDWHILE
  $PDS=0
END