home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / green.ba < prev    next >
Text File  |  2006-10-19  |  5KB  |  57 lines
  1. 10 'GREEN.BA by Richard Hanson Oct/87
  2. 20 'CLUB 100 Library - 510/939-1246 BBS
  3. 30 CLS:PRINT:A$="The Ballad of the Green Berets":PRINTTAB((40-(LEN(A$)))/2)A$
  4. 40 PRINT:A$="Words and Music by":PRINTTAB((40-(LEN(A$)))/2)A$
  5. 50 A$="Barry Sadler and Robin Moore":PRINTTAB((40-(LEN(A$)))/2)A$
  6. 60 PRINT:A$="Model 100 arrangement: Richard Hanson":PRINTTAB((40-(LEN(A$)))/2)A$;
  7. 70 FORY=1TO3:FORX=1TO29:READP,D:SOUNDP,D:NEXTX
  8. 80 READ A$:CLS:PRINT@121,A$:FORX=1TO9: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=1TO10:READP,D:SOUNDP,D:NEXTX
  12. 120 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX
  13. 130 READ A$:CLS:PRINT@121,A$:FORX=1TO11:READP,D:SOUNDP,D:NEXTX
  14. 140 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX
  15. 150 READ A$:CLS:PRINT@121,A$:FORX=1TO10:READP,D:SOUNDP,D:NEXTX
  16. 160 CLS:NEXTY
  17. 170 PRINT:A$="The Ballad of the Green Berets":PRINTTAB((40-(LEN(A$)))/2)A$
  18. 180 PRINT:A$="A CLUB 100 request for":PRINTTAB((40-(LEN(A$)))/2)A$
  19. 190 PRINT:A$="William Luker":PRINTTAB((40-(LEN(A$)))/2)A$;
  20. 200 RESTORE:FORX=1TO17:READP,D:SOUNDP,D:NEXTX:MENU
  21. 1000 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3
  22. 1010 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3
  23. 1020 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3
  24. 1030 DATA 9394,21,0,3,12538,21,0,3,11172,10
  25. 1040 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
  26. 1050 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
  27. 1060 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
  28. 1070 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
  29. 1080 DATA "Silver wings... upon their chests...",3728,12,3728,10,3728,56,0,6,4697,10,4184,12,4184,10,4697,56,0,0
  30. 1090 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
  31. 1100 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
  32. 1110 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
  33. 2000 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3
  34. 2010 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3
  35. 2020 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3
  36. 2030 DATA 9394,21,0,3,12538,21,0,3,11172,10
  37. 2040 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
  38. 2050 DATA "Trained to combat... hand to hand...",3134,12,3134,10,3134,56,0,6,3134,10,2793,12,3134,10,3134,56,0,0
  39. 2060 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
  40. 2070 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
  41. 2080 DATA "Silver wings... upon their chests...",3728,12,3728,10,3728,56,0,6,4697,10,4184,12,4184,10,4697,56,0,0
  42. 2090 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
  43. 2100 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
  44. 2110 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
  45. 3000 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3
  46. 3010 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3
  47. 3020 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3
  48. 3030 DATA 9394,21,0,3,12538,21,0,3,11172,10
  49. 3040 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
  50. 3050 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
  51. 3060 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
  52. 3070 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
  53. 3080 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
  54. 3090 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
  55. 3100 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
  56. 3110 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,36
  57.