110 DIM T(12,2)
120 DATA 38,452,58,422,78,392,89,362,108,332,125,302,133,272,147,242
125 DATA 159,212,170,182,176,132,185,122
130 FOR I=1 TO 12
140 READ T(I,1),T(I,2): NEXTI
150 CLS: PRINT@9,"MUSIC PROGRAM"
160 FOR I=34 TO 290 STEP 64
170 FOR J=1 TO 25
180 PRINT@I+J,"-";
190 NEXT J,I
200 PRINT@361,"-  -";
210 PRINT@421,"-  -";
220 J=92
230 FOR I=1 TO 12
240 J=J+30
250 PRINT@J,"O";
260 NEXT I
265 J=4
300 A$=INKEY$
310 IF A$="" THEN 300
320 A=ASC(A$)
360 IF (A>48) AND (A<58) THEN I=A-48: GOTO410
370 IF A=45 THEN I=12: GOTO410
380 IF A=48 THEN I=10: GOTO410
390 IF A=58 THEN I=11: GOTO410
392 IF A=70 THEN J=8: REM-FULL NOTE
394 IF A=72 THEN J=4: REM-HALF NOTE
396 IF A=81 THEN J2: REM-QTR NOTE
400 GOTO300
410 SOUND T(I,1),J
430 N=T(I,2): PRINT@N,CHR$(191);
432 FOR Z=1 TO 25: NEXT Z
435 PRINT@N,"O";
440 GOTO300