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