(deffun go_to_next_tab (
  if not(counter>0 tab-width) (set-counter tab-width 8) fi
  store-pos g-t-n-t-x
  inv-counter g-t-n-t-x
  add-counter g-t-n-t-x 1
  do (
    sum-counter g-t-n-t-x tab-width
  ) while not(or(counter>0 g-t-n-t-x,counter-0 g-t-n-t-x))
  if counter-0 g-t-n-t-x (sum-counter g-t-n-t-x tab-width) fi
  do (
    "  add-counter g-t-n-t-x -1
  ) while counter>0 g-t-n-t-x
))
(deffun define-tab (
  prompt-counter tab-width "tab-width->
))
