CLSREM Use A B C D E F G to play notes, Q move up octv Z down also X ,SCOLOR 10, 1, 5PRINT "THIS WILL HAVE COLORS"LET MyName$ = "GARRY"PRINT MyName$PLAY "abcdeffgbdecaaa"PRINT "MY MUSIC,By Garry"'PLAY "MB aaggbbcaaggbbceef<gabcde<fgegfedbcaa<abcdeefg"PLAY "L16 AGBDE"PRINT "press q to quit"'PLAY "L7 aaAgfaeegG"PRINT "PLEASE wait for the music to stop"PRINT "NOW, after the music stops, press A,B,C,D,E,F,or G"PRINT "or p, this is case sensitive."DO A$ = INKEY$ IF A$ = "q" THEN END IF A$ = "p" THEN PLAY "abcdefg" IF A$ = "A" THEN PLAY "a10" IF A$ = "A" THEN PRINT "A" IF A$ = "B" THEN PLAY "b10" IF A$ = "B" THEN PRINT "B" IF A$ = "C" THEN PLAY "c10" IF A$ = "C" THEN PRINT "C" IF A$ = "D" THEN PLAY "d10" IF A$ = "D" THEN PRINT "D" IF A$ = "E" THEN PLAY "E10" IF A$ = "E" THEN PRINT "E" IF A$ = "F" THEN PLAY "F10" IF A$ = "F" THEN PRINT "F" IF A$ = "G" THEN PLAY "G10" IF A$ = "G" THEN PRINT "G" IF A$ = "Q" THEN PLAY ">A10" IF A$ = "Z" THEN PLAY "<A10" IF A$ = "X" THEN PLAY "<G8" IF A$ = "S" THEN PLAY ">G8" IF A$ = "N" THEN PLAY "L4A"LOOP
REM Simple Note playerDEFLNG A-ZSCREEN 12DO Keycode& = _KEYHIT SELECT CASE Keycode& CASE IS = 97 PLAY "a10": Note$ = "A" CASE IS = 98 PLAY "b10": Note$ = "B" CASE IS = 99 PLAY "c10": Note$ = "C" CASE IS = 100 PLAY "d10": Note$ = "D" CASE IS = 101 PLAY "e10": Note$ = "E" CASE IS = 102 PLAY "f10": Note$ = "F" CASE IS = 103 PLAY "g10": Note$ = "G" END SELECT LOCATE 10, 10: PRINT Note$ None$ = INKEY$LOOP UNTIL _KEYDOWN(27)SLEEPSYSTEM
Backy& = _LOADIMAGE("Piano-01.png, 32)Mixpage& = _NEWIMAGE(120, 92, 32)Video& = _NEWIMAGE(600, 400, 32)DO GOSUB Unpressed Keycode& = _KEYHIT SELECT CASE Keycode& CASE IS = 97 PLAY "a10": Note$ = "A": x1 = 1 CASE IS = 98 PLAY "b10": Note$ = "B": x1 = 17 CASE IS = 99 PLAY "c10": Note$ = "C": x1 = 33 CASE IS = 100 PLAY "d10": Note$ = "D": x1 = 49 CASE IS = 101 PLAY "e10": Note$ = "E": x1 = 65 CASE IS = 102 PLAY "f10": Note$ = "F": x1 = 81 CASE IS = 103 PLAY "g10": Note$ = "G": x1 = 97 END SELECT IF Keycode& <> 0 THEN GOSUB PressedLOOP UNTIL _KEYDOWN(27)SLEEPSYSTEMUnpressed:_PUTIMAGE (0, 0)-(119, 91), Backy&, Mixpage&, (0, 0)-(119, 91) 'place backy to mix_PUTIMAGE , Mixpage&, Video&SCREEN Video&_DISPLAYRETURNPressed:x2 = x1 + 15_PUTIMAGE (x1, 79)-(x2, 89), Backy&, Mixpage&, (122, 0)-(137, 10) 'show key down_PUTIMAGE , Mixpage&, Video&SCREEN Video&_DISPLAY_DELAY .05RETURN
Backy& = _LOADIMAGE("Piano-01.bmp", 32)