A1000:20: **MOZART**  ** Eroeffnung und Menue ** T$(119),WA(12,7),WB(12,7),SV(160),SP(160),SD(160) W$(13)&!T1:D30:TZ0:W0:VO0:SO2:VTVE:HTHOL!NC(("A")65): Not Commodore-64R!$n!.VE1 5:2930:150:VEv!8W0!BVE9 19 2:2930:SR$;:VE!L120:HEHO:VE9:110:D;!VVE11:110:SO;!`VE22:2930:150!jW7 13:W$(W):W!t"~ ** Noten und Takte lesen **"":"T1 119:T$(T):TP"Z2 12:WT1 7h"WA(Z,WT):WB(Z,WT)s"WT:Zy"" ** Funktionsauswahl **""X7:3130:(IN$"1")(IN$"6")1530"XIN48:X 3530,3630,3730,3830,2030,950"# ** 24 Takte Mozart-Walzer ** #4#3030:X8:3230@#I1 2M#WA1 7h# 2530:TWA(Z,WA):2710p#WA# SDD2:SP67:SV12:2630#*I#4WB1 7#>2530:TWB(Z,WB):2710#HWB#RT$(0)"MA5":T0:2710#\SV(TZ1)1:TZ0#f$p ** Notenfeld vorspielen ** $z?$X9:3230:SR$W$(13):3330N$TZ1 160p$SVSV(TZ):SPSP(TZ):SDSD(TZ)$SV12 400:2250$200$(IN0)(SV0)TZ160:2250$400$TZ$TZ0:SV1 2030$1530$ % ** Zufallszahl 2-12 ** % !% 260:Z(RV11)2'% -%( L%2 ** Notenfeld aufbauen **R%< %F TZTZ1:SD(TZ)SD:SV(TZ)SV:SP(TZ)SP12SO12%P % % L1 (T$(T))% HA((T$(T),L,1)):NC 2740% HAHA32:HA128 HAHA160% SV12:L1 SV15&& HA91 SDD16:SPHA325:2630:2840D& (T$(T),L1,1)"*" 2810c& SPHA5:SDD8:2630:2840i& }& ** Triller **& & SDD32:SPHA5& H11 8:SPHAHA9SP:2630:H1& LL1& L&" &T &^ ** Bildschirmsteuerung **&h 'r SR$:WW1:W$(W)SR$4'| HO(HT(SR$))23:110:' @' [' ** Zeile loeschen **a' ' VEVT2:HOHT8:110:SR$W$(10):(SR$,8);' ' '& ** Textzeile **'0 ': 3030:VE22:2940:SR$;:SR$W$(X)'D 2940:SR$;:210'N ' ( ** Zeile in inverse **"( M( VE22:SR$W$(10):2940:SR$;:SR$W$(X)\( 2940:150b( h( ( ** Zeile printen **( ( VEVT2:HOHT8:110:SR$;( (H (R ** Zahl loeschen **(\ (f VEX27:HOHE:110:W$(10);:110)p A$:110:W$(10):110:" ";A$;")z () E) ** Tempo veraendern **K) s) 3430:D((A$)):(D6)(D99)3530}) 1530)) ** Oktave veraendern **)$).3430:SO((A$)))8(SO0)(SO5)3630)B1530)t)~ ** Takteingabe ****X11:3230:X3+*3430:T((A$))C*(T0)(T119)3740\*(T0)(TZ150)3880*3030:SR$T$(T):3330:2710:3740** ** Zufalls-Melodie ****X12:3230*ZU1 24* 260:T(RV118)1:3030*SR$T$(T):3330:2710+ZU+(SV(TZ1)99:2190#+a=+a *** MENUEDATEN ***C+ar+a" ","M O Z A R T","-----------"+a" KV 294d "," ","1 ... Tempo (6-99) :"+a"2 ... Oktave (0-5) :","3 ... Takt (0-119) :",a"4 ... Random-Sound ","5 ... Mozart-Walzer "@,a"6 ... Programmende ","-ich lerne Noten-"o,a" Sie waehlen :","-ich komponiere-",b"-ich musiziere-"," ", b"0 = vorspielen","So ein Zufall !",">TASTE<",b, b *** Noten der Takte 1-119 ***-*b8-4b"ROT","Jghlt","TMQ","TO*","HMQ","qmqtyt","QOH"h->b"ljlmol","qmljhg","MMM","MHE","QtqM","VSO"-Hb"mhmqhm","qmQT","Tx{O","mqtojs","QMH","rqoqrt"-Rb"cgjosv","QQQ","rqroml","sojvso","lotoL","qmHQ".\b"qmolH","JOS","jqotsv","txtoL","MHQ","THH"9.fb"mlmqhm","mlmqH","lmoljh","Trqom","Jrojl","mlmhea"n.pb"Txtol","TtoX","Qmqty","MqmH","mhqmtq","onorhl".zb"QqrT","TXO","olHT","TQM","MqmT","qmlhjg","qmlmH".b"qtytqm","ojOS","SVS","Txtot","Svsos","tx{xT"/b"rqomlo","yxytqm","SSS","txTO","OJS","olHT","MQH"D/b"OotX","totxto","rqOT","sv{vsv","OtxO","tstolh"u/b"SVO","qoqtyt","soJS","mqmhE","Jomlj","QTY"/b"ororlo","ommllj","ROL","OOO","orvrol","ojosvs"/b"qvtxsv","qmtqyt","[vsoj","TxtO","tstxO","tqolH"0b"mhmqtq","LOT","vtstO","QolH","Otolo","jqomlh"E0b"SsoV","SS*","txtxO","JjoS","oqroml","TolH"x0b"orjolo","OSV","qyxtvs","roJL","QQ*","ojsovs"0b"onosvs","txtolh","mhqmT","Loljh","qtomlj","OHH"0b"OHL","oxtoL","MmoQ","qtotjs","lmoqro","rvJlo"0b"qmloT","vtxtot"0b1c *** Zahlentafeln *** 1cW1c18,55,18,85,98,21,33,7,55,18,86,18,9,76,5,81,5,311$c89,88,50,46,101,5,38,5,93,80,47,53,47,96,109,121.c11,91,105,47,45,47,77,100,32,67,14,119,78,6,63,2618c79,32,2,32,110,43,58,20,58,99,69,51,37,87,61,58/2Bc69,58,28,1,71,95,71,56,22,104,114,24,106,71,54,71g2Lc82,19,35,13,35,107,116,18,44,118,70,35,92,35,17,662Vc83,84,42,65,79,40,41,113,97,42,64,42,115,57,30,522`c30,60,34,15,108,62,59,30,90,30,49,103,3,72,3,43jc112,25,48,111,94,3,39,3,102,117,10,27,10,16,8,75%3tc73,68,23,10,29,10,74,36+30uM3:u ***************************o3Du * *3Nu * Dieses Programm wurde *3Xu * fuer BASICODE - 3 auf *3bu * einem KC85/4 entwickelt.*3lu * Den Algorithmus entnah- *4vu * men wir dem KV 294d von *;4u * Wolfgang-Amadeus Mozart,*]4u * der uns die Verstuemme- *4u * lung seines Werkes ver- *4u * zeihen moege. *4u * In die vorliegende Form *4u * brachten die Noten: *5u * *)5} * Uwe und Andreas Zierott *K5 } * Pappelallee 1 *m5} * Lehnin 1804 *5} * DDR *5(} * *52} * 21.09.89 *5<} * *6F} ***************************6P}?6Z} Erstausstrahlung: Radio DDRL6d} 9001109 *5<} * *6