10 GOTO 500
20 GELLOAD "fon","Fon.png":GELLOAD "rc","Reclm.png"
30 DRAWGEL "fon",0,0:DRAWGEL "rc",0,0:REPAINT
40 IF INKEY(0)=A% THEN SLEEP 150:PLAYWAV "C.mid"
50 IF INKEY(0)=B% THEN SLEEP 150:PLAYWAV "C#.mid"
60 IF INKEY(0)=C% THEN SLEEP 150:PLAYWAV "D.mid"
70 IF INKEY(0)=D% THEN SLEEP 150:PLAYWAV "D#.mid"
80 IF INKEY(0)=E% THEN SLEEP 150:PLAYWAV "E.mid"
90 IF INKEY(0)=F% THEN SLEEP 150:PLAYWAV "F.mid"
100 IF INKEY(0)=G% THEN SLEEP 150:PLAYWAV "F#.mid"
110 IF INKEY(0)=H% THEN SLEEP 150:PLAYWAV "G.mid"
120 IF INKEY(0)=I% THEN SLEEP 150:PLAYWAV "G#.mid"
130 IF INKEY(0)=J% THEN SLEEP 150:PLAYWAV "A.mid"
140 IF INKEY(0)=K% THEN SLEEP 150:PLAYWAV "A#.mid"
150 IF INKEY(0)=L% THEN SLEEP 150:PLAYWAV "B.mid"
160 IF INKEY(0)=LS% THEN SLEEP 300:PLAYWAV "PG.mid"
170 GOTO 40
500 REM "keyscan"
510 PRINT "Íàñòðîéêà èíñòðóìåíòà :-),ïîæàëóñòà ââåäèòå êîä êíîïîê."
520 REPAINT:SLEEP 2000
530 LS%=EDITFORM(LSOFT,OK,BACK,LSOFT,-6,100,2)
540 A%=EDITFORM(1,OK,BACK,1,49,100,2):SLEEP 500
550 B%=EDITFORM(2,OK,BACK,2,50,100,2):SLEEP 500
560 C%=EDITFORM(3,OK,BACK,3,51,100,2):SLEEP 500
570 D%=EDITFORM(4,OK,BACK,4,52,100,2):SLEEP 500
580 E%=EDITFORM(5,OK,BACK,5,53,100,2):SLEEP 500
590 F%=EDITFORM(6,OK,BACK,6,54,100,2):SLEEP 500
600 G%=EDITFORM(7,OK,BACK,7,55,100,2):SLEEP 500
610 H%=EDITFORM(8,OK,BACK,8,56,100,2):SLEEP 500
620 I%=EDITFORM(9,OK,BACK,9,57,100,2):SLEEP 500
630 J%=EDITFORM(ZVEZDOCHKA,OK,BACK,ZVEZDOCHKA,42,100,2):SLEEP 500
640 K%=EDITFORM(0,OK,BACK,0,48,100,2):SLEEP 500
650 L%=EDITFORM(RISHOTKA,OK,BACK,RISHOTKA,35,100,2):SLEEP 500
700 PRINT "íàñòðîéêà çàâåðøåíà":REPAINT:SLEEP 1000:CLS
710 GOTO 20
