10 REM MINI COMPOSER
20 CLS
30 PRINT"((( MINI COMPOSER )))"
35 REM BEGIN COMPOSITION
36 PRINT"ENTER 12 NOTES (0-255) WITH"
37 PRINT" LENGTH (0-255) AND I WILL"
38 PRINT"PLAY IT BACK."
40 INPUT"NOTE #1";N1
50 INPUT"LENGTH #1";L1
60 INPUT"NOTE #2";N2
70 INPUT"LENGTH #2";L2
80 INPUT"NOTE #3";N3
90 INPUT"LENGTH #3";L3
100 INPUT"NOTE #4";N4
110 INPUT"LENGTH #4";L4
120 INPUT"NOTE #5";N5
130 INPUT"LENGTH #5";L5
140 INPUT"NOTE #6";N6
150 INPUT"LENGTH #6";L6
160 INPUT"NOTE #7";N7
170 INPUT"LENGTH #7";L7
180 INPUT"NOTE #8";N8
190 INPUT"LENGTH #8";L8
200 INPUT"NOTE #9";N9
210 INPUT"LENGTH #9";L9
220 INPUT"NOTE #10";N10
230 INPUT"LENGTH #10";L10
240 INPUT"NOTE #11";N11
250 INPUT"LENGTH #11";L11
260 INPUT"NOTE #12";N12
270 INPUT"LENGTH #12";L12
300 REM PLAYBACK
305 PRINT"PLAYING YOUR NOTES..."
310 SOUND N1,L1
320 SOUND N2,L2
330 SOUND N3,L3
340 SOUND N4,L4
350 SOUND N5,L5
360 SOUND N6,L6
370 SOUND N7,L7
380 SOUND N8,L8
390 SOUND N9,L9
400 SOUND N10,L10
410 SOUND N11,L11
420 SOUND N12,L12
425 REM CHOICES
430 INPUT"(1)REPEAT, (2)NEW OR (3)QUIT";R$
440 IF R$=" " THEN 420
450 IF R$="1" THEN 305
460 IF R$="2" THEN 36
470 IF R$="3" THEN 500
500 REM END PROGRAM
510 PRINT"THANKS FOR PLAYING. BYE! :)"
520 END