1 ' PIANO.BA
2 ' Changes made by Gary Weber --
3 ' 1. Now you can change octaves by pressing "+" or "-".
4 ' 2. Pressing a number (1-9) changes the length of the note.
5 ' 3. Now this program will run on the NEC PC-8201 without making ANY changes! 
6 '    But you need LINE.CO..
10 SCREEN,0:CLS:CLEAR:R$=CHR$(27)+"p":N$=CHR$(27)+"q"
30 X1=17:Y1=1:GOSUB400:PRINTR$;"PIANO";N$:LINE(101,7)-(131,15),1,B:LINE(99,5)-(133,17),1,B:LINE(97,3)-(135,19),1,B:X1=4:Y1=3:GOSUB400:PRINT"PRESS KEYS TO PLAY THESE NOTES:":X1=13:Y1=4:GOSUB400:PRINT"C D E F G A B":LINE(113,47)-(119,55),1,B:K$="":X=1:L=5
110 K$=INKEY$:IFK$=""THEN110
120 IFK$="-"THENX=X*2:GOTO110:ELSEIFK$="+"THENX=X/2:GOTO110
125 IFVAL(K$)>0THENL=VAL(K$):GOTO110
130 IFK$="C"THENP=1174:GOTO210
140 IFK$="D"THENP=1046:GOTO210
150 IFK$="E"THENP=932:GOTO210
160 IFK$="F"THENP=879:GOTO210
170 IFK$="G"THENP=783:GOTO210
180 IFK$="A"THENP=698:GOTO210
190 IFK$="B"THENP=622:GOTO210
195 IFK$="Q"THEN300
200 GOTO110
210 SOUNDP*X,L:X1=19:Y1=6:GOSUB400:PRINTR$;K$;N$:GOTO110
300 X1=0:Y1=3:GOSUB400:PRINTCHR$(27)"l";:Y1=4:GOSUB400:PRINTCHR$(27)"l";:LINE(113,47)-(119,55),2,BF:X1=3:Y1=5:GOSUB400:PRINT"YOU HAVE JUST TURNED OFF THE PIANO"
310 END
400 PRINTCHR$(27)"Y"CHR$(32+Y1)CHR$(32+X1);:RETURN