home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 December / 64er_Magazin_88-12_1988_Markt__Technik_de_Side_B.d64 / musik.prc < prev    next >
Encoding:
Text File  |  1988-01-01  |  1.2 KB  |  46 lines
  1. 0005 PROC musik CLOSED
  2. 0010   USE sound
  3. 0020   vorbereiten
  4. 0030   noten'lesen
  5. 0040   spielen
  6. 0050   
  7. 0060   DATA "g4",8,"e4",8,"e4",16,"f4",8
  8. 0070   DATA "d4",8,"d4",16
  9. 0080   DATA "c4",8,"d4",8,"e4",8,"f4",8
  10. 0090   DATA "g4",8,"g4",8,"g4",16
  11. 0100   DATA "g4",8,"e4",8,"e4",16,"f4",8
  12. 0110   DATA "d4",8,"d4",16
  13. 0120   DATA "c4",8,"e4",8,"g4",8,"g4",8
  14. 0130   DATA "c4",32
  15. 0140   DATA "d4",8,"d4",8,"d4",8,"d4",8
  16. 0150   DATA "d4",8,"e4",8,"f4",16
  17. 0160   DATA "e4",8,"e4",8,"e4",8,"e4",8
  18. 0170   DATA "e4",8,"f4",8,"g4",16
  19. 0180   DATA "g4",8,"e4",8,"e4",16,"f4",8
  20. 0190   DATA "d4",8,"d4",16
  21. 0200   DATA "c4",8,"e4",8,"g4",8,"g4",8
  22. 0210   DATA "c4",32
  23. 0220   
  24. 0230   PROC vorbereiten 
  25. 0240     USE sound
  26. 0250     DIM noten#(50), ads'dauer#(50), r'dauer#(50)
  27. 0260   ENDPROC vorbereiten
  28. 0270   
  29. 0280   PROC noten'lesen 
  30. 0290     nr:=0
  31. 0300     WHILE NOT EOD DO
  32. 0310       READ notenwert$,zeit
  33. 0320       nr:+1
  34. 0330       noten#(nr):=frequency(notenwert$)
  35. 0340       ads'dauer#(nr):=zeit
  36. 0350       r'dauer#(nr):=zeit
  37. 0360     ENDWHILE 
  38. 0370     
  39. 0380     setscore(1,noten#(),ads'dauer#(),r'dauer#())
  40. 0390   ENDPROC noten'lesen
  41. 0400   
  42. 0410   PROC spielen 
  43. 0420     playscore(1,0,0)
  44. 0430   ENDPROC spielen
  45. 0440 ENDPROC musik
  46.