home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / brea / bluesjr.bas < prev    next >
Encoding:
BASIC Source File  |  1985-08-15  |  3.4 KB  |  47 lines
  1. 10 SCREEN 0:COLOR 6,1,1:CLS:SOUND ON:WIDTH 80:LOCATE 9:KEY OFF
  2. 20 FOR I=1 TO 40:A$=A$+CHR$(205):NEXT I
  3. 30 PRINT TAB(20) CHR$(201)+A$+CHR$(187)
  4. 40 PRINT TAB(20) CHR$(186)+"                                        "+CHR$(186)
  5. 50 PRINT TAB(20) CHR$(186)+"           BASIN STREET BLUES           "+CHR$(186)
  6. 60 PRINT TAB(20) CHR$(186)+"                                        "+CHR$(186)
  7. 70 PRINT TAB(20) CHR$(186)+"      WRITTEN BY SPENCER WILLIAMS       "+CHR$(186)
  8. 80 PRINT TAB(20) CHR$(186)+"                                        "+CHR$(186)
  9. 90 PRINT TAB(20) CHR$(186)+"       TRANSCRIBED BY KENT BOLTON       "+CHR$(186)
  10. 100 PRINT TAB(20) CHR$(186)+"                                        "+CHR$(186)
  11. 110 PRINT TAB(20) CHR$(200)+A$+CHR$(188)
  12. 120 PLAY "T60O3C16.C32","T60P8O3","T60P8O2"
  13. 130 PLAY "E16.E32F8F+16G8.","C8C8C16C8.","G8A8A16G8."                  'MEAS 1
  14. 140 PLAY "E8F16.F32F+16G8.","C8C8C16C8.","G8A8A16G8."                  'MEAS 2
  15. 150 PLAY ">C16.C32<B-16.A32G16A8.","CML<B8B8","ED+8F8"                 'MEAS 3
  16. 160 PLAY ">C16.C32<B-16.A32G16A8.","MN>CML<B8B8","ED+8F8"              'MEAS 4
  17. 170 PLAY "G16>C16<G16ML>C16C8MN<G16G16","MN>C2","E2"                   'MEAS 5
  18. 180 PLAY ">C8C16MLD16D","C8.<MLB16B","E8.MLF16F"                       'MEAS 6
  19. 190 PLAY "MNC8<B-16.A32G16.E32E16.F32","MN>C8D16.C32C","MNE8P8G"       'MEAS 7
  20. 200 PLAY "G16G8MLC16C8MNC8","<B8.MLG16G","F8.MLE16E8"                  'MEAS 8
  21. 210 PLAY "E8F16.F32F+16G8.","MN>C8C8C16C8.","G8A8A16G8."               'MEAS 9
  22. 220 PLAY "E16.E32F16.F32F+16G8.","C8C8C16C8.","G8A8A16G8."             'MEAS 10
  23. 230 PLAY ">C8<B-16.A32G16A8.","C<MLB8B8","ED+8F8"                      'MEAS 11
  24. 240 PLAY ">C8<B-16.A32G16A8.","MN>CML<B8B8","ED+8F8"                   'MEAS 12
  25. 250 PLAY "G16>C8<G16>C8<G16.G32",">MNCE","EG"                          'MEAS 13
  26. 260 PLAY ">C16C8MLD16D","E-8.ML<B16B","G-8.MLF16F"                     'MEAS 14
  27. 270 PLAY "MNC16.<G32A8>C8C16.D32","MN>C8C8C8C8","MNE8F8G8F+8"          'MEAS 15
  28. 280 PLAY "E16D8MLC16C","C8<B8>C","F+8F8E"                              'MEAS 16
  29. 290 PLAY "MN<E16E8MLE16E","C2","G2"                                    'MEAS 17
  30. 300 PLAY "MNE16E8MLE16E8.MNE16","D2","G+2"                             'MEAS 18
  31. 310 PLAY "E16B8MLE16E","C+2","G2"                                      'MEAS 19
  32. 320 PLAY "MNB16B8MLA16A8MNE8","C+2","G2"                               'MEAS 20
  33. 330 PLAY "E16E8MLE16E","C2","F+2"                                      'MEAS 21
  34. 340 PLAY "MNE16G8MLE16E8MNG8","<B.B8","F.D+8"                          'MEAS 22
  35. 350 PLAY ">D16.D32C16.C32<B16.B32A16.A32",">D8C8C","MLG8G8MNF+"        'MEAS 23
  36. 360 PLAY ">C16.C32<B16.B32A16.A32G8","<A8B8>C8<B8","F8F8F8F8"          'MEAS 24
  37. 370 PLAY "E16E8MLE16E",">CC","EG"                                      'MEAS 25
  38. 380 PLAY "MNB16B8MLG+16G+8MNE8","D2","G+2"                             'MEAS 26
  39. 390 PLAY "E16B8MLA16A","C+2","G2"                                      'MEAS 27
  40. 400 PLAY "MNF16F8MLE16E8MNE8","D8.MLC+16C+","G+8.MLG8G"                'MEAS 28
  41. 410 PLAY "E16B8MLA16A","MNC2","MNF+2"                                  'MEAS 29
  42. 420 PLAY "P8MNE8G16E16D16MLC16","<B.P16MLG16","F.P16MLE16"             'MEAS 30
  43. 430 PLAY "CMND16.F32A-16>MLC16","G<MND","EA-"                          'MEAS 31
  44. 440 PLAY "C.","E.","G."                                                'MEAS 32
  45. 
  46. ","EA-"                          'MEAS 31
  47. 440 PLAY "C.","E.","G."