10 'PIANO.100:  A Public Domain Program       by Mark Lutton (10/28/84)
11 'CIS PPN - [73106,1627]
20 DIM S%(255): D%=5
25 FOR I%=0 TO 255:READ S%(I%):NEXT I%
30 PRINT"Hit (Shift)BREAK to stop."
33 PRINT"Hit ENTER to change duration."
35 PRINT"Initial duration=5 (10ths of a second)."
60 A$=INKEY$:IF A$="" THEN 60
70 IF A$=CHR$(13) THEN INPUT "New duration";D%: GOTO 60
80 SOUND S%(ASC(A$)),D%
90 GOTO 60
100 END
1010 DATA0,0,0,0,0,0,0,0
1020 DATA0,9952,0,0,0,0,0,0
1030 DATA0,0,0,0,0,0,0,0
1040 DATA0,0,0,11172,0,0,0,0
1050 DATA0,1567,0,987,0,830,659,0
1060 DATA554,493,0,415,4697,0,4184,3728
1070 DATA1975,6269,4433,3950,0,3321,2959,2636
1080 DATA0,2216,987,3950,1174,1660,1046,932
1090 DATA1108,3134,1567,1864,1975,932,0,1660
1100 DATA1479,587,1318,0,1108,1244,1396,523
1110 DATA466,1174,879,2216,783,622,1758,1046
1120 DATA2092,698,2348,1758,0,439,739,0
1130 DATA0,12538,6269,7456,7900,3728,0,6642
1140 DATA5918,2348,5272,0,4433,4976,5586,2092
1150 DATA1864,4697,3516,8866,3134,2484,7032,4184
1160 DATA8368,2793,9394,0,0,0,0,0
1170 DATA0,0,0,0,0,0,0,0
1180 DATA0,0,0,0,0,0,0,0
1190 DATA0,0,0,0,0,0,0,0
1200 DATA0,0,0,0,0,0,0,0
1210 DATA0,0,0,0,0,0,0,0
1220 DATA0,0,0,0,0,0,0,0
1230 DATA0,0,0,0,0,0,0,0
1240 DATA0,0,0,0,0,0,0,0
1250 DATA0,0,0,0,0,0,0,0
1260 DATA0,0,0,0,0,0,0,0
1270 DATA0,0,0,0,0,0,0,0
1280 DATA0,0,0,0,0,0,0,0
1290 DATA0,0,0,0,0,0,0,0
1300 DATA0,0,0,0,0,0,0,0
1310 DATA0,0,0,0,0,0,0,0
1320 DATA0,0,0,0,0,0,0,0