UMuzsika UdD A0: A$"": C$"": C0: C10: B0: BV0: B$"": I0: I$"": Z0: X0: Y0: H0: S10: S0: N0: T0: T$"": H0: M0D 5600: A%(500,3): M$(500,3): K%(82): T$(5U00,3)D(:(3):(2):$5,8,"PRIMO MUZSIKA";(18) : 60000D2 I0 500: ID<: 60000]EF$2,3,"Tess`k v}lasztani!" :$4,5,"1. _j dal programoz}sa": $5,5,"2. dal beolvas}sa magn[r[l"EP$11,11,"":" Melyiket parancsolja";A$:A(A$): A0xU A2 60EZ A 100,1600Ed *** programoz}s ***En : 60000Fx$3,5,"*** _j dal programoz}sa ***4F: " A cme";C$: (C$)13 110}F$11,11,"": " Temp[";T$ :T(T$): T4 T300 (6): 140F: $1,21((C$)15)2,CU$" - programoz}sa"F 950FC1: C1500: 1000F I0 BV: C$T$(I,0) 200 : 2000G * * * * * * * * * * a%(x,i) ***>KZ(M$(0,3)): 30000LKA%(0,3)N[K XC C1sKA$M$(X,1): 10000K&A%(X,1)HK0B(M$(X,2)): 2000U 0K:A%(X,2)S1KDZ(M$(X,3)): 30000KNA%(X,3)NKX XKbK *** sz~net ****L: : "Sz~net ";Z::M$(0,3)(Z): 300008LA%(0,3)N>LDLfL *** PROGRAMOZ]S VEZ@RL{ ***uL XC C1L$ " "X". hang "M9U$(X,1);M$(X,2);;M$(X,3)L. 131,30 : "neve ";A$:M$(X,1)A$:10000L8A%(X,1)H!MB"@rt`ke ";B:M$(X,2)(B):200000MLA%(X,2)S1\MV"Sz~net ";Z:M$(X,3)(Z):30000jM`A%(X,3)NrMj X{MtC1XM~M *** temp[v}ltoztatU }s ***M X1 YMB(M$(X,2)):20000MA(X,2)S1MZ(M$(X,3)):30000MA(X,3)NNXN@ *** magn[r[l be *** NJ&NT,N^2Nh8Nr>N|DNJNPNiN *** magn[ra ki ***oNuN{NNNNNNU NN *** t}rb[l be ***N: 600000O$3,3,"Melyik dalt parancsolja a t}rb[l?":$5,1,"":" A cme:";C$:$12,3,"Egy kis t~relm`t k`rem!"[O& I0 BV: C$T$(I,0) 1850 : IO0: $7,6,"ILYEN CM DAL NINCS A T]RBAN!": I0500: : CՈU 0: C$"?": 1940O:M$(0,3)T$(I,3): X1OD II1 BVON Z1 3OXM$(X,Z)T$(I,Z)Ob Z PlXX1"Pv T$(I,0)"" 1930*P I8PC1: C1X>PDPJPPPVP\PsP *** t}rba ki ***PT$(BV,0)C$PT$(BV,3)M$(0,3): U X1P BVBV1 BVC1P Z1 3PT$(BV,Z)M$(X,Z)P  ZPXX1: BVP BVBV1Q*Q *** V@GREHAJT[ R@SZ ***PQ:(2):$6,13,"MUZSIKA":(18):$15,33,"T="TxQ 16443,(16443) 127:(0),(16443)Q I0 A%(0,3): IQ X1U C1Q A%(X,1),A%(X,2): I0 A%(X,3): IQ  XQ 16443,(16443) 128: 0,(16443)R<C0RFR& A hangok betjel`hez hozz}rendelia megfelel{ frekvencia`rt`ket(aBEEP utast}s els{ tagja H)a 10000-t{l kezd{d{ szubrutin. U *A kontra okt}v k|vetkezik.R'A$"C1",H1816:11000S'A$"V"A$"v" C1X1: 180: utols[ hang ...6S'A$"CIS1",H1714:11000QS$'A$"D1",H1617:11000nS.'A$"DIS1",H1526:11000S8'A$"E1",H1440:11000SB'A$"F1",H1U359:11000SL'A$"FIS1",H1283:11000SV'A$"G1",H1211:11000S`'A$"GIS1",H1142:11000Tj'A$"A1",H1078:110001Tt'A$"AIS1",H1017:11000KT~'A$"H1",H960:11000mT':* A nagy okt}v k|vetkezik.T'A$"C",H906:11000T'A$"CIS",H855U:11000T'A$"D",H807:11000T'A$"DIS",H761:11000T'A$"E",H718:11000U'A$"F",H678:11000"U'A$"FIS",H639:11000;U'A$"G",H603:11000VU'A$"GIS",H569:11000oU'A$"A",H537:11000U'A$"AIS",H507:11000U(A$"H",H4EU78:11000U (:* A kis okt}v k|vetkezik.U(A$"c",H451:11000U(A$"cis",H425:11000V((A$"d",H401:11000,V2(A$"dis",H378:11000EV<(A$"e",H357:11000^VF(A$"f",H337:11000yVP(A$"fis",H318:11000VZ(A$"g",H300:11000Vd(A$U "gis",H282:11000Vn(A$"a",H266:11000Vx(A$"ais",H251:11000V(A$"h",H237:11000#W(:* Az egyvonalas okt}v k|vetkezik.=W(A$"c1",H223:11000YW(A$"cis1",H211:11000sW(A$"d1",H199:11000W(A$"dis1",H187:11000W(A$"eU!1",H176:11000W(A$"f1",H166:11000W(A$"fis1",H157:11000W(A$"g1",H148:11000X(A$"gis1",H139:11000/X(A$"a1",H131:11000KX(A$"ais1",H124:11000eX)A$"h1",H116:11000X):* A k`tvonalas okt}v k|vetkezik.X)A$"c2"$U",H110:11000X")A$"cis2",H103:11000X,)A$"d2",H97:11000X6)A$"dis2",H91:11000Y@)A$"e2",H86:11000)YJ)A$"f2",H81:11000DYT)A$"fis2",H76:11000]Y^)A$"g2",H72:11000xYh)A$"gis2",H67:11000Yr)A$"a2",H63:11000Y|)A$U#"ais2",H60:11000Y)A$"h2",H56:11000Z):"A megadott `rt`k nem defini}lt,a kompon}l}s befejez`se ut}n javtsa ki k`rem !":%Z*Z8J:* Az `ppen megadott hang id{tartam}nak sz}mt}sa.A bek`rt `rt`k 64-ed `s eg`sz k|z` essen!Z NB32,S60T8UU$:20060Z!NB5,S50T:20060::5/24-edZ"NB9,S135T:20060::9/16-od[%NB64,S60T16:20060[*NB16,S15T:200601[/NB12,S20T:20060H[4NB8,S30T:20060_[>NB4,S60T:20060v[CNB3,S90T:20060[HNB2,S120T:20060[MNB1.5,U%S180T:20060[RNB1,S240T:20060[ZN 10650[\NS1S10E5(2(8.4H35))[fN6\t:* Az `ppen megadott hangot k|vet{ sz~net hossz}nak sz}mt}sa. Z\0uM375:Z32,N(152T)M:30070y\5uZ64,N(6016T)M:30070\:uZ16,N(15T)M:30070\?uU&Z12,N(20T)M:30070\AuZ9,N(135T)M:30070\DuZ8,N(30T)M:30070]IuZ5,N(50T)M:30070]NuZ4,N(60T)M:300709]SuZ3,N(90T)M:30070U]XuZ2,N(120T)M:30070s]]uZ1.5,N(180T)M:30070]buZ1,N(240T)M:30070]quZ0,NU'0:30070]tu 10650]vu]` *** EMBL@MA ***]jC(K%(0)) ^t C,0,0,0,0,2,4,8,16,86,80,80,81,0,0,0,0A^~ C16,0,30,32,64,28,20,28,20,92,64,64,127,0,0,0,0x^ C32,0,112,8,4,114,64,112,80,116,0,0,127,0,0,0,0^ C48,0,0,0,0,0,64,32,16,20,{U(20,36,69,0,0,0,0^ C64,80,102,32,32,32,32,48,16,16,16,16,25,0,0,0,0_ C80,64,112,64,66,68,68,66,64,72,70,64,67,0,0,0,0K_ C96,4,4,4,68,36,4,68,36,36,68,4,5,0,0,0,0}_C112,4,12,8,8,8,8,24,16,16,16,16,49,0,0,0,0_C128,10,8,8,8,4,2,0,1U)_C136,68,8,16,32,64,0,0,1_C144,70,32,16,8,4,2,0,1_C152,32,32,32,32,64,0,0,1$`CC65536: 16459,C256(C256),(C256)H`$8,17,(128)(130)(132)(134)l`$9,17,(136)(138)(140)(142)` $10,17,(144)(145)(146)(147)`&U0A#"@!]H1Ab