home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
green.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
5KB
|
57 lines
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