Free little CAL program to set program changes quickly

Sonar platinum still hasn't fixed the Bank/Patch Select dialog, so it takes what seems like forever to make a simple change of program number.   Here's a CAL program that does it.   I have it assigned to the A key, so three fast key strokes and it's done.   Only sets one patch number, but if you select many notes all of which require the same patch, it will put the patch number in front of each note.    The body uses CAL's deceptive IF-ELSE structure, so it looks for a NOTE or else a PATCH.   It uses a fixed bank number, but you could add another getInt statement to ask for bank number, if you like.
 
;  add_patch.cal
;
;  Set patch for selection of notes or existing patches
;
;

(do
  (int adjval  1)
  (int new_bank 1)    ; New Bank number
  (int new_patch 1)
 
  (getInt new_patch "New Patch Number: " 1 126 )

 
)

;; Body

(do

  (if (== Event.Kind NOTE)
      (insert (- Event.Time 3) Event.Chan PATCH  new_patch new_bank )
      
      (if (== Event.Kind PATCH) (do
           (delete)
           (insert Event.Time Event.Chan PATCH new_patch new_bank)
         )
      )      
   )
)