100 DEFINT a-z
110 ZONE 10 120 DIM a(50) 130 EVERY 100,1 GOSUB 500 140 MODE 2 150 b=0 160 WINDOW #1,1,40,3,22 170 WINDOW #2,55,80,24,24 180 PEN #1,1 190 PEN #2,1 200 PRINT " NOTE NUMBER ASCII VALUE" 210 WHILE b<50 220 k$=INKEY$:IF k$="" THEN 220 230 k=ASC(k$) 240 b=b+1 250 a(b)=k 260 PRINT #1,,b,,a(b) 270 SOUND 1,k,10 280 WEND 290 MODE 1 300 WINDOW #1,1,40,3,22 310 WINDOW #2,18,40,24,24 320 PEN #1,3 330 PEN #2,2 340 PRINT "NOTE A B C" 350 FOR b=1 TO 50 360 k$=INKEY$ 370 t=a(b) 380 s=t*2 390 u=t/2 400 PRINT #1,b,s,t,u 410 SOUND 1,s,40 420 SOUND 2,t,30,5 430 SOUND 3,u,20,6 440 NEXT b 450 GOTO 140 460 END 500 IF x=0 THEN PRINT #2,"Amstrad Keyboard Organ" 510 IF x=1 THEN PRINT #2,"by David & Brian Lewis" 520 x=1-x 530 RETURN |