blob: d3da654afe0ca5605918e49e3b0a2000bd52f819 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
<programlisting>
<emphasis role="csdtag"><CsoundSynthesizer></emphasis>
<emphasis role="csdtag"><CsOptions></emphasis>
-n
<emphasis role="csdtag"></CsOptions></emphasis>
<emphasis role="csdtag"><CsInstruments></emphasis>
<emphasis role="oblock">instr</emphasis> 1
Swd <emphasis role="opc">pwd</emphasis>
<emphasis role="opc">printf_i</emphasis> "Working directory is '<emphasis role="op">%</emphasis>s'\n", 1, Swd
<emphasis role="opc">prints</emphasis> "Reading myself <emphasis role="op">=</emphasis>)<emphasis role="op">:</emphasis>\n"
<emphasis role="olabel">read</emphasis><emphasis role="op">:</emphasis>
Sline, kLinNum <emphasis role="opc">readf</emphasis> "readf.csd"
<emphasis role="opc">printf</emphasis> "Line <emphasis role="op">%</emphasis>d<emphasis role="op">:</emphasis> <emphasis role="op">%</emphasis>s", kLinNum, kLinNum, Sline
<emphasis role="octrl">if</emphasis> kLinNum <emphasis role="op">!=</emphasis> <emphasis role="op">-</emphasis>1 then
<emphasis role="octrl">kgoto</emphasis> <emphasis role="olabel">read</emphasis>
<emphasis role="octrl">else</emphasis>
<emphasis role="opc">turnoff</emphasis>
<emphasis role="octrl">endif</emphasis>
<emphasis role="oblock">endin</emphasis>
<emphasis role="csdtag"></CsInstruments></emphasis>
<emphasis role="csdtag"><CsScore></emphasis>
<emphasis role="stamnt">i</emphasis>1 0 1
<emphasis role="stamnt">e</emphasis>
<emphasis role="csdtag"></CsScore></emphasis>
<emphasis role="csdtag"></CsoundSynthesizer></emphasis>
</programlisting>
|