home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 September / 64er_Magazin_85-09_1985_Markt__Technik_de.d64 / moonlight (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  91 lines
  1. 100 print"[147]"
  2. 110 print"  moonlight shadow  "
  3. 120 print"  von mike oldfield "
  4. 130 :
  5. 140 (NULL):(NULL) 15
  6. 150 :
  7. 160 rem noten und dauer
  8. 170 rem fuer stimme 1 und 2
  9. 180 :
  10. 190 dim n1$(200),d1(200)
  11. 200 dim n2$(200),d2(200)
  12. 201 restore
  13. 210 :
  14. 220 rem daten fuer stimme 1
  15. 230 i=0
  16. 240 read n1$(i),d1(i)
  17. 250 ifd1(i)>0theni=i+1:goto240
  18. 260 :
  19. 270 rem daten fuer stimme 2
  20. 280 i=0
  21. 290 read n2$(i),d2(i)
  22. 300 ifd2(i)>0theni=i+1:goto290
  23. 310 :
  24. 320 :
  25. 330 print"  geschwindigkeit (1-6) ?"
  26. 340 get a$:if a$=""then340
  27. 350 sp=val(a$):(NULL)sp<1orsp>6then340
  28. 360 :
  29. 370 :
  30. 380 rem huellkurven
  31. 390 (NULL) 1,4,8,7,10
  32. 400 (NULL) 2,2,11,11,11
  33. 410 :
  34. 420 s1=0:s2=0:c1=0:c2=0
  35. 430 (NULL) 1,n1$(s1)
  36. 440 (NULL) 2,n2$(s2)
  37. 450 (NULL) 1,3,18.75
  38. 460 (NULL) 2,2
  39. 470 (NULL) 1,on:(NULL) 2,on
  40. 480 :
  41. 490 :
  42. 500 rem stimme 1
  43. 510 c1=c1+1:(NULL)c1>(d1(s1)*sp/2)then (NULL) 1,(NULL)
  44. 520 ifc1<(d1(s1)*sp)then 590
  45. 530 :
  46. 540 rem naechste note
  47. 550 c1=0:s1=s1+1
  48. 551 (NULL) d1(s1)<0then (NULL) 1,(NULL):(NULL) 2,(NULL):end
  49. 555 (NULL) 1,on:(NULL) 1,n1$(s1)
  50. 560 :
  51. 570 :
  52. 580 rem stimme 2
  53. 590 c2=c2+1:(NULL)c2>(d2(s2)*sp/2)then (NULL) 2,(NULL)
  54. 600 (NULL)c2<(d2(s2)*sp)then 640
  55. 610 :
  56. 620 rem naechste note
  57. 630 c2=0:s2=s2+1:(NULL) 2,on:(NULL) 2,n2$(s2)
  58. 635 (NULL) 2,on:(NULL) 2,n2$(s2)
  59. 640 goto510
  60. 650 :
  61. 670 :
  62. 680 rem daten fuer stimme 1
  63. 690 data d5,3,d5,1,d5,1,e5,1,d5,1,c#5,1,h4,4,h4,4,c#5,1,c#5,1
  64. 700 data d5,1,e5,3,d5,1,e5,1,f#5,2,f#5,2,e5,1,a4,3
  65. 710 data d5,3,d5,1,d5,1,e5,1,d5,1,c#5,1,h4,4,h4,4,c#5,1,c#5,1
  66. 720 data d5,1,e5,3,d5,1,e5,1,f#5,2,f#5,2,e5,1,a4,3
  67. 730 data f#5,2,a5,2,g5,2,f#5,1,d5,1,e5,1,f#5,2,e5,5
  68. 740 data f#5,3,e5,1,d5,2,d5,1,h4,1,e5,1,f#5,2,e5,3,d5,1,e5,1
  69. 750 data f#5,2,a5,2,g5,2,f#5,1,d5,1,e5,1,c#5,1,h4,1,a4,5
  70. 760 data d5,3,c#5,1,h4,1,c#5,1,d5,2,e5,10
  71. 770 data f#5,2,e5,6,f#5,2,e5,2,d5,1,e5,1,f#5,2,a5,2,g5,2,f#5,1,d5,3,f#5,2,e5,6
  72. 780 data f#5,2,e5,6,f#5,2,e5,2,d5,1,e5,1,f#5,2,a5,2,g5,2,f#5,1,d5,1
  73. 790 data e5,1,c#5,1,h4,1,a4,3,h4,1,c#5,1
  74. 800 data d5,3,d5,1,d5,1,e5,1,d5,1,c#5,1,h4,4,h4,4,c#5,1,c#5,1
  75. 810 data d5,1,e5,3,d5,1,e5,1,f#5,2,f#5,2,e5,1,a4,3
  76. 820 data d5,3,d5,1,d5,1,e5,1,d5,1,c#5,1,h4,4,h4,4,c#5,1,c#5,1
  77. 830 data d5,1,e5,3,d5,1,e5,1,f#5,2,f#5,2,e5,1,d5,7
  78. 840 data0,-1
  79. 850 :
  80. 860 :
  81. 870 rem daten fuer stimme 2
  82. 880 data d3,4,d3,4,g3,4,h3,2,d3,2,a3,4,a3,4,d3,4,a3,2,e4,1,a3,1
  83. 890 data d3,4,d3,4,g3,4,h3,2,d3,2,a3,4,a3,4,d3,4,a3,2,e4,1,a3,1
  84. 900 data d3,4,d3,4,a3,4,a3,4,h3,4,g3,4,a3,4,a3,4
  85. 910 data d3,4,d3,4,a3,4,a3,4,h3,4,g3,4,a3,4,a3,3
  86. 920 data a3,1,a3,7,a3,1,a3,8,d3,4,d3,4,a3,4,a3,3
  87. 930 data a3,1,a3,7,a3,1,a3,8,d3,4,d3,4,a3,4,a3,4
  88. 940 data d3,4,d3,4,g3,4,h3,2,d3,2,a3,4,a3,4,d3,4,a3,2,e4,1,a3,1
  89. 950 data d3,4,d3,4,g3,4,h3,2,d3,2,a3,4,a3,4,d3,4,d3,8
  90. 960 data0,-1
  91.