refmacro 1
=loop
  monopoint
  if ($button == 3) goto exit
  if ($dim == 1) then
    print ($pointx[1];" : "; val1d($pointx[1]))
    showline $pointx[1] 1 $pointx[1] 100
  elsif ($dim == 2) then
    print ($pointy[1];$pointx[1];" : "; val2d($pointy[1],$pointx[1]))
    showline 1 $pointy[1] $si2_2d $pointy[1]
    showline $pointx[1] 1 $pointx[1] $si1_2d
  endif
  goto loop
refmacro 0
=exit
exit
