home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
medley.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
4KB
|
74 lines
0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE
1 BEEP:CLS:CLEAR'FEB 3,1985 STAN KENDALL 'MEDLEY' <MU-32> 4 SONGS
2 ' 1945 WASHINGTON AVE * WILMETTE, IL 60091
5 'Plays the first four songs in just over three minutes and then keeps going until 'Q' or 'q' is pressed.
10 DEFINTA-Z:FORZ=1TO6
15 LINE(11-Z,6-Z)-(229+Z,54+Z),1,B
20 NEXT
30 PRINT@46,"MUSIC MEDLEY <MU-32> 'MEDLEY'"
32 PRINT@124,"SUNRISE,SUNSET BORNFREE "
36 PRINT@164,"CABARET LIGHT of the WORLD "
40 PRINT@244,"<Q>uit":PRINT@270,"<P>lay"
65 FORZ=10000TO1000STEP-200:SOUNDZ,3:NEXT:GOSUB100
70 K$=INKEY$
80 IFK$="P"ORK$="p"THENRESTORE200:GOTO200
90 IFK$="Q"ORK$="q"THENMENU
98 GOTO70
100 DIMP(26)
110 FORI=1TO26:READP(I):NEXTI:RETURN
120 DATA 12538,11836,11172,10544,9952,9394,8866,8368,7900,7456,7032,6642,6269
130 DATA 5918,5586,5272,4976,4697,4433,4184,3950,3718,3516,3321,3134,2959,
200 FOR I=1 TO 123:READS,L:SOUND P(S),L
202 A$=INKEY$:IFA$="Q"ORA$="q"THENMENU
204 NEXT I
215 DATA13,20,18,20,21,20,20,10,18,10,17,20,20,20,18,60,13,60
225 DATA13,20,18,20,21,20,20,10,18,10,17,20,20,20,18,140
235 DATA18,20,23,20,26,20,25,10,23,10,22,20,25,20,23,60,18,60,20,60,20,60,21,80
240 DATA13,20,18,20,21,20,20,10,18,10,17,20,20,20,18,60,13,60
245 DATA13,20,18,20,21,20,20,10,18,10,17,20,20,20,18,120
250 DATA18,20,23,20,26,20,25,10,23,10,22,20,25,20,23,60,24,60,25,120
255 DATA0,40,21,20,23,40,21,20,20,20,0,40,21,20,23,40,21,20,20,20
260 DATA0,40,21,20,23,40,21,20,23,20,25,120
265 DATA26,20,26,20,26,20,26,10,25,10,23,20,26,20,25,60,21,60
270 DATA23,20,23,20,23,20,23,10,21,10,20,20,23,20,21,60,22,60
275 DATA0,40,21,20,23,40,21,20,20,20,0,40,21,20,23,40,21,20,20,20
280 DATA0,40,21,20,23,40,21,20,23,20,25,120
285 DATA26,20,26,20,26,20,26,10,25,10,23,20,26,20,25,60,21,60
290 DATA23,20,23,20,23,20,23,10,21,10,20,20,21,20,18,120
300 FOR I=1 TO 81:READS,L:SOUND P(S),L
302 A$=INKEY$:IFA$="q"ORA$="Q"THENMENU
304 NEXT
310 DATA 18,40,13,60,13,20,15,20,13,20,11,20,10,40,6,60
320 DATA13,20,15,20,13,10,11,10,17,40,13,20,10,20,11,20,11,20,11,10,10,10,8,20,6,120
330 DATA18,40,13,60,13,20,15,20,13,10,11,10
340 DATA10,40,6,60,13,20,15,20,13,10,11,10,17,40,13,20,10,20
350 DATA13,20,13,20,13,20,15,10,13,10,17,120
360 DATA20,20,15,60,15,20,17,10,15,10,13,10,10,40,18,60
370 DATA18,20,20,20,15,10,18,10,20,30,18,10,20,30,18,10,20,30,18,10,20,30,18,10,20,120,18,40,13,60
380 DATA13,20,15,20,13,10,11,10,10,40,6,60,13,20,15,20,13,10,11,10
390 DATA17,40,13,20,10,20,18,40,18,40,18,60
400 FOR I=1 TO 70:READS,L:SOUND P(S),L
402 A$=INKEY$:IFA$="q"ORA$="Q"THENMENU
404 NEXT I
410 DATA1,20,3,40,6,20,10,20,13,40,14,20,15,20,13,20,10,20,13,100,15,20,13,40,10,20,13,40,15,40,10,100
420 DATA15,20,18,40,15,20,18,40,15,40,17,20,13,40,10,100,10,20,13,40,10,20,13,40,3,40,10,100
430 DATA17,20,18,20,20,20,18,20,17,20,13,20,11,20,8,20,1,20,3,40,6,20
440 DATA10,20,13,40,14,20,15,20,13,20,10,20,13,80,14,20
450 DATA15,20,13,40,10,20,13,40,15,40,16,40,16,80
460 DATA15,20,18,40,15,20,18,40,15,40,17,20,20,40,13,100
470 DATA15,20,18,40,15,20,18,40,18,40,18,60
500 FOR I=1 TO 62:READS,L:SOUND P(S),L
502 A$=INKEY$:IFA$="q"ORA$="Q"THENMENU
504 NEXT I
506 RESTORE200:GOTO200
510 DATA11,20,8,20,8,20,8,20,11,20,13,20,15,20,15,20,15,20
520 DATA13,20,11,20,8,20,8,20,8,20,8,20,6,20,8,100
530 DATA11,20,8,20,8,20,8,20,11,20,13,20,15,40,15,20
540 DATA15,20,13,20,11,20,8,20,8,20,8,20,6,20,8,100
550 DATA15,20,15,20,15,20,18,20,18,20,17,20,15,60,11,20
560 DATA13,20,15,60,15,20,11,20,13,20,15,100
570 DATA15,20,15,20,15,20,18,40,17,20,15,20,11,20,13,20
580 DATA15,20,11,20,13,20,15,60,11,40,10,20,8,100
599 '.................
600 'Could easily be programmed to play each song randomly.