home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8506d.d64 / happysynth (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.