N(255),P(255),10000:* BASLANGICA(1900: * BASLIK^21000: * PIANO KEYBOARDw<NO050000:* EZGIF2800: * MENU #1P1100: * KEYBOARD HARFLERIZ2500: * ACIKLAMALARs2200:* "NOTA GIRME"x1400:* NOTA GIRISI 2000:* HARF SILME+ 1200:* PARCA CALMA@ 500: * MENU #2J 2800b BUTUN SESLERI CALi " SID24,15: NLK ^ SID KURMA _" `SID54272: aX02 b AT(X),DE(X),SU(X),RE(X) c PW(X),WV(X) dAD(X)AT(X)16DE(X) eSR(X)SU(X)16RE(X)( f X:RE0B g 00,00,15,11,1000,17\ h 00,00,15,11,1000,17v i 00,00,15,11,1000,17 kSID5Y,AD(X) lSID6Y,SR(X) mSID2Y,PW(X)256 nSID3Y,PW(X)255 oSID4Y,8: RESET OSC. pSID4Y,WV(X)1: NULL q X:60200* sLK(K$):KK2(112)G tF1523.251132: ILK NOTA[ u FR(LK),K(255)i vI1LK1 wK((K$,I,1)):K(K)I xFR(I)5.8F130 zF1F1KK: I |K(I)0:FR(I)0: DURMA=NOTE '0' } ****************** * MENU #2 * ******************D "..."S1)" YENI OYUN ICIN RETURN TUSU"n S1)"1-YENI OYUN? 2-BASKA NOTA?" S1)"3-NOTA DUZELTME? 4-DISKETE KAYIT?" S1)"5-KASETE KAYIT? 6-GIRIS DEGISIMI?" S1)"7-SES DEGISIMI? 8-BASKA DEGISIKLIK?") S1)" SECIMINI YAP! ":60200= A$:A$""512P A$:A$""513j 3000:A$(13)2800{ (A$)0505 (A$)1200,2900,5000,2600,1600,520,30000,31000 505 "NOTALARI KAYDEDINCEYE DEK BEKLE.." SV640962:I0(II1:SV2I,N(I):SV2I1,P(I):"NOTE "I5&IM540O+J120:SV2IJ,0:l0" DATA DEGISIMI....."yS53281,6X"50009DATA"M:198,3:631,13:632,13:633,13]"K=50010:M="M":I=-19:SV=6*4096-1"b"GOTO620":lII20:S$"":I2M"":53281,15:5030050305Av"":198,3:631,13:632,13:633,13Tx"K"RVS";}{J09:S(SVI2J):P(SVI2J1)A$((S),2):B$((P),2)S$S$A$","B$",":S$"":KK1:"K="K":M="M":I="I":SV="SV"GOTO620":**********************:3** KEYBOARD YARATMA **9:U**********************]N1|P1$" |":P2$P1$:P3$P1$K1$" ":I112:P1$P1$K1$:P1$P1$"  "K2$" |":I113:P2$P2$K2$::L(P2$):P2$(P2$,L1)P3$P3$"    "'"":I112:P2$:?"":I15:P1$;:U "":I15:P3$;p200:NN5:PP1100:v" ______________________________________""";$" ___________________________________".1300:L********************** M:(N** KEYBOARD HARFLERI **.O:JP**********************}Q""S1)" W E T Y U O P * +"V""S1);[" A S D F G H J K L : ; = RTN"`******************:** MUZ IK CALMA ** :#******************8SID24,15:ZZ64QQ1M:NN(Q):PP(Q)lAATI:SP0:N231230SPSP(N):HH(N)"  "Q200:V3,0SP01270TIAAP12501296:* PIANO TUSLAR *TIAAP 128060100:PP11000::V3,0(60200:A*******************G:`** PIANODA KAYMA **f:*******************(60100:PP0500:-60200:x*******************y:z** NOTA GIRME **{:|******************* }M0:N0:1460NN(N$Z$):AATI6NNN1MM1:1411GM$((M),2)U"  "M$aNK(NN)z200:SPSP(N):HH(N)SP01445V1,SP:V2,H:V3,4(KB)641445: BEKLEPTIAA60100V3,0A$:A$""14571410@**************************"A:CB** PARCAYI KASETE KAYDET **IC:kD****************************uL3000TSD$"PARCANIN ISMI";YNM$r1,1,1,NM$w1,M:1,Z$|I1M1,N(I)1,P(I):13000****************************:;** KASETTEN PARCAYI ISTE **A:c****************************lSD$"PARCANI BELIRLE: X";NM$NM$"X"17053000601001,1,0,NM$1,M:1,Z$I1M1,N(I)1,P(I)13000:SD$""NM$$1200*L****************************R :r ** "DOGRU" NOTAYI GIRME **x : **************************** N$NN(N$):NK(NN)200&* NOTA DEGISIMI ICIN BEKLE *+(KB)SN1835 0P((TIAA)21)560200:(l***********.m:@n** BASLIK **Fo:Wp***********cqSD$""PP019:56256PP,6:56295PP,6:PP019:1024PP,102:1063PP,102:PP019:55296PP,6:55335PP,6:*********************:** HARFLERI SIL **::*********************TPP039:CRTPP,32:tPP039:CRT14WDPP,32:z4***************************5:6** KEYBOARD/SES YOK **7:8**************************** :J16:"":K1J:"";::S1);%>I113:"  ";::QCJ16:"":K1J:"";::S1);iHI113:" |";::MJ16:"":K1J:"";:RS1)" "6)" | "10)" | "7)" | ":W""S1)"________________________________________"\""S1);8a"________________________________________">fW*******************]:s* 'NOTA GIRME' *y:*******************"":C$""60100:L110S1)C$"NOTALARI GIR""";C$""C$"":2230C$""K1100::':@ *******************F :] ** ACIKLAMALAR **c :| ******************* "" S1)" DURMAK ICIN TUS "(34)"."(34)" " S1)" DURAKLAMA ICIN TUS "(34)"0"(34)" ". S1)" YANLIS NOTADAN SONRA TUS "(34)"-"(34)" "4 U( ***************************[) :{* ** DISKETE PARCA KAYDET **+ :, ***************************4 3000:NWWV(0)< SD$"PARCANIN ADI ";A NM$:(NM$,1)" "NM$" "NM$B 3000F SD$"HANGI SURUCU";0K " 0";DR$:D0$DR$:L 3000lM SD$"VAROLAN PARCAYI DEGISTIR";:" N";A$N (A$,1)"E"D0$"@"DR$P 15,8,15:R$(13)Z 2,8,2,D0$":"NM$",S,W"[ 40000:E002670_ 2,M;R$;NW;R$d I1M i 2,N(I);R$;P(I);R$: n 2:15! s 3000:F *******************************L :l ** DISKETTEN PARCA ISTE **r : ******************************* 63900:3000 SD$; "PARCAYI BELIRLE: X";NM$:NM$"X"2710! (NM$,1)" "NM$" "NM$! 3000:15,8,15:SD$;8! 2,8,2,DR$":"NM$",S,R"S! 40000:E002:15:_! 2,M,NWj! I1Mw! 2,A$,B$! N(I)(A$):P(I)(B$):! 2:15:30050! 3000:SD$""NM$! 1200:3000:! ****************! * MENU #1 *" *****************" 3000:2000:60200N" SD$"1:DISKETTEN PARCA ISTE."s" S1)"2:KASETTEN PARCA ISTE."" S1)"3:PARCA BESTELE."" S1)"4:CIKIS."" I13" " ":PP1100:# " SECIMINI YAP ":PP1100: # # 60200*# A$:A$""28454#" 3000F#' (A$)02805^#, (A$)2865,2870,80s#- SD$:SID24,0:#1 2700:500#6 1700:500#T *************#U :#V * NOTA EKLEME *#W :#X *************#Y :#m 3000:1100#| 2500:2200$ 1410:2000$ 1200:.$ **************4$ :E$ ** SILME **K$ :_$ **************i$ "";{$ T19:CL$:$ 2000$ "";:$*************************$:$** YANLIS NOTAYI SIL **$:$*************************%3000%QPZM:NN(Q):PP(Q)7%AATI:SP0:N235033K%SPSP(N):HH(N)U%""Q^%200n%SP05038%TIAAP5036%5044%XSP255:V0,4X:SPSP255X%V1,SP:V2,H:V3,4%TIAAP 5040%60100%V3,0%K110PY&N$:BN(N$Z$)(&BNN2K100:SQQ:QM0&::&3000D&1100N&1800i&N(SQ)N::P(SQ)P:3000s&1200&60100:2000:&'*********************&':&'** BASLIK **&':&'*********************&'1900:Z$(0)&$'350:PS("0") ')'KB203'.'SD$""#'B'VD532487'Q'V4VD6:V5VD7\'8JD(0)5529510WD:D(1)552955WDx'BJD3CRT14WD:D4D3WD1'tJCR(1)1:CR(0)0' N*******************************'!N:'"N**KEYBOARD NOTASI ICIN BOSLUK**'#N: ($N*********************************(%NSP(255),H(255))(*NI1LKV(4NSP,H:SP(I)8SP:H(I)13030H::SP(0)0a(>N60200(RN3,0,4,1,6,0,7,1,9,0,12,0,13,1,15,0,16,1,18,0,19,1,21,0(WN24,0,25,1,27,0,28,1,30,0,33,0,34,1,36,0,37,1,39,0,0,0 )\N1)"IRIS ISTER MISIN?(E/HERHANGI BIR TUS)")^NCL$" "!)_NBR$""6)aNA$:A$""20065@)bN"J"R)cNA$"E"NO1])fN32000c)Nx)0u SES DEGISTIRME)1u"):uWV(0)17NW33)DuWV(0)33NW65)NuWV(0)65NW17)XuSD$"DALGALANMA"NW:PP1500:)buNW0NW17*luPP02:WV(PP)NW:*y BASKA DEGISIKLIK%*y"+*"y7*} ELLER>*}"Z*}PP062:X:832PP,X:v*}PP062:X:704PP,X:*}2042,13:2043,11:VD21,0*}VD41,09:VD42,09: COLOUR*}VD23,12:VD29,12: EXPAND*}VD27,0: PRIORITY* }+ }1,128,0,2,64,0,3,193,128,3,194,64J+}3,195,192,3,199,156,3,199,60,227,207,123r+}243,222,247,123,221,238,63,255,254+}31,255,248,15,255,240,15,255,224,7,255+}224,7,255,224,7,255,224,3,255,224+#}1,255,192,0,128,64,0,255,192,2}0,1,128,0,2,64,1,131,192,2,67,1929,7}27,227,192,61,227,192,222,243,199,233^,<}115,207,247,251,222,125,255,252,A}63,255,248,31,255,248,15,255,248,7,255,248,F}3,255,248,3,255,248,3,255,240,3,255,U}224,1,255,192,0,192,64,0,255,192,@ HATA BOLUMU,A" -J15,E0,E1$,E2,E3$-TE00--^3000:SD$""E1$F-hPP11000::3000:g-PÏ***************************m-Q:-RÏ** TANITIM MUZIGI **-S:-TÏ***************************-UÇM:I1M-VÇN(I),P(I)::50300:1200-YÃ 0.ZÃ12,2,8,2,10,2,12,2,15,2,13,2,13,2,17,2,15,2,15,2N.[Ã20,2,19,2,20,2,15,2,12,2,8,2,10,2,12,2,13,2,15,2.\Ã17,2,15,2,13,2,12,2,10,2,12,2,8,2,7,2,8,2,10,2.]Ã3,2,7,2,10,2,13,2,12,2,10,2,12,2,8,2,10,2,12,2.^Ã15,2,13,2,13,2,17,2,15,2,15,2,20,2,19,2,20,2,15,2!/_Ã12,2,8,2,10,2,12,2,5,2,15,2,13,2,12,2,10,2,8,2S/`Ã3,2,8,2,7,2,8,2,12,2,15,2,20,2,15,2,12,2,8,2/aÃ12,2,15,2,18,2,15,2,12,2,8,2,12,2,15,2,17,2,13,2/bÃ10,2,7,2,10,2,13,2,15,2,12,2,8,2,5,2,8,2,12,2/cÃ13,2,10,2,7,2,3,2,7,2,10,2,13,2,12,2,10,2,8,20dÃ12,2,15,2,20,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0?0|ę""12)"**** MUZIKAL ****"F0}ď"h0ď" ISMI DEGIS ^^^^^ VE KAYDETn0Ď0` BUTUN SESLERI BASLA0a"0eVV02:SID47VV,WV(VV)1::VV00jPP180RE::0 BIR ONCEKI SESI BASLA0"1SID47PV,WV(PV)1 11( SIDI DURDUR&1)"I12PP02:SID47PP,0::VV0:13000:SD$::"HANGI SURUCU 0";DR$:3000:B30:AN11SD$"ISTEDIGIN PARCADA RETURNE BAS."115,8,1512,8,0,"$"DR$":*=S"1#2,A$:#2,A$:I$""2B$:ST0B$""639182A1B:#2,A$+2A$""A$(0)F2I$I$A$::AN163315X2SD$" ":PP72U1$(I$,PP,19):(U1$,1)(34)PPPP1:PP19639112PP19639172(U1$,2,1)" "SD$""U1$2I1110:I2(I1):2AN0:I$"":B32:6390632:15: