1 CLS:GOTO 1999:PLAY"T250L64CDGEDFGDFGEDCGECDGEDFGEDCGEDFGEDEGDCGEDFGED
5 FOR X = 2 TO 500:PRINT X:NEXT:CLS
6 SCREEN 7
7 CIRCLE(160,100),50,2
8 CIRCLE(180,80),10,3
9 CIRCLE(140,80),10,4
10 CIRCLE(160,120),10,6
14 PAINT (40,20),14,2
135 PRINT "DIDDY"
200 WHILE INKEY$ = "":WEND
245 SCREEN 0:WIDTH 80
500 PLAY "t120 o3 l10 b-a-l5g-e-d- o2 b-l10 a-a-a-5g-g-g-5
1030 PRINT  :PLAY" T120
1040 PLAY"o3 L2 E D L4 E G E D"
1050 PLAY "O2 B A B O3 D L2 E "
1060 PLAY"O3 L4 E D L2 E G L4 E G E D"
1070 PLAY "O2 B A B O3 D L2 E E L4"
1080 PLAY "O2 B A B O3 D L2 E L4 E D"
1090 PLAY "L2 E L4 O2 B A L1 B
1999 GOSUB 6666
2000 A$ = INKEY$
2001 PLAY"T250 L6 ml O3"
2010 IF A$ = "A" OR A$ = "a" THEN PLAY "C"
2015 IF A$ = "W" OR A$ = "w" THEN PLAY "C+"
2020 IF A$ = "S" OR A$ = "s" THEN PLAY "D"
2025 IF A$ = "E" OR A$ = "e" THEN PLAY "D+"
2030 IF A$ = "D" OR A$ = "d" THEN PLAY "E"
2040 IF A$ = "F" OR A$ = "f" THEN PLAY "F"
2045 IF A$ = "T" OR A$ = "t" THEN PLAY "F+"
2050 IF A$ = "G" OR A$ = "g" THEN PLAY "G"
2055 IF A$ = "Y" OR A$ = "y" THEN PLAY "G+"
2060 IF A$ = "H" OR A$ = "h" THEN PLAY "A"
2065 IF A$ = "U" OR A$ = "u" THEN PLAY "A+"
2070 IF A$ = "J" OR A$ = "j" THEN PLAY "B"
2080 IF A$ = "K" OR A$ = "k" THEN PLAY "O4 C"
2085 IF A$ = "O" OR A$ = "o" THEN PLAY "O4 C+"
2090 IF A$ = "L" OR A$ = "l" THEN PLAY "O4 D"
2095 IF A$ = "P" OR A$ = "p" THEN PLAY "O4 D+"
2100 IF A$ = ";" OR A$ = ";" THEN PLAY "O4 E"
2110 IF A$ = CHR$(34) OR A$ = "'" THEN PLAY "O4 f"
2120 IF A$ = CHR$(13) THEN PLAY "O4 g"
2125 IF A$ = "]" OR A$ = "}" THEN PLAY "o4 f+"
2135 IF A$ = "|" OR A$ = "\" THEN PLAY "o4 g+"
2145 IF RIGHT$(A$,1) = "S" THEN PLAY "o4 a+"
4000 GOTO 2000
6666 PRINT"     |  | | | |  |  | | | | | |  |  | | | |  |  | | | | | |  |
6667 PRINT"     |  | | | |  |  | | | | | |  |  | | | |  |  | | | | | |  |
6668 PRINT"     |  | | | |  |  | | | | | |  |  | | | |  |  | | | | | |  |
6669 PRINT"     |  | | | |  |  | | | | | |  |  | | | |  |  | | | | | |  |
6670 PRINT"     |  |W| |E|  |  |T| |Y| |U|  |  |O| |P|  |  |}| ||| |------DELETE
6680 PRINT"     |  |_| |_|  |  |_| |_| |_|  |  |_| |_|  |  |_| |_| |_|  |
6690 PRINT"     | A | S | D | F | G | H | J | K | L | ; | ' | | |   |   |
6696 PRINT"     |___|___|___|___|___|___|___|___|___|___|___|_|_|___|___|
6697 PRINT"                                                   |
6698 PRINT"                                                   |----------ENTER KEY
6699 RETURN
8000 PLAY "mn c4. c8 e4 c4 d4. d8 d2
8010 PLAY "mn d4. d8 f4 d4 e4. e8 e2