home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
raider.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
11 lines
0 ' RAIDER.BA - Arr By Rob Elliott
1 ' Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:E$=CHR$(27):R$=E$+"p":N$=E$+"q":PRINT@85,R$" Raider's March "N$:PRINT@173,"...by John Williams":PRINT@213,"...arr. by Rob Elliott
3 READA,B:IFA=0ANDB=0THENMENUELSESOUNDA,B:GOTO3
4 DATA3718,18,3516,6,3134,12,2348,60,4184,18,3718,6,3516,60,0,12,3134,18:DATA2793,6,2484,12,1758,60,2793,18,2484,6,2348,24,2092,24,1864,12,0,12:DATA3718,18,3516,6,3134,12,2348,60,2092,18,1864,6,1758,60,0,12,3134,18
5 DATA3134,6,1864,24,2092,12,0,6,3134,6,1864,24,2092,12,0,6,3134,6,1864,24:DATA2092,12,0,6,3134,6:DATA1864,12,2092,12,3718,18,3134,6,3516,60,4184,18,3516,6,3718,8,3134,8:DATA1864,60,3718,18,3134,6,3516,76,4184,18,3516,6,3950,8,4184,8,4697,56
6 DATA3718,18,3134,6,3516,76,4184,18,3516,6,3718,8,3134,8,1864,48,0,12:DATA2092,18,1864,6,1758,12,2636,6,2793,6,2636,12,1758,12,2636,6,2793,6:DATA2636,12,1758,12,1975,6,2092,6,1975,88,2348,6,2348,6,1758,12,2636,6
7 DATA2793,6,2636,12,1758,12,2636,6,2793,6,2636,12,1758,12,1975,6,2092,6:DATA1975,88,2348,6,2348,6,1758,12,2636,6,2793,6,2636,12,1758,12,2636,6:DATA2793,6,2636,12,1758,12,1975,6,2092,6,1975,12,2959,6,3134,6,2959,12
8 DATA1975,12,2959,6,3134,6,2959,12,1975,12,1975,6,1758,6,1567,156,0,12:DATA3718,18,3516,6,3134,12,2348,60,4184,18,3718,6,3516,60,0,12,3134,18:DATA2793,6,2484,12,1758,36,1758,24,2793,18,2484,6,2348,24,2092,24,1864,12
9 DATA0,12,3718,18,3516,6,3134,12,2348,60,2092,18,1864,6,1758,60,0,12:DATA3134,18,3134,6,1864,24,2092,12,0,6,3134,6,1864,24,2092,12,0,6,3134,6:DATA1864,24,2092,12,0,6,3134,6,1758,24,1864,12,0,6,2092,6,2348,156,0,0