home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
green2.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
5KB
|
61 lines
10 'GREEN2.BA v2 Richard Hanson Oct/88
20 'Based on GREEN.BA v1 Richard Hanson Oct/87
30 'CLUB 100 Library 510/939-1246 BBS
40 CLS:PRINT:A$="The Ballad of the Green Berets":PRINTTAB((40-(LEN(A$)))/2)A$
50 PRINT:A$="Words and Music by":PRINTTAB((40-(LEN(A$)))/2)A$
60 A$="Barry Sadler and Robin Moore":PRINTTAB((40-(LEN(A$)))/2)A$
70 PRINT:A$="Model 100 arrangement: Richard Hanson":PRINTTAB((40-(LEN(A$)))/2)A$;
80 FORY=1TO3:FORX=1TO29: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=1TO9:READP,D: SOUNDP,D:NEXTX
120 READ A$:CLS:PRINT@121,A$:FORX=1TO10:READP,D:SOUNDP,D:NEXTX
130 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX
140 READ A$:CLS:PRINT@121,A$:FORX=1TO11:READP,D:SOUNDP,D:NEXTX
150 READ A$:CLS:PRINT@121,A$:FORX=1TO9:READP,D:SOUNDP,D:NEXTX
160 READ A$:CLS:PRINT@121,A$:FORX=1TO10:READP,D:SOUNDP,D:NEXTX
170 CLS:NEXTY
180 PRINT:A$="The Ballad of the Green Berets":PRINTTAB((40-(LEN(A$)))/2)A$
190 PRINT:A$="A CLUB 100 request for":PRINTTAB((40-(LEN(A$)))/2)A$
200 PRINT:A$="William Luker":PRINTTAB((40-(LEN(A$)))/2)A$;
210 FORX=1TO25:READP,D:SOUNDP,D:NEXTX:MENU
220 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
230 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
240 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
250 DATA 9394,19,0,5,12538,19,0,5,11172,9
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
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
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
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
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
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
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
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
340 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
350 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
360 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
370 DATA 9394,19,0,5,12538,19,0,5,11172,10
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
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
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
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
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
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
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
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
460 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
470 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
480 DATA 9394,19,0,5,12538,19,0,5,11172,19,0,5,9952,19,0,5
490 DATA 9394,19,0,5,12538,19,0,5,11172,10
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
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
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
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
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
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
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
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
580 DATA 3728,12,3728,10,4184,56,0,6,6269,6,6269,6,5586,12,4976,12,4697,56,0,16
590 DATA 3728,12,3728,10,4184,56,0,6,3134,6,3134,6,2793,12,2488,12,2348,16,0,6
600 DATA 4697,6,4697,6,4697,6,4697,6,4697,12