home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D02.D64 / demo4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  42 lines
  1. 90 REM PIANO KEYBOARD USING MUSIBASIC
  2. 95 REM NOTE THE USE OF THE NEW COMMANDS
  3. 100 PRINT"[147]    [194]    [194]   [194]   "
  4. 110 PRINT"    [194]    [194]   [194]   "
  5. 120 PRINT"    [194]    [194]   [194]   "
  6. 130 PRINT"  [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] "
  7. 140 PRINT" Q[194]W[194]E[194]R[194]T[194]Y[194]U[194]I[194]O[194]P[194]@[194]*[194]^"
  8. 150 PRINT"'SPACE' FOR SOLO OR POLYPHONIC"
  9. 160 PRINT"'F1,F3,F5,F7' OCTAVE SELECTION"
  10. 170 PRINT"'F2,F4,F6,F8' WAVEFORM"
  11. 180 PRINT"HANG ON, SETTING UP FREQUENCY TABLE..."
  12. 190 DIM F(26):DIM K(255)
  13. 200 (null)
  14. 210 F1=7040:FORI=1TO26:F(27-I)=F1*5.8+30:F1=F1/2^(1/12):NEXT
  15. 220 K$="Q2W3ER5T6Y7UI9O0P@-*\^"
  16. 230 FORI=1TOLEN(K$):K(ASC(MID$(K$,I)))=I:NEXT
  17. 240 PRINT"[145]                                       "
  18. 250 AD=0:SR=249:WV=16:W=0:M=1:OC=4:V=1
  19. 260 FORI=1TO3:(null) I,AD,SR
  20. 270 (null) I,2048:NEXT
  21. 280 (null) 15
  22. 300 GETA$:IFA$=""THEN300
  23. 310 FR=F(K(ASC(A$)))/M:IFFR=ZTHEN:GOTO500
  24. 320 (null) V,Z,Z
  25. 330 (null) V,8:(null) V,0
  26. 340 (null) V,FR
  27. 360 (null) V,AD,SR
  28. 370 (null) V,WV+1
  29. 380 IFP=1THEN:V=V+1:IFV=4THEN:V=1
  30. 400 GOTO300
  31. 500 IFA$="[133]"THEN:M=1:OC=4:GOTO300
  32. 510 IFA$="[134]"THEN:M=2:OC=3:GOTO300
  33. 520 IFA$="[135]"THEN:M=4:OC=2:GOTO300
  34. 530 IFA$="[136]"THEN:M=8:OC=1:GOTO300
  35. 540 IFA$="[137]"THEN:W=0:WV=16:GOTO300
  36. 550 IFA$="[138]"THEN:W=1:WV=32:GOTO300
  37. 560 IFA$="[139]"THEN:W=2:WV=64:GOTO300
  38. 570 IFA$="[140]"THEN:W=3:WV=128:GOTO300
  39. 580 IFA$=" "THEN:P=1-P:(null) 2,0:(null) 3,0:GOTO300
  40. 590 IFA$="[147]"THEN200
  41. 600 GOTO300
  42.