home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / green2.ba < prev    next >
Text File  |  2006-10-19  |  5KB  |  61 lines
  1. 10 'GREEN2.BA v2 Richard Hanson             Oct/88
  2. 20 'Based on GREEN.BA v1 Richard Hanson     Oct/87
  3. 30 'CLUB 100 Library 510/939-1246 BBS
  4. 40 CLS:PRINT:A$="The Ballad of the Green Berets":PRINTTAB((40-(LEN(A$)))/2)A$
  5. 50 PRINT:A$="Words and Music by":PRINTTAB((40-(LEN(A$)))/2)A$
  6. 60 A$="Barry Sadler and Robin Moore":PRINTTAB((40-(LEN(A$)))/2)A$
  7. 70 PRINT:A$="Model 100 arrangement: Richard Hanson":PRINTTAB((40-(LEN(A$)))/2)A$;
  8. 80 FORY=1TO3:FORX=1TO29:READP,D:SOUNDP,D:NEXTX
  9. 90 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX
  10. 100 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX
  11. 110 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D: SOUNDP,D:NEXTX
  12. 120 READ A$:CLS:PRINT@121,A$:FORX=1TO10:READP,D:SOUNDP,D:NEXTX
  13. 130 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX
  14. 140 READ A$:CLS:PRINT@121,A$:FORX=1TO11:READP,D:SOUNDP,D:NEXTX
  15. 150 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX
  16. 160 READ A$:CLS:PRINT@121,A$:FORX=1TO10:READP,D:SOUNDP,D:NEXTX
  17. 170 CLS:NEXTY
  18. 180 PRINT:A$="The Ballad of the Green Berets":PRINTTAB((40-(LEN(A$)))/2)A$
  19. 190 PRINT:A$="A CLUB 100 request for":PRINTTAB((40-(LEN(A$)))/2)A$
  20. 200 PRINT:A$="William Luker":PRINTTAB((40-(LEN(A$)))/2)A$;
  21. 210 FORX=1TO25:READP,D:SOUNDP,D:NEXTX:MENU
  22. 220 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
  23. 230 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
  24. 240 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
  25. 250 DATA 9394,19,0,5,12538,19,0,5,11172,9
  26. 260 DATA "Fighting sol... ders from the sky...",3728,12,3728,10,3728,56,0,6,4697,10,4184,12,4184,10,4697,56,0,0
  27. 270 DATA "Fearless men... who jump and die...",3134,12,3134,10,3134,56,0,6,3134,10,2793,12,3134,10,3134,56,0,0
  28. 280 DATA "Men who mean... just what they say...",2348,12,2348,10,2348,56,0,6,3516,10,2793,12,3134,10,3134,56,0,0
  29. 290 DATA "The brave men... of The Green Beret.",3728,12,3728,10,4184,56,0,6,6269,6,6269,6,5586,12,4976,12,4697,56,0,0
  30. 300 DATA "Silver wings... upon their chests...",3728,12,3728,10,3728,56,0,6,4697,10,4184,12,4184,10,4697,56,0,0
  31. 310 DATA "These are men... America's best...",3134,12,3134,10,3134,56,0,6,3134,6,3134,6,2793,6,3134,6,3134,12,3134,56,0,0
  32. 320 DATA "One hundred men... we'll test today...",2348,12,2348,10,2348,56,0,6,3516,10,2793,12,3134,10,3134,56,0,0
  33. 330 DATA "But only three... win The Green Beret.",3728,12,3728,10,4184,56,0,6,6269,6,6269,6,5586,12,4976,12,4697,56,0,25
  34. 340 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
  35. 350 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
  36. 360 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
  37. 370 DATA 9394,19,0,5,12538,19,0,5,11172,10
  38. 380 DATA "Trained to live... off nature's land...",3728,12,3728,10,3728,56,0,6,4697,10,4184,12,4184,10,4697,56,0,0
  39. 390 DATA "Trained to com... bat hand to hand...",3134,12,3134,10,3134,56,0,6,3134,10,2793,12,3134,10,3134,56,0,0
  40. 400 DATA "Men who fight... by night and day...",2348,12,2348,10,2348,56,0,6,3516,10,2793,12,3134,10,3134,56,0,0
  41. 410 DATA "Courage take... from The Green Beret.",3728,12,3728,10,4184,56,0,6,6269,6,6269,6,5586,12,4976,12,4697,56,0,0
  42. 420 DATA "Silver wings... upon their chests...",3728,12,3728,10,3728,56,0,6,4697,10,4184,12,4184,10,4697,56,0,0
  43. 430 DATA "These are men... America's best...",3134,12,3134,10,3134,56,0,6,3134,6,3134,6,2793,6,3134,6,3134,12,3134,56,0,0
  44. 440 DATA "One hundred men... we'll test today...",2348,12,2348,10,2348,56,0,6,3516,10,2793,12,3134,10,3134,56,0,0
  45. 450 DATA "But only three... win The Green Beret.",3728,12,3728,10,4184,56,0,6,6269,6,6269,6,5586,12,4976,12,4697,56,0,25
  46. 460 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
  47. 470 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
  48. 480 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
  49. 490 DATA 9394,19,0,5,12538,19,0,5,11172,10
  50. 500 DATA "Back at home... a young wife waits...",3728,12,3728,10,3728,56,0,6,4697,10,4184,12,4184,10,4697,56,0,0
  51. 510 DATA "Her Green Beret... has met his fate...",3134,12,3134,10,3134,56,0,6,3134,10,2793,12,3134,10,3134,56,0,0
  52. 520 DATA "He has died... for those oppressed...",2348,12,2348,10,2348,56,0,6,3516,10,2793,12,3134,10,3134,56,0,0
  53. 530 DATA "Leaving her... this last request.",3728,12,3728,10,4184,56,0,6,6269,6,6269,6,5586,12,4976,12,4697,56,0,0
  54. 540 DATA "Put silver wings.. on my son's chest..",3728,12,3728,10,3728,56,0,6,4697,10,4184,12,4184,10,4697,56,0,0
  55. 550 DATA "Make him one... of America's best...",3134,12,3134,10,3134,56,0,6,3134,6,3134,6,2793,6,3134,6,3134,12,3134,56,0,0
  56. 560 DATA "He'll be a man.. they'll test one day..",2348,12,2348,10,2348,56,0,6,3516,10,2793,12,3134,10,3134,56,0,0
  57. 570 DATA "Have him win... The Green Beret.",3728,12,3728,10,4184,56,0,6,6269,6,6269,6,5586,12,4976,12,4697,56,0,0
  58. 580 DATA 3728,12,3728,10,4184,56,0,6,6269,6,6269,6,5586,12,4976,12,4697,56,0,16
  59. 590 DATA 3728,12,3728,10,4184,56,0,6,3134,6,3134,6,2793,12,2488,12,2348,16,0,6
  60. 600 DATA 4697,6,4697,6,4697,6,4697,6,4697,12
  61.