Using Cakewalk to Adapt Music for Street Organ
by Hans van Oost (030419 MMDigest)

I have attached a prepared CAL [Cakewalk Application Language] program which is used by Dutch arrangers to make their own adjustments in a MIDI file.  It is necessary if you want to print the music onto paper rolls for hand punching, or for feeding an automatic punch machine.  The purpose is to edit the prepared program: note A (from 0 till 127) will play note X.  This has to be done for all notes on the organ scale.  The program then can be saved under another name, so you may use the standard over and over again.

Then, select all music on the track, and run the CAL program.  I must warn that you cannot play it on your computer afterwards.  There is a way to do that, but it would take too long to describe here.

Regards from the Netherlands,

Hans van Oost
19 Apr 2003 13:18:07 +0200

--------------------

;This will convert a template or MIDI scale to (fill in)
;copyright: Kring van Draaiorgelvrienden, Netherlands
;only notes, registers and drums

; prolog
(do
	(= From 0)
	(= Thru End)
)
; body
(do
	(if (== Event.Kind NOTE)
		(do
			(switch Note.Key
				0	(= Note.Key 0 ); means that note 0 (C0) will play from nr. 0) 
				1	(= Note.Key  ); 
				2	(= Note.Key ); 
				3	(= Note.Key ); 
				4	(= Note.Key ); 
				5	(= Note.Key )
				6	(= Note.Key )
				7	(= Note.Key );
				8	(= Note.Key ); 
				9	(= Note.Key ); 
				10	(= Note.Key );
				11	(= Note.Key ); 
				12	(= Note.Key ); 
				13	(= Note.Key ); 
				14	(= Note.Key ); 
				15	(= Note.Key ); 
				16	(= Note.Key );
				17	(= Note.Key ); 
				18	(= Note.Key ); 
				19	(= Note.Key ); 
				20	(= Note.Key ); 
				21	(= Note.Key ); 
				22	(= Note.Key ); 
				23	(= Note.Key ); 
				24	(= Note.Key ); 
				25	(= Note.Key ); 
				26	(= Note.Key ); 
				27	(= Note.Key ); 
				28	(= Note.Key ); 
				29	(= Note.Key ); 
				30	(= Note.Key ); 
				31	(= Note.Key ); 
				32	(= Note.Key ); 
				33	(= Note.Key ); 
				34	(= Note.Key ); 
				35	(= Note.Key ); 
				36	(= Note.Key ); 
				37	(= Note.Key ); 
				38	(= Note.Key );
				39	(= Note.Key ); 
				40	(= Note.Key ); 
				41	(= Note.Key ); 
				42	(= Note.Key ); 
				43	(= Note.Key ); 
				44	(= Note.Key ); 
				45	(= Note.Key ); 
				46	(= Note.Key ); 
				47	(= Note.Key );
				48	(= Note.Key ); 
				49	(= Note.Key ); 
				50	(= Note.Key ); 
				51	(= Note.Key ); 
				52	(= Note.Key ); 
				53	(= Note.Key ); 
				54	(= Note.Key ); 
				55	(= Note.Key ); 
				56	(= Note.Key ); 
				57	(= Note.Key ); 
				58	(= Note.Key ); 
				59	(= Note.Key ); 
				60	(= Note.Key ); 
				61	(= Note.Key ); 
				62	(= Note.Key ); 
				63	(= Note.Key ); 
				64	(= Note.Key ); 
				65	(= Note.Key ); 
				66	(= Note.Key ); 
				67	(= Note.Key ); 
				68	(= Note.Key );	
				69	(= Note.Key ); 
				70	(= Note.Key );	
				71	(= Note.Key ); 
				72	(= Note.Key ); 
				73	(= Note.Key ); 
				74	(= Note.Key ); 
				75	(= Note.Key );	
				76	(= Note.Key ); 
				77	(= Note.Key ); 
				78	(= Note.Key );
				79	(= Note.Key ); 
				80	(= Note.Key );	
				81	(= Note.Key ); 
				82	(= Note.Key ); 
				83	(= Note.Key ); 
				84	(= Note.Key ); 
				85	(= Note.Key );	
				86	(= Note.Key );	
				87	(= Note.Key );
				88	(= Note.Key );
				89	(= Note.Key );
				90	(= Note.Key );
				91	(= Note.Key );
				92	(= Note.Key ); 
				93	(= Note.Key );
				94	(= Note.Key ); 
				95	(= Note.Key ); 
				96	(= Note.Key );	
				97	(= Note.Key ); 
				98	(= Note.Key );	
				99	(= Note.Key ); 
				100	(= Note.Key ); 
				101	(= Note.Key ); 
				102	(= Note.Key ); 
				103	(= Note.Key );	
				104	(= Note.Key ); 
				105	(= Note.Key );	
				106	(= Note.Key ); 
				107	(= Note.Key ); 
				108	(= Note.Key );	
				109	(= Note.Key ); 
				110	(= Note.Key );	
				111	(= Note.Key ); 
				112	(= Note.Key ); 
				113	(= Note.Key );	
				114	(= Note.Key ); 
				115	(= Note.Key );	
				116	(= Note.Key ); 
				117	(= Note.Key );	
				118	(= Note.Key ); 
				119	(= Note.Key ); 
				120	(= Note.Key )
				121	(= Note.Key )
				122	(= Note.Key )
				123	(= Note.Key )
				124	(= Note.Key )
								
			)
		)
		NIL
	)
)

; epilog
NIL

--------------------


19 April 2003