home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
music3.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
4KB
|
71 lines
0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE
1 BEEP:CLS:CLEAR'FEB 2,1985 STAN KENDALL 'MUSIC3' <MU-31> 4 SONGS
2 '1945 WASHINGTON AVE * WILMETTE, IL 60091
20 LINE(10,5)-(230,55),1,BF
21 LINE(7,3)-(232,58),1,B
30 PRINT@46," MUSIC ,MUSIC <MU-31> 'MUSIC'"
32 PRINT@124," <S> SUNRISE,SUNSET <B>BORNFREE "
36 PRINT@164," <C> CABARET <M> MATCHMAKER "
40 PRINT@243," Press Letter in < > <Q>uit "
65 FORZ=10000TO1000STEP-200:SOUNDZ,3:NEXT:GOSUB100
70 K$=INKEY$
75 IFK$="S"ORK$="s"THENRESTORE200:GOTO200
80 IFK$="B"ORK$="b"THENRESTORE300:GOTO300
84 IFK$="C"ORK$="c"THENRESTORE400:GOTO400
86 IFK$="M"ORK$="m"THENRESTORE500:GOTO500
94 IFK$="Q"ORK$="q"THENMENU
98 GOTO70
100 DIMP(36)
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:NEXT I
202 FOR T=1TO999:NEXT:GOTO70
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:NEXT I
302 FOR T=1TO999:NEXT:GOTO70
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:NEXT I
402 FOR T=1TO999:NEXTT:GOTO70
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 107:READS,L:SOUND P(S),L:NEXT I
502 FOR T=1TO999:NEXTT:GOTO70
510 DATA1,20,6,20,6,20,6,20,8,20,8,20,8,20,10,20,10,20,10,60
515 DATA8,20,10,20,10,20,10,60,8,20,10,20,10,20,10,60
520 DATA1,20,6,20,6,20,6,20,8,20,8,20,8,20,10,20,10,20,10,40,11,20
530 DATA13,20,11,20,11,20,6,40,1,20,6,120,6,40,6,20,14,20,14,60,14,20,13,20,11,20
535 DATA14,20,13,20,11,20,13,60,13,20,9,20,11,20,13,20,11,20,9,20
540 DATA13,40,13,20,11,60,11,60,11,20,9,20,8,20
545 DATA11,20,9,20,8,20,9,20,8,20,9,20,10,20,9,20,10,20
550 DATA11,40,13,20,14,60,1,20,6,20,6,20,6,20,8,20,8,20
560 DATA8,20,10,20,10,20,10,60,8,20,10,20,10,20,10,60
570 DATA8,20,10,20,10,20,10,60,1,20,6,20,6,20,6,20,8,20,8,20
580 DATA8,20,10,20,10,20,10,40,11,20,13,20,10,20,11,20,13,60,6,60,1,60,6,120