90 REM PIANO KEYBOARD USING MUSIBASIC
95 REM NOTE THE USE OF THE NEW COMMANDS
100 PRINT"[147]    [194]    [194]   [194]   "
110 PRINT"    [194]    [194]   [194]   "
120 PRINT"    [194]    [194]   [194]   "
130 PRINT"  [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] "
140 PRINT" Q[194]W[194]E[194]R[194]T[194]Y[194]U[194]I[194]O[194]P[194]@[194]*[194]^"
150 PRINT"'SPACE' FOR SOLO OR POLYPHONIC"
160 PRINT"'F1,F3,F5,F7' OCTAVE SELECTION"
170 PRINT"'F2,F4,F6,F8' WAVEFORM"
180 PRINT"HANG ON, SETTING UP FREQUENCY TABLE..."
190 DIM F(26):DIM K(255)
200 (null)
210 F1=7040:FORI=1TO26:F(27-I)=F1*5.8+30:F1=F1/2^(1/12):NEXT
220 K$="Q2W3ER5T6Y7UI9O0P@-*\^"
230 FORI=1TOLEN(K$):K(ASC(MID$(K$,I)))=I:NEXT
240 PRINT"[145]                                       "
250 AD=0:SR=249:WV=16:W=0:M=1:OC=4:V=1
260 FORI=1TO3:(null) I,AD,SR
270 (null) I,2048:NEXT
280 (null) 15
300 GETA$:IFA$=""THEN300
310 FR=F(K(ASC(A$)))/M:IFFR=ZTHEN:GOTO500
320 (null) V,Z,Z
330 (null) V,8:(null) V,0
340 (null) V,FR
360 (null) V,AD,SR
370 (null) V,WV+1
380 IFP=1THEN:V=V+1:IFV=4THEN:V=1
400 GOTO300
500 IFA$="[133]"THEN:M=1:OC=4:GOTO300
510 IFA$="[134]"THEN:M=2:OC=3:GOTO300
520 IFA$="[135]"THEN:M=4:OC=2:GOTO300
530 IFA$="[136]"THEN:M=8:OC=1:GOTO300
540 IFA$="[137]"THEN:W=0:WV=16:GOTO300
550 IFA$="[138]"THEN:W=1:WV=32:GOTO300
560 IFA$="[139]"THEN:W=2:WV=64:GOTO300
570 IFA$="[140]"THEN:W=3:WV=128:GOTO300
580 IFA$=" "THEN:P=1-P:(null) 2,0:(null) 3,0:GOTO300
590 IFA$="[147]"THEN200
600 GOTO300