home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / music.ba < prev    next >
Text File  |  2006-10-19  |  7KB  |  74 lines
  1. 0 'MUSIC.BA  1.0  LINWOOD MCDOWE           JAN-MAR1987
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 4 MOTOROFF:SOUNDOFF:CALL23161:CALL17471:CLS:SCREEN0,0:CALL17006:PRINT@135,"MUSIC  1.0":PRINT:PRINTTAB(8)"(C)1987 Linwood McDowell":FORA=0TO999:NEXT
  4. 6 MAXFILES=1:CLEAR410,MAXRAM:DEFINTA-Z:ONERRORGOTO90:FORA=1TO7:XO$=XO$+SPACE$(9)+CHR$(10)+CHR$(13):NEXT:A$="CDEFGAB":B$=CHR$(245)+STRING$(2,233)+CHR$(245)+STRING$(3,233)
  5. 8 KB$=SPACE$(9)+A$+A$+A$+A$+"C"+SPACE$(11)+B$+B$+B$+B$+CHR$(245)+CHR$(233)+SPACE$(10)+STRING$(30,245)+SPACE$(10)+CHR$(246)+STRING$(28,248)+CHR$(247)
  6. 10 C=0:NV=17006:RV=NV-5:SF=1:X=89:Y=107:SF$=" BASS ":WR$="
  7. 12 PRINT@12,SPACE$(21):CALLRV:PRINT@34,SF$:PRINT:CALLNV:PRINTKB$:PRINT:CALLRV:PRINT"play staf"TAB(30)"test quit "
  8. 14 CALLNV:PRINT@XY," "
  9. 16 XY=X:Z=X-3:IFSF=2THENZ=Z+2
  10. 18 K$=INKEY$:ONKEYGOSUB100,200,,,,,700,800:GOTO26
  11. 20 KEYON:K$=INKEY$:IFK$=""THEN20ELSEKEYOFF:K=ASC(K$):IFK<28ORK>29THEN20
  12. 22 PRINT@X," ":PRINT@X+121,CHR$(245):X=X-1:IFK=28THENX=X+2:IFX>YTHENX=XY
  13. 24 IFX<XYTHENX=Y
  14. 26 PRINT@X,CHR$(153):PRINT@X+121,CHR$(155):GOTO20
  15. 90 CLS:IFERR=7THENBEEP:CALL17006:IFFRE(0)<250THENPRINT@280,"out of memory!":MENUELSE6ELSEPRINT"ERR"ERR"IN"ERL:END
  16. 100 KEYOFF:NO=X-Z:GOSUB912
  17. 102 GOSUB904:IFK<27ORK>29THEN102ELSEPRINT@0,XO$:IFK=27THEN26ELSE22
  18. 200 KEYOFF:XY=X:IFSF=1THENSF=2:X=99:Y=117:SF$=" TREB "ELSESF=1:X=89:Y=107:SF$=" BASS "
  19. 202 CALLRV:PRINT@34,SF$:SOUND1046,1:CALLNV:IFSF=2ANDXY=99THEN16ELSEPRINT@XY+121,CHR$(245):GOTO14
  20. 600 C=0:GOSUB970:PRINT@49,SPACE$(29):PRINT@89,SPACE$(29):CALLRV:PRINT@35,"TEST":GOSUB974:PRINT@12," RIGHT: 0 "+CHR$(239)+" WRONG: 0 ":PRINT@280,TAB(25)+"bgin rset stop":CALLNV:C=1:N=0:NN=0:RT=0:WR=0:WR$=SPACE$(38)
  21. 610 K$=INKEY$:GOSUB906:GOTO610
  22. 620 KEYOFF:IFNTHENBEEP:GOTO626ELSEP$="begin?":GOSUB900:IFK=27THEN610
  23. 622 A=2:GOSUB910:A=21:XS=SF:SF=R:GOSUB910:XN=NO:NO=R:XY=86:IFSF=1ANDR<3THEN622ELSEIFSF=2THENXY=98:IFR>19THEN622
  24. 624 IFNO=XNANDSF=XSTHEN622ELSEN=N+1:GOSUB912
  25. 626 GOSUB906:GOSUB908
  26. 628 K$=INKEY$:A=A+1:IFA<260ANDK$=""THEN628ELSEK=INSTR("ABCDEFGabcdefg",K$):IFK=0THEN628
  27. 630 KEYOFF:NN=NN+1:X=NO+XY:PRINT@X,CHR$(153):PRINT@X+121,CHR$(155):CALLRV:IFINSTR(CHR$(K+57)+K$,NO$)THENRT=RT+1:PRINT@19,USING"##";RT:GOSUB974:MID$(WR$,NO+PO)=" "ELSEWR=WR+1:PRINT@30,USING"##";WR:BEEP:MID$(WR$,NO+PO)=CHR$(158)
  28. 632 CALLNV:IFN=99THENGOSUB970:PRINT@240,;:CALL17583:KEYONELSEFORA=1TO2500:NEXT:GOSUB970:GOTO622
  29. 634 GOTO634
  30. 700 KEYOFF:P$="test?":GOSUB900:IFK=27THEN26ELSE600
  31. 710 KEYOFF:CALL17594:IFNTHENGOSUB908:P$="reset?":GOSUB900ELSEBEEP:GOTO610
  32. 712 IFK=13THEN600ELSEIFNN=99THEN632ELSEGOSUB966:GOTO626
  33. 800 KEYOFF:P$="quit?":GOSUB900:IFK=13THENCALL23164,0,23366:CALL27795:CALL17472:MAXFILES=0:MENUELSE26
  34. 810 KEYOFF:CALL17594:GOSUB908:P$="stop?":GOSUB900
  35. 812 IFK=13THENPRINT@0,XO$:PRINT@49,SPACE$(29):PRINT@89,SPACE$(29):GOSUB974:XY=X:GOTO10ELSEIFNN=99THEN632ELSEIFNTHENGOSUB966:GOTO626ELSE610
  36. 900 PRINT@240,P$:FORA=1TO2:SOUND415,2:FORB=0TO9:NEXT:NEXT:P$="
  37. 902 GOSUB904:IFK=13ORK=27THENPRINT@240,SPACE$(6):RETURNELSE902
  38. 904 K$=INKEY$:IFK$=""THEN904ELSEK=ASC(K$):RETURN
  39. 906 KEYON:ONKEYGOSUB,,,,,620,710,810:RETURN
  40. 908 FORA=1TOPEEK(65450):K$=INKEY$:NEXT:A=0:RETURN
  41. 910 FORB=1TOVAL(MID$(TIME$,8)):R=INT(A*RND(1)+1):NEXT:RETURN
  42. 912 NO$=MID$(MID$(KB$,8,21),NO,1):OC=VAL(MID$("001111111222222244444",NO,1)):PO=-2:IFSF=2THENNO$=MID$(MID$(KB$,13,19),NO,1):OC=VAL(MID$("1111222222244444448",NO,1))*2:PO=19
  43. 914 FORA=17TO37STEP5:LINE(7,A)-(47,A):NEXT
  44. 916 IFSF=1THENLINE(8,21)-(9,24),1,B:LINE(7,22)-(10,23),1,B:LINE(7,21)-(10,18):LINE(11,18)-(15,18):PSET(16,19):LINE(17,20)-(17,28):LINE(16,29)-(14,31):LINE(13,31)-(8,31):LINE(19,19)-(20,20),1,B:LINE(19,24)-(20,25),1,B:GOTO922
  45. 918 LINE(9,34)-(9,30):PSET(10,29):LINE(11,28)-(15,28):PSET(16,29):LINE(17,30)-(17,34):PSET(16,35):LINE(15,36)-(9,36):PSET(8,35):LINE(7,34)-(7,29):LINE(8,28)-(16,20):LINE(16,19)-(16,14):LINE(15,13)-(14,13)
  46. 920 LINE(13,14)-(13,40):PSET(12,41):LINE(9,40)-(11,41),1,B:PSET(8,40):LINE(9,39)-(10,39)
  47. 922 IFNO=12THENLINE(41,24)-(45,25),1,B:LINE(42,23)-(44,26),1,B:LINE(41,24)-(41,41)
  48. 924 IFNO=9THENLINE(41,32)-(45,33),1,B:LINE(42,31)-(44,34),1,B:LINE(45,31)-(45,15)
  49. 926 IFNO=14THENLINE(41,19)-(45,20),1,B:LINE(42,18)-(44,21),1,B:LINE(41,21)-(41,36)
  50. 928 IFNO=7THENLINE(41,37)-(45,38),1,B:LINE(42,36)-(44,39),1,B:LINE(45,36)-(45,20)
  51. 930 IFNO=16THENLINE(41,14)-(45,15),1,B:LINE(42,13)-(44,16),1,B:LINE(41,16)-(41,31)
  52. 932 IFNO=5THENLINE(39,42)-(47,42):LINE(41,42)-(45,43),1,B:LINE(42,41)-(44,44),1,B:LINE(45,41)-(45,25)
  53. 934 IFNO=18THENLINE(39,12)-(47,12):LINE(41,9)-(45,10),1,B:LINE(42,8)-(44,11),1,B:LINE(41,11)-(41,26)
  54. 936 IFNO=3THENLINE(39,42)-(47,42):LINE(39,47)-(47,47):LINE(41,47)-(45,48),1,B:LINE(42,46)-(44,49),1,B:LINE(45,46)-(45,28)
  55. 938 IFNO=20THENLINE(39,7)-(47,7):LINE(39,12)-(47,12):LINE(41,4)-(45,5),1,B:LINE(42,3)-(44,6),1,B:LINE(41,6)-(41,26)
  56. 940 IFNO=1THENLINE(39,42)-(47,42):LINE(39,47)-(47,47):LINE(39,52)-(47,52):LINE(41,52)-(45,53),1,B:LINE(42,51)-(44,54),1,B:LINE(45,51)-(45,28)
  57. 942 IFNO=21THENLINE(39,2)-(47,2):LINE(39,7)-(47,7):LINE(39,12)-(47,12):LINE(41,1)-(45,2),1,B:LINE(42,0)-(44,3),1,B:LINE(41,3)-(41,26)
  58. 944 IFNO=2THENLINE(39,42)-(47,42):LINE(39,47)-(47,47):LINE(41,49)-(45,50),1,B:LINE(42,48)-(44,51),1,B:LINE(45,48)-(45,28)
  59. 946 IFNO=19THENLINE(39,7)-(47,7):LINE(39,12)-(47,12):LINE(41,6)-(45,7),1,B:LINE(42,5)-(44,8),1,B:LINE(41,8)-(41,26)
  60. 948 IFNO=4THENLINE(39,42)-(47,42):LINE(41,44)-(45,45),1,B:LINE(42,43)-(44,46),1,B:LINE(45,43)-(45,28)
  61. 950 IFNO=17THENLINE(39,12)-(47,12):LINE(41,11)-(45,12),1,B:LINE(42,10)-(44,13),1,B:LINE(41,13)-(41,29)
  62. 952 IFNO=6THENLINE(41,39)-(45,40),1,B:LINE(42,38)-(44,41),1,B:LINE(45,38)-(45,23)
  63. 954 IFNO=15THENLINE(41,16)-(45,17),1,B:LINE(42,15)-(44,18),1,B:LINE(41,18)-(41,34)
  64. 956 IFNO=8THENLINE(41,34)-(45,35),1,B:LINE(42,33)-(44,36),1,B:LINE(45,33)-(45,18)
  65. 958 IFNO=13THENLINE(41,21)-(45,22),1,B:LINE(42,20)-(44,23),1,B:LINE(41,23)-(41,39)
  66. 960 IFNO=10THENLINE(41,29)-(45,30),1,B:LINE(42,28)-(44,31),1,B:LINE(45,28)-(45,13)
  67. 962 IFNO=11THENLINE(41,26)-(45,27),1,B:LINE(42,25)-(44,28),1,B:LINE(41,43)-(41,26)
  68. 964 IFMID$(WR$,NO+PO,1)=CHR$(158)THENCALLRV:PRINT@0," MISS "
  69. 966 CALLNV:B=ASC(NO$):IFB=68THENSOUNDINT(8368/OC),10ELSEIFB=70THENSOUNDINT(7032/OC),10ELSEIFB=65THENSOUNDINT(5586/OC),10ELSEIFB=71THENSOUNDINT(6269/OC),10ELSEIFB=66THENSOUNDINT(4976/OC),10ELSEIFB=69THENSOUNDINT(7456/OC),10ELSESOUNDINT(9394/OC),10
  70. 968 RETURN
  71. 970 PRINT@0,XO$:IFC=0THENPRINT@X," "ELSEA=NO+PO:A$=MID$(WR$,A,1):IFSF=1THENPRINT@X,A$ELSEPRINT@X-40,A$:IFA<29THENPRINT@X,MID$(WR$,A-9,1)ELSEPRINT@X," "
  72. 972 PRINT@X+121,CHR$(245):RETURN
  73. 974 MOTORON:FORA=1TO4:NEXT:MOTOROFF:RETURN
  74.