


[01;34mwith[m Text_Io[31m;[m                           [01;34muse[m Text_Io[31m;[m

[01;34mpackage[m [01;34mbody[m Libsens[31m.[mRhetorica [01;34mis[m



   [01;34mfunction[m [01;30mInitialize[m [31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m
			Form [31m:[m Form_Type[31m;[m
			Category [31m:[m Category_Type[31m)[m [01;34mreturn[m arche_access [01;34mis[m

      Arche [31m:[m arche_access[31m;[m
   [01;34mbegin[m
      [01;34mcase[m Form [01;34mis[m
	 [01;34mwhen[m ACID [31m=>[m
	    [01;34mcase[m Category [01;34mis[m
	       [01;34mwhen[m Null_Cat [31m=>[m
		  [01;34mnull[m[31m;[m
	       [01;34mwhen[m BASS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_BASS_Type[31m;[m
	       [01;34mwhen[m LEAD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_LEAD_Type[31m;[m
	       [01;34mwhen[m SYNTH_HARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_SYNTH_HARD_Type[31m;[m
	       [01;34mwhen[m SYNTH_SOFT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_SYNTH_SOFT_Type[31m;[m
	       [01;34mwhen[m MOTION [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_MOTION_Type[31m;[m
	       [01;34mwhen[m STRINGS_N_PADS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_STRINGS_N_PADS_Type[31m;[m
	       [01;34mwhen[m KEYBOARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_KEYBOARD_Type[31m;[m
	       [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_GUITARE_N_PLUCK_Type[31m;[m
	       [01;34mwhen[m BELL_N_DECAY [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_BELL_N_DECAY_Type[31m;[m
	       [01;34mwhen[m HIT_N_DRUM [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_HIT_N_DRUM_Type[31m;[m
	       [01;34mwhen[m S_E [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_S_E_Type[31m;[m
	       [01;34mwhen[m ARP_SEQ [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_ARP_SEQ_Type[31m;[m
	       [01;34mwhen[m SPLIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_SPLIT_Type[31m;[m
		  [01;34mwhen[m AUDIO_IN [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  ACID_AUDIO_IN_Type[31m;[m
		  [01;34mwhen[m VOCODER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  ACID_VOCODER_Type[31m;[m
		  [01;34mwhen[m USER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  ACID_USER_Type[31m;[m
	       [01;34mwhen[m DRUMS_KIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  ACID_DRUMS_KIT_Type[31m;[m

	    [01;34mend[m [01;34mcase[m[31m;[m
	 [01;34mwhen[m TECHNO [31m=>[m
	    [01;34mcase[m Category [01;34mis[m
	       [01;34mwhen[m Null_Cat [31m=>[m
		  [01;34mnull[m[31m;[m
	       [01;34mwhen[m BASS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_BASS_Type[31m;[m
	       [01;34mwhen[m LEAD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_LEAD_Type[31m;[m
	       [01;34mwhen[m SYNTH_HARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_SYNTH_HARD_Type[31m;[m
	       [01;34mwhen[m SYNTH_SOFT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_SYNTH_SOFT_Type[31m;[m
	       [01;34mwhen[m MOTION [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_MOTION_Type[31m;[m
	       [01;34mwhen[m STRINGS_N_PADS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_STRINGS_N_PADS_Type[31m;[m
	       [01;34mwhen[m KEYBOARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_KEYBOARD_Type[31m;[m
	       [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_GUITARE_N_PLUCK_Type[31m;[m
	       [01;34mwhen[m BELL_N_DECAY [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_BELL_N_DECAY_Type[31m;[m
	       [01;34mwhen[m HIT_N_DRUM [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_HIT_N_DRUM_Type[31m;[m
	       [01;34mwhen[m S_E [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_S_E_Type[31m;[m
	       [01;34mwhen[m ARP_SEQ [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_ARP_SEQ_Type[31m;[m
	       [01;34mwhen[m SPLIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_SPLIT_Type[31m;[m
		  [01;34mwhen[m AUDIO_IN [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  TECHNO_AUDIO_IN_Type[31m;[m
		  [01;34mwhen[m VOCODER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  TECHNO_VOCODER_Type[31m;[m
		  [01;34mwhen[m USER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  TECHNO_USER_Type[31m;[m
	       [01;34mwhen[m DRUMS_KIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TECHNO_DRUMS_KIT_Type[31m;[m

	    [01;34mend[m [01;34mcase[m[31m;[m
	 [01;34mwhen[m TRIBE [31m=>[m
	    [01;34mcase[m Category [01;34mis[m
	       [01;34mwhen[m Null_Cat [31m=>[m
		  [01;34mnull[m[31m;[m
	       [01;34mwhen[m BASS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_BASS_Type[31m;[m
	       [01;34mwhen[m LEAD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_LEAD_Type[31m;[m
	       [01;34mwhen[m SYNTH_HARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_SYNTH_HARD_Type[31m;[m
	       [01;34mwhen[m SYNTH_SOFT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_SYNTH_SOFT_Type[31m;[m
	       [01;34mwhen[m MOTION [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_MOTION_Type[31m;[m
	       [01;34mwhen[m STRINGS_N_PADS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_STRINGS_N_PADS_Type[31m;[m
	       [01;34mwhen[m KEYBOARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_KEYBOARD_Type[31m;[m
	       [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_GUITARE_N_PLUCK_Type[31m;[m
	       [01;34mwhen[m BELL_N_DECAY [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_BELL_N_DECAY_Type[31m;[m
	       [01;34mwhen[m HIT_N_DRUM [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_HIT_N_DRUM_Type[31m;[m
	       [01;34mwhen[m S_E [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_S_E_Type[31m;[m
	       [01;34mwhen[m ARP_SEQ [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_ARP_SEQ_Type[31m;[m
	       [01;34mwhen[m SPLIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_SPLIT_Type[31m;[m
		  [01;34mwhen[m AUDIO_IN [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  TRIBE_AUDIO_IN_Type[31m;[m
		  [01;34mwhen[m VOCODER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  TRIBE_VOCODER_Type[31m;[m
		  [01;34mwhen[m USER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  TRIBE_USER_Type[31m;[m
	       [01;34mwhen[m DRUMS_KIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRIBE_DRUMS_KIT_Type[31m;[m


	    [01;34mend[m [01;34mcase[m[31m;[m
	 [01;34mwhen[m HARDTECH [31m=>[m
	    [01;34mcase[m Category [01;34mis[m
	       [01;34mwhen[m Null_Cat [31m=>[m
		  [01;34mnull[m[31m;[m
	       [01;34mwhen[m BASS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_BASS_Type[31m;[m
	       [01;34mwhen[m LEAD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_LEAD_Type[31m;[m
	       [01;34mwhen[m SYNTH_HARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_SYNTH_HARD_Type[31m;[m
	       [01;34mwhen[m SYNTH_SOFT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_SYNTH_SOFT_Type[31m;[m
	       [01;34mwhen[m MOTION [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_MOTION_Type[31m;[m
	       [01;34mwhen[m STRINGS_N_PADS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_STRINGS_N_PADS_Type[31m;[m
	       [01;34mwhen[m KEYBOARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_KEYBOARD_Type[31m;[m
	       [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_GUITARE_N_PLUCK_Type[31m;[m
	       [01;34mwhen[m BELL_N_DECAY [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_BELL_N_DECAY_Type[31m;[m
	       [01;34mwhen[m HIT_N_DRUM [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_HIT_N_DRUM_Type[31m;[m
	       [01;34mwhen[m S_E [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_S_E_Type[31m;[m
	       [01;34mwhen[m ARP_SEQ [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_ARP_SEQ_Type[31m;[m
	       [01;34mwhen[m SPLIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_SPLIT_Type[31m;[m
		  [01;34mwhen[m AUDIO_IN [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  HARDTECH_AUDIO_IN_Type[31m;[m
		  [01;34mwhen[m VOCODER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  HARDTECH_VOCODER_Type[31m;[m
		  [01;34mwhen[m USER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  HARDTECH_USER_Type[31m;[m
	       [01;34mwhen[m DRUMS_KIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDTECH_DRUMS_KIT_Type[31m;[m

	    [01;34mend[m [01;34mcase[m[31m;[m
	 [01;34mwhen[m HARDCORE [31m=>[m
	    [01;34mcase[m Category [01;34mis[m
	       [01;34mwhen[m Null_Cat [31m=>[m
		  [01;34mnull[m[31m;[m
	       [01;34mwhen[m BASS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_BASS_Type[31m;[m
	       [01;34mwhen[m LEAD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_LEAD_Type[31m;[m
	       [01;34mwhen[m SYNTH_HARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_SYNTH_HARD_Type[31m;[m
	       [01;34mwhen[m SYNTH_SOFT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_SYNTH_SOFT_Type[31m;[m
	       [01;34mwhen[m MOTION [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_MOTION_Type[31m;[m
	       [01;34mwhen[m STRINGS_N_PADS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_STRINGS_N_PADS_Type[31m;[m
	       [01;34mwhen[m KEYBOARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_KEYBOARD_Type[31m;[m
	       [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_GUITARE_N_PLUCK_Type[31m;[m
	       [01;34mwhen[m BELL_N_DECAY [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_BELL_N_DECAY_Type[31m;[m
	       [01;34mwhen[m HIT_N_DRUM [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_HIT_N_DRUM_Type[31m;[m
	       [01;34mwhen[m S_E [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_S_E_Type[31m;[m
	       [01;34mwhen[m ARP_SEQ [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_ARP_SEQ_Type[31m;[m
	       [01;34mwhen[m SPLIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_SPLIT_Type[31m;[m
		  [01;34mwhen[m AUDIO_IN [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  HARDCORE_AUDIO_IN_Type[31m;[m
		  [01;34mwhen[m VOCODER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  HARDCORE_VOCODER_Type[31m;[m
		  [01;34mwhen[m USER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  HARDCORE_USER_Type[31m;[m
	       [01;34mwhen[m DRUMS_KIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  HARDCORE_DRUMS_KIT_Type[31m;[m

	    [01;34mend[m [01;34mcase[m[31m;[m
	 [01;34mwhen[m TRANCE [31m=>[m
	    [01;34mcase[m Category [01;34mis[m
	       [01;34mwhen[m Null_Cat [31m=>[m
		  [01;34mnull[m[31m;[m
	       [01;34mwhen[m BASS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_BASS_Type[31m;[m
	       [01;34mwhen[m LEAD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_LEAD_Type[31m;[m
	       [01;34mwhen[m SYNTH_HARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_SYNTH_HARD_Type[31m;[m
	       [01;34mwhen[m SYNTH_SOFT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_SYNTH_SOFT_Type[31m;[m
	       [01;34mwhen[m MOTION [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_MOTION_Type[31m;[m
	       [01;34mwhen[m STRINGS_N_PADS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_STRINGS_N_PADS_Type[31m;[m
	       [01;34mwhen[m KEYBOARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_KEYBOARD_Type[31m;[m
	       [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_GUITARE_N_PLUCK_Type[31m;[m
	       [01;34mwhen[m BELL_N_DECAY [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_BELL_N_DECAY_Type[31m;[m
	       [01;34mwhen[m HIT_N_DRUM [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_HIT_N_DRUM_Type[31m;[m
	       [01;34mwhen[m S_E [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_S_E_Type[31m;[m
	       [01;34mwhen[m ARP_SEQ [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_ARP_SEQ_Type[31m;[m
	       [01;34mwhen[m SPLIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_SPLIT_Type[31m;[m
		  [01;34mwhen[m AUDIO_IN [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  TRANCE_AUDIO_IN_Type[31m;[m
		  [01;34mwhen[m VOCODER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  TRANCE_VOCODER_Type[31m;[m
		  [01;34mwhen[m USER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  TRANCE_USER_Type[31m;[m
	       [01;34mwhen[m DRUMS_KIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  TRANCE_DRUMS_KIT_Type[31m;[m

	    [01;34mend[m [01;34mcase[m[31m;[m
	 [01;34mwhen[m MINIMAL [31m=>[m
	    [01;34mcase[m Category [01;34mis[m
	       [01;34mwhen[m Null_Cat [31m=>[m
		  [01;34mnull[m[31m;[m
	       [01;34mwhen[m BASS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_BASS_Type[31m;[m
	       [01;34mwhen[m LEAD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_LEAD_Type[31m;[m
	       [01;34mwhen[m SYNTH_HARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_SYNTH_HARD_Type[31m;[m
	       [01;34mwhen[m SYNTH_SOFT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_SYNTH_SOFT_Type[31m;[m
	       [01;34mwhen[m MOTION [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_MOTION_Type[31m;[m
	       [01;34mwhen[m STRINGS_N_PADS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_STRINGS_N_PADS_Type[31m;[m
	       [01;34mwhen[m KEYBOARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_KEYBOARD_Type[31m;[m
	       [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_GUITARE_N_PLUCK_Type[31m;[m
	       [01;34mwhen[m BELL_N_DECAY [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_BELL_N_DECAY_Type[31m;[m
	       [01;34mwhen[m HIT_N_DRUM [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_HIT_N_DRUM_Type[31m;[m
	       [01;34mwhen[m S_E [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_S_E_Type[31m;[m
	       [01;34mwhen[m ARP_SEQ [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_ARP_SEQ_Type[31m;[m
	       [01;34mwhen[m SPLIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_SPLIT_Type[31m;[m
	       [01;34mwhen[m AUDIO_IN [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_AUDIO_IN_Type[31m;[m
	       [01;34mwhen[m VOCODER [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_VOCODER_Type[31m;[m
	       [01;34mwhen[m USER [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_USER_Type[31m;[m
	       [01;34mwhen[m DRUMS_KIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  MINIMAL_DRUMS_KIT_Type[31m;[m
		  
	    [01;34mend[m [01;34mcase[m[31m;[m
	 [01;34mwhen[m DNB [31m=>[m
	    [01;34mcase[m Category [01;34mis[m
	       [01;34mwhen[m Null_Cat [31m=>[m
		  [01;34mnull[m[31m;[m
	       [01;34mwhen[m BASS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_BASS_Type[31m;[m
	       [01;34mwhen[m LEAD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_LEAD_Type[31m;[m
	       [01;34mwhen[m SYNTH_HARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_SYNTH_HARD_Type[31m;[m
	       [01;34mwhen[m SYNTH_SOFT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_SYNTH_SOFT_Type[31m;[m
	       [01;34mwhen[m MOTION [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_MOTION_Type[31m;[m
	       [01;34mwhen[m STRINGS_N_PADS [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_STRINGS_N_PADS_Type[31m;[m
	       [01;34mwhen[m KEYBOARD [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_KEYBOARD_Type[31m;[m
	       [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_GUITARE_N_PLUCK_Type[31m;[m
	       [01;34mwhen[m BELL_N_DECAY [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_BELL_N_DECAY_Type[31m;[m
	       [01;34mwhen[m HIT_N_DRUM [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_HIT_N_DRUM_Type[31m;[m
	       [01;34mwhen[m S_E [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_S_E_Type[31m;[m
	       [01;34mwhen[m ARP_SEQ [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_ARP_SEQ_Type[31m;[m
	       [01;34mwhen[m SPLIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_SPLIT_Type[31m;[m
		  [01;34mwhen[m AUDIO_IN [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  DNB_AUDIO_IN_Type[31m;[m
		  [01;34mwhen[m VOCODER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  DNB_VOCODER_Type[31m;[m
		  [01;34mwhen[m USER [31m=>[m
		     Arche [31m:=[m [01;34mnew[m  DNB_USER_Type[31m;[m
	       [01;34mwhen[m DRUMS_KIT [31m=>[m
		  Arche [31m:=[m [01;34mnew[m  DNB_DRUMS_KIT_Type[31m;[m

	    [01;34mend[m [01;34mcase[m[31m;[m
      [01;34mend[m [01;34mcase[m[31m;[m
      
      Arche[31m.[mFilename [31m:=[m [01;34mnew[m [32mString[m ' [31m([mFilename[31m);[m
      
      [01;34mreturn[m Arche[31m;[m
   [01;34mend[m Initialize[31m;[m

   
   
   [01;34mtask[m [01;34mbody[m Compositor_Type [01;34mis[m



      End_Of_Task [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      [31m--Filename : access String := new String ' ("");[m
      

   [01;34mbegin[m
      
      [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
	 [01;34mloop[m
	    [01;34mselect[m


	       [01;34maccept[m [01;30mInitialize[m[31m([mFilename [31m:[m [01;34min[m [32mString[m[31m)[m [01;34mdo[m
		  [01;30mNew_Line[m[31m([m[35m2[m[31m);[m
		  [31m--Put_Line("Initialize Arch filename : " & Filename);[m
		  Composer[31m.[mArche [31m:=[m [01;30mInitialize[m[31m([mFilename[31m,[m Composer[31m.[mForm[31m,[m Composer[31m.[mCat[31m);[m
		  [31m--Put_Line("Initialize Arch filename : " & Filename & " done.");[m

	       [01;34mend[m Initialize[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m

	       [01;34maccept[m Halt [01;34mdo[m

		  End_Of_Task [31m:=[m True[31m;[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
	 [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
	    [01;34mselect[m
	       [01;34maccept[m Halt [01;34mdo[m

		  End_Of_Task [31m:=[m True[31m;[m
	       [01;34mend[m Halt[31m;[m
	       [01;34mexit[m[31m;[m
	    [01;34mor[m
	       [01;34maccept[m [01;30mRespond[m[31m([mFilename [31m:[m [01;34min[m [32mString[m[31m;[m Channel [31m:[m [01;34min[m Channel_Type[31m;[m sequence [31m:[m [01;34mout[m Seq_Vectors[31m.[mvector[31m)[m [01;34mdo[m

		  
		  [31m--Text_Io.Put_line("Composer: " & Form_Type'Image(Composer.Arche.Form) & "-" & Valid_Category_Type'Image(Composer.Arche.Category) & "- " & Channel_Type'Image(Channel) & " respond...");[m
		  

		  
		  
		  [31m--Text_Io.Put_Line("Natural language compose ....");[m
		  [01;34mcase[m Composer[31m.[mArche[31m.[mForm [01;34mis[m
		     [01;34mwhen[m ACID [31m=>[m
			[31m--Text_Io.Put_Line("Natural language compose Acid...");[m
			[01;34mcase[m Composer[31m.[mArche[31m.[mCategory [01;34mis[m
			   [01;34mwhen[m Null_Cat [31m=>[m
			      [01;34mnull[m[31m;[m
			   [01;34mwhen[m BASS [31m=>[m
			      Sequence [31m:=[m [01;30mACID_BASS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			      [31m--Text_Io.Put_Line("Natural language compose Acid bass...");[m
			   [01;34mwhen[m LEAD [31m=>[m
			      Sequence [31m:=[m [01;30mACID_LEAD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_HARD [31m=>[m
			      Sequence [31m:=[m [01;30mACID_SYNTH_HARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_SOFT [31m=>[m
			      Sequence [31m:=[m [01;30mACID_SYNTH_SOFT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m MOTION [31m=>[m
			      Sequence [31m:=[m [01;30mACID_MOTION_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m STRINGS_N_PADS [31m=>[m
			      Sequence [31m:=[m [01;30mACID_STRINGS_N_PADS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m KEYBOARD [31m=>[m
			      Sequence [31m:=[m [01;30mACID_KEYBOARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
			      Sequence [31m:=[m [01;30mACID_GUITARE_N_PLUCK_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m BELL_N_DECAY [31m=>[m
			      Sequence [31m:=[m [01;30mACID_BELL_N_DECAY_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m HIT_N_DRUM [31m=>[m
			      Sequence [31m:=[m [01;30mACID_HIT_N_DRUM_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m S_E [31m=>[m
			      Sequence [31m:=[m [01;30mACID_S_E_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m ARP_SEQ [31m=>[m
			      Sequence [31m:=[m [01;30mACID_ARP_SEQ_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SPLIT [31m=>[m
			      Sequence [31m:=[m [01;30mACID_SPLIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m AUDIO_IN [31m=>[m
			      Sequence [31m:=[m [01;30mACID_AUDIO_IN_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m VOCODER [31m=>[m
			      Sequence [31m:=[m [01;30mACID_VOCODER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m USER [31m=>[m
			      Sequence [31m:=[m [01;30mACID_USER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m DRUMS_KIT [31m=>[m
			      Sequence [31m:=[m [01;30mACID_DRUMS_KIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			[01;34mend[m [01;34mcase[m[31m;[m

		     [01;34mwhen[m TECHNO [31m=>[m
			[01;34mcase[m Composer[31m.[mArche[31m.[mCategory [01;34mis[m
			   [01;34mwhen[m Null_Cat [31m=>[m
			      [01;34mnull[m[31m;[m
			   [01;34mwhen[m BASS [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_BASS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m LEAD [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_LEAD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_HARD [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_SYNTH_HARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_SOFT [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_SYNTH_SOFT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m MOTION [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_MOTION_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m STRINGS_N_PADS [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_STRINGS_N_PADS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m KEYBOARD [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_KEYBOARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_GUITARE_N_PLUCK_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m BELL_N_DECAY [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_BELL_N_DECAY_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m HIT_N_DRUM [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_HIT_N_DRUM_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m S_E [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_S_E_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m ARP_SEQ [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_ARP_SEQ_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SPLIT [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_SPLIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m AUDIO_IN [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_AUDIO_IN_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m VOCODER [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_VOCODER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m USER [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_USER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m DRUMS_KIT [31m=>[m
			      Sequence [31m:=[m [01;30mTECHNO_DRUMS_KIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			[01;34mend[m [01;34mcase[m[31m;[m

		     [01;34mwhen[m TRIBE [31m=>[m
			[01;34mcase[m Composer[31m.[mArche[31m.[mCategory [01;34mis[m
			   [01;34mwhen[m Null_Cat [31m=>[m
			      [01;34mnull[m[31m;[m
			   [01;34mwhen[m BASS [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_BASS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m LEAD [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_LEAD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_HARD [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_SYNTH_HARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_SOFT [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_SYNTH_SOFT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m MOTION [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_MOTION_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m STRINGS_N_PADS [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_STRINGS_N_PADS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m KEYBOARD [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_KEYBOARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_GUITARE_N_PLUCK_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m BELL_N_DECAY [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_BELL_N_DECAY_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m HIT_N_DRUM [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_HIT_N_DRUM_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m S_E [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_S_E_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m ARP_SEQ [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_ARP_SEQ_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SPLIT [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_SPLIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m AUDIO_IN [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_AUDIO_IN_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m VOCODER [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_VOCODER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m USER [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_USER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m DRUMS_KIT [31m=>[m
			      Sequence [31m:=[m [01;30mTRIBE_DRUMS_KIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			[01;34mend[m [01;34mcase[m[31m;[m

		     [01;34mwhen[m HARDTECH [31m=>[m
			[01;34mcase[m Composer[31m.[mArche[31m.[mCategory [01;34mis[m
			   [01;34mwhen[m Null_Cat [31m=>[m
			      [01;34mnull[m[31m;[m
			   [01;34mwhen[m BASS [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_BASS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m LEAD [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_LEAD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_HARD [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_SYNTH_HARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_SOFT [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_SYNTH_SOFT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m MOTION [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_MOTION_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m STRINGS_N_PADS [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_STRINGS_N_PADS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m KEYBOARD [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_KEYBOARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_GUITARE_N_PLUCK_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m BELL_N_DECAY [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_BELL_N_DECAY_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m HIT_N_DRUM [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_HIT_N_DRUM_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m S_E [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_S_E_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m ARP_SEQ [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_ARP_SEQ_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SPLIT [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_SPLIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m AUDIO_IN [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_AUDIO_IN_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m VOCODER [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_VOCODER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m USER [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_USER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m DRUMS_KIT [31m=>[m
			      Sequence [31m:=[m [01;30mHARDTECH_DRUMS_KIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			[01;34mend[m [01;34mcase[m[31m;[m

		     [01;34mwhen[m HARDCORE [31m=>[m
			[01;34mcase[m Composer[31m.[mArche[31m.[mCategory [01;34mis[m
			   [01;34mwhen[m Null_Cat [31m=>[m
			      [01;34mnull[m[31m;[m
			   [01;34mwhen[m BASS [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_BASS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m LEAD [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_LEAD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_HARD [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_SYNTH_HARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_SOFT [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_SYNTH_SOFT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m MOTION [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_MOTION_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m STRINGS_N_PADS [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_STRINGS_N_PADS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m KEYBOARD [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_KEYBOARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_GUITARE_N_PLUCK_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m BELL_N_DECAY [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_BELL_N_DECAY_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m HIT_N_DRUM [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_HIT_N_DRUM_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m S_E [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_S_E_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m ARP_SEQ [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_ARP_SEQ_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SPLIT [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_SPLIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m AUDIO_IN [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_AUDIO_IN_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m VOCODER [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_VOCODER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m USER [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_USER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m DRUMS_KIT [31m=>[m
			      Sequence [31m:=[m [01;30mHARDCORE_DRUMS_KIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			[01;34mend[m [01;34mcase[m[31m;[m

		     [01;34mwhen[m TRANCE [31m=>[m
			[01;34mcase[m Composer[31m.[mArche[31m.[mCategory [01;34mis[m
			   [01;34mwhen[m Null_Cat [31m=>[m
			      [01;34mnull[m[31m;[m
			   [01;34mwhen[m BASS [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_BASS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m LEAD [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_LEAD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_HARD [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_SYNTH_HARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_SOFT [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_SYNTH_SOFT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m MOTION [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_MOTION_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m STRINGS_N_PADS [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_STRINGS_N_PADS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m KEYBOARD [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_KEYBOARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_GUITARE_N_PLUCK_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m BELL_N_DECAY [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_BELL_N_DECAY_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m HIT_N_DRUM [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_HIT_N_DRUM_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m S_E [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_S_E_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m ARP_SEQ [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_ARP_SEQ_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SPLIT [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_SPLIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m AUDIO_IN [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_AUDIO_IN_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m VOCODER [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_VOCODER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m USER [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_USER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m DRUMS_KIT [31m=>[m
			      Sequence [31m:=[m [01;30mTRANCE_DRUMS_KIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			[01;34mend[m [01;34mcase[m[31m;[m

		     [01;34mwhen[m MINIMAL [31m=>[m
			[01;34mcase[m Composer[31m.[mArche[31m.[mCategory [01;34mis[m
			   [01;34mwhen[m Null_Cat [31m=>[m
			      [01;34mnull[m[31m;[m
			   [01;34mwhen[m BASS [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_BASS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m LEAD [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_LEAD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_HARD [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_SYNTH_HARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_SOFT [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_SYNTH_SOFT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m MOTION [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_MOTION_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m STRINGS_N_PADS [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_STRINGS_N_PADS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m KEYBOARD [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_KEYBOARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_GUITARE_N_PLUCK_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m BELL_N_DECAY [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_BELL_N_DECAY_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m HIT_N_DRUM [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_HIT_N_DRUM_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m S_E [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_S_E_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m ARP_SEQ [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_ARP_SEQ_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SPLIT [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_SPLIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m AUDIO_IN [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_AUDIO_IN_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m VOCODER [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_VOCODER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m USER [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_USER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m DRUMS_KIT [31m=>[m
			      Sequence [31m:=[m [01;30mMINIMAL_DRUMS_KIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			[01;34mend[m [01;34mcase[m[31m;[m

		     [01;34mwhen[m DNB [31m=>[m
			[01;34mcase[m Composer[31m.[mArche[31m.[mCategory [01;34mis[m
			   [01;34mwhen[m Null_Cat [31m=>[m
			      [01;34mnull[m[31m;[m
			   [01;34mwhen[m BASS [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_BASS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m LEAD [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_LEAD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_HARD [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_SYNTH_HARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SYNTH_SOFT [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_SYNTH_SOFT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m MOTION [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_MOTION_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m STRINGS_N_PADS [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_STRINGS_N_PADS_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m KEYBOARD [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_KEYBOARD_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m GUITARE_N_PLUCK [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_GUITARE_N_PLUCK_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m BELL_N_DECAY [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_BELL_N_DECAY_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m HIT_N_DRUM [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_HIT_N_DRUM_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m S_E [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_S_E_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m ARP_SEQ [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_ARP_SEQ_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m SPLIT [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_SPLIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m AUDIO_IN [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_AUDIO_IN_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m VOCODER [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_VOCODER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m USER [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_USER_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			   [01;34mwhen[m DRUMS_KIT [31m=>[m
			      Sequence [31m:=[m [01;30mDNB_DRUMS_KIT_Type[m[31m([mComposer[31m.[mArche[31m.[m[01;34mall[m[31m).[m[01;30mCompose[m[31m([mChannel[31m);[m
			[01;34mend[m [01;34mcase[m[31m;[m

		  [01;34mend[m [01;34mcase[m[31m;[m


		  [31m--Text_Io.Put_line("Composer: " & Form_Type'Image(Composer.Arche.Form) & "-" & Valid_Category_Type'Image(Composer.Arche.Category) & "- " & Channel_Type'Image(Channel) & " responded.");[m
	       [01;34mend[m Respond[31m;[m

	    [01;34mend[m [01;34mselect[m[31m;[m
	 [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Composer: "[m [31m&[m Form_Type[31m'Image(Composer.Arche.Form) & "-" & Valid_Category_Type'[m[01;30mImage[m[31m([mComposer[31m.[mArche[31m.[mCategory[31m)[m [31m&[m [31m" halted."[m[31m);[m
   [01;34mend[m Compositor_Type[31m;[m


[01;34mend[m Libsens[31m.[mRhetorica[31m;[m
