1 '*Piano* CC BY Copyright (c) 2016 Shiro SAITO
10 CLV:CLS
20 ?"ﾄﾞﾚ ﾐ ﾌｧｿ ﾗ ｼ ﾄﾞ"
30 ?"1 2 3 4 5 6 7 8"
40 P="C ;D ;E ;F ;G ;A ;B ;<C"
50 K=INKEY():IF !K GOTO 50
60 PLAY P+(K-49)*3
70 GOTO 50