100 GOSUB7080:REM TITELBILD 110 GOSUB9030:REM MPG LADEN 120 POKE56,152:CLR 130 GOSUB9130:REM INITIALISIEREN 140 GOSUB7430:REM START 150 : 160 POKEV+21,0:POKEV+1,70 170 ON PA GOTO 190,300,410 180 PA=NR:GOTO160 190 GOSUB8020:REM SEITE 1 200 POKEV+16,6:POKEV+2,36:POKEV+4,36:POKEV+3,109:POKEV+5,151 210 POKEV,60:POKEV+21,7:POKEV+40,2:POKEV+41,2 220 SYS49152 230 NR=PEEK(40959) 240 ON NR GOTO 180,180,180,220,220,220,1010,1020,1040,1090,1100,1120,1170,1180 250 ON NR -14 GOTO 1200,220,220,1030,1260,1110,1330,1190,1400,220,220 260 ON NR-25 GOTO 1050,1130,1210,1060,1140,1220,220,220,220,1250,1320,1390 270 ON NR-37 GOTO 1250,1320,1390,1310,1380,1450,2480,2950,2950,220,220,220 280 ON NR-49 GOTO 2510,2510,2510,2570,2570,220,220,220,2520,2710,2710 290 GOTO220 300 GOSUB8400:REM SEITE 2 310 POKEV+21,7:POKEV+40,2:POKEV+41,2 320 SYS49152 330 NR=PEEK(40959) 340 ON NR GOTO 180,180,180,320,320,320,1270,1270,1270,1340,1340,1340 350 ON NR-12 GOTO 1410,1410,1410,320,320,1280,1280,1350,1350,1420,1420 360 ON NR-23 GOTO 320,320,1290,1360,1430,320,320,320,1300,1370,1440 370 ON NR-34 GOTO 320,320,320,1070,1150,1230,1080,1160,1240,320,3170,3170 380 ON NR-46 GOTO 320,320,320,1460,1470,1480,2840,2840,320,320,320 390 ON NR-57 GOTO 1490,3060,3060 400 GOTO320 410 GOSUB8740:REM SEITE 3 420 POKEV+21,7:POKEV+40,2:POKEV+41,2 430 SYS49152 440 NR=PEEK(40959) 450 ON NR GOTO 180,180,180,4880,3700,4200 460 IFNR=>7 AND NR <=28 THEN3570 470 GOTO430 1000 REM +++ SPRUNGTABELLE +++ 1010 S=0:P=241:GOTO1510 1020 S=0:P=244:GOTO1540 1030 S=0:P=321:GOTO1550 1040 S=0:P=247:GOTO1560 1050 S=0:P=401:GOTO1570 1060 S=0:P=441:GOTO1580 1070 S=0:TA=9:GOTO3470 1080 S=0:TA=9:GOTO3280 1090 S=1:P=252:GOTO1510 1100 S=1:P=255:GOTO1540 1110 S=1:P=332:GOTO1550 1120 S=1:P=258:GOTO1560 1130 S=1:P=412:GOTO1570 1140 S=1:P=452:GOTO1580 1150 S=1:TA=20:GOTO3470 1160 S=1:TA=20:GOTO3280 1170 S=2:P=263:GOTO1510 1180 S=2:P=266:GOTO1540 1190 S=2:P=343:GOTO1550 1200 S=2:P=269:GOTO1560 1210 S=2:P=423:GOTO1570 1220 S=2:P=463:GOTO1580 1230 S=2:TA=31:GOTO3470 1240 S=2:TA=31:GOTO3280 1250 S=0:TA=9:GOTO1640 1260 S=0:TA=8:GOTO1820 1270 S=0:TA=3:GOTO1960 1280 S=0:TA=3:GOTO2070 1290 S=0:TA=9:GOTO2180 1300 S=0:TA=3:GOTO2300 1310 S=0:TA=8:GOTO2410 1320 S=1:TA=20:GOTO1640 1330 S=1:TA=19:GOTO1820 1340 S=1:TA=14:GOTO1960 1350 S=1:TA=14:GOTO2070 1360 S=1:TA=20:GOTO2180 1370 S=1:TA=14:GOTO2300 1380 S=1:TA=19:GOTO2410 1390 S=2:TA=31:GOTO1640 1400 S=2:TA=30:GOTO1820 1410 S=2:TA=25:GOTO1960 1420 S=2:TA=25:GOTO2070 1430 S=2:TA=31:GOTO2180 1440 S=2:TA=25:GOTO2300 1450 S=2:TA=30:GOTO2410 1460 P=842:L=1:MW=1:GOTO3400 1470 P=845:L=1:MW=0:GOTO3400 1480 P=848:L=1:MW=2:GOTO3400 1490 P=922:L=7:MW=3:GOTO3400 1500 : 1510 REM +++ WELLENFORMEN/SYNC/RING +++ 1520 : 1530 DE(S)=1-DE(S):L=1:GOTO1590 1540 SZ(S)=1-SZ(S):L=1:GOTO1590 1550 RE(S)=1-RE(S):L=1:GOTO1590 1560 RA(S)=1-RA(S):L=2:GOTO1590 1570 RI(S)=1-RI(S):L=9:GOTO1590 1580 SY(S)=1-SY(S):L=9 1590 GOSUB9820 1600 WF(S)=SY(S)*2+RI(S)*4+DE(S)*16+SZ(S)*32+RE(S)*64+RA(S)*128 1610 POKEWF+S,WF(S)+8:POKEWF+S,WF(S) 1620 GOTO220 1630 : 1640 REM +++ OKTAVE +++ 1650 : 1660 GOSUB9430 1670 PRINT"[153]"TAB(34)"+OKT.[157][157][157][157][157]+# -#[157][157][157][157][157]-OKT." 1680 WERT=OK(S):JO=10:GOSUB9530 1690 IFJO=0THENOK(S)=OK(S)-12 1700 IFJO=20THENOK(S)=OK(S)+12 1710 IFJO=9THENOK(S)=OK(S)-1 1720 IFJO=11THENOK(S)=OK(S)+1 1730 IFOK(S)<0OROK(S)>=48THENOK(S)=WERT 1740 POKEWF+3+S,OKT(S) 1750 PRINT""TAB(TA)INT(OKT(S)/12) 1760 PRINTTAB(TA)N$(INT(OK(S)-(INT(OKT(S)/12))*12)) 1770 IFBUTHEN1680 1780 PRINT"[145][145][156]"TAB(TA)INT(OKT(S)/12) 1790 PRINTTAB(TA)N$(INT(OK(S)-(INT(OKT(S)/12))*12)) 1800 GOSUB9440:GOSUB9460:GOTO220 1810 : 1820 REM +++ PULSE +++ 1830 : 1840 GOSUB9430 1850 PRINT"[153]"TAB(35)"+4[157][157][157]+1 -1[157][157][157]-4" 1860 WERT=PU(S)/16:JO=WERT 1870 GOSUB9530:PU(S)=JO*16 1880 P1=INT(PU(S)/256) 1890 POKEWF+49+S,PU(S)-P1*256:POKEWF+52+S,P1 1900 POKESI+3+S*7,P1:POKESI+2+S*7,PU(S)-P1*256 1910 PRINT""TAB(TA)RIGHT$(STR$(INT(PU(S)/40.95)),2);"%" 1920 IFBUTHEN1870 1930 PRINT"[145][156]"TAB(TA)RIGHT$(STR$(INT(PU(S)/40.95)),2);"%" 1940 GOSUB9440:GOSUB9460:GOTO220 1950 : 1960 REM +++ ATTACK +++ 1970 : 1980 GOSUB 9430:GOSUB9470 1990 WERT=A(S):JO=WERT*16 2000 GOSUB9530:A(S)=INT(JO/16) 2010 POKESI+5+S*7,A(S)*16+D(S) 2020 PRINT""TAB(TA)AD$(A(S)) 2030 IFBUTHEN2000 2040 PRINT"[145][146][154]"TAB(TA)AD$(A(S)) 2050 GOSUB9440:GOSUB9460:GOTO320 2060 : 2070 REM +++ DECAY +++ 2080 : 2090 GOSUB9430:GOSUB9470 2100 WERT=D(S):JO=WERT*16 2110 GOSUB9530:D(S)=INT(JO/16) 2120 POKESI+5+S*7,A(S)*16+D(S) 2130 PRINT""TAB(TA)R$(D(S)) 2140 IFBUTHEN2110 2150 PRINT"[145][146][154]"TAB(TA)R$(D(S)) 2160 GOSUB9440:GOSUB9460:GOTO320 2170 : 2180 REM +++ SUSTAIN +++ 2190 : 2200 GOSUB9430 2210 PRINT"[153]"TAB(36)"+1[157][157]-1" 2220 WERT=S(S):JO=WERT*16 2230 GOSUB9530:S(S)=INT(JO/16) 2240 POKESI+6+S*7,S(S)*16+R(S) 2250 PRINT""TAB(TA-6);"VOL.: ";RIGHT$(STR$(S(S)),2) 2260 IFBUTHEN2230 2270 PRINT"[145][146][154]"TAB(TA-6);"VOL.: ";RIGHT$(STR$(S(S)),2) 2280 GOSUB9440:GOSUB9460:GOTO320 2290 : 2300 REM +++ RELEASE +++ 2310 : 2320 GOSUB9430:GOSUB9470 2330 WERT=R(S):JO=WERT*16 2340 GOSUB9530:R(S)=INT(JO/16) 2350 POKESI+6+S*7,S(S)*16+R(S) 2360 PRINT""TAB(TA)R$(R(S)) 2370 IFBUTHEN2340 2380 PRINT"[145][146][154]"TAB(TA)R$(R(S)) 2390 GOSUB9440:GOSUB9460:GOTO320 2400 : 2410 REM +++ FILTER +++ 2420 : 2430 FE(S)=1-FE(S):L=2 2440 POKESI+23,RS*16+FE(0)+FE(1)*2+FE(2)*4 2450 PRINT""TAB(TA);FI$(FE(S)) 2460 GOTO220 2470 : 2480 REM +++ HOCH- BAND- TIEFPASS +++ 2490 : 2500 HP=1-HP:P=763:GOTO2530 2510 BP=1-BP:P=843:GOTO2530 2520 TP=1-TP:P=923 2530 L=7:GOSUB9820 2540 POKESI+24,15+HP*64+BP*32+TP*16 2550 GOTO220 2560 : 2570 REM +++ FILTERFREQUENZ +++ 2580 : 2590 GOSUB9430 2600 PRINT"[153]"TAB(35)"+++[157][157][157][157]+ -[157][157][157][157]---" 2610 WERT=30+CO*5.8:JO=WERT/46.4 2620 GOSUB9530:IF JO<.65THEN JO=.65 2630 IFJO<>WERT/46.4THENCO=INT((JO*46.4-30)/5.8) 2640 C1=INT(CO/8) 2650 POKESI+22,C1:POKESI+21,CO-C1*8:POKEWF+16,C1 2660 PRINT""TAB(22);RIGHT$(" "+STR$(INT(CO*5.8+30)),5) 2670 IFBUTHEN2620 2680 PRINT"[145][156]"TAB(22);RIGHT$(" "+STR$(INT(CO*5.8+30)),5) 2690 GOSUB9440:GOSUB9460:GOTO220 2700 : 2710 REM +++ FILTERRESONANZ +++ 2720 : 2730 GOSUB9430 2740 PRINT"[153]"TAB(36)"+1" 2750 PRINT""TAB(36)"-1" 2760 WERT=RS:JO=WERT*16 2770 GOSUB9530:RS=INT(JO/16) 2780 PRINT""TAB(22);RIGHT$(STR$(RS),2) 2790 POKESI+23,RS*16+FE(0)+FE(1)*2+FE(2)*4 2800 IFBUTHEN2770 2810 PRINT"[145][156]"TAB(22);RIGHT$(STR$(RS),2) 2820 GOSUB9440:GOSUB9460:GOTO220 2830 : 2840 REM +++ ENVELOPE-FOLLOW +++ 2850 : 2860 GOSUB9430:GOSUB9450 2870 WERT=PEEK(WF+17):JO=WERT 2880 GOSUB9530:EF=JO 2890 POKEWF+17,EF 2900 PRINT""TAB(30);RIGHT$(" "+STR$(EF),3) 2910 IFBUTHEN2880 2920 PRINT"[145][156]"TAB(30);RIGHT$(" "+STR$(EF),3) 2930 GOSUB9440:GOSUB9460:GOTO320 2940 : 2950 REM +++ VERSTIMMUNG +++ 2960 : 2970 GOSUB9430:GOSUB9450 2980 WERT=VS:JO=WERT 2990 GOSUB9530:VS=JO:IFVS>99THENVS=99:JO=99 3000 POKEWF+6,VS 3010 PRINT""TAB(30)RIGHT$(STR$(VS),2) 3020 IFBUTHEN2990 3030 PRINT"[145][156]"TAB(30)RIGHT$(STR$(VS),2) 3040 GOSUB9440:GOSUB9460:GOTO1940 3050 : 3060 REM +++ FILTER-MODULATION +++ 3070 : 3080 GOSUB9430:GOSUB9450 3090 WERT=PEEK(WF+19):JO=WERT 3100 GOSUB9530:MF=JO 3110 POKEWF+19,MF 3120 PRINT""TAB(30);RIGHT$(" "+STR$(MF),3) 3130 IFBUTHEN3100 3140 PRINT"[145][156]"TAB(30);RIGHT$(" "+STR$(MF),3) 3150 GOSUB9440:GOSUB9460:GOTO320 3160 : 3170 REM +++ MODULATION: SPEED +++ 3180 : 3190 GOSUB9430:GOSUB9450 3200 WERT=PEEK(WF+34):JO=WERT 3210 GOSUB9530:SP=JO 3220 POKEWF+34,SP 3230 PRINT""TAB(30);RIGHT$(" "+STR$(SP),3) 3240 IFBUTHEN3210 3250 PRINT"[145][156]"TAB(30);RIGHT$(" "+STR$(SP),3) 3260 GOSUB9440:GOSUB9460:GOTO320 3270 : 3280 REM +++ PWM-MODULATION +++ 3290 : 3300 GOSUB9430:GOSUB9450 3310 WERT=PEEK(WF+40+S):JO=INT(WERT/2.5757) 3320 GOSUB9530:IF JO>99THENJO=99 3330 PW(S)=INT(JO*2.5757)+1 3340 POKEWF+40+S,PW(S) 3350 PRINT""TAB(TA);RIGHT$(STR$(INT(PW(S)/2.5757)),2) 3360 IFBUTHEN3320 3370 PRINT"[145][156]"TAB(TA);RIGHT$(STR$(INT(PW(S)/2.5757)),2) 3380 GOSUB9440:GOSUB9460:GOTO320 3390 : 3400 REM +++ MODULATION-WELLENFORM +++ 3410 : 3420 FORI=842TO849:POKEFR+I,2:POKEFR+I+80,2:NEXT 3430 FORI=0TOL:POKEFR+P+I,5:NEXT 3440 POKEWF+33,MW 3450 GOTO320 3460 : 3470 REM +++ VIBRATO +++ 3480 : 3490 GOSUB9430:GOSUB9450 3500 WERT=PEEK(WF+64+S):JO=WERT 3510 GOSUB9530:VI(S)=JO:IFVI(S)>99THENVI(S)=99:JO=99 3520 POKEWF+64+S,VI(S) 3530 PRINT""TAB(TA);RIGHT$(STR$(VI(S)),2) 3540 IFBUTHEN3510 3550 PRINT"[145][156]"TAB(TA);RIGHT$(STR$(VI(S)),2) 3560 GOSUB9440:GOSUB9460:GOTO320 3570 : 3580 REM +++ ENDE +++ 3590 : 3600 POKEV+21,0:POKE198,0 3610 PRINT" " 3620 PRINT"[153] SIND SIE SICHER ???" 3630 PRINT" " 3640 GETA$:IFA$<>"J"ANDA$<>"N"THEN3640 3650 IFA$="N"THEN 410 3660 POKE53280,14:POKE53281,6:POKE198,0:POKE808,237:POKE2,0 3670 PRINT"[147][154]"; 3680 FORI=1TO100:NEXT 3690 SYS 64767 3700 : 3710 REM +++ SAVE - ROUTINE +++ 3720 : 3730 POKE198,0:POKEV+21,0:D$="" 3740 PRINT""; 3750 PRINT"[155] S O U N D S P E I C H E R N [146][154]" 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]" " 3770 [129]I[178]0[164]9 3780 [153]" " 3790 [130]:[153]"ONONONONONONONONON"; 3800 [153]"NAME DES SOUNDS ? ............CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"; 3810 [161]C$:[151]204,0 3830 [139]C$[178][199](20)[167]D$[178]"":[151]204,1:[153]"ON":[137]3800 3840 [139]C$[178][199](13)[167]3940 3850 [139]C$[179]"#"[176]C$[177]"Z"[167]3810 3855 [139]C$[178]"*"[176]C$[178]","[176]C$[178]":"[176]C$[178]"?"[176]C$[178]"@"[167]3810 3860 [153]C$;:[151]204,1 3870 D$[178]D$[170]C$ 3880 [139][195](D$)[179]11[167]3810 3890 [139][195](D$)[177]11[167] 3910 3900 [137]3810 3910 [161]C$:[139]C$[178][199](20)[167]D$[178]"":[151]204,1:[153]"ON":[137]3800 3920 [139]C$[178][199](13) [167] 3950 3930 [137]3910 3940 [139]D$[178]""[167][151]204,1:[137] 410 3950 [153]".":[151]204,1:D$[178][200](D$[170]"..............",12) 3960 UE$[178]"":U$[178]"ABGESPEICHERT......" 3970 [160]1:[159]1,8,2,UE$[170]"HSY."[170]D$[170]",S,W":[141]10820 3980 [139]ER[178]63[167]4030 3990 [139]ER[167][153]"" 4000 [139]ER[175]B$[178]"J"[167]3970 4010 [139]ER[167]ER[178]0:[160]1:[137]410 4020 [137]4080 4030 [153]"LISTUEBERSCHREIBEN ?"; 4040 [151]198,0 4050 [161]A$:[139]A$[179][177]"N"[175]A$[179][177]"J"[175]A$[179][177][199](13)[167]4050 4060 [139]A$[178]"N"[167][153]" NEIN":ER[178]0:[160]1:[137]410 4070 [153]" JA":UE$[178]"@:":U$[178]"UEBERSCHRIEBEN.....":[137]3970 4080 [153]"SOUND WIRD "U$ 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) 4100 [152]1,[199](WF(I));[199](OK(I));[199](PU(I)[171]P1[172]256);[199](P1); 4110 [152]1,[199](AD(I));[199](SR(I));[199](FE(I));[199](PW(I));[199](VI(I)); 4120 [130] I 4130 C1[178][181](CO[173]256) 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); 4150 [152]1,[199](EF);[199](MF);[199](MW);[199](SP);[199](RG) 4160 [160]1 4170 C$[178]"":[139]UE$[178]""[167]F[178]F[170]1:FF$(F)[178]D$:[139]F[178]33[167]F[178]32 4180 [137]410 4190 : 4200 [143] +++ LOAD - ROUTINE +++ 4210 : 4220 [151]V[170]3,65:[151]V[170]5,107:[151]V[170]21,6 4230 A$[178]"(null)LIST S O U N D V O N D I S K L A D E N WAITCONT" 4235 A1$[178]"(null)LIST S O U N D L A D E N WAITCONT(null) " 4240 [141]10030 4250 [153]"SOUND DEF"D$" WIRD GELADEN.ONONONCONT" 4260 [160]1:[159]1,8,2,"HSY."[170]D$[170]",S,R":[141]10820 4270 [139]ER[175]B$[178]"J"[167]4260 4280 [139]ER[167]ER[178]0:[160]1:[137]410 4290 [129]I[178]0[164]2 4300 [161]#1,A$:[141]9730:WF(I)[178]A% 4310 [161]#1,A$:[141]9730:OK(I)[178]A% 4320 [161]#1,A$:[141]9730:PU(I)[178]A% 4330 [161]#1,A$:[141]9730:PU(I)[178]PU(I)[170]A%[172]256 4340 [161]#1,A$:[141]9730:AD(I)[178]A% 4350 [161]#1,A$:[141]9730:SR(I)[178]A% 4360 [161]#1,A$:[141]9730:FE(I)[178]A% 4370 [161]#1,A$:[141]9730:PW(I)[178]A% 4380 [161]#1,A$:[141]9730:VI(I)[178]A% 4390 [130] I 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 4410 [161]#1,A$:[141]9730:CO[178]A% 4420 [161]#1,A$:[141]9730:CO[178]CO[170]A%[172]256 4430 [161]#1,A$:[141]9730:RS[178]A% 4440 [161]#1,A$:[141]9730:VS[178]A% 4450 [161]#1,A$:[141]9730:EF[178]A% 4460 [161]#1,A$:[141]9730:MF[178]A% 4470 [161]#1,A$:[141]9730:MW[178]A% 4480 [161]#1,A$:[141]9730:SP[178]A% 4490 [161]#1,A$:[141]9730:RG[178]A% 4500 [160]1:[160]15 4510 [129]I[178]0[164]2 4520 RA(I)[178](WF(I)[175]128)[173]128 4530 RE(I)[178](WF(I)[175]64)[173]64 4540 SZ(I)[178](WF(I)[175]32)[173]32 4550 DE(I)[178](WF(I)[175]16)[173]16 4560 RI(I)[178](WF(I)[175]4)[173]4 4570 SY(I)[178](WF(I)[175]2)[173]2 4580 A(I)[178](AD(I)[175]240)[173]16 4590 D(I)[178]AD(I)[175]15 4600 S(I)[178](SR(I)[175]240)[173]16 4610 R(I)[178]SR(I)[175]15 4620 [130] I 4630 : 4640 [143] +++ SOUND INITIALISIEREN +++ 4650 : 4660 [129]S[178]0[164]2 4670 [151]WF[170]3[170]S,OKT(S) 4680 [151]SI[170]5[170]S[172]7,AD(S) 4690 [151]SI[170]6[170]S[172]7,SR(S) 4700 [151]WF[170]40[170]S,PW(S) 4710 [151]WF[170]64[170]S,VI(S) 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 4730 [151]WF[170]S,WF(S)[170]8:[151]WF[170]S,WF(S) 4740 P1[178][181](PU(S)[173]256) 4750 [151]WF[170]49[170]S,PU(S)[171]P1[172]256:[151]WF[170]52[170]S,P1 4760 [151]SI[170]3[170]S[172]7,P1:[151]SI[170]2[170]S[172]7,PU(S)[171]P1[172]256 4770 [130] S 4780 [151]SI[170]23,RS[172]16[170]FE(0)[170]FE(1)[172]2[170]FE(2)[172]4 4790 [151]SI[170]24,15[170]HP[172]64[170]BP[172]32[170]TP[172]16 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 4810 [151]WF[170]17,EF 4820 [151]WF[170]6,VS 4830 [151]WF[170]17,EF 4840 [151]WF[170]34,SP 4845 [151]WF[170]19,MF 4850 [151]WF[170]33,MW 4860 [137] 410 4870 : 4880 [143] +++ SOUND LOESCHEN +++ 4890 : 4900 [151]V[170]3,65:[151]V[170]5,107:[151]V[170]21,6 4910 A$[178]"(null)LIST S O U N D L O E S C H E N WAITCONT" 4915 A1$[178]"(null)LIST S O U N D L O E S C H E N WAITCONT(null) " 4920 [141]10030 4930 [153]"SOUND DEF"D$" LOESCHEN ?"; 4940 [151]198,0 4950 [161]A$:[139]A$[178]"N"[167]410 4960 [139]A$[179][177]"J"[175]A$[179][177][199](13)[167]4950 4970 [153]" JA" 4980 [160]1:[159]1,8,15,"S:HSY."[170]D$:[141]10820 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 5000 [139]ER[178]1[167][153]"SOUND GESCHUETZT !":[153]"NOCHMAL ?";:[137]4950 5010 [139]B$[178]"J"[167]4980 5020 ER[178]0:[160]1:[137]410 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] 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] 7020 [178][178][178] U N T E R P R O G R A M M E [178][178] 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] 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] 7050 : 7060 [143] +++ TITELBILD +++ 7070 : 7080 [139][194](2)[178]1[176][194](2)[178]2[167][142] 7090 [151]53280,0:[151]53281,0 7100 [153]"LOAD";[199](142); 7110 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN" 7120 [153]"FOR (null) STEP (null) (null) (null) (null) STEPTO(null) (null) (null)   (null) " 7130 [153]"  TAB(  TAB(WAITSTEP TAB(WAITSTEP(null) WAITSTEP(null) (null)WAIT(null) WAITSTEP (null)   " 7140 [153]" (null)  (null)    WAIT(null)TAB(WAITSTEP  (null)  (null) " 7150 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN" 7160 [153]"PRINT# WAIT PRINT#VERSION 1.0" 7170 [153]"PRINT#NOTNOTNOTNOTNOTNOTNOTNOTNOTNOTWAIT PRINT#USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 7180 [153]"PRINT#OWER(null)PRINT#SPC(SPC(SPC(SPC(SPC(" 7190 [153]"PRINT#SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("[166]21)"WAITAND" 7200 [153]"PRINT# "[166]20)"STEP (null)" 7210 [153]"PRINT#TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("[166]20)" " 7220 [153]"PRINT# PRINT#WAITSTR$VALUSR(null)TO"[166]15)"(null) WAITSTEP" 7230 [153]"PRINT#TANTANTANTANTANTANTANTANTANRIGHT$PRINT#WAIT THENPOKE (null)"[166]10)"LIST " 7240 [153]"PRINT# *WAITFREFREFRERND (null)PRINT#WAITASC(null)AND(null)TAB( POKE(null)(null)"[166]9)"LIST " 7250 [153]"PRINT# WAITINTF 1ABS (null)WAITCONT PORT 2POKE(null)(null)WAITANDANDPRINT#STEP (null)" 7260 [153]"PRINT# LOGPOKEWAITPOSPOSPOSPRINT#COS (null)WAITPOKE (null)(null)"[166]2)"VERIFYTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 7270 [153]"PRINT# *POKEWAITFREFREFREPRINT#RND (null)WAIT POKE(null) VERIFYTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 7280 [153]"PRINT# WAITINTF 3ABS (null)"[166]16)"VERIFYWAIT(null) WAITSTEP" 7290 [153]"PRINT# LOGPOKEWAITPOSPOSPOSPRINT#COS (null) 7300 PRINT"[152] [172][146][151][184][184][184][152][187] [221] 7310 [153]"PRINT# WAITINTF 5ABS (null)WAITCONT ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^" 7320 [153]"PRINT# LOGPOKEWAITPOSPOSPOSPRINT#COS (null)WAITCONT (null) PRINTHAPPYSYNTHLIST (C) 1985 CONT(null)" 7330 [153]"PRINT# *WAITPOKEFREFREFREPRINT#RND (null)WAITCONT (null)LISTCHRISTIAN QUIRIN SPITZNERCONT(null)" 7340 [153]"PRINT# WAITINTF 7ABS (null)WAITCONT (null)LIST & BERNHARD CARLI CONT(null)" 7350 [153]"PRINT# LOGPOKEWAITPOSPOSPOSPRINT#COS (null)WAITCONT /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPON" 7360 [142] 7400 : 7410 [143] +++ START +++ 7420 : 7430 [139][194](56320)[178]111[167]7470 7440 [153]""[163]27)T$(T1) 7450 [139]T[170]40[179]TI[167]T[178]TI:T1[178]1[171]T1 7460 [137]7430 7470 [153]"LOADORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"; 7480 [129]I[178]1064[164]1944[169]40:[151]I,93:[151]I[170]39,93:[153]:[130] 7490 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"; 7500 [151]2023,125 7510 [142] 8000 [143] +++ SEITE 1 +++ 8010 : 8020 [153]"CONTORTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTAN^"; 8030 [153]"CONT(null)OSZILLATORWAITCONT(null)HUELLKURVE(null)TASTATUR (null)SYSJOY- CONT(null)"; 8040 [153]"(null)& FILTER WAITCONT(null)MODULATION(null)DISK-MENUE(null)SYSSTICKCONT(null)"; 8050 [153]"-TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTAN<"; 8060 [153]"(null) DCO 1 CONT (null)  DCO 2 CONT (null)  DCO 3 CONT (null)" 8070 [153]"-TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN<" 8080 [153]"(null)";:[129]I[178]0[164]2 8090 [153]F$(DE(I))"(null)(null)"F$(SZ(I))" THEN(null)"F$(RA(I))" SPC(SPC(SPC(CONT (null)";:[130]:[153] 8100 [153]"(null) (null) (null) (null)" 8110 [153]"(null)";:[129]I[178]0[164]2 8120 [153]F$(RE(I))"(null)(null) CLRPW: "[201]([196]([181](PU(I)[173]40.95)),2)"%CONT(null)";:[130]:[153] 8130 [153]"-TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN<" 8140 [153]"(null)"F$(RI(0))"RINGMOD. 3CONT(null)"; 8150 [153]F$(RI(1))"RINGMOD. 1CONT(null)"; 8160 [153]F$(RI(2))"RINGMOD. 2CONT(null)" 8170 [153]"(null)"F$(SY(0))"SYNCHRO. 3CONT(null)"; 8180 [153]F$(SY(1))"SYNCHRO. 1CONT(null)"; 8190 [153]F$(SY(2))"SYNCHRO. 2CONT(null)" 8200 [153]"-TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN<" 8210 [153]"(null)";:[129]I[178]0[164]2 8220 [153]"CLROKTAVE: "[181](OKT(I)[173]12)"CMDCONT(null)";:[130]:[153] 8230 [153]"(null)";:[129]I[178]0[164]2 8240 [153]"CLRTONART: "N$([181](OK(I)[171]([181](OK(I)[173]12))[172]12))"CONT(null)";:[130]:[153] 8250 [153]"-TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN<" 8260 [153]"(null)DEFFILTER "FI$(FE(0))"CONT(null)DEFFILTER "FI$(FE(1))"CONT(null)DEFFILTER "FI$(FE(2))"CONT(null)" 8270 [153]"FOR-TAN=TANTANTANTANTANTANTANTAN(null)CONTTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTAN<" 8280 [153]"FOR(null)FFOR(null) FOR(null)CLRDCO VERSTIMMUNG: "[201]([196](VS),2)" CONT(null)" 8290 [153]"FOR(null)IFOR(null)"F$(HP)"HOCHPASSFOR-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<" 8300 [153]"FOR(null)LFOR(null) (null) (null)" 8310 [153]"FOR(null)TFOR(null)"F$(BP)"BANDPASSFOR(null)"; 8320 [153]"CLRFREQUENZ: ";[201](" "[170][196]([181](CO[172]5.8[170]30)),5);" HERTZFOR(null)" 8330 [153]"FOR(null)EFOR(null) (null) (null)" 8340 [153]"FOR(null)RFOR(null)"F$(TP)"TIEFPASSFOR(null)CLRRESONANZ: "[201]([196](RS),2)" FOR(null)" 8350 [153]"/TAN>TANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANCONT>TANTANTANTANTAN" 8360 [142] 8370 : 8380 [143] +++ SEITE 2 +++ 8390 : 8400 [153]"CONTORTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTAN^"; 8410 [153]"CONT(null)OSZILLATOR(null)HUELLKURVEWAITCONT(null)TASTATUR (null)SYSJOY- CONT(null)"; 8420 [153]"(null)& FILTER (null)MODULATIONWAITCONT(null)DISK-MENUE(null)SYSSTICKCONT(null)"; 8430 [153]"-TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTAN<"; 8440 [153]"(null) ADSR 1CONT (null) ADSR 2CONT (null) ADSR 3CONT (null)" 8450 [153]"-TAN=TANTANTANTANTANTANTANTAN(null)TAN=TANTANTANTANTANTANTANTAN(null)TAN=TANTANTANTANTANTANTANTAN<" 8460 [153]"(null)ACONT(null)";AD$(A(0));"(null)ACONT(null)";AD$(A(1));"(null)ACONT(null)";AD$(A(2));"(null)" 8470 [153]"-TAN(null)TANTANTANTANTANTANTANTAN(null)TAN(null)TANTANTANTANTANTANTANTAN(null)TAN(null)TANTANTANTANTANTANTANTAN<" 8480 [153]"(null)DCONT(null)";R$(D(0));"(null)DCONT(null)";R$(D(1));"(null)DCONT(null)";R$(D(2));"(null)" 8490 [153]"-TAN(null)TANTANTANTANTANTANTANTAN(null)TAN(null)TANTANTANTANTANTANTANTAN(null)TAN(null)TANTANTANTANTANTANTANTAN<" 8500 [153]"(null)SCONT(null)VOL.: "[201]([196](S(0)),2)"(null)SCONT(null)VOL.: "[201]([196](S(1)),2); 8510 [153]"(null)SCONT(null)VOL.: "[201]([196](S(2)),2)"(null)" 8520 [153]"-TAN(null)TANTANTANTANTANTANTANTAN(null)TAN(null)TANTANTANTANTANTANTANTAN(null)TAN(null)TANTANTANTANTANTANTANTAN<" 8530 [153]"(null)RCONT(null)";R$(R(0));"(null)RCONT(null)";R$(R(1));"(null)RCONT(null)";R$(R(2));"(null)" 8540 [153]"FOR-TAN>TANTANTANTANTANTANTANTAN(null)TAN>TANTANTANTANTANTANTANTAN(null)TAN>TANTANTANTANTANTANTANTAN<" 8550 [153]"(null)";:[129]I[178]0[164]2 8560 [153]"CLRVIBRATO:";[201]([196](VI(I)),2)"FOR(null)";:[130]:[153] 8570 [153]"-TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN<" 8580 [153]"(null)";:[129]I[178]0[164]2 8590 [153]"CLRPW.MOD.:"[201]([196]([181](PW(I)[173]2.5757)),2)"FOR(null)";:[130]:[153] 8600 [153]"-TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTAN<" 8610 [153]"(null)MODULATIONFOR(null)CLRGESCHWINDIGKEIT: "[201](" "[170][196](SP),3)"FOR(null)" 8620 [153]"(null) -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<" 8630 [153]"(null) -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<" 8640 [153]"(null)"F$(4[170]MW)" (null)(null)"F$(5[170]MW)" THEN(null)"F$(3[170]MW)" (null)(null) "; 8650 [153]"FOR(null)CLRENVELOPE FOLLOW: "[201](" "[170][196](EF),3)"FOR(null)" 8660 [153]"(null) (null) (null)" 8670 [153]"(null)"F$(MW[170]2)" STIMME 3 FOR(null)CLRFILTER MODULATION:"; 8680 [153][201](" "[170][196](MF),3)"FOR(null)" 8690 [153]"/TANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANCONT>" 8700 [142] 8710 : 8720 [143] +++ SEITE 3 +++ 8730 : 8740 [153]"CONTORTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTAN^"; 8750 [153]"CONT(null)OSZILLATOR(null)HUELLKURVE(null)TASTATUR WAITCONT(null)SYSJOY- CONT(null)"; 8760 [153]"(null)& FILTER (null)MODULATION(null)DISK-MENUEWAITCONT(null)SYSSTICKCONT(null)"; 8770 [153]"-TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTANTANTAN(null)TANTANTANTANTAN<"; 8780 [153]"(null)SOUND CONT(null)SOUND CONT(null)SOUND CONT(null)" 8790 [153]"(null)LOESCHEN CONT(null)SPEICHERN CONT(null)LADEN CONT(null)" 8800 [153]"-TANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTAN<" 8810 [153]"(null) FOR TOWAIT (null) WAIT  (null)WAIT  TOWAIT CONT(null)" 8820 [153]"(null) FOR WAITGET  (null) WAIT  FN WAIT  WAITGET CONT(null)" 8830 [153]"(null) FOR TAB(TAB(WAIT  (null)WAIT  WAITSTEP  TAB(TAB(WAIT CONT(null)" 8840 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN< " 8850 [153]"(null) (null) " 8860 [153]"(null) LIST WAIT  WAIT  (null) WAIT  WAIT  WAIT  (null) WAIT  WAIT  (null) WAIT  WAIT  WAITC WAITCONT (null) " 8870 [153]"CONT(null) LIST WAIT2 WAIT3 (null) WAIT5 WAIT6 WAIT7 (null) WAIT9 WAIT0 (null) WAIT- WAIT\ WAITL WAITCONT (null)" 8880 [153]"CONT(null) LIST WAIT  WAIT  (null) WAIT  WAIT  WAIT  (null) WAIT  WAIT  (null) WAIT  WAIT  WAITR WAITCONT (null)" 8890 [153]"CONT(null) LIST (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) WAITCONT (null)" 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)" 8910 [153]"(null) (null)" 8920 [153]"(null) LIST (null) WAIT  WAIT  (null) WAIT  WAIT  WAIT  (null) WAIT  WAIT  WAITCONT (null)" 8930 [153]"CONT(null) LIST (null) WAITD WAITF (null) WAITH WAITJ WAITK (null) WAIT: WAIT; WAITCONT (null)" 8940 [153]"CONT(null) LIST (null) WAIT  WAIT  (null) WAIT  WAIT  WAIT  (null) WAIT  WAIT  WAITCONT (null)" 8950 [153]"CONT(null) LIST (null) (null) (null) (null) (null) (null) (null) (null) (null) (null) WAITCONT (null)" 8960 [153]"CONT(null) LISTZ(null)X(null)C(null)V(null)B(null)N(null)M(null),(null).(null)/(null) WAITCONT (null)" 8970 [153]"(null) (null)" 8980 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>"; 8990 [142] 9000 : 9010 [143] +++ MPG'S LADEN +++ 9020 : 9030 [139][194](2)[178]0[167][151]2,1:[147]"HAPPYS.MPG.1",8,1 9040 [139][194](2)[178]1[167][151]2,2:[147]"HAPPYS.MPG.2",8,1 9050 [139][194](2)[178]2[167][151]2,3:[147]"HAPPYS.MPG.3",8,1 9060 [142] 9100 : 9110 [143] +++ INITIALISIEREN +++ 9120 : 9130 [159]3,8,15 9140 [134]AD$(15),R$(15),N$(11),B(39),FF$(35) 9150 : 9160 [129]I[178]0[164]15:[135]AD$(I):[130] 9170 [129]I[178]0[164]15:[135] R$(I):[130] 9180 [129]I[178]0[164]11:[135] N$(I):[130] 9190 F$(0)[178][199](28):F$(1)[178][199](30):FI$(0)[178]"AUS":FI$(1)[178]"EIN":F$(5)[178]F$(1) 9200 T$(0)[178]"ANDANDCONT":T$(1)[178]"ANDANDCONT" 9210 : 9220 V[178]53248:SI[178]54272:FR[178]55296:WF[178]40704:PA[178]1:MW[178]1 9230 [151]V[170]32,0:[151]V[170]33,0:[151]V[170]21,0:[158]49280 9240 [129]I[178]0[164]23:[151]SI[170]I,0:[130]:[151]SI[170]24,15 9250 [151]2041,14:[151]2042,15:[151]808,225 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 9270 [151]V[170]23,6:[151]V[170]29,6:[151]V[170]40,2:[151]V[170]41,2:[151]49213,5 9280 [151]49301,203:[151]49360,203 9290 [129]I[178]0[164]66:[151]WF[170]I,0:[130]I:[151]WF[170]33,1:[151]WF[170]39,26 9300 [142] 9400 : 9410 [143] +++ SPRITES +++ 9420 : 9430 [151]V[170]21,6:[151]V[170]40,5:[151]V[170]41,5:[142] 9440 [151]V[170]21,7:[151]V[170]40,2:[151]V[170]41,2:[142] 9450 [153]"PRINT"[163]35)"+10CMDCMDCMDCMD+1 -1CMDCMDCMDCMD-10":[142] 9460 [153]""[163]34)" CMDCMDCMDCMDCMD  CMDCMDCMDCMDCMD ":[142] 9470 [153]""[163]34)"+MSEKCMDCMDCMDCMDCMD-MSEK":[142] 9500 : 9510 [143] +++ JOYSTICK-ABFRAGE +++ 9520 : 9530 J[178][194](56320):[139]J[175]15[177][178]16[167] [142] 9540 [139]J[178]123[167]JO[178]JO[170]1 9550 [139]J[178]119[167]JO[178]JO[171]1 9560 [139]J[178]126[167]JO[178]JO[170]10 9570 [139]J[178]125[167]JO[178]JO[171]10 9580 [139]JO[179]0[167]JO[178]0 9590 [139]JO[177]255[167]JO[178]255 9600 BU[178]J[175]16 9610 [142] 9700 : 9710 [143] +++ A$ --> A% +++ 9720 : 9730 A%[178][198](A$[170][199](0)):[142] 9800 : 9810 [143] +++ ROT <-> GRUEN +++ 9820 : 9830 A[178][194](FR[170]P):[139]A[173]2[178][181](A[173]2)[167]A[178]5:[137]9850 9840 A[178]2 9850 [129]I[178]0[164]L:[151]FR[170]P[170]I,A:[130]:[142] 10000 : 10010 [143] +++ LADEN/LOESCHEN +++ 10020 : 10030 [153]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTAN" 10040 [153]A$ 10050 [151]1463,115:[151]1543,115:[151]V[170]40,5:[151]V[170]41,5 10060 [153]"-TANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTANTANTANTANTAN" 10070 [129]I[178]0[164]10 10080 [153]"(null) (null) (null) ":[130] 10090 [153]"/TANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTAN" 10100 [141]10210:[151]1463,93:[151]1543,93 10110 D$[178]FF$(Z1):[151]V[170]3,109:[151]V[170]5,151:[151]V[170]21,0 10120 [139]ER[167]ER[178]0:[137]410 10130 [153]"CONT-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN< " 10135 [153]A1$ 10138 [153]"CONT-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN< " 10140 [129]I[178]2[164]12 10150 [153]"(null) (null) ":[130] 10160 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>"; 10170 [142] 10180 : 10190 [143] +++ SOUND-AUSWAHL +++ 10200 : 10210 [139]LL[167]10590 10215 [141]10914:ID$(1)[178]ID$ 10220 [160]1:[159]1,8,2,"HSY*,S,R":[141]10820 10225 [141]10914:ID$(1)[178]ID$ 10230 [139]ER[175]B$[178]"J"[167]10220 10240 [139]ER[167][142] 10250 A0[178]0 10260 [160]15:[159]15,8,15,"I":[141]10820 10270 [139]ER[175]B$[178]"J"[167]10260 10280 [139]ER[167][142] 10290 F[178][171]1 10300 [160]2:[159]2,8,2,"#":[141]10820 10310 [139]ER[167][142] 10320 [139]ER[175]B$[178]"J"[167]10300 10330 [139]ER[167][142] 10340 TR[178]18:SE[178]1 10350 [153]""; 10360 [152]15,"U1";2;0;TR;SE 10370 [161]#2,X$ 10380 TR[178][198](X$[170][199](0)) 10390 [161]#2,X$ 10400 SE[178][198](X$[170][199](0)) 10410 [129]X[178]0[164]7 10420 [152]15,"B-P";2;X[172]32[170]2 10430 [161]#2,T$:[139]([198](T$[170][199](0))[175]1)[178]0[167]10560 10440 [152]15,"B-P";2;X[172]32[170]5 10450 [161]#2,X$:[139]X$[179][177]"H"[167]10560 10460 [161]#2,X$:[139]X$[179][177]"S"[167]10560 10470 [161]#2,X$:[139]X$[179][177]"Y"[167]10560 10480 [161]#2,X$ 10490 F$[178]"" 10500 [129]Y[178]0[164]11 10510 [161]#2,X$:[139]X$[178]""[167]X$[178][199](0) 10520 F$[178]F$[170]X$ 10530 [130]Y:F[178]F[170]1:[139]F[178]33[167]F[178]32:[137]10580 10535 FF$(F)[178]F$ 10540 [153][163]A0[172]13[170]1);"PRINT#";F$; 10550 A0[178]A0[170]1:[139]A0[177]2[167]A0[178]0:[153] 10560 [130]X 10570 [139]TR[179][177]0[167]10360 10580 [160]15:[160]2:LL[178]1:[137]10620 10590 [141]10914:[139]ID$[179][177]ID$(1)[167]LL[178]0:[129]I[178]0[164]32:FF$(I)[178]"":[137]10210 10599 [153]""; 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] 10610 [153][163]1[170]A1[172]13)"PRINT#"FF$(I);:[130]I 10620 Z1[178]0:A1[178]0:Z2[178]Z1:A2[178]A1 10630 [153]"" 10640 [129]I[178]0[164][181](Z2[173]3):[153]:[130]I 10650 [153][163]A2[172]13[170]1)"PRINT#"FF$(Z2) 10660 [153]"" 10670 [129]I[178]0[164][181](Z1[173]3):[153]:[130]I 10680 [153][163]A1[172]13[170]1)""FF$(Z1) 10690 A2[178]A1:Z2[178]Z1:J[178][194](56320) 10700 [139]J[178]119[167]Z1[178]Z1[170]1:[139]Z1[177]F[167]Z1[178]Z2:[137]10720 10710 [139]J[178]119[167]A1[178]A1[170]1:[139]A1[177]2[167]A1[178]0:[137]10770 10720 [139]J[178]123[167]Z1[178]Z1[171]1:[139]Z1[179]0[167]Z1[178]Z2:[137]10740 10730 [139]J[178]123[167]A1[178]A1[171]1:[139]A1[179]0[167]A1[178]2:[137]10770 10740 [139]J[178]125[167]Z1[178]Z1[170]3:[139]Z1[177]F[167]Z1[178]Z2:[137]10750 10750 [139]J[178]126[167]Z1[178]Z1[171]3:[139]Z1[179]0[167]Z1[178]Z2:[137]10770 10760 [139]J[178]111[167][142] 10770 [139](J[175]15)[179]15[175]Z1[179][177]Z2[167]10630 10780 [137]10690 10790 : 10800 [143] +++ FEHLERMELDUNG +++ 10810 : 10820 [132]3,ER,ER$,LO:ER$[178]ER$[170]" " 10830 [139]ER[178]0[176]ER[178]63[176]ER[178]1[167][142] 10840 [152]3,"UI" 10850 [129]I[178]1[164]39:B(I)[178][194](1463[170]I):[130] 10860 [153]"LIST";[200](ER$,21);": NOCHMAL ? " 10870 [139]B(34)[178]93[167][153][163]33)"ONCONT(null)" 10880 [161]B$:[139]B$[179][177]"J"[175]B$[179][177]"N"[167]10880 10890 [139]B$[178]"N"[167][142] 10900 [129]I[178]1[164]39:[151]1463[170]I,B(I):[130] 10910 [142] 10911 : 10912 [143] +++ ID ABFRAGEN +++ 10913 : 10914 [160]15:[159]15,8,15,"I" 10915 [139]ER[175]B$[178]"J"[167]10914 10916 [139]ER[167][160]2:[156]15:[142] 10917 [160]2:[159]2,8,2,"#" 10918 [152]15,"U1:";2;0;18;0 10919 [152]15,"B-P:";2;162 10920 [161] #2,ID$,I1$:ID$[178]ID$[170]I1$ 10930 [160]2:[160]15:[142] 11000 : 11010 [143] +++ DATAS +++ 11020 : 11030 [143] +++ DATEN FUER ADSR +++ 11040 [131]" 2 MS"," 8 MS"," 16 MS"," 24 MS"," 38 MS"," 56 MS" 11050 [131]" 68 MS"," 80 MS"," 100 MS"," 250 MS"," 500 MS"," 800 MS" 11060 [131]" 1000 MS"," 3000 MS"," 5000 MS"," 8000 MS" 11070 [131]" 6 MS"," 24 MS"," 48 MS"," 72 MS"," 114 MS"," 168 MS" 11080 [131]" 204 MS"," 240 MS"," 300 MS"," 750 MS"," 1500 MS"," 2400 MS" 11090 [131]" 3000 MS"," 9000 MS","15000 MS","24000 MS" 11100 [143] +++ DATEN FUER NOTEN +++ 11110 [131]" C","#C"," D","#D"," E"," F","#F"," G","#G"," A","#A"," H"