home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b012 / 4.ddi / HBZY.ARH / HY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  8.5 KB  |  239 lines
  1. 100  KEY OFF :MMM=235:MMMM=55:MM=13
  2. 150  CLS
  3. 200  SCREEN 1
  4. 300  N=453
  5. 400  DIM A1(N),A2(N),M(88),O(70)
  6. 450  OPEN "hy.txt" FOR INPUT AS #1
  7. 500  FOR I=1 TO N
  8. 550  INPUT #1, A1(I),A2(I):NEXT I
  9. 600  CLOSE #1
  10. 610  GOSUB 1700
  11. 620  DD=1
  12. 630  COLOR DD+16,2
  13. 650  X1=A1(1)*MM-MMMM:Y1=MMM-MM*A2(1)
  14. 700  I=2
  15. 750  IF A1(I)<0.01 THEN 1100
  16. 800  X2   =A1(I)*MM-MMMM:Y2   =A2(I)*MM
  17. 900  Y2=MMM-Y2
  18. 950  LINE (X1,Y1)-(X2,Y2),3
  19. 1000  X1=X2:Y1=Y2:I=I+1
  20. 1050  GOTO 1150
  21. 1100  I=I+2:X1=A1(I-1)*MM-MMMM:Y1=MMM-MM*A2(I-1):
  22. 1150  IF I<N THEN 750
  23. 1200  DATA 10.84,15.84,13.81,16.33,18.08,16.91,18.46,14.09,20.44,16.25,8.05,11.91,8.58,10.97,8.28,10.21,8.53,9.7,8.73,9.06,12.77,9.72,14.45,11.98,14.47,9.7,17.88,10.16,19.71,10.87,19.58,10.38,23.64,12.14,23.8,10.08,23.21,9.42
  24. 1250  FOR I=1 TO 19
  25. 1300  READ G1,G2
  26. 1350  G1=G1*MM-MMMM:G2=MMM-MM*G2
  27. 1400  PAINT (G1,G2),2,3
  28. 1450  FOR J=1 TO 200 :NEXT J
  29. 1500  NEXT I
  30. 1550  LOCATE 9 ,3:PRINT "  OPEN<UNK! {FEB1}>WHILESTRING$USRSPC(MERGEFNERRORERLOPENOPTIONMERGELOCATE\SPC(MERGEERLOPENCOLORINSTRSTRING$PSETBSAVECSRLINFNUSRSAVECOLORLOCATESPC(  "
  31. 1600  LOCATE 2,1
  32. 1650  GOTO 2040
  33. 1700  LINE (0,0)-(319,0):LINE (0,1)-(319,1)
  34. 1750  LINE (319,0)-(319,199):LINE (318,0)-(318,199)
  35. 1800  LINE (319,198)-(0,198):LINE (319,199)-(0,199)
  36. 1850  LINE (0,199)-(0,0):LINE (1,199)-(1,0)
  37. 1900  RETURN
  38. 2040  GOTO 2500
  39. 2500  RESTORE
  40. 2505  FOR LL=1 TO 8
  41. 2510  SCREEN 1
  42. 2520  FOR J=1 TO 2
  43. 2600  FOR KK=1 TO 13
  44. 2620  COLOR KK+16,2
  45. 2640  FOR I=1 TO 310   : C$=INKEY$
  46. 2645  IF C$="y" OR C$="Y" THEN LOAD "XNTZK",R
  47. 2650  NEXT I
  48. 2660  NEXT KK
  49. 2670  RESTORE
  50. 2700  FOR I=1 TO 19
  51. 2720  READ G1,G2
  52. 2740  G1=G1*MM-MMMM:G2=MMM-MM*G2
  53. 2760  PAINT (G1,G2),J ,3
  54. 2780  FOR K=1 TO 50  :NEXT K
  55. 2840  NEXT I
  56. 2860  NEXT J
  57. 2861  FOR JK=1 TO 2
  58. 2862  IF LL=1 THEN CMD$="a"
  59. 2864  IF LL=2 THEN CMD$="b"
  60. 2866  IF LL=3 THEN CMD$="c"
  61. 2868  IF LL=4 THEN CMD$="d"
  62. 2870  IF LL=5 THEN CMD$="e"
  63. 2872  IF LL=6 THEN CMD$="f"
  64. 2874  IF LL=7 THEN CMD$="g"
  65. 2876  IF LL=8 THEN CMD$="h"
  66. 2877  IF LL=9 THEN CMD$="i"
  67. 2880  GOSUB 4000
  68. 2885  NEXT JK
  69. 2890  NEXT LL
  70. 2900  GOTO 2500
  71. 4000  REM The IBM Personal Computer Music
  72. 4010  REM Version 1.10 (C)Copyright IBM Corp 1981, 1982
  73. 4020  REM Licensed Material - Program Property of IBM
  74. 4030  DEF SEG: POKE 106,0
  75. 4040  SAMPLES$ = "NO"
  76. 4050  GOTO 4080
  77. 4060  SAMPLES$ = "YES"
  78. 4080  IF CMD$ = CHR$(27) THEN GOTO 4620
  79. 4090  ON ERROR GOTO 4120
  80. 4100  PLAY "mf"
  81. 4110  GOTO 4130
  82. 4120  RESUME 4130
  83. 4130  ON ERROR GOTO 0
  84. 4160  FOR I=7 TO 88:M(I) =  36.8*(2^(1/12))^(I-6):NEXT
  85. 4170  FOR I=0 TO 6:M(I) = 32767:NEXT
  86. 4180  O(0) = 0
  87. 4190  O(39)=5:O(40)=7:O(41)=8:O(42)=9
  88. 4200  O(43)=10:O(44)=11:O(45)=13:O(46)=14
  89. 4210  O(47)=15:O(48)=16:O(49)=17:O(50)=18
  90. 4220  O(51)=19:O(52)=21:O(53)=22:O(54)=23
  91. 4230  O(55)=24:O(56)=25:O(57)=27:O(58)=28
  92. 4240  O(59)=29:O(60)=30:O(61)=31:O(62)=32
  93. 4250  O(63)=33:O(64)=35:O(65)=36:O(66)=37
  94. 4260  O(67)=38:O(68)=39:O(69)=40:O(70)=42
  95. 4270  GOTO 4400
  96. 4280  READ J,K
  97. 4290  CMD$=INDEY$:IF CMD$="" THEN 4330
  98. 4300  IF CMD$=CHR$(27) THEN RETURN
  99. 4310  POKE 106,0
  100. 4320  REM
  101. 4330  IF J = -1  THEN RETURN
  102. 4340  Q = O(J)
  103. 4350  IF J>64 OR J<39 THEN 4360
  104. 4360  SOUND M(J),K:IF J=0 AND K=1 THEN 4380:'SKIP NEXT FOR STACCATTO
  105. 4370  SOUND 32767,1
  106. 4380  IF J>64 OR J<39 THEN 4280
  107. 4390  GOTO 4280
  108. 4400  IF INKEY$ <> "" THEN 4400
  109. 4410  REM CMD$=INKEY$ IF CMD$="" THEN 4410
  110. 4420  IF CMD$=CHR$(27)  THEN 4620
  111. 4430  IF CMD$="A" OR CMD$="a" THEN S$= "MARCH ":RESTORE 5290:GOTO 4550
  112. 4440  IF CMD$="B" OR CMD$="b" THEN S$= "STARS ":RESTORE 5380:GOTO 4550
  113. 4450  IF CMD$="C" OR CMD$="c" THEN S$= "FORTY ":RESTORE 5070:GOTO 4550
  114. 4460  IF CMD$="D" OR CMD$="d" THEN S$= "HAT   ":RESTORE 5490:GOTO 4550
  115. 4470  IF CMD$="E" OR CMD$="e" THEN S$= "HUMOR ":RESTORE 4910:GOTO 4550
  116. 4480  IF CMD$="F" OR CMD$="f" THEN S$= "BUG   ":RESTORE 4660:GOTO 4550
  117. 4490  IF CMD$="G" OR CMD$="g" THEN S$= "POP   ":RESTORE 4990:GOTO 4550
  118. 4500  IF CMD$="H" OR CMD$="h" THEN S$= "DANDY ":RESTORE 5190:GOTO 4550
  119. 4510  IF CMD$="I" OR CMD$="i" THEN S$= "SAKURA":RESTORE 5650:GOTO 4550
  120. 4520  IF CMD$="J" OR CMD$="j" THEN S$= "BLUE  ":RESTORE 4740:GOTO 4550
  121. 4530  IF CMD$="K" OR CMD$="k" THEN S$= "SCALES":RESTORE 5570:GOTO 4550
  122. 4540  GOTO 1640
  123. 4550  GGG=1
  124. 4560  READ D
  125. 4570  READ S$
  126. 4580  GOSUB 4280
  127. 4590  S$=STRING$(39," ")
  128. 4600  RETURN
  129. 4610  END
  130. 4620  IF SAMPLES$="YES" THEN CHAIN "SAMPLES",1000
  131. 4630  REM The IBM Personal Computer Music Scroll
  132. 4640  REM Version 1.00 (C)Copyright IBM Corp 1981
  133. 4650  REM Licensed Material - Program Property of IBM
  134. 4660  DATA -2,"La Cucaracha - Mexican Folk Song"
  135. 4670  DATA 42,1,0,1,42,1,0,1,42,1,0,1,47,1,0,5,51,1,0,3,42,1,0,1,42,1,0,1
  136. 4680  DATA 42,1,0,1,47,1,0,5,51,1,0,5,30,1,0,1,30,1,0,1,35,1,0,3,47,1,0,1
  137. 4690  DATA 47,1,0,1,46,1,0,1,46,1,0,1,44,1,0,1,44,1,0,1,42,8,0,2,42,1,0,1
  138. 4700  DATA 42,1,0,1,42,1,0,1,46,1,0,5,49,1,0,3,42,1,0,1,42,1,0,1,42,1,0,1
  139. 4710  DATA 46,1,0,5,49,1,0,5,37,1,0,1,37,1,0,1,30,1,0,3,54,2,56,2,54,2,52,2
  140. 4720  DATA 51,2,49,2,47,8
  141. 4730  DATA -1,-1
  142. 4740  DATA -2,"Blue Danube Waltz by J.S.Strauss"
  143. 4750  DATA 42,4,46,4,49,4,49,4,0,4,61,2,0,2,61,2,0,6,58,2,0,2,58,2,0,6,42,4,42,4
  144. 4760  DATA 46,4,49,4
  145. 4770  DATA 49,4,0,4,61,2,0,2,61,2,0,6,59,2,0,2,59,2,0,6,41,4,41,4,44,4,51,4,51,4
  146. 4780  DATA 0,4,63,2,0,2,63,2,0,6,59,2,0,2
  147. 4790  DATA 59,2,0,6,41,4,41,4,44,4,51,4,51,4,0,4,63,2,0,2,63,2,0,6,58,2,0,2,58,2
  148. 4800  DATA 0,6,42,4
  149. 4810  DATA 42,4,46,4,49,4,54,4,0,4,66,2,0,2,66,2,0,6,61,2,0,2,61,2,0,6,42,4
  150. 4820  DATA 42,4,46,4,49,4,54,4,0,4,66,2,0,2
  151. 4830  DATA 66,2,0,6,63,2,0,2,63,2,0,6,44,4,44,4,47,4,51,2,0,2,51,14,0,2,48,4
  152. 4840  DATA 49,4,58,16
  153. 4850  DATA 54,4,46,4,46,8,44,4,51,8,49,4,42,4,0,2,42,2,42,4,0,8,49,2,0,2,47,2
  154. 4860  DATA 0,6,49,2,0,2
  155. 4870  DATA 47,2,0,6,49,4,58,16,56,4,49,2,0,2,46,2,0,6,49,2,0,2,46,2,0,6,49,4
  156. 4880  DATA 56,16,54,4,49,2,0,2,47,2,0,6,49,2,0,2,47,2,0,6,49,4,58,16
  157. 4890  DATA 56,4,49,4,54,4,56,4,58,4,61,8,59,4,58,2,58,2,58,4,56,2,0,2,54,4,0,8
  158. 4900  DATA -1,-1
  159. 4910  DATA -2,"Humoresque by Dvorak"
  160. 4920  DATA 47,3,0,2,49,1,47,3,0,2,49,1,51,3,0,2,54,1,56,3,0,2,54,1
  161. 4930  DATA 59,3,0,2,58,1,61,3,0,2,59,1,58,3,0,2,61,1,59,3,0,2,56,1
  162. 4940  DATA 54,3,0,2,54,1,56,3,0,2,54,1,59,3,0,2,56,1,54,3,0,2,51,1
  163. 4950  DATA 49,24,47,3,0,2,49,1,47,3,0,2,49,1,51,3,0,2,54,1,56,3,0,2,54,1
  164. 4960  DATA 56,3,0,2,58,1,61,3,0,2,59,1,58,3,0,2,61,1,59,3,0,2,56,1
  165. 4970  DATA 54,3,0,2,54,1,59,3,0,2,47,1,49,6,54,6,47,18
  166. 4980  DATA -1,-1
  167. 4990  DATA -2,"Pop! Goes the Weasle - Anonymous"
  168. 5000  DATA 47,2,0,2,47,2,49,2,0,2,49,2,51,2,54,2,51,2,47,2,0,2,42,2
  169. 5010  DATA 47,2,0,2,47,2,49,2,0,2,49,2,51,6,47,2,0,2,42,2,47,2,0,2,47,2,49,2
  170. 5020  DATA 0,2,49,2,51,2,54,2,51,2,47,2,0,4,56,2,0,4,49,2,0,2,52,2,51,6,47,2
  171. 5030  DATA 0,4,59,2,0,2,59,2,56,2,0,2,59,2,58,2,61,2,58,2,54,2,0,4,59,2,0,2
  172. 5040  DATA 59,2,56,2,0,2,59,2,58,6,54,2,0,2,51,2,52,2,0,2,51,2,52,2,0,2,54,2
  173. 5050  DATA 56,2,0,2,58,2,59,2,0,4,56,2,0,4,49,2,0,2,52,2,51,6,47,2
  174. 5060  DATA -1,-1
  175. 5070     DATA -2,"Symphony #40 by Mozart"
  176. 5080  DATA 55,2,54,2,54,4,55,2,54,2,54,4,55,2,54,2,54,4,62,4,0,4
  177. 5090  DATA 62,2,61,2,59,4,59,2,57,2,55,4,55,2,54,2
  178. 5100  DATA 52,4,52,4,0,4,54,2,52,2,52,4,54,2,52,2,52,4,54,2,52,2
  179. 5110  DATA 52,4,61,4,0,4,61,2,59,2,58,4,58,2,55,2,54,4,54,2,52,2
  180. 5120  DATA 50,4,50,4,0,4,62,2,61,2,61,4,64,4,58,4,61,4
  181. 5130  DATA 59,4,54,4,0,4,62,2,61,2,61,4,64,4,58,4,61,4
  182. 5140  DATA 59,4,62,4,61,2,59,2,57,2,55,2,54,4,46,4,47,4,49,4
  183. 5150  DATA 50,4,52,2,50,2,49,4,47,4,54,4,0,4,64,8
  184. 5160  DATA 65,2,0,6,64,8,65,2,0,6,64,8
  185. 5170  DATA 65,4,64,4,65,4,64,4,65,4
  186. 5180  DATA -1,-1
  187. 5190  DATA -2,"Yankee Doodle - Anonymous "
  188. 5200  DATA 50,3,50,3,52,3,54,3,50,3,54,3,52,3,45,3,50,3,50,3,52,3,54,3,50,6
  189. 5210  DATA 49,3,0,3
  190. 5220  DATA 50,3,50,3,52,3,54,3,55,3,54,3,52,3,50,3,49,3,45,3,47,3,49,3,50,6
  191. 5230  DATA 50,3,0,3
  192. 5240  DATA 47,5,49,1,47,3,45,3,47,3,49,3,50,3,0,3,45,5,47,1,45,3,43,3,42,6
  193. 5250  DATA 45,3,0,3
  194. 5260  DATA 47,5,49,1,47,3,45,3,47,3,49,3,50,3,47,3,45,3,50,3,49,3,52,3,50,6
  195. 5270  DATA 50,6
  196. 5280  DATA -1,-1
  197. 5290  DATA -2,"FUNERAL MARCH OF A MARIONETTE - GOUNOD"
  198. 5300  DATA 37,1,0,2,30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3,0,3,37,1,0,2
  199. 5310  DATA 30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3,0,3,37,3,42,3,0,3,45,3
  200. 5320  DATA 49,6,47,3,45,3,0,3,49,3,52,6,50,3,49,3,0,3,53,3,56,6,54,3,53,3,50,3
  201. 5330  DATA 49,3,47,3,45,3,44,3,30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3
  202. 5340  DATA 0,3,37,1,0,2,30,1,0,5,42,3,42,3,41,3,39,3,41,3,0,3,42,3,44,3,0,3
  203. 5350  DATA 37,3,45,3,0,3,49,3,52,6,50,3,49,3,47,3,45,3,43,3,47,3,50,3,42,3
  204. 5360  DATA 41,3,42,3,44,3,0,3,45,1,0,2,44,9,42,1
  205. 5370  DATA -1,-1
  206. 5380  DATA -2,"STARS AND STRIPES FOREVER - SOUSA "
  207. 5390  DATA 54,6,54,6,52,3,51,3,51,6,50,3,51,3,51,16,0,2,50,3
  208. 5400  DATA 51,3,51,6,50,3,51,3
  209. 5410  DATA 54,6,51,3,54,3,52,12,49,6,0,3,49,3,49,6,48,3,49,3
  210. 5420  DATA 49,6,48,3,49,3
  211. 5430  DATA 52,16,0,2,51,3,49,3,51,3,54,9,56,9,56,3,49,16,0,2,54,6
  212. 5440  DATA 54,6,52,3,51,3,51,6,50,3,51,3,51,16,0,2,50,3,51,3,51,6,50,3 ,51,3
  213. 5450  DATA 52,3,51,3,49,5,46,1,49,12,47,6,0,3,47,3,47,6,46,3,47,3,50,6,49,3,47,3
  214. 5460  DATA 59,15,0,3,47,3,49,3,51,3,54,1,0,2,47,3,49,3,51,3,54,1,0,2,42,3,44,5
  215. 5470  DATA 51,1,49,12,47,1
  216. 5480  DATA -1,-1
  217. 5490  DATA -2,"Mexican Hat Dance - Traditional "
  218. 5500  DATA 52,2,57,2,0,2,52,2,57,2,0,2,52,2,57,6,0,4,52,2,57,2,59,2,57,2,56,4
  219. 5510  DATA 57,2,59,2,0,8,52,2,56,2,0,2,52,2,56,2,0,2,52,2,56,6,0,4,52,2
  220. 5520  DATA 56,2,57,2,56,2,54,4,56,2,57,2,0,6,64,2,63,2,64,2,61,2,60,2,61,2
  221. 5530  DATA 57,2,56,2,57,2,52,2,0,4,49,2,50,2,52,2,54,2,56,2,57,2,59,2,61,2
  222. 5540  DATA 62,2,59,2,0,4,62,2,61,2,62,2,59,2,58,2,59,2,56,2,55,2,56,2,52,2
  223. 5550  DATA 0,4,64,2,63,2,64,2,66,2,64,2,62,2,61,2,59,2,57,2
  224. 5560  DATA -1,-1
  225. 5570  DATA -2,"SCALES                          "
  226. 5580  DATA 38,1,39,1,40,1,41,1,42,1,43,1,44,1,45,1,46,1,47,1
  227. 5590  DATA 48,1,49,1,50,1,51,1,52,1,53,1,54,1,55,1,56,1
  228. 5600  DATA 57,1,58,1,59,1,60,1,61,1,62,1,63,1,64,1,65,8,0,4
  229. 5610  DATA 65,8,64,1,63,1,62,1,61,1,60,1,59,1,58,1,57,1
  230. 5620  DATA 56,1,55,1,54,1,53,1,52,1,51,1,50,1,49,1,48,1
  231. 5630  DATA 47,1,46,1,45,1,44,1,43,1,42,1,41,1,40,1,39,1,38,8
  232. 5640  DATA -1,-1
  233. 5650  DATA -2,"Sakura - Japanese Folk Melody "
  234. 5660  DATA 49,8,49,8,51,12,0,4,49,8,49,8,51,12,0,4,49,8,51,8,52,8,51,8
  235. 5670  DATA 49,8,51,4,49,4,45,16,44,8,40,8,44,8,45,8
  236. 5680  DATA 44,8,44,4,40,4,39,16,49,8,49,8,51,12,0,4,49,8,49,8,51,12,0,4
  237. 5690  DATA 40,8,44,8,45,8,49,8,51,4,49,4,45,8,44,16
  238. 5700  DATA -1,-1
  239.