Cal error any help

Getting error 3 ( wrong number of argument while ) for the script below.
 
 
The script works when the 2nd track section is removed. But I want to have 8 sections for 8 tracks.
 
 
Create at least 2 midi tracks at top of tracks window.
 
 
Ideas?
 
 
 
(do       
 ;; initialize variables      
 (dword TimeNow 0)      
 (dword TimeTotal 0)      
 (dword TimeEnd 0)      
 (dword BeatsPM 0)      
 (dword TicksPQ 0)      
 (int ChannelNumber 0)      
 (dword TotalTracks 0)      
 (dword TracksDone 0)      
 ;;;;;; set known variables      
 ;;      
;; (getInt ChannelNumber "ChannelNumber:  " 0 15)      
 ;;      
 ;; set default values      
 (= TimeNow 0)      
 (= TimeTotal 10)      
 (= TimeEnd 0)      
 (= BeatsPM 120)      
 (= TicksPQ 960)      
 (= ChannelNumber 6)      
 (= TotalTracks 8)  ;;  NUMBER OF TRACKS TO CREATE AND ADD   
 (= TracksDone 0)      
 ;;       
 ;; convert time to ticks       
 (= TimeEnd (* BeatsPM TicksPQ))      
 ;; (pause "TimeEnd " TimeEnd)     
 ;;       
 (= TimeEnd (* TimeEnd TimeTotal))      
 ;; (pause "TimeEnd " TimeEnd)     
 ;;      
 ;; insert TotalTracks     
       
       
 (do      
  (while (< TracksDone TotalTracks)     
   (do    
    (= TimeNow 0)   
    (TrackSelect 1 0)   
    (do   
     (while (< TimeNow TimeEnd)  
      (do 
       (= TimeNow (+ TimeNow 7680))      ;; on the one of every other measure
       (insert TimeNow ChannelNumber NOTE 52 127 60)
       (= TracksDone (+ TracksDone 1))
      ) 
     )  
    )   
   )    
;;     2nd track
   (do    
    (= TimeNow 0)   
    (TrackSelect 1 1)   
    (do   
     (while (< TimeNow TimeEnd)  
      (do 
       (= TimeNow (+ TimeNow 3840))      ;; on the 1
       (insert TimeNow ChannelNumber NOTE 52 127 60)
       (= TracksDone (+ TracksDone 1))
      ) 
     )  
    )   
   )    
  )     
 )      
)       

Thanks for the references.

But, got all that and more. This appears to be one of the many undocumented bugs.

I have lots of little cal scipts that work fine.  But this one is not????

Must be a spce in the wrong place, cuz the parenths appear to be good.

J

I'm no expert, either, but it looked like you closed your "(while (< TracksDone TotalTracks)" before the second track was done. So I took out a couple of parens right before the second track section to open the "while" and "do" back up, and moved them down to the bottom. But I must still be missing something, because it runs without errors, but doesn't fill the second track.

FWIW, here's what I've got:

(do        
 ;; initialize variables       
 (dword TimeNow 0)       
 (dword TimeTotal 0)       
 (dword TimeEnd 0)       
 (dword BeatsPM 0)       
 (dword TicksPQ 0)       
 (int ChannelNumber 0)       
 (dword TotalTracks 0)       
 (dword TracksDone 0)       
 ;;;;;; set known variables       
 ;;       
;; (getInt ChannelNumber "ChannelNumber:  " 0 15)       
 ;;       
 ;; set default values       
 (= TimeNow 0)       
 (= TimeTotal 10)       
 (= TimeEnd 0)       
 (= BeatsPM 120)       
 (= TicksPQ 960)       
 (= ChannelNumber 6)       
 (= TotalTracks 8)  ;;  NUMBER OF TRACKS TO CREATE AND ADD    
 (= TracksDone 0)       
 ;;        
 ;; convert time to ticks        
 (= TimeEnd (* BeatsPM TicksPQ))       
 ;; (pause "TimeEnd " TimeEnd)      
 ;;        
 (= TimeEnd (* TimeEnd TimeTotal))       
 ;; (pause "TimeEnd " TimeEnd)      
 ;;       
 ;; insert TotalTracks      
        
        
 (do       
  (while (< TracksDone TotalTracks)      
   (do     
    (= TimeNow 0)    
    (TrackSelect 1 0)    
    (do    
     (while (< TimeNow TimeEnd)   
      (do  
       (= TimeNow (+ TimeNow 7680))      ;; on the one of every other measure 
       (insert TimeNow ChannelNumber NOTE 52 127 60) 
       (= TracksDone (+ TracksDone 1)) 
      )  
     )
    )   
     
;;     2nd track 
   
    (= TimeNow 0)    
    (TrackSelect 1 1)    
    (do    
     (while (< TimeNow TimeEnd)   
      (do  
       (= TimeNow (+ TimeNow 3840))      ;; on the 1 
       (insert TimeNow ChannelNumber NOTE 52 127 60) 
       (= TracksDone (+ TracksDone 1)) 
      )  
     )   
    )    
   )     
  )      
 )       
)     

I still don't know what this CAL script is supposed to do. (insert dorky smiley face here). Is this something you could use track templates for? If the CAL script is supposed to save time and effort it seems you're already in the minus column. (Insert different dorky smiley face here)