10 'GREEN.BA by Richard Hanson Oct/87 20 'CLUB 100 Library - 510/939-1246 BBS 30 CLS:PRINT:A$="The Ballad of the Green Berets":PRINTTAB((40-(LEN(A$)))/2)A$ 40 PRINT:A$="Words and Music by":PRINTTAB((40-(LEN(A$)))/2)A$ 50 A$="Barry Sadler and Robin Moore":PRINTTAB((40-(LEN(A$)))/2)A$ 60 PRINT:A$="Model 100 arrangement: Richard Hanson":PRINTTAB((40-(LEN(A$)))/2)A$; 70 FORY=1TO3:FORX=1TO29:READP,D:SOUNDP,D:NEXTX 80 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX 90 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX 100 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D: SOUNDP,D:NEXTX 110 READ A$:CLS:PRINT@121,A$:FORX=1TO10:READP,D:SOUNDP,D:NEXTX 120 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX 130 READ A$:CLS:PRINT@121,A$:FORX=1TO11:READP,D:SOUNDP,D:NEXTX 140 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX 150 READ A$:CLS:PRINT@121,A$:FORX=1TO10:READP,D:SOUNDP,D:NEXTX 160 CLS:NEXTY 170 PRINT:A$="The Ballad of the Green Berets":PRINTTAB((40-(LEN(A$)))/2)A$ 180 PRINT:A$="A CLUB 100 request for":PRINTTAB((40-(LEN(A$)))/2)A$ 190 PRINT:A$="William Luker":PRINTTAB((40-(LEN(A$)))/2)A$; 200 RESTORE:FORX=1TO17:READP,D:SOUNDP,D:NEXTX:MENU 1000 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3 1010 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3 1020 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3 1030 DATA 9394,21,0,3,12538,21,0,3,11172,10 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 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 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 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 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 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 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 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 2000 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3 2010 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3 2020 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3 2030 DATA 9394,21,0,3,12538,21,0,3,11172,10 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 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 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 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 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 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 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 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 3000 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3 3010 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3 3020 DATA 9394,21,0,3,12538,21,0,3,11172,21,0,3,9952,21,0,3 3030 DATA 9394,21,0,3,12538,21,0,3,11172,10 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 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 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 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 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 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 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 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