home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / pbas41.lzh / peter1.bas < prev    next >
BASIC Source File  |  1990-11-25  |  738b  |  34 lines

  1. 'Thanks to BJ Gleason for PBASIC21 !
  2. 'Transposed by,..
  3. ' John Fraser 76256,356
  4. cls
  5. locate 4,8
  6. print " Serge Prokofiev  "
  7. box 3,5,5,31,1
  8. print ""
  9. print ""
  10. for I=1 to 47
  11. read a
  12. read b
  13. c = b/2 'the "2" controls tempo
  14. sound a,c
  15. next I
  16. REM: One data statement per measure
  17. 410data 49,100,54,75,58,25
  18. 420data 60,50,14,50,60,75,58,25
  19. 430data 60,50,14,50,44,75,63,25
  20. 440data 60,50,58,50,54,50,56,50
  21. 450data 57,100,57,50,62,50
  22. 460data 57,100,57,50,62,50
  23. 470data 57,100,52,100
  24. 480data 52,150,51,50
  25. 490data 52,100,57,75,60,25
  26. 500data 62,50,63,50,62,75,60,25
  27. 510data 62,50,63,50,5,75,37,25
  28. 520data 62,50,60,50,57,75,41,25
  29. 530data 59,100,59,50,5,50
  30. 540data 59,100,59,50,5,50
  31. 550data 60,200
  32. 1000data 999,999
  33. 2000system=
  34.