'Save as ColMMR.vbs
'Command WScript Scripts\ColMMR.vbs <PROMPT:BarCount?=#>
'Writes out a collapsed MMR

Set StdOut = WScript.StdOut
Set Args = WScript.Arguments
With StdOut
  .WriteLine "!NoteWorthyComposerClip(2.5,Single)"
  .WriteLine "|Boundary|Style:Collapse"
  .WriteLine "|Bar"
  .WriteLine "|RestMultiBar|NumBars:" & Args.Item(0) & "|WhenHidden:ShowBars,ShowRests"
  .WriteLine "|Bar"
  .WriteLine "|Boundary|Style:EndCollapse"
  .WriteLine "!NoteWorthyComposerClip-End"
End With