*** This script appropriates ordered row of extra-tags to specified number of sectors starting from each selected one.

// Parameter list begins
mov r96 32 // Number of sectors including selected one
mov r97 0 // Extra-tag offset
mov r98 1 // Extra-tag multiplier
mov r99 0 // Consider selected sector extra-tag
// Parameter list ends
~~~ Default parameters:
~~~ mov r96 32 // Number of sectors including selected one
~~~ mov r97 0 // Extra-tag offset
~~~ mov r98 1 // Extra-tag multiplier
~~~ mov r99 0 // Consider selected sector extra-tag
mov r00 -1
for each selected sector r00
  mov r01 r00
  mov r02 r01
  add r02 r96
  getsectornumber r03
  min r02 r03
  mov r04 r97
  if r99 != 0
    getsector r00 extra r05
    add r04 r05
  endif
  while r01 < r02
    setsector r01 extra r04
    add r04 r98
    inc r01
  continue
continue