home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
love-s.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
6KB
|
115 lines
0 'Club 100 library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE
1 CLS:BEEP:'MEDLE2' <MU-38> 8/85
2 ' * STAN KENDALL * [ 70136,3066 ]
3 ' 1945 WASHINGTON AVE * WILMETTE, IL 60091
9 CLEAR:GOSUB 90
10 CALL17001:PRINT"..........SONGS SONGS SONGS.............":CALL17006
20 PRINT@50,"'LOVE-S' <MU-38>"
30 PRINT" 1-WHAT NOW MY LOVE 2-ANNIVERSERY SONG"
40 PRINT" 3-SEPTEMBER SONG 4-SECRET LOVE"
50 PRINT" 5-GLORY of LOVE 6-MY PRAYER"
55 PRINT" 7-RED SAILS/SUNSET 8-AUTUMN/NEW YORK"
60 CALL17001:PRINT" <ENTER> during song -> This Menu":CALL17006
65 PRINT@306," 9-M100 MENU";
70 G=VAL(INKEY$):IF G=0THEN 70
71 IFG=1THEN RESTORE 100:GOTO100
72 IFG=2THEN RESTORE 2000:GOTO2000
73 IFG=3THEN RESTORE 3000:GOTO3000
74 IFG=4THEN RESTORE 4000:GOTO4000
75 IFG=5THEN RESTORE 5000:GOTO5000
76 IFG=6THEN RESTORE 6000:GOTO6000
77 IFG=7THEN RESTORE 7000:GOTO7000
78 IFG=8THEN RESTORE 8000:GOTO8000
79 IFG=9THEN MENU
85 IF INKEY$=CHR$(13)THEN MENU
90 DIM Z(28)
91 FOR N=1 TO 28:READ Z(N):NEXT N
92 DATA 12538,11836,11172,10544,9952,9394,8866,8368,7900,7456,7032,6642
93 DATA 6269,5918,5586,5272,4976,4697,4433,4184,3950,3718,3516,3321,3134
94 DATA2959,2793,2636
95 RETURN
100 FORN=1TO 80:READS,L:SOUND Z(S),L
110 IF INKEY$=CHR$(13)THEN GOTO 70
120 NEXT N:GOTO70
600 DATA13,20,13,20,17,20,17,120,13,20,13,20,17,20,18,40,17,80,13,20,13,20,13,20,15,100,17,10,15,10,13,20,15,20
610 DATA17,120,13,20,13,20,17,20,17,120,13,20,13,20,17,20,18,40,17,80,13,10,13,10,15,100,17,10,15,10,13,20,15,20
620 DATA17,120,13,20,13,20,22,20,22,100,11,20,11,20,20,20
630 DATA20,40,13,20,13,20,18,20,18,60,17,10,18,10,20,60,18,20
640 DATA20,120,13,20,13,20,21,20,21,100,12,20,11,20,20,20
650 DATA20,120,13,20,13,20,18,20,18,100,16,40
660 DATA15,90,13,20,13,20,17,20,17,120
670 DATA13,20,13,20,18,40,17,80,13,20,13,20,13,20,15,120,15,40,17,120
2000 FORN=1TO 81:READS,L:SOUND Z(S),L
2010 IF INKEY$=CHR$(13)THEN GOTO 70
2020 NEXT N:GOTO70
2100 DATA8,80,12,20,13,20,15,80,12,20,8,20,17,80
2110 DATA15,20,13,20,20,80,20,20,22,80,20,20,18,20
2120 DATA20,80,18,20,17,20,15,80,17,20,15,20,13,80
2130 DATA8,20,8,80,12,20,13,20,15,80,12,20,8,20
2140 DATA17,80,15,20,13,20,20,80,20,20,22,80
2150 DATA20,20,18,20,20,80,18,20,17,20,15,80,17,20,15,20,13,60
2160 DATA25,20,25,20,25,20,25,20,25,20,25,20,25,20,25,30,24,13,25,60,21,20,22,20,22,20
2170 DATA22,20,22,20,22,20,22,20,12,20,19,10,20,40,20,20,18,20,18,20,18,20,18,20,18,20,18,20
2180 DATA18,20,17,20,17,20,13,40,25,20,22,20,18,20,15,20,17,40,15,20,13,80
3000 FORN=1TO 79:READS,L:SOUND Z(S),L
3010 IF INKEY$=CHR$(13)THEN GOTO 70
3020 NEXT N:GOTO70
3100 DATA11,20,15,20,22,20,20,20,20,20,20,60,11,20,11,10,16,10,21,20,18,40,18,60
3110 DATA15,10,15,10,18,20,23,20,25,100,13,20,13,20,11,10,13,10,15,40,15,60
3120 DATA11,10,11,10,15,20,22,20,20,40,20,60,11,10,11,10,16,20,21,20,18,100
3130 DATA15,20,18,10,18,10,23,20,25,100,13,10,15,10,17,20,17,20,15,120
3140 DATA23,20,23,20,25,20,23,10,22,10,23,100,23,20,23,20,27,30,23,10,23,100
3150 DATA23,20,25,40,23,100,23,20,27,40,23,100,11,20,16,20,22,20,20,20,20,20,20,60,11,20,16,20,21,20,18,80
3160 DATA15,20,18,20,23,20,25,60,20,20,23,40,23,40,23,100
4000 FORN=1TO 67:READS,L:SOUND Z(S),L
4010 IF INKEY$=CHR$(13)THEN GOTO 70
4020 NEXT N:GOTO70
4100 DATA18,60,17,20,15,20,11,20,13,20,15,20,6,140
4110 DATA6,20,11,60,13,20,15,20,17,20,18,20,20,20,13,160
4120 DATA17,60,15,20,13,20,10,20,11,20,13,20,6,140
4130 DATA6,20,10,60,11,20,13,20,15,20,11,20,10,20,11,160
4140 DATA23,60,22,20,20,20,16,20,18,20,20,20,22,60,18,20,13,80
4150 DATA21,60,20,20,18,20,15,20,17,20,18,20,20,60,11,30,21,60,11,20
4160 DATA18,60,17,20,15,20,11,20,13,20,15,20,6,140,8,20
4170 DATA8,20,13,10,15,10,17,20,20,20,18,20,6,20,13,20,15,20,11,140
5000 FORN=1TO 123:READS,L:SOUND Z(S),L
5010 IF INKEY$=CHR$(13)THEN GOTO 70
5020 NEXT N:GOTO70
5100 DATA8,5,10,5,8,5,17,30,13,10,10,10,8,30,18,30,15,10,11,10,8,30
5110 DATA20,5,20,30,20,5,20,20,20,20,20,30,18,10,13,10,10,30,17,30,16,5,17,30,16,5,13,20
5120 DATA15,30,14,5,15,30,14,5,11,20,13,100,8,5,10,30,8,5
5130 DATA17,30,13,10,10,10,8,30,18,30,15,10,11,10,8,30,20,5,20,30,20,5,20,20,20,20
5140 DATA20,30,18,10,13,10,10,30,17,30,16,5,17,30,16,5,13,30,15,30,14,5,15,30,14,5,11,20
5150 DATA13,140,13,20,18,30,17,10,18,30,20,10
5160 DATA22,15,20,5,18,35,13,5,18,11,22,5,20,20,20,20,22,20,19,20,20,60,13,20
5170 DATA18,30,17,10,18,30,20,10,21,15,20,5,18,60,17,5,17,10,17,5,17,20,13,20
5180 DATA15,35,8,5,10,30,8,5,17,30,13,10,10,10,8,30,18,30,15,10,11,10,8,30
5190 DATA20,5,20,30,20,5,20,20,20,20,20,30,18,10,13,10,10,30,17,15,16,5,17,15,16,5,13,20
5200 DATA15,15,14,5,15,15,14,5,11,20,13,140
6000 FORN=1TO 129:READS,L:SOUND Z(S),L
6010 IF INKEY$=CHR$(13)THEN GOTO 70
6020 NEXT N:GOTO70
6100 DATA6,20,15,100,15,20,18,20,15,20,13,20,11,30,13,10,8,90
6110 DATA11,20,13,20,15,20,13,20,11,10,9,90,11,20,13,20,15,20,13,20,11,20,6,90
7000 FORN=1TO 90:READS,L:SOUND Z(S),L
7010 IF INKEY$=CHR$(13)THEN GOTO 70
7020 NEXT N:GOTO70
7100 DATA17,20,17,20,18,20,17,20,20,20,20,60,13,20,13,20,15,20,13,20
7110 DATA17,80,8,20,8,20,10,20,8,20,15,20,15,60,15,20,15,20,13,20,11,20
7120 DATA13,80,17,20,17,20,18,20,17,20,20,20,20,60,13,20,13,20,15,20,13,20
7130 DATA17,80,8,20,8,20,10,20,8,20,15,20,15,60,15,20,15,20,13,20,11,20
7140 DATA13,80,15,40,13,20,15,20,13,20,10,20,8,60,15,20,15,20,13,20,10,20
7150 DATA13,80,15,40,13,20,15,20,13,20,10,20,8,60,17,10,17,10,17,10,17,10,15,20,13,10
7160 DATA15,80,17,20,17,20,18,20,17,20,20,20,20,60
7170 DATA13,20,13,20,15,20,13,20,17,80,8,20,8,20,10,20,8,20,15,20,15,60
7180 DATA15,20,15,20,13,20,11,20,13,40
8000 FORN=1TO 108:READS,L:SOUND Z(S),L
8010 IF INKEY$=CHR$(13)THEN GOTO 70
8020 NEXT N:GOTO70
8100 DATA17,30,15,10,13,20,10,20,8,60,10,20,13,20,18,20,22,20,22,40,20,20,22,60,17,100
8120 DATA17,30,15,10,13,20,10,20,8,60,10,20,13,20,18,20,22,20,22,40,20,20,22,60,17,100
8130 DATA20,20,20,40,17,20,15,60,13,20,16,20,17,40,13,20,12,60,9,20,12,20,7,40,8,20,11,100
8140 DATA13,40,15,10,10,20,12,10,15,80,19,40,15,80
8150 DATA17,30,16,10,14,20,10,20,8,60,10,20,13,20,18,20,22,20,22,40,20,20,22,60,17,120
8160 DATA22,30,20,10,18,20,15,20,13,60,16,20,18,20,20,20,23,20,24,20,20,20,23,160