CSOUNDMAKER V1.1 BY A.ROSENTHAL (15.07.87)l21600:0,31,0,39:7,1:(17)::2570d:"Anzahl der Toene?";AN:nANAN1:AN0AN31100xSO(AN,5),O$(AN):DR0:0,31,0,39OUT SCR/PRINTERF0AN:ZF1:1000"DR#2Z$".SOUND:";:ԞZ$".SOUND:";MZSO(F,0):1400:DR#2Z$",";:ԞZ$",";xZSO(F,1):1500:DR#2Z$",";:ԞZ$",";ZSO(F,2):1400:DR#2Z$",";:ԞZ$",";ZSO(F,3):1500:DR#2Z$",";:ԞZ$",";ZSO(F,4):1000:DR#2Z$",";:ԞZ$",";ZSO(F,5):1400:DR#2Z$:ԞZ$5:0,31,28,39:7,3:DGRUNDMENU\2570::"Grundmenur::"1. Eingeben"2. Ausgeben":"3. Sound":"4. Ende"2550:WA1900,4000,3000,43502500:2501500:Z10Z$" "Z$x1000:Z100Z$" "Z$!Z$((Z),2):,kINPUTElER0:2570::"Menu:Sq"Eingabeev:"1. horiz.{"2. vertik.":"3. Grundmenu2550:WA3200:"Sound-Nr.";N1:N1N11N10N1AN1900WA2"Spalte";WE:WE1WE61900WEWE1 :"?-EndeNRN1AN(WA1WE0AWE02200:ER1900PWA1WE1i WE12300:ER1900xWA1WE2WE22200:ER1900WA1WE3WE32300:ER1900WA1WE4WE42400:ER1900WA1WE5 WE52200:ER1900 *:19005 1. , 3. und 6.wert (0-255)] 2500:WENR,NR,15,17:NR,NR,9,11t WE5NR,NR,24,26 WA1WE$"" 0,2:"";WE$::WE$""2290 WE$"?"ER1:2290 (WE$)(WE$"1")2205 Z(WE$):Z0Z2552205SO(NR,WE)Z ZSO(NR,WE):1400:Z$:7 2. und 4.wert (0/1)b  2500:WE1NR,NR,13,13:NR,NR,19,19s  WA1WE$""  "";WE$::WE$""2390  WE$"?"ER1:2390  (WE$)(WE$"1")2305 $ Z(WE$):Z1Z0SO(NR,WE)Z:2305 V ZSO(NR,WE):1500:Z$: ` 5.wert (0-31)= j 2500:NR,NR,21,22:WA1WE$""N l 0,1:"";WE$a o :WE$""2490y t WE$"?"ER1:2490 ~ (WE$)(WE$"1")2410 Z(WE$):Z0Z312410SO(NR,WE)Z ZSO(NR,WE):1000:Z$: 209,0,0,0,31,5: WA(509):WA49WA572550WAWA48:. 0,16,28,39::A SOUND-SPIELENU 2570::"Menu:a "Soundr :"1. alles "2. einzeln":"3. Grundmenu" 2550:WA3100,3200,200 2500:3025  ALLES SPIELEN  F0AN & SO(F,0),SO(F,1),SO(F,2),SO(F,3),SO(F,4),SO(F,5)::30003  EINEN TON SPIELENI :"Sound-Nr.";N1f N1N11:N10N1AN3000 SO(N1,0),SO(N1,1),SO(N1,2),SO(N1,3),SO(N1,4),SO(N1,5):3000 OUTPUT 2570::"Menu:":"Ausgabe"1. Drucker":"2. Cassette":"3. Ramdisk"4. Grundmenu42550:WA4100,4200,4250,200D2500:4050UOUT PRINTERg#2:DR1:130ugOUT CASShCA1:4260OUT RAMDCA0"1. Znr":Z1:"Step":Z2"Name":Z$:(Z$)8Z$(Z$,8)F0AN:O$(F)(Z1)"SOUND":Z1Z1Z23Z05:O$(F)O$(F)((SO(F,Z)),2)",":SO$(F)(O$(F),(O$(F))1):pCAO#1""Z$:O#3""Z$F0AN:CA#1O$(F):Ԟ#3O$(F):CAO#1:O#34000-ENDE0,31,0,39:7,1:::O#1""Z$:O#3""Z$