home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64 / happysynth (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  21KB  |  773 lines
  1. 100 gosub7080:rem titelbild
  2. 110 gosub9030:rem mpg laden
  3. 120 poke56,152:clr
  4. 130 gosub9130:rem initialisieren
  5. 140 gosub7430:rem start
  6. 150 :
  7. 160 pokev+21,0:pokev+1,70
  8. 170 on pa goto 190,300,410
  9. 180 pa=nr:goto160
  10. 190 gosub8020:rem seite 1
  11. 200 pokev+16,6:pokev+2,36:pokev+4,36:pokev+3,109:pokev+5,151
  12. 210 pokev,60:pokev+21,7:pokev+40,2:pokev+41,2
  13. 220 sys49152
  14. 230 nr=peek(40959)
  15. 240 on nr goto 180,180,180,220,220,220,1010,1020,1040,1090,1100,1120,1170,1180
  16. 250 on nr -14 goto 1200,220,220,1030,1260,1110,1330,1190,1400,220,220
  17. 260 on nr-25 goto 1050,1130,1210,1060,1140,1220,220,220,220,1250,1320,1390
  18. 270 on nr-37 goto 1250,1320,1390,1310,1380,1450,2480,2950,2950,220,220,220
  19. 280 on nr-49 goto 2510,2510,2510,2570,2570,220,220,220,2520,2710,2710
  20. 290 goto220
  21. 300 gosub8400:rem seite 2
  22. 310 pokev+21,7:pokev+40,2:pokev+41,2
  23. 320 sys49152
  24. 330 nr=peek(40959)
  25. 340 on nr goto 180,180,180,320,320,320,1270,1270,1270,1340,1340,1340
  26. 350 on nr-12 goto 1410,1410,1410,320,320,1280,1280,1350,1350,1420,1420
  27. 360 on nr-23 goto 320,320,1290,1360,1430,320,320,320,1300,1370,1440
  28. 370 on nr-34 goto 320,320,320,1070,1150,1230,1080,1160,1240,320,3170,3170
  29. 380 on nr-46 goto 320,320,320,1460,1470,1480,2840,2840,320,320,320
  30. 390 on nr-57 goto 1490,3060,3060
  31. 400 goto320
  32. 410 gosub8740:rem seite 3
  33. 420 pokev+21,7:pokev+40,2:pokev+41,2
  34. 430 sys49152
  35. 440 nr=peek(40959)
  36. 450 on nr goto 180,180,180,4880,3700,4200
  37. 460 ifnr=>7 and nr <=28 then3570
  38. 470 goto430
  39. 1000 rem +++ sprungtabelle +++
  40. 1010 s=0:p=241:goto1510
  41. 1020 s=0:p=244:goto1540
  42. 1030 s=0:p=321:goto1550
  43. 1040 s=0:p=247:goto1560
  44. 1050 s=0:p=401:goto1570
  45. 1060 s=0:p=441:goto1580
  46. 1070 s=0:ta=9:goto3470
  47. 1080 s=0:ta=9:goto3280
  48. 1090 s=1:p=252:goto1510
  49. 1100 s=1:p=255:goto1540
  50. 1110 s=1:p=332:goto1550
  51. 1120 s=1:p=258:goto1560
  52. 1130 s=1:p=412:goto1570
  53. 1140 s=1:p=452:goto1580
  54. 1150 s=1:ta=20:goto3470
  55. 1160 s=1:ta=20:goto3280
  56. 1170 s=2:p=263:goto1510
  57. 1180 s=2:p=266:goto1540
  58. 1190 s=2:p=343:goto1550
  59. 1200 s=2:p=269:goto1560
  60. 1210 s=2:p=423:goto1570
  61. 1220 s=2:p=463:goto1580
  62. 1230 s=2:ta=31:goto3470
  63. 1240 s=2:ta=31:goto3280
  64. 1250 s=0:ta=9:goto1640
  65. 1260 s=0:ta=8:goto1820
  66. 1270 s=0:ta=3:goto1960
  67. 1280 s=0:ta=3:goto2070
  68. 1290 s=0:ta=9:goto2180
  69. 1300 s=0:ta=3:goto2300
  70. 1310 s=0:ta=8:goto2410
  71. 1320 s=1:ta=20:goto1640
  72. 1330 s=1:ta=19:goto1820
  73. 1340 s=1:ta=14:goto1960
  74. 1350 s=1:ta=14:goto2070
  75. 1360 s=1:ta=20:goto2180
  76. 1370 s=1:ta=14:goto2300
  77. 1380 s=1:ta=19:goto2410
  78. 1390 s=2:ta=31:goto1640
  79. 1400 s=2:ta=30:goto1820
  80. 1410 s=2:ta=25:goto1960
  81. 1420 s=2:ta=25:goto2070
  82. 1430 s=2:ta=31:goto2180
  83. 1440 s=2:ta=25:goto2300
  84. 1450 s=2:ta=30:goto2410
  85. 1460 p=842:l=1:mw=1:goto3400
  86. 1470 p=845:l=1:mw=0:goto3400
  87. 1480 p=848:l=1:mw=2:goto3400
  88. 1490 p=922:l=7:mw=3:goto3400
  89. 1500 :
  90. 1510 rem +++ wellenformen/sync/ring +++
  91. 1520 :
  92. 1530 de(s)=1-de(s):l=1:goto1590
  93. 1540 sz(s)=1-sz(s):l=1:goto1590
  94. 1550 re(s)=1-re(s):l=1:goto1590
  95. 1560 ra(s)=1-ra(s):l=2:goto1590
  96. 1570 ri(s)=1-ri(s):l=9:goto1590
  97. 1580 sy(s)=1-sy(s):l=9
  98. 1590 gosub9820
  99. 1600 wf(s)=sy(s)*2+ri(s)*4+de(s)*16+sz(s)*32+re(s)*64+ra(s)*128
  100. 1610 pokewf+s,wf(s)+8:pokewf+s,wf(s)
  101. 1620 goto220
  102. 1630 :
  103. 1640 rem +++ oktave +++
  104. 1650 :
  105. 1660 gosub9430
  106. 1670 print"[153]"tab(34)"+okt.[157][157][157][157][157]+# -#[157][157][157][157][157]-okt."
  107. 1680 wert=ok(s):jo=10:gosub9530
  108. 1690 ifjo=0thenok(s)=ok(s)-12
  109. 1700 ifjo=20thenok(s)=ok(s)+12
  110. 1710 ifjo=9thenok(s)=ok(s)-1
  111. 1720 ifjo=11thenok(s)=ok(s)+1
  112. 1730 ifok(s)<0orok(s)>=48thenok(s)=wert
  113. 1740 pokewf+3+s,okt(s)
  114. 1750 print""tab(ta)int(okt(s)/12)
  115. 1760 printtab(ta)n$(int(ok(s)-(int(okt(s)/12))*12))
  116. 1770 ifbuthen1680
  117. 1780 print"[145][145][156]"tab(ta)int(okt(s)/12)
  118. 1790 printtab(ta)n$(int(ok(s)-(int(okt(s)/12))*12))
  119. 1800 gosub9440:gosub9460:goto220
  120. 1810 :
  121. 1820 rem +++ pulse +++
  122. 1830 :
  123. 1840 gosub9430
  124. 1850 print"[153]"tab(35)"+4[157][157][157]+1 -1[157][157][157]-4"
  125. 1860 wert=pu(s)/16:jo=wert
  126. 1870 gosub9530:pu(s)=jo*16
  127. 1880 p1=int(pu(s)/256)
  128. 1890 pokewf+49+s,pu(s)-p1*256:pokewf+52+s,p1
  129. 1900 pokesi+3+s*7,p1:pokesi+2+s*7,pu(s)-p1*256
  130. 1910 print""tab(ta)right$(str$(int(pu(s)/40.95)),2);"%"
  131. 1920 ifbuthen1870
  132. 1930 print"[145][156]"tab(ta)right$(str$(int(pu(s)/40.95)),2);"%"
  133. 1940 gosub9440:gosub9460:goto220
  134. 1950 :
  135. 1960 rem +++ attack +++
  136. 1970 :
  137. 1980 gosub 9430:gosub9470
  138. 1990 wert=a(s):jo=wert*16
  139. 2000 gosub9530:a(s)=int(jo/16)
  140. 2010 pokesi+5+s*7,a(s)*16+d(s)
  141. 2020 print""tab(ta)ad$(a(s))
  142. 2030 ifbuthen2000
  143. 2040 print"[145][146][154]"tab(ta)ad$(a(s))
  144. 2050 gosub9440:gosub9460:goto320
  145. 2060 :
  146. 2070 rem +++ decay +++
  147. 2080 :
  148. 2090 gosub9430:gosub9470
  149. 2100 wert=d(s):jo=wert*16
  150. 2110 gosub9530:d(s)=int(jo/16)
  151. 2120 pokesi+5+s*7,a(s)*16+d(s)
  152. 2130 print""tab(ta)r$(d(s))
  153. 2140 ifbuthen2110
  154. 2150 print"[145][146][154]"tab(ta)r$(d(s))
  155. 2160 gosub9440:gosub9460:goto320
  156. 2170 :
  157. 2180 rem +++ sustain +++
  158. 2190 :
  159. 2200 gosub9430
  160. 2210 print"[153]"tab(36)"+1[157][157]-1"
  161. 2220 wert=s(s):jo=wert*16
  162. 2230 gosub9530:s(s)=int(jo/16)
  163. 2240 pokesi+6+s*7,s(s)*16+r(s)
  164. 2250 print""tab(ta-6);"vol.: ";right$(str$(s(s)),2)
  165. 2260 ifbuthen2230
  166. 2270 print"[145][146][154]"tab(ta-6);"vol.: ";right$(str$(s(s)),2)
  167. 2280 gosub9440:gosub9460:goto320
  168. 2290 :
  169. 2300 rem +++ release +++
  170. 2310 :
  171. 2320 gosub9430:gosub9470
  172. 2330 wert=r(s):jo=wert*16
  173. 2340 gosub9530:r(s)=int(jo/16)
  174. 2350 pokesi+6+s*7,s(s)*16+r(s)
  175. 2360 print""tab(ta)r$(r(s))
  176. 2370 ifbuthen2340
  177. 2380 print"[145][146][154]"tab(ta)r$(r(s))
  178. 2390 gosub9440:gosub9460:goto320
  179. 2400 :
  180. 2410 rem +++ filter +++
  181. 2420 :
  182. 2430 fe(s)=1-fe(s):l=2
  183. 2440 pokesi+23,rs*16+fe(0)+fe(1)*2+fe(2)*4
  184. 2450 print""tab(ta);fi$(fe(s))
  185. 2460 goto220
  186. 2470 :
  187. 2480 rem +++ hoch- band- tiefpass +++
  188. 2490 :
  189. 2500 hp=1-hp:p=763:goto2530
  190. 2510 bp=1-bp:p=843:goto2530
  191. 2520 tp=1-tp:p=923
  192. 2530 l=7:gosub9820
  193. 2540 pokesi+24,15+hp*64+bp*32+tp*16
  194. 2550 goto220
  195. 2560 :
  196. 2570 rem +++ filterfrequenz +++
  197. 2580 :
  198. 2590 gosub9430
  199. 2600 print"[153]"tab(35)"+++[157][157][157][157]+   -[157][157][157][157]---"
  200. 2610 wert=30+co*5.8:jo=wert/46.4
  201. 2620 gosub9530:if jo<.65then jo=.65
  202. 2630 ifjo<>wert/46.4thenco=int((jo*46.4-30)/5.8)
  203. 2640 c1=int(co/8)
  204. 2650 pokesi+22,c1:pokesi+21,co-c1*8:pokewf+16,c1
  205. 2660 print""tab(22);right$("   "+str$(int(co*5.8+30)),5)
  206. 2670 ifbuthen2620
  207. 2680 print"[145][156]"tab(22);right$("   "+str$(int(co*5.8+30)),5)
  208. 2690 gosub9440:gosub9460:goto220
  209. 2700 :
  210. 2710 rem +++ filterresonanz +++
  211. 2720 :
  212. 2730 gosub9430
  213. 2740 print"[153]"tab(36)"+1"
  214. 2750 print""tab(36)"-1"
  215. 2760 wert=rs:jo=wert*16
  216. 2770 gosub9530:rs=int(jo/16)
  217. 2780 print""tab(22);right$(str$(rs),2)
  218. 2790 pokesi+23,rs*16+fe(0)+fe(1)*2+fe(2)*4
  219. 2800 ifbuthen2770
  220. 2810 print"[145][156]"tab(22);right$(str$(rs),2)
  221. 2820 gosub9440:gosub9460:goto220
  222. 2830 :
  223. 2840 rem +++ envelope-follow +++
  224. 2850 :
  225. 2860 gosub9430:gosub9450
  226. 2870 wert=peek(wf+17):jo=wert
  227. 2880 gosub9530:ef=jo
  228. 2890 pokewf+17,ef
  229. 2900 print""tab(30);right$(" "+str$(ef),3)
  230. 2910 ifbuthen2880
  231. 2920 print"[145][156]"tab(30);right$(" "+str$(ef),3)
  232. 2930 gosub9440:gosub9460:goto320
  233. 2940 :
  234. 2950 rem +++ verstimmung +++
  235. 2960 :
  236. 2970 gosub9430:gosub9450
  237. 2980 wert=vs:jo=wert
  238. 2990 gosub9530:vs=jo:ifvs>99thenvs=99:jo=99
  239. 3000 pokewf+6,vs
  240. 3010 print""tab(30)right$(str$(vs),2)
  241. 3020 ifbuthen2990
  242. 3030 print"[145][156]"tab(30)right$(str$(vs),2)
  243. 3040 gosub9440:gosub9460:goto1940
  244. 3050 :
  245. 3060 rem +++ filter-modulation +++
  246. 3070 :
  247. 3080 gosub9430:gosub9450
  248. 3090 wert=peek(wf+19):jo=wert
  249. 3100 gosub9530:mf=jo
  250. 3110 pokewf+19,mf
  251. 3120 print""tab(30);right$(" "+str$(mf),3)
  252. 3130 ifbuthen3100
  253. 3140 print"[145][156]"tab(30);right$(" "+str$(mf),3)
  254. 3150 gosub9440:gosub9460:goto320
  255. 3160 :
  256. 3170 rem +++ modulation: speed +++
  257. 3180 :
  258. 3190 gosub9430:gosub9450
  259. 3200 wert=peek(wf+34):jo=wert
  260. 3210 gosub9530:sp=jo
  261. 3220 pokewf+34,sp
  262. 3230 print""tab(30);right$(" "+str$(sp),3)
  263. 3240 ifbuthen3210
  264. 3250 print"[145][156]"tab(30);right$(" "+str$(sp),3)
  265. 3260 gosub9440:gosub9460:goto320
  266. 3270 :
  267. 3280 rem +++ pwm-modulation +++
  268. 3290 :
  269. 3300 gosub9430:gosub9450
  270. 3310 wert=peek(wf+40+s):jo=int(wert/2.5757)
  271. 3320 gosub9530:if jo>99thenjo=99
  272. 3330 pw(s)=int(jo*2.5757)+1
  273. 3340 pokewf+40+s,pw(s)
  274. 3350 print""tab(ta);right$(str$(int(pw(s)/2.5757)),2)
  275. 3360 ifbuthen3320
  276. 3370 print"[145][156]"tab(ta);right$(str$(int(pw(s)/2.5757)),2)
  277. 3380 gosub9440:gosub9460:goto320
  278. 3390 :
  279. 3400 rem +++ modulation-wellenform +++
  280. 3410 :
  281. 3420 fori=842to849:pokefr+i,2:pokefr+i+80,2:next
  282. 3430 fori=0tol:pokefr+p+i,5:next
  283. 3440 pokewf+33,mw
  284. 3450 goto320
  285. 3460 :
  286. 3470 rem +++ vibrato +++
  287. 3480 :
  288. 3490 gosub9430:gosub9450
  289. 3500 wert=peek(wf+64+s):jo=wert
  290. 3510 gosub9530:vi(s)=jo:ifvi(s)>99thenvi(s)=99:jo=99
  291. 3520 pokewf+64+s,vi(s)
  292. 3530 print""tab(ta);right$(str$(vi(s)),2)
  293. 3540 ifbuthen3510
  294. 3550 print"[145][156]"tab(ta);right$(str$(vi(s)),2)
  295. 3560 gosub9440:gosub9460:goto320
  296. 3570 :
  297. 3580 rem +++ ende +++
  298. 3590 :
  299. 3600 pokev+21,0:poke198,0
  300. 3610 print"                         "
  301. 3620 print"[153]       sind sie sicher ???"
  302. 3630 print"                         "
  303. 3640 geta$:ifa$<>"j"anda$<>"n"then3640
  304. 3650 ifa$="n"then 410
  305. 3660 poke53280,14:poke53281,6:poke198,0:poke808,237:poke2,0
  306. 3670 print"[147][154]";
  307. 3680 fori=1to100:next
  308. 3690 sys 64767
  309. 3700 :
  310. 3710 rem +++ save - routine +++
  311. 3720 :
  312. 3730 poke198,0:pokev+21,0:d$=""
  313. 3740 print"";
  314. 3750 print"[155]  s o u n d  s p e i c h e r n  [146][154]"
  315. 3760 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"    "
  316. 3770 [129]i[178]0[164]9
  317. 3780 [153]"                                "
  318. 3790 [130]:[153]"ononononononononon";
  319. 3800 [153]"name des sounds ? ............cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";
  320. 3810 [161]c$:[151]204,0
  321. 3830 [139]c$[178][199](20)[167]d$[178]"":[151]204,1:[153]"on":[137]3800
  322. 3840 [139]c$[178][199](13)[167]3940
  323. 3850 [139]c$[179]"#"[176]c$[177]"z"[167]3810
  324. 3855 [139]c$[178]"*"[176]c$[178]","[176]c$[178]":"[176]c$[178]"?"[176]c$[178]"@"[167]3810
  325. 3860 [153]c$;:[151]204,1
  326. 3870 d$[178]d$[170]c$
  327. 3880 [139][195](d$)[179]11[167]3810
  328. 3890 [139][195](d$)[177]11[167] 3910
  329. 3900 [137]3810
  330. 3910 [161]c$:[139]c$[178][199](20)[167]d$[178]"":[151]204,1:[153]"on":[137]3800
  331. 3920 [139]c$[178][199](13) [167] 3950
  332. 3930 [137]3910
  333. 3940 [139]d$[178]""[167][151]204,1:[137] 410
  334. 3950 [153]".":[151]204,1:d$[178][200](d$[170]"..............",12)
  335. 3960 ue$[178]"":u$[178]"abgespeichert......"
  336. 3970 [160]1:[159]1,8,2,ue$[170]"hsy."[170]d$[170]",s,w":[141]10820
  337. 3980 [139]er[178]63[167]4030
  338. 3990 [139]er[167][153]""
  339. 4000 [139]er[175]b$[178]"j"[167]3970
  340. 4010 [139]er[167]er[178]0:[160]1:[137]410
  341. 4020 [137]4080
  342. 4030 [153]"listueberschreiben  ?";
  343. 4040 [151]198,0
  344. 4050 [161]a$:[139]a$[179][177]"n"[175]a$[179][177]"j"[175]a$[179][177][199](13)[167]4050
  345. 4060 [139]a$[178]"n"[167][153]" nein":er[178]0:[160]1:[137]410
  346. 4070 [153]" ja":ue$[178]"@:":u$[178]"ueberschrieben.....":[137]3970
  347. 4080 [153]"sound wird "u$
  348. 4090 [129]i[178]0[164]2:p1[178][181](pu(i)[173]256):ad(i)[178]a(i)[172]16[170]d(i):sr(i)[178]s(i)[172]16[170]r(i)
  349. 4100 [152]1,[199](wf(i));[199](ok(i));[199](pu(i)[171]p1[172]256);[199](p1);
  350. 4110 [152]1,[199](ad(i));[199](sr(i));[199](fe(i));[199](pw(i));[199](vi(i));
  351. 4120 [130] i
  352. 4130 c1[178][181](co[173]256)
  353. 4140 [152]1,[199](hp[172]4[170]bp[172]2[170]tp);[199](co[171]c1[172]256);[199](c1);[199](rs);[199](vs);
  354. 4150 [152]1,[199](ef);[199](mf);[199](mw);[199](sp);[199](rg)
  355. 4160 [160]1
  356. 4170 c$[178]"":[139]ue$[178]""[167]f[178]f[170]1:ff$(f)[178]d$:[139]f[178]33[167]f[178]32
  357. 4180 [137]410
  358. 4190 :
  359. 4200 [143] +++ load - routine +++
  360. 4210 :
  361. 4220 [151]v[170]3,65:[151]v[170]5,107:[151]v[170]21,6
  362. 4230 a$[178]"(NULL)list s o u n d  v o n  d i s k  l a d e n waitcont"
  363. 4235 a1$[178]"(NULL)list     s o u n d     l a d e n    waitcont(NULL)     "
  364. 4240 [141]10030
  365. 4250 [153]"sound def"d$" wird geladen.onononcont"
  366. 4260 [160]1:[159]1,8,2,"hsy."[170]d$[170]",s,r":[141]10820
  367. 4270 [139]er[175]b$[178]"j"[167]4260
  368. 4280 [139]er[167]er[178]0:[160]1:[137]410
  369. 4290 [129]i[178]0[164]2
  370. 4300 [161]#1,a$:[141]9730:wf(i)[178]a%
  371. 4310 [161]#1,a$:[141]9730:ok(i)[178]a%
  372. 4320 [161]#1,a$:[141]9730:pu(i)[178]a%
  373. 4330 [161]#1,a$:[141]9730:pu(i)[178]pu(i)[170]a%[172]256
  374. 4340 [161]#1,a$:[141]9730:ad(i)[178]a%
  375. 4350 [161]#1,a$:[141]9730:sr(i)[178]a%
  376. 4360 [161]#1,a$:[141]9730:fe(i)[178]a%
  377. 4370 [161]#1,a$:[141]9730:pw(i)[178]a%
  378. 4380 [161]#1,a$:[141]9730:vi(i)[178]a%
  379. 4390 [130] i
  380. 4400 [161]#1,a$:[141]9730:q[178]a%:hp[178](q [175] 4)[173]4:bp[178](q[175]2)[173]2:tp[178]q[175]1
  381. 4410 [161]#1,a$:[141]9730:co[178]a%
  382. 4420 [161]#1,a$:[141]9730:co[178]co[170]a%[172]256
  383. 4430 [161]#1,a$:[141]9730:rs[178]a%
  384. 4440 [161]#1,a$:[141]9730:vs[178]a%
  385. 4450 [161]#1,a$:[141]9730:ef[178]a%
  386. 4460 [161]#1,a$:[141]9730:mf[178]a%
  387. 4470 [161]#1,a$:[141]9730:mw[178]a%
  388. 4480 [161]#1,a$:[141]9730:sp[178]a%
  389. 4490 [161]#1,a$:[141]9730:rg[178]a%
  390. 4500 [160]1:[160]15
  391. 4510 [129]i[178]0[164]2
  392. 4520 ra(i)[178](wf(i)[175]128)[173]128
  393. 4530 re(i)[178](wf(i)[175]64)[173]64
  394. 4540 sz(i)[178](wf(i)[175]32)[173]32
  395. 4550 de(i)[178](wf(i)[175]16)[173]16
  396. 4560 ri(i)[178](wf(i)[175]4)[173]4
  397. 4570 sy(i)[178](wf(i)[175]2)[173]2
  398. 4580 a(i)[178](ad(i)[175]240)[173]16
  399. 4590 d(i)[178]ad(i)[175]15
  400. 4600 s(i)[178](sr(i)[175]240)[173]16
  401. 4610 r(i)[178]sr(i)[175]15
  402. 4620 [130] i
  403. 4630 :
  404. 4640 [143] +++ sound initialisieren +++
  405. 4650 :
  406. 4660 [129]s[178]0[164]2
  407. 4670 [151]wf[170]3[170]s,okt(s)
  408. 4680 [151]si[170]5[170]s[172]7,ad(s)
  409. 4690 [151]si[170]6[170]s[172]7,sr(s)
  410. 4700 [151]wf[170]40[170]s,pw(s)
  411. 4710 [151]wf[170]64[170]s,vi(s)
  412. 4720 wf(s)[178]sy(s)[172]2[170]ri(s)[172]4[170]de(s)[172]16[170]sz(s)[172]32[170]re(s)[172]64[170]ra(s)[172]128
  413. 4730 [151]wf[170]s,wf(s)[170]8:[151]wf[170]s,wf(s)
  414. 4740 p1[178][181](pu(s)[173]256)
  415. 4750 [151]wf[170]49[170]s,pu(s)[171]p1[172]256:[151]wf[170]52[170]s,p1
  416. 4760 [151]si[170]3[170]s[172]7,p1:[151]si[170]2[170]s[172]7,pu(s)[171]p1[172]256
  417. 4770 [130] s
  418. 4780 [151]si[170]23,rs[172]16[170]fe(0)[170]fe(1)[172]2[170]fe(2)[172]4
  419. 4790 [151]si[170]24,15[170]hp[172]64[170]bp[172]32[170]tp[172]16
  420. 4800 c1[178][181](co[173]8):[151]si[170]22,c1:[151]si[170]21,co[171]c1[172]8:[151]wf[170]16,c1
  421. 4810 [151]wf[170]17,ef
  422. 4820 [151]wf[170]6,vs
  423. 4830 [151]wf[170]17,ef
  424. 4840 [151]wf[170]34,sp
  425. 4845 [151]wf[170]19,mf
  426. 4850 [151]wf[170]33,mw
  427. 4860 [137] 410
  428. 4870 :
  429. 4880 [143] +++ sound loeschen +++
  430. 4890 :
  431. 4900 [151]v[170]3,65:[151]v[170]5,107:[151]v[170]21,6
  432. 4910 a$[178]"(NULL)list     s o u n d    l o e s c h e n     waitcont"
  433. 4915 a1$[178]"(NULL)list  s o u n d    l o e s c h e n  waitcont(NULL)     "
  434. 4920 [141]10030
  435. 4930 [153]"sound def"d$" loeschen ?";
  436. 4940 [151]198,0
  437. 4950 [161]a$:[139]a$[178]"n"[167]410
  438. 4960 [139]a$[179][177]"j"[175]a$[179][177][199](13)[167]4950
  439. 4970 [153]" ja"
  440. 4980 [160]1:[159]1,8,15,"s:hsy."[170]d$:[141]10820
  441. 4990 [139]er[178]1[175]lo[178]1[167]ff$(z1)[178]ff$(f):ff$(f)[178]"":f[178]f[171]1:[137]5020
  442. 5000 [139]er[178]1[167][153]"sound geschuetzt !":[153]"nochmal ?";:[137]4950
  443. 5010 [139]b$[178]"j"[167]4980
  444. 5020 er[178]0:[160]1:[137]410
  445. 7000 [178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]
  446. 7010 [178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]
  447. 7020 [178][178][178] u n t e r p r o g r a m m e [178][178]
  448. 7030 [178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]
  449. 7040 [178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]
  450. 7050 :
  451. 7060 [143] +++ titelbild +++
  452. 7070 :
  453. 7080 [139][194](2)[178]1[176][194](2)[178]2[167][142]
  454. 7090 [151]53280,0:[151]53281,0
  455. 7100 [153]"load";[199](142);
  456. 7110 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  457. 7120 [153]"for (NULL) step (NULL)  (NULL)  (NULL) (NULL) stepto(NULL) (NULL) (NULL)      (NULL) "
  458. 7130 [153]"    tab(  tab(waitstep tab(waitstep(NULL) waitstep(NULL) (NULL)wait(NULL) waitstep (NULL)     "
  459. 7140 [153]" (NULL)  (NULL)    wait(NULL)tab(waitstep   (NULL)  (NULL) "
  460. 7150 [153]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  461. 7160 [153]"print#          wait    print#version 1.0"
  462. 7170 [153]"print#notnotnotnotnotnotnotnotnotnotwait    print#usrusrusrusrusrusrusrusrusrusrusr"
  463. 7180 [153]"print#ower(NULL)print#spc(spc(spc(spc(spc("
  464. 7190 [153]"print#spc(spc(spc(spc(spc(spc(spc(spc(spc(spc("[166]21)"waitand"
  465. 7200 [153]"print#          "[166]20)"step (NULL)"
  466. 7210 [153]"print#tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("[166]20)"   "
  467. 7220 [153]"print#          print#waitstr$valusr(NULL)to"[166]15)"(NULL) waitstep"
  468. 7230 [153]"print#tantantantantantantantantanright$print#wait    thenpoke     (NULL)"[166]10)"list "
  469. 7240 [153]"print# *waitfrefrefrernd   (NULL)print#waitasc(NULL)and(NULL)tab(     poke(NULL)(NULL)"[166]9)"list "
  470. 7250 [153]"print# waitintf 1abs   (NULL)waitcont     port 2poke(NULL)(NULL)waitandandprint#step (NULL)"
  471. 7260 [153]"print# logpokewaitposposposprint#cos   (NULL)waitpoke            (NULL)(NULL)"[166]2)"verifytab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  472. 7270 [153]"print# *pokewaitfrefrefreprint#rnd   (NULL)wait             poke(NULL)  verifytab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  473. 7280 [153]"print# waitintf 3abs   (NULL)"[166]16)"verifywait(NULL)         waitstep"
  474. 7290 [153]"print# logpokewaitposposposprint#cos   (NULL)
  475. 7300 print"[152] [172][146][151][184][184][184][152][187]   [221]
  476. 7310 [153]"print# waitintf 5abs   (NULL)waitcont  ortantantantantantantantantantantantantantantantantantantantantantantantantan^"
  477. 7320 [153]"print# logpokewaitposposposprint#cos   (NULL)waitcont  (NULL)   printhappysynthlist (c) 1985   cont(NULL)"
  478. 7330 [153]"print# *waitpokefrefrefreprint#rnd   (NULL)waitcont  (NULL)listchristian quirin spitznercont(NULL)"
  479. 7340 [153]"print# waitintf 7abs   (NULL)waitcont  (NULL)list    & bernhard carli     cont(NULL)"
  480. 7350 [153]"print# logpokewaitposposposprint#cos   (NULL)waitcont  /tantantantantantantantantantantantantantantantantantantantantantantantantanexpon"
  481. 7360 [142]
  482. 7400 :
  483. 7410 [143] +++ start +++
  484. 7420 :
  485. 7430 [139][194](56320)[178]111[167]7470
  486. 7440 [153]""[163]27)t$(t1)
  487. 7450 [139]t[170]40[179]ti[167]t[178]ti:t1[178]1[171]t1
  488. 7460 [137]7430
  489. 7470 [153]"loadortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  490. 7480 [129]i[178]1064[164]1944[169]40:[151]i,93:[151]i[170]39,93:[153]:[130]
  491. 7490 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan";
  492. 7500 [151]2023,125
  493. 7510 [142]
  494. 8000 [143] +++ seite 1 +++
  495. 8010 :
  496. 8020 [153]"contortantantantantantantantantantan=tantantantantantantantantantan=tantantantantantantantantantan=tantantantantan^";
  497. 8030 [153]"cont(NULL)oszillatorwaitcont(NULL)huellkurve(NULL)tastatur  (NULL)sysjoy- cont(NULL)";
  498. 8040 [153]"(NULL)& filter  waitcont(NULL)modulation(NULL)disk-menue(NULL)sysstickcont(NULL)";
  499. 8050 [153]"-tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan<";
  500. 8060 [153]"(NULL)  dco 1 cont  (NULL)  dco 2 cont  (NULL)  dco 3 cont  (NULL)"
  501. 8070 [153]"-tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantantantantantantan<"
  502. 8080 [153]"(NULL)";:[129]i[178]0[164]2
  503. 8090 [153]f$(de(i))"(NULL)(NULL)"f$(sz(i))" then(NULL)"f$(ra(i))" spc(spc(spc(cont (NULL)";:[130]:[153]
  504. 8100 [153]"(NULL)          (NULL)          (NULL)          (NULL)"
  505. 8110 [153]"(NULL)";:[129]i[178]0[164]2
  506. 8120 [153]f$(re(i))"(NULL)(NULL) clrpw: "[201]([196]([181](pu(i)[173]40.95)),2)"%cont(NULL)";:[130]:[153]
  507. 8130 [153]"-tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantantantantantantan<"
  508. 8140 [153]"(NULL)"f$(ri(0))"ringmod. 3cont(NULL)";
  509. 8150 [153]f$(ri(1))"ringmod. 1cont(NULL)";
  510. 8160 [153]f$(ri(2))"ringmod. 2cont(NULL)"
  511. 8170 [153]"(NULL)"f$(sy(0))"synchro. 3cont(NULL)";
  512. 8180 [153]f$(sy(1))"synchro. 1cont(NULL)";
  513. 8190 [153]f$(sy(2))"synchro. 2cont(NULL)"
  514. 8200 [153]"-tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantantantantantantan<"
  515. 8210 [153]"(NULL)";:[129]i[178]0[164]2
  516. 8220 [153]"clroktave: "[181](okt(i)[173]12)"cmdcont(NULL)";:[130]:[153]
  517. 8230 [153]"(NULL)";:[129]i[178]0[164]2
  518. 8240 [153]"clrtonart: "n$([181](ok(i)[171]([181](ok(i)[173]12))[172]12))"cont(NULL)";:[130]:[153]
  519. 8250 [153]"-tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantantantantantantan<"
  520. 8260 [153]"(NULL)deffilter "fi$(fe(0))"cont(NULL)deffilter "fi$(fe(1))"cont(NULL)deffilter "fi$(fe(2))"cont(NULL)"
  521. 8270 [153]"for-tan=tantantantantantantantan(NULL)conttantantantantantantantantantan>tantantantantantantantantantan<"
  522. 8280 [153]"for(NULL)ffor(NULL)        for(NULL)clrdco verstimmung:  "[201]([196](vs),2)" cont(NULL)"
  523. 8290 [153]"for(NULL)ifor(NULL)"f$(hp)"hochpassfor-tantantantantantantantantantantantantantantantantantantantantan<"
  524. 8300 [153]"for(NULL)lfor(NULL)        (NULL)                     (NULL)"
  525. 8310 [153]"for(NULL)tfor(NULL)"f$(bp)"bandpassfor(NULL)";
  526. 8320 [153]"clrfrequenz: ";[201]("   "[170][196]([181](co[172]5.8[170]30)),5);" hertzfor(NULL)"
  527. 8330 [153]"for(NULL)efor(NULL)        (NULL)                     (NULL)"
  528. 8340 [153]"for(NULL)rfor(NULL)"f$(tp)"tiefpassfor(NULL)clrresonanz: "[201]([196](rs),2)"         for(NULL)"
  529. 8350 [153]"/tan>tantantantantantantantan>tantantantantantantantantantantantantantantantantantantantantancont>tantantantantan"
  530. 8360 [142]
  531. 8370 :
  532. 8380 [143] +++ seite 2 +++
  533. 8390 :
  534. 8400 [153]"contortantantantantantantantantantan=tantantantantantantantantantan=tantantantantantantantantantan=tantantantantan^";
  535. 8410 [153]"cont(NULL)oszillator(NULL)huellkurvewaitcont(NULL)tastatur  (NULL)sysjoy- cont(NULL)";
  536. 8420 [153]"(NULL)& filter  (NULL)modulationwaitcont(NULL)disk-menue(NULL)sysstickcont(NULL)";
  537. 8430 [153]"-tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan<";
  538. 8440 [153]"(NULL)  adsr 1cont  (NULL)  adsr 2cont  (NULL)  adsr 3cont  (NULL)"
  539. 8450 [153]"-tan=tantantantantantantantan(NULL)tan=tantantantantantantantan(NULL)tan=tantantantantantantantan<"
  540. 8460 [153]"(NULL)acont(NULL)";ad$(a(0));"(NULL)acont(NULL)";ad$(a(1));"(NULL)acont(NULL)";ad$(a(2));"(NULL)"
  541. 8470 [153]"-tan(NULL)tantantantantantantantan(NULL)tan(NULL)tantantantantantantantan(NULL)tan(NULL)tantantantantantantantan<"
  542. 8480 [153]"(NULL)dcont(NULL)";r$(d(0));"(NULL)dcont(NULL)";r$(d(1));"(NULL)dcont(NULL)";r$(d(2));"(NULL)"
  543. 8490 [153]"-tan(NULL)tantantantantantantantan(NULL)tan(NULL)tantantantantantantantan(NULL)tan(NULL)tantantantantantantantan<"
  544. 8500 [153]"(NULL)scont(NULL)vol.: "[201]([196](s(0)),2)"(NULL)scont(NULL)vol.: "[201]([196](s(1)),2);
  545. 8510 [153]"(NULL)scont(NULL)vol.: "[201]([196](s(2)),2)"(NULL)"
  546. 8520 [153]"-tan(NULL)tantantantantantantantan(NULL)tan(NULL)tantantantantantantantan(NULL)tan(NULL)tantantantantantantantan<"
  547. 8530 [153]"(NULL)rcont(NULL)";r$(r(0));"(NULL)rcont(NULL)";r$(r(1));"(NULL)rcont(NULL)";r$(r(2));"(NULL)"
  548. 8540 [153]"for-tan>tantantantantantantantan(NULL)tan>tantantantantantantantan(NULL)tan>tantantantantantantantan<"
  549. 8550 [153]"(NULL)";:[129]i[178]0[164]2
  550. 8560 [153]"clrvibrato:";[201]([196](vi(i)),2)"for(NULL)";:[130]:[153]
  551. 8570 [153]"-tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantantantantantantan<"
  552. 8580 [153]"(NULL)";:[129]i[178]0[164]2
  553. 8590 [153]"clrpw.mod.:"[201]([196]([181](pw(i)[173]2.5757)),2)"for(NULL)";:[130]:[153]
  554. 8600 [153]"-tantantantantantantantantantan(NULL)tantantantantantantantantantan>tantantantantantantantantantan<"
  555. 8610 [153]"(NULL)modulationfor(NULL)clrgeschwindigkeit:  "[201](" "[170][196](sp),3)"for(NULL)"
  556. 8620 [153]"(NULL)          -tantantantantantantantantantantantantantantantantantantantantan<"
  557. 8630 [153]"(NULL)          -tantantantantantantantantantantantantantantantantantantantantan<"
  558. 8640 [153]"(NULL)"f$(4[170]mw)" (NULL)(NULL)"f$(5[170]mw)" then(NULL)"f$(3[170]mw)" (NULL)(NULL) ";
  559. 8650 [153]"for(NULL)clrenvelope follow:  "[201](" "[170][196](ef),3)"for(NULL)"
  560. 8660 [153]"(NULL)          (NULL)                     (NULL)"
  561. 8670 [153]"(NULL)"f$(mw[170]2)" stimme 3 for(NULL)clrfilter modulation:";
  562. 8680 [153][201](" "[170][196](mf),3)"for(NULL)"
  563. 8690 [153]"/tantantantantantantantantantan>tantantantantantantantantantantantantantantantantantantantantancont>"
  564. 8700 [142]
  565. 8710 :
  566. 8720 [143] +++ seite 3 +++
  567. 8730 :
  568. 8740 [153]"contortantantantantantantantantantan=tantantantantantantantantantan=tantantantantantantantantantan=tantantantantan^";
  569. 8750 [153]"cont(NULL)oszillator(NULL)huellkurve(NULL)tastatur  waitcont(NULL)sysjoy- cont(NULL)";
  570. 8760 [153]"(NULL)& filter  (NULL)modulation(NULL)disk-menuewaitcont(NULL)sysstickcont(NULL)";
  571. 8770 [153]"-tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan<";
  572. 8780 [153]"(NULL)sound     cont(NULL)sound     cont(NULL)sound     cont(NULL)"
  573. 8790 [153]"(NULL)loeschen  cont(NULL)speichern cont(NULL)laden     cont(NULL)"
  574. 8800 [153]"-tantantantantantantantantantan>tantantantantantantantantantan>tantantantantantantantantantan<"
  575. 8810 [153]"(NULL)         for towait  (NULL)  wait   (NULL)wait  towait         cont(NULL)"
  576. 8820 [153]"(NULL)         for  waitget  (NULL) wait  fn wait   waitget        cont(NULL)"
  577. 8830 [153]"(NULL)         for tab(tab(wait   (NULL)wait   waitstep  tab(tab(wait        cont(NULL)"
  578. 8840 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<     "
  579. 8850 [153]"(NULL)                                (NULL)     "
  580. 8860 [153]"(NULL)  list wait  wait  (NULL) wait  wait  wait  (NULL) wait  wait  (NULL) wait  wait  waitc waitcont   (NULL)     "
  581. 8870 [153]"cont(NULL)  list wait2 wait3 (NULL) wait5 wait6 wait7 (NULL) wait9 wait0 (NULL) wait- wait\ waitl waitcont   (NULL)"
  582. 8880 [153]"cont(NULL)  list wait  wait  (NULL) wait  wait  wait  (NULL) wait  wait  (NULL) wait  wait  waitr waitcont   (NULL)"
  583. 8890 [153]"cont(NULL)  list (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) waitcont   (NULL)"
  584. 8900 [153]"cont(NULL)  listq(NULL)w(NULL)e(NULL)r(NULL)t(NULL)y(NULL)u(NULL)i(NULL)o(NULL)p(NULL)@(NULL)*(NULL)^(NULL)zwaitcont   (NULL)"
  585. 8910 [153]"(NULL)                                (NULL)"
  586. 8920 [153]"(NULL)  list (NULL) wait  wait  (NULL) wait  wait  wait  (NULL) wait  wait  waitcont         (NULL)"
  587. 8930 [153]"cont(NULL)  list (NULL) waitd waitf (NULL) waith waitj waitk (NULL) wait: wait; waitcont         (NULL)"
  588. 8940 [153]"cont(NULL)  list (NULL) wait  wait  (NULL) wait  wait  wait  (NULL) wait  wait  waitcont         (NULL)"
  589. 8950 [153]"cont(NULL)  list (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) waitcont         (NULL)"
  590. 8960 [153]"cont(NULL)  listz(NULL)x(NULL)c(NULL)v(NULL)b(NULL)n(NULL)m(NULL),(NULL).(NULL)/(NULL) waitcont         (NULL)"
  591. 8970 [153]"(NULL)                                (NULL)"
  592. 8980 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan>";
  593. 8990 [142]
  594. 9000 :
  595. 9010 [143] +++ mpg's laden +++
  596. 9020 :
  597. 9030 [139][194](2)[178]0[167][151]2,1:[147]"happys.mpg.1",8,1
  598. 9040 [139][194](2)[178]1[167][151]2,2:[147]"happys.mpg.2",8,1
  599. 9050 [139][194](2)[178]2[167][151]2,3:[147]"happys.mpg.3",8,1
  600. 9060 [142]
  601. 9100 :
  602. 9110 [143] +++ initialisieren +++
  603. 9120 :
  604. 9130 [159]3,8,15
  605. 9140 [134]ad$(15),r$(15),n$(11),b(39),ff$(35)
  606. 9150 :
  607. 9160 [129]i[178]0[164]15:[135]ad$(i):[130]
  608. 9170 [129]i[178]0[164]15:[135] r$(i):[130]
  609. 9180 [129]i[178]0[164]11:[135] n$(i):[130]
  610. 9190 f$(0)[178][199](28):f$(1)[178][199](30):fi$(0)[178]"aus":fi$(1)[178]"ein":f$(5)[178]f$(1)
  611. 9200 t$(0)[178]"andandcont":t$(1)[178]"andandcont"
  612. 9210 :
  613. 9220 v[178]53248:si[178]54272:fr[178]55296:wf[178]40704:pa[178]1:mw[178]1
  614. 9230 [151]v[170]32,0:[151]v[170]33,0:[151]v[170]21,0:[158]49280
  615. 9240 [129]i[178]0[164]23:[151]si[170]i,0:[130]:[151]si[170]24,15
  616. 9250 [151]2041,14:[151]2042,15:[151]808,225
  617. 9260 [151]2040,13:[151]v[170]39,8:[151]v[170]37,7:[151]v[170]38,0:[151]v[170]28,1:[151]v[170]24,21
  618. 9270 [151]v[170]23,6:[151]v[170]29,6:[151]v[170]40,2:[151]v[170]41,2:[151]49213,5
  619. 9280 [151]49301,203:[151]49360,203
  620. 9290 [129]i[178]0[164]66:[151]wf[170]i,0:[130]i:[151]wf[170]33,1:[151]wf[170]39,26
  621. 9300 [142]
  622. 9400 :
  623. 9410 [143] +++ sprites +++
  624. 9420 :
  625. 9430 [151]v[170]21,6:[151]v[170]40,5:[151]v[170]41,5:[142]
  626. 9440 [151]v[170]21,7:[151]v[170]40,2:[151]v[170]41,2:[142]
  627. 9450 [153]"print"[163]35)"+10cmdcmdcmdcmd+1 -1cmdcmdcmdcmd-10":[142]
  628. 9460 [153]""[163]34)"     cmdcmdcmdcmdcmd     cmdcmdcmdcmdcmd     ":[142]
  629. 9470 [153]""[163]34)"+msekcmdcmdcmdcmdcmd-msek":[142]
  630. 9500 :
  631. 9510 [143] +++ joystick-abfrage +++
  632. 9520 :
  633. 9530 j[178][194](56320):[139]j[175]15[177][178]16[167] [142]
  634. 9540 [139]j[178]123[167]jo[178]jo[170]1
  635. 9550 [139]j[178]119[167]jo[178]jo[171]1
  636. 9560 [139]j[178]126[167]jo[178]jo[170]10
  637. 9570 [139]j[178]125[167]jo[178]jo[171]10
  638. 9580 [139]jo[179]0[167]jo[178]0
  639. 9590 [139]jo[177]255[167]jo[178]255
  640. 9600 bu[178]j[175]16
  641. 9610 [142]
  642. 9700 :
  643. 9710 [143] +++ a$ --> a% +++
  644. 9720 :
  645. 9730 a%[178][198](a$[170][199](0)):[142]
  646. 9800 :
  647. 9810 [143] +++ rot <-> gruen +++
  648. 9820 :
  649. 9830 a[178][194](fr[170]p):[139]a[173]2[178][181](a[173]2)[167]a[178]5:[137]9850
  650. 9840 a[178]2
  651. 9850 [129]i[178]0[164]l:[151]fr[170]p[170]i,a:[130]:[142]
  652. 10000 :
  653. 10010 [143] +++ laden/loeschen +++
  654. 10020 :
  655. 10030 [153]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan>tantantantantan"
  656. 10040 [153]a$
  657. 10050 [151]1463,115:[151]1543,115:[151]v[170]40,5:[151]v[170]41,5
  658. 10060 [153]"-tantantantantantantantantantantantan=tantantantantantantantantantantantan=tantantantantantantantantantantantan"
  659. 10070 [129]i[178]0[164]10
  660. 10080 [153]"(NULL)            (NULL)            (NULL)            ":[130]
  661. 10090 [153]"/tantantantantantantantantantantantan>tantantantantantantantantantantantan>tantantantantantantantantan"
  662. 10100 [141]10210:[151]1463,93:[151]1543,93
  663. 10110 d$[178]ff$(z1):[151]v[170]3,109:[151]v[170]5,151:[151]v[170]21,0
  664. 10120 [139]er[167]er[178]0:[137]410
  665. 10130 [153]"cont-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<     "
  666. 10135 [153]a1$
  667. 10138 [153]"cont-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<     "
  668. 10140 [129]i[178]2[164]12
  669. 10150 [153]"(NULL)                                (NULL)     ":[130]
  670. 10160 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan>";
  671. 10170 [142]
  672. 10180 :
  673. 10190 [143] +++ sound-auswahl +++
  674. 10200 :
  675. 10210 [139]ll[167]10590
  676. 10215 [141]10914:id$(1)[178]id$
  677. 10220 [160]1:[159]1,8,2,"hsy*,s,r":[141]10820
  678. 10225 [141]10914:id$(1)[178]id$
  679. 10230 [139]er[175]b$[178]"j"[167]10220
  680. 10240 [139]er[167][142]
  681. 10250 a0[178]0
  682. 10260 [160]15:[159]15,8,15,"i":[141]10820
  683. 10270 [139]er[175]b$[178]"j"[167]10260
  684. 10280 [139]er[167][142]
  685. 10290 f[178][171]1
  686. 10300 [160]2:[159]2,8,2,"#":[141]10820
  687. 10310 [139]er[167][142]
  688. 10320 [139]er[175]b$[178]"j"[167]10300
  689. 10330 [139]er[167][142]
  690. 10340 tr[178]18:se[178]1
  691. 10350 [153]"";
  692. 10360 [152]15,"u1";2;0;tr;se
  693. 10370 [161]#2,x$
  694. 10380 tr[178][198](x$[170][199](0))
  695. 10390 [161]#2,x$
  696. 10400 se[178][198](x$[170][199](0))
  697. 10410 [129]x[178]0[164]7
  698. 10420 [152]15,"b-p";2;x[172]32[170]2
  699. 10430 [161]#2,t$:[139]([198](t$[170][199](0))[175]1)[178]0[167]10560
  700. 10440 [152]15,"b-p";2;x[172]32[170]5
  701. 10450 [161]#2,x$:[139]x$[179][177]"h"[167]10560
  702. 10460 [161]#2,x$:[139]x$[179][177]"s"[167]10560
  703. 10470 [161]#2,x$:[139]x$[179][177]"y"[167]10560
  704. 10480 [161]#2,x$
  705. 10490 f$[178]""
  706. 10500 [129]y[178]0[164]11
  707. 10510 [161]#2,x$:[139]x$[178]""[167]x$[178][199](0)
  708. 10520 f$[178]f$[170]x$
  709. 10530 [130]y:f[178]f[170]1:[139]f[178]33[167]f[178]32:[137]10580
  710. 10535 ff$(f)[178]f$
  711. 10540 [153][163]a0[172]13[170]1);"print#";f$;
  712. 10550 a0[178]a0[170]1:[139]a0[177]2[167]a0[178]0:[153]
  713. 10560 [130]x
  714. 10570 [139]tr[179][177]0[167]10360
  715. 10580 [160]15:[160]2:ll[178]1:[137]10620
  716. 10590 [141]10914:[139]id$[179][177]id$(1)[167]ll[178]0:[129]i[178]0[164]32:ff$(i)[178]"":[137]10210
  717. 10599 [153]"";
  718. 10600 a1[178][171]1:[129]i[178]0[164]32:a1[178]a1[170]1:[139]a1[177]2[167]a1[178]0:[153]
  719. 10610 [153][163]1[170]a1[172]13)"print#"ff$(i);:[130]i
  720. 10620 z1[178]0:a1[178]0:z2[178]z1:a2[178]a1
  721. 10630 [153]""
  722. 10640 [129]i[178]0[164][181](z2[173]3):[153]:[130]i
  723. 10650 [153][163]a2[172]13[170]1)"print#"ff$(z2)
  724. 10660 [153]""
  725. 10670 [129]i[178]0[164][181](z1[173]3):[153]:[130]i
  726. 10680 [153][163]a1[172]13[170]1)""ff$(z1)
  727. 10690 a2[178]a1:z2[178]z1:j[178][194](56320)
  728. 10700 [139]j[178]119[167]z1[178]z1[170]1:[139]z1[177]f[167]z1[178]z2:[137]10720
  729. 10710 [139]j[178]119[167]a1[178]a1[170]1:[139]a1[177]2[167]a1[178]0:[137]10770
  730. 10720 [139]j[178]123[167]z1[178]z1[171]1:[139]z1[179]0[167]z1[178]z2:[137]10740
  731. 10730 [139]j[178]123[167]a1[178]a1[171]1:[139]a1[179]0[167]a1[178]2:[137]10770
  732. 10740 [139]j[178]125[167]z1[178]z1[170]3:[139]z1[177]f[167]z1[178]z2:[137]10750
  733. 10750 [139]j[178]126[167]z1[178]z1[171]3:[139]z1[179]0[167]z1[178]z2:[137]10770
  734. 10760 [139]j[178]111[167][142]
  735. 10770 [139](j[175]15)[179]15[175]z1[179][177]z2[167]10630
  736. 10780 [137]10690
  737. 10790 :
  738. 10800 [143] +++ fehlermeldung +++
  739. 10810 :
  740. 10820 [132]3,er,er$,lo:er$[178]er$[170]"                "
  741. 10830 [139]er[178]0[176]er[178]63[176]er[178]1[167][142]
  742. 10840 [152]3,"ui"
  743. 10850 [129]i[178]1[164]39:b(i)[178][194](1463[170]i):[130]
  744. 10860 [153]"list";[200](er$,21);": nochmal ?      "
  745. 10870 [139]b(34)[178]93[167][153][163]33)"oncont(NULL)"
  746. 10880 [161]b$:[139]b$[179][177]"j"[175]b$[179][177]"n"[167]10880
  747. 10890 [139]b$[178]"n"[167][142]
  748. 10900 [129]i[178]1[164]39:[151]1463[170]i,b(i):[130]
  749. 10910 [142]
  750. 10911 :
  751. 10912 [143] +++ id abfragen +++
  752. 10913 :
  753. 10914 [160]15:[159]15,8,15,"i"
  754. 10915 [139]er[175]b$[178]"j"[167]10914
  755. 10916 [139]er[167][160]2:[156]15:[142]
  756. 10917 [160]2:[159]2,8,2,"#"
  757. 10918 [152]15,"u1:";2;0;18;0
  758. 10919 [152]15,"b-p:";2;162
  759. 10920 [161] #2,id$,i1$:id$[178]id$[170]i1$
  760. 10930 [160]2:[160]15:[142]
  761. 11000 :
  762. 11010 [143] +++ datas +++
  763. 11020 :
  764. 11030 [143] +++ daten fuer adsr +++
  765. 11040 [131]"    2 ms","    8 ms","   16 ms","   24 ms","   38 ms","   56 ms"
  766. 11050 [131]"   68 ms","   80 ms","  100 ms","  250 ms","  500 ms","  800 ms"
  767. 11060 [131]" 1000 ms"," 3000 ms"," 5000 ms"," 8000 ms"
  768. 11070 [131]"    6 ms","   24 ms","   48 ms","   72 ms","  114 ms","  168 ms"
  769. 11080 [131]"  204 ms","  240 ms","  300 ms","  750 ms"," 1500 ms"," 2400 ms"
  770. 11090 [131]" 3000 ms"," 9000 ms","15000 ms","24000 ms"
  771. 11100 [143] +++ daten fuer noten +++
  772. 11110 [131]" c","#c"," d","#d"," e"," f","#f"," g","#g"," a","#a"," h"
  773.