tiers = do ("Get number of tiers") writeInfo () for n to tiers tierName$ [n] = do$ ("Get tier name...", n) intervalsInTier [n] = do ("Get number of intervals...", n) appendInfoLine ("Intervals in """, tierName$ [n], """ tier:") for i to intervalsInTier [n] intervalLabel$ [i] = do$ ("Get label of interval...", n, i) if length(intervalLabel$ [i]) <> 0 appendInfo (intervalLabel$ [i]) startPoint = do ("Get start point...", n, i) endPoint = do ("Get end point...", n, i) intervalLength = endPoint - startPoint appendInfoLine (tab$, fixed$ (intervalLength, 3)) endif endfor appendInfoLine () endfor