home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
cabare.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
36 lines
0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE
1 CLS:BEEP:DEFINTA-Z'CABARE' MU-27 1/23/85
2 'by S.KENDALL * 1945 WASHINGTON AVE * WILMETTE, IL 60091
9 LINE(9,20)-(19,40),1,B:LINE(221,20)-(231,40),1,B
10 A=50:B=30:C=190:D=30:M=0
12 FORZ1=1TO30:LINE(A,B)-(C,D),1,B
14 A=A-1:B=B-1:C=C+1:D=D+1:NEXT
16 LINE(A+2,B+2)-(C-2,D-2),M,B
20 FOR A=20TO50STEP10:LINE(40,A)-(200,A),M:NEXT
22 B=60:FORA=20TO50STEP10:LINE(B,A-2)-(B+4,A+2),M,BF:B=B+30
23 IF A=50THEN26
24 LINE(B-26,A-1)-(B-26,A+16),M:NEXTA
26 LINE(180,40)-(180,24),M:LINE(180,38)-(184,42),M,BF
28 FORV=1TO10:READW,X:SOUNDW,X:NEXTV
30 PRINT@45,"CABARET":PRINT@54,"<MU-27>":PRINT@62,"(Q)uit (P)lay"
35 DATA12538,20,11172,40,9394,20,7456,20,6269,40,5918,20,5586,20,6269,20,7456,20,6269,100
40 Y$=INKEY$:IFY$=""THEN40
50 IFY$="P"ORY$="p"THEN100
60 IFY$="Q"ORY$="q"THENMENU
100 N=70:DIMN$(N),L(N),FR(13)
210 DATAG,20,A,40,C,20,E,20,H,40,J,20,K,20,H,20,E,20,H,100,K,20,H,40,E,20,H,40,K,40,E,100
220 DATAK,20,P,40,K,20,P,40,K,40,R,20,H,40,E,100,E,20,H,40,E,20,H,40,A,40,E,100
230 DATAR,20,P,20,Q,20,P,20,R,20,H,20,F,20,D,20,G,20,A,40,C,20
240 DATAE,20,H,40,J,20,K,20,H,20,E,20,H,80,J,20
250 DATAK,20,H,40,E,20,H,40,K,40,M,40,R,80
260 DATAK,20,P,40,K,20,P,40,K,40,R,20,Q,40,H,100
270 DATAK,20,P,40,K,20,P,40,P,40,P,60
400 DATA"GACDEFHJKMRPQ"
410 DATA12538,11172,9394,8368,7456,7032,6269,5918,5586,5272,4976,4697,4184
420 FORI=1TON:READN$(I),L(I):NEXTI
440 READTN$:FORI=1TOLEN(TN$):READFR(I):NEXTI
510 FORI=1TON:SOUNDFR(INSTR(TN$,N$(I))),L(I)
530 NEXTI:FORA1=1TO999:NEXT
540 MENU
2000 FORI=1TO43:LPRINTN$(I)" ";L(I)" ";:NEXT