home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / mus2 / beatles.lzh / BEATLES.BAS
BASIC Source File  |  1986-01-19  |  5KB  |  156 lines
  1. 10 key off
  2. 20 CLEAR,,,65536!
  3. 30 SCREEN 5,,,,2
  4. 40 CLS
  5. 50 RANDOMIZE TIMER
  6. 60 SCREEN 6,,0,0
  7. 70 LET K=1
  8. 80 LINE (0,173)-(640,173),1
  9. 90 LINE (0,117)-(640,117),1
  10. 100 LINE (0,61)-(640,61),1
  11. 110 CIRCLE (140,145),80,2,,,1/3
  12. 120 CIRCLE (460,117),80,2,,,1/3
  13. 130 PAINT (140,145),2,2
  14. 140 PAINT (460,115),2,2
  15. 150 PAINT (460,125),2,2
  16. 160 LINE (220,147)-(216,40),3,BF
  17. 170 LINE (541,119)-(537,12),3,BF
  18. 180 LINE -(216,40),3
  19. 190 LINE -(216,28),3
  20. 200 LINE -(541,0),3
  21. 210 LINE -(541,12),3
  22. 220 PAINT (540,11),3,3
  23. 230 FOR V=1 TO 800:NEXT V
  24. 240 KEY OFF
  25. 250 REM
  26. 260 SCREEN 6,,1,1
  27. 270 PALETTE 2,2
  28. 280 PALETTE 3,2
  29. 290 PALETTE 1,2
  30. 300 CIRCLE (100,100),40,2,2.4,.71
  31. 310 CIRCLE (101,75),30,2,5.9,3.5
  32. 320 LINE (73,80)-(70,89),2
  33. 330 LINE (130,80)-(131,89),2
  34. 340 PSET (94,62)
  35. 350 E$="C1 U40 L3 U10 R20 D10 L3 D40"
  36. 360 DRAW E$
  37. 370 LINE (90,100)-(112,101),2,BF
  38. 380 CIRCLE (101,86),10,2
  39. 390 CIRCLE (101,86),12,3
  40. 400 LINE (98,103)-(98,18),3
  41. 410 LINE (100,103)-(100,16),3
  42. 420 LINE (102,103)-(102,16),3
  43. 430 LINE (104,103)-(104,18),3
  44. 440 REM  BASS DRUM
  45. 450 CIRCLE (360,150),80,2
  46. 460 CIRCLE (360,150),75,3
  47. 470 REM  MOUNTED TOMS
  48. 480 CIRCLE (420,110),35,2,,,1/10
  49. 490 CIRCLE (305,110),35,2,,,1/10
  50. 500 CIRCLE (420,90),35,2,,,1/30
  51. 510 CIRCLE (305,90),35,2,,,1/30
  52. 520 LINE (335,110)-(335,90),1
  53. 530 LINE (275,110)-(275,90),1
  54. 540 LINE (388,110)-(388,90),1
  55. 550 LINE (450,110)-(450,90),1
  56. 560 LINE (335,98)-(388,98),2
  57. 570 LINE (335,100)-(388,100),2
  58. 580 LINE (358,100)-(358,116),2
  59. 590 LINE (364,100)-(364,116),2
  60. 600 LINE (420,174)-(443,190),2
  61. 610 LINE (412,172)-(439,188),2
  62. 620 LINE (300,172)-(273,188),1
  63. 630 LINE (302,174)-(277,188),1
  64. 640 REM  HOLE IN BASS DRUM
  65. 650 CIRCLE (360,150),33,2
  66. 660 LOCATE 17,43
  67. 670 PRINT "LUDWIG"
  68. 680 REM  R CYMBAL STAND
  69. 690 PSET (470,160),1
  70. 700 A$="U92 R4 D92 L4"
  71. 710 B$="G25 R3 E25 F25 R3 H25"
  72. 720 DRAW A$+B$
  73. 730 REM  R CYMBAL
  74. 740 PSET (416,76),1
  75. 750 C$="TA-70 U20 H5 E3 U20 R4 D46 L4"
  76. 760 DRAW C$
  77. 770 REM  L CYMBAL STAND
  78. 780 PSET (245,160),3
  79. 790 DRAW "TA+0"
  80. 800 DRAW A$+B$
  81. 810 REM  L CYMBAL
  82. 820 PSET (296,76),2
  83. 830 D$="TA+70 U46 R4 D20 F3 G5 D20 L4"
  84. 840 DRAW D$
  85. 850 DRAW "TA+0"
  86. 860 REM  FLOOR TOM
  87. 870 PSET (305,125),3
  88. 880 DRAW "L37 D2 R30 L28 D40 R20 L20 U21 L2 D40 L2 U41 R4"
  89. 890 REM  SNARE DRUM
  90. 900 PSET (422,130),2
  91. 910 DRAW "R24 D2 L3 D12 R3 D2 L3"
  92. 920 IF K=2, GOTO 1320
  93. 930 K=K+1
  94. 940 FOR BS=1 TO 900:NEXT BS
  95. 950 FOR T=1 TO 40
  96. 960 F=INT(RND*14)+1
  97. 970 G=INT(RND*14)+1
  98. 980 H=INT(RND*14)+1
  99. 990 PALETTE 1,F
  100. 1000 PALETTE 2,G
  101. 1010 PALETTE 3,H
  102. 1020 FOR S=1 TO 50:NEXT S
  103. 1030 NEXT T
  104. 1040 SCREEN ,,,0
  105. 1050 PALETTE 0,0
  106. 1060 FOR E=1 TO 30
  107. 1070 F=INT(RND*14)+1
  108. 1080 G=INT(RND*14)+1
  109. 1090 H=INT(RND*14)+1
  110. 1100 PALETTE 1,F
  111. 1110 PALETTE 2,G
  112. 1120 PALETTE 3,H
  113. 1130 FOR J=1 TO 50:NEXT J
  114. 1140 NEXT E
  115. 1150 FOR U=1 TO 12
  116. 1160 SCREEN ,,1,1
  117. 1170 FOR Y=1 TO 100:NEXT Y
  118. 1180 SCREEN ,,0,0
  119. 1190 FOR Q=1 TO 100:NEXT Q
  120. 1200 NEXT U
  121. 1210 REM  BEATLES'  "I WANT TO HOLD YOUR HAND"
  122. 1220 SOUND ON
  123. 1230 A1$="O3L8V8FAG4GGGGFAG4GGGGFAG4GGGGGGGGGGG4"
  124. 1240 A2$="O3L8V8<A>CD4DDDDCFD4DDDDCFD4DDDDDDDDDDD4"
  125. 1250 A3$="O2L8V11CCD4P8<GG4>CCD4P8<GG4>CCD4P8<GGG>DEDDDED4"
  126. 1260 PLAY A1$,A2$,A3$
  127. 1270 B1$="O3L8GAG.F16E2EGF.E16D2.P8EEEE4E4<B2.>A4G.F16E2EGF.E16D2.P8EEEE4E>E1P4C<BAG4F4G.F16E.D16E16D16C4.P8>C<BAG4D4C2."
  128. 1280 B2$="O2L8BP8>E.D16C4CCC4P4<BBB2>C2C4C4<G4GGGG>E4E.D16C4CCC4P4<B2.>C2CCP4P8BBBBBBBF2D4D4E.D16C.<B16A2>C2<B4B4P8GGGG4"
  129. 1290 B3$="O2L8<G4>C4P8C<G4P4>D4P8<GGF+GG+A4P8AA4P8AE4P8EE4G4>C4P8C<G4P4>D4P8<GGF+GG+A4P8AA4P4E2B4G4F4P8FG4P8G>C4<G4A4A4F4P8FG4P8G>C4P8C<G4"
  130. 1300 PLAY B1$,B2$,B3$
  131. 1310 GOTO 300
  132. 1320 PLAY B1$,B2$,B3$
  133. 1330 C1$="O3L4P4P4DFAGFEDC8C4.P4C8D1P8P4DFAGFEDC2P8F8F8G2.F8F8G2.F8F8G1.P8P4"
  134. 1340 C2$="O2L4P4B-2B-2B-B-GB-A8A4.P4A8A8A.A8A8AA8B-2B-2B-B-GB-A2P8>C8C8D4F8F8F8P8C8C8D4F8F8F8P8C8C8D4<B8B8B8B8B8B8B8B8B8B8B8B4"
  135. 1350 C3$="O1L8>C4<G4P8GG4P8G>C4P8CC4P8C<F4P8FF4P4DDP8DDD4DG4P8GG4P8G>C4P8CC4P8C<FF4FFFFGG4.GGFFG4.P8GGFFG4G8G8G8G8G8G8G8G8G8G8G8G4"
  136. 1360 PLAY C1$,C2$,C3$
  137. 1370 FOR SS=1 TO 15
  138. 1380 F=INT(RND*14)+1
  139. 1390 G=INT(RND*14)+1
  140. 1400 H=INT(RND*14)+1
  141. 1410 PALETTE 1,F
  142. 1420 PALETTE 2,G
  143. 1430 FOR BB=1 TO 50:NEXT BB
  144. 1440 NEXT SS
  145. 1450 E1$="O3L8GAG.F16E2EGF.E16D2.P8EEEE4E4<B2.>A4G.F16E2EGF.E16D2.P8EEEE4E>E1P4C<BAG4F4G.F16E.D16E16D16C4.P8>C<BAG4F4E4"
  146. 1460 E2$="O2L8BP8>E.D16C4CCC4P4<BBB2>C2C4C4<G4GGGG>E4E.D16C4CCC4P4<B2.>C2CCP4P8BBBBBBBF2D4D4E.D16C.<B16A2>C2<B4B4P8G+G+G+G+G+G+G+"
  147. 1470 E3$="O2L8<G4>C4P8C<G4P4>D4P8<GGF+GG+A4P8AA4P8AE4P8EE4G4>C4P8C<G4P4>D4P8<GGF+GG+A4P8AA4P4E2B4G4F4P8FG4P8G>C4<G4A4A4F4P8FG4P8GEEEEEEEE"
  148. 1480 PLAY E1$,E2$,E3$
  149. 1490 D1$="O3L8P8>C<BAG4B4>C1."
  150. 1500 D2$="O3L4C2<B>DC6C6C6C6C6C6C2"
  151. 1510 D3$="O1L4FP8F8GP8G8F6A6G6F6A6G6C2"
  152. 1520 PLAY D1$,D2$,D3$
  153. 1530 END
  154. INT(RND*14)+1
  155. 1090 H=INT(RND*14)+1
  156. 1100 PA