home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / fb386 / rate / rate.bas next >
BASIC Source File  |  1980-01-02  |  9KB  |  195 lines
  1. 1000 '□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
  2. 1010 '□                                                                □
  3. 1020 '□                    <<  ＲＡＴＥ  ＤＯＧ  >>                    □
  4. 1030 '□                ( PONKARA Original Music No.05 )                □
  5. 1040 '□                          by PONKARA                            □
  6. 1050 '□                                                                □
  7. 1060 '□                    Original Ver.'88/05/24                      □
  8. 1070 '□                       TOWNS Ver.'90/10/21                      □
  9. 1080 '□                                                                □
  10. 1090 '□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
  11. 1100 '
  12. 1110 PLAY OFF
  13. 1120 LOAD@ "RYM_ALL3.PMB"
  14. 1130 LOAD@ "HGFMDATA.FMB"
  15. 1140 LINE (0,340)-(639,479),PSET,0,BF:CLS 1
  16. 1150 COLOR ,%1,%13
  17. 1160 SYMBOL (130,372),"－ ＲＡＴＥ ＤＯＧ －",2,1,,,,15,1
  18. 1170 SYMBOL (155,404),"PONKARA Original Music No.05",1,1,,,,7,2
  19. 1180 COLOR ,%0,%13
  20. 1190 '
  21. 1200 FOR I= 0 TO  4:PART I,I+6:NEXT:'06,07,08,09,10
  22. 1210 FOR I= 5 TO  7:PART I,I-5:NEXT:'00,01,02
  23. 1220 FOR I= 8 TO 10:PART I,I+3:NEXT:'11,12,13
  24. 1230 FOR I=11 TO 13:PART I,I-8:NEXT:'03,04,05
  25. 1240 '
  26. 1250 ON KEY(1) GOSUB *END:KEY(1) ON
  27. 1260 DEFSTR A-Z:DEFINT I,J
  28. 1270 DIM M1(15),M2(15),B1(50),B2(50)
  29. 1280 GOSUB *MML_SET:J=0
  30. 1290 T="T128Q8L16O3%C":PLAY T,T,T,T,T,T,T,T,T,T,T,T,T,T
  31. 1300 '
  32. 1310 PLAY ,,,"@9V14U40O1","@9V14U-50O1","@26V6O2",,,"@6V2O6","@6V2O6","@1V11O6L24","@30","@30"
  33. 1320 '---------------
  34. 1330      *INTRO
  35. 1340 '---------------
  36. 1350 PLAY DA1,,,B1(0),B2(0),B1(0),"@70O5V3E1","@70O5V2C1","E1","C1",,PF
  37. 1360 PLAY DA1,,,B1(1),B2(1),B1(1),"D1","<B1","D1","<B1",,PF
  38. 1370 PLAY DA1,,,B1(2),B2(2),B1(2),"E1",">C1","E1",">C1",,PF,,"@70O4V1A1"
  39. 1380 PLAY DA1,,,B1(3),B2(3),B1(3),"G1","E1","G1","E1",,PF,,"B1"
  40. 1390 '
  41. 1400 PLAY DA1,,,B1(4),B2(4),B1(4),"E1","C1","V6E1","V6C1",,PF,PF1
  42. 1410 PLAY DA1,,,B1(5),B2(5),B1(5),"D1","<B1","D1","<B1",,PF,PF2
  43. 1420 PLAY DA1,,,B1(6),B2(6),B1(6),"E1",">C1","E1",">C1",,PF,PF3,"A1"
  44. 1430 PLAY DA2,DB1,,B1(7),B2(7),B1(7),"G2G+2","E2E2","G2G+2","<B2B2","R2.V12E[[E[E[E[E48V13G[[G48&",PF,PF4,"B2B2"
  45. 1440 '---------------
  46. 1450      *PART_A
  47. 1460 '---------------
  48. 1470 IF J=0 THEN D="G48([G[G[G[G)[G[G[G&G4" ELSE D="V13G[([G[G[G[G)3&G4"
  49. 1480 PLAY DA3,DB2,DC1,B1(8),B2(8),B1(8),M1(0),M2(0),"O4V7A1","O5V7A1",D,"@30"+PF,"R4@71V8O5E2.","R4@71V2O5A2."
  50. 1490 PLAY DA3,DB2,DC1,B1(9),B2(9),B1(9),M1(1),M2(1),"B1","G1",,PF,"R4E2.","R4A2."
  51. 1500 PLAY DA3,DB2,DC1,B1(10),B2(10),B1(10),M1(2),M2(2),">C1","F1",,PF,"R4E2.","R4A2."
  52. 1510 PLAY DA3,DB2,DC1,B1(11),B2(11),B1(11),M1(3),M2(3),"D1","E1",,PF,"R4E2.","R4A2."
  53. 1520 PLAY DA3,DB2,DC1,B1(12),B2(12),B1(12),M1(4),M2(4),"F1","D1",,PF,"R4C2.","R4F2."
  54. 1530 PLAY DA3,DB2,DC1,B1(13),B2(13),B1(13),M1(5),M2(5),"G1","E1",,PF,"R4D2.","R4G2."
  55. 1540 PLAY DA3,DB2,DC1,B1(14),B2(14),B1(14),M1(6),M2(6),"E1&","C1&",,PF,"R4E2.&","R4A2.&"
  56. 1550 PLAY DA3,DB2,DC1,B1(15),B2(15),B1(15),M1(7),M2(7),"F2G4G+4","C2D4D+4",,PF,"E1","A1"
  57. 1560 '
  58. 1570 PLAY DA3,DB2,DC1,B1(16),B2(16),B1(16),M1(8),M2(8),"<A1","A1","V12L24E[([E[E[E)3[E[E&E4",PF,"R4E2.","R4A2."
  59. 1580 PLAY DA3,DB2,DC1,B1(17),B2(17),B1(17),M1(9),M2(9),"B1","G1",,PF,"R4E2.","R4A2."
  60. 1590 PLAY DA3,DB2,DC1,B1(18),B2(18),B1(18),M1(10),M2(10),">C1","E1",,PF,"R4E2.","R4A2."
  61. 1600 PLAY DA3,DB2,DC1,B1(19),B2(19),B1(19),M1(11),M2(11),"D1","E1",,PF,"R4E2.","R4A2."
  62. 1610 PLAY DA3,DB2,DC1,B1(20),B2(20),B1(20),M1(12),M2(12),"F1","C1",,PF,"R4C2.","R4F2."
  63. 1620 PLAY DA3,DB2,DC1,B1(21),B2(21),B1(21),M1(13),M2(13),"G1","D1",,PF,"R4D2.","R4G2."
  64. 1630 PLAY DA3,DB2,DC1,B1(22),B2(22),B1(22),M1(14),M2(14),"A1&","E1&",,PF,"R4E2.&","R4A2.&"
  65. 1640 PLAY DA3,DB2,DC1,B1(23),B2(23),B1(23),M1(15),M2(15),"A1","E1",,PF,"E1","A1"
  66. 1650 '---------------
  67. 1660      *PART_B
  68. 1670 '---------------
  69. 1680 FOR I=1 TO 2
  70. 1690 PLAY DA3,DB2,DC2,B1(24),B2(24),B1(24),"@16V5O3Q7FA(>]C[<FA)4>]CC[","R8@16V6O4Q7"+KK1,"O4V9F4.>C2A8","R8.O4V9A8.&A4>G4.","V13G[([G[G[G[G)3&G4","O4@71V8G64&G+64&A.&A8&A2A4","O4@71V8A+64&B64&>C.&C8&C2C4","O4@71V7D+64&E64&F.&F8&F2F4"
  71. 1700 PLAY DA3,DB2,DC2,B1(25),B2(25),B1(25),"<EG(]B[EG)4]BB[",K2,"R8.E8.&E8<G2","G4.<B8&B2",,"G+64&A32.&G8G&G2.","<B64&>C32.&<B8B&B2.","E64&F32.&E8E&E2."
  72. 1710 IF I=2 THEN 1740
  73. 1720 PLAY DA3,DB2,DC2,B1(26),B2(26),B1(26),"DA(>]C[<DA)4>]CC[",K1,"F4.>C2F8","R8.A8.&A4>D4.",,"F2&F8D8E8F8","A2&A8F8G8A8","D2&D8<B8>C8D8"
  74. 1730 PLAY DA3,DB2,DC2,B1(27),B2(27),B1(27),"<EG(>]C[<EG)4>]CC[",K2,"R8.E8.&E8<G2","G4.<B8&B2",,"G1","B1","E1"
  75. 1740 NEXT
  76. 1750 PLAY DA3,DB2,DC2,B1(28),B2(28),B1(28),"DA(>]D[<DA)4>]DD[",K1,"F4.>D2A8&","R8.A8.&A4>F4.",,"F2&F8D8E8F8","A2&A8F8G8A8","D2&D8<B8>C8D8"
  77. 1760 IF J=2 THEN 1800
  78. 1770 PLAY DA3,DB2,DC2,B1(29),B2(29),B1(29),"<EG(]B[EG)(]B[EG+)]BB[",K2,"A2>D2","B1",,"G2G+2","B2B2","E2E2"
  79. 1780 J=2:GOTO *PART_A
  80. 1790 '
  81. 1800 'PLAY "B2>D2"
  82. 1810 PLAY DA3,DB2,DC2,B1(29),B2(29),B1(29),"<EG(]B[EG)(]B[EG+)]BB[",K2,"A2>D2","B1",,"G2G+2","B2B2","E2E2"
  83. 1820 '---------------
  84. 1830      *PART_C
  85. 1840 '---------------
  86. 1850 PLAY DA4,DB3,,"A8R","R32A8R","@13O2V7E1","@30Q8"+PF,"@13O2Q8V7C1",,,"V13E[([E[E[E[E)3&E4","A4R2.",">C4R2.","E4R2."
  87. 1860 PLAY DA4,DB3,,"R2R>F+&G4.","R2R.>F+&G4&G.&","R2R@26V6O3F+&G4.",PF,,,,"R2.R8.V13G[[G48&","@13O2V7D1","@13O1V7B1"
  88. 1870 PLAY DA4,DB3,,"F8R","G32F8R","F8R",PF,,,,"G48([G[G[G[G)[G[G[G&G4","C1","A1"
  89. 1880 PLAY DA4,DB3,,"<E2G2","R32<E2G4.&G.&","<E2G2",PF,,,,"R2.V11E[[E[E[E[E48V13G[[G48&","<B2>E2","G1"
  90. 1890 '
  91. 1900 PLAY DA4,DB3,,"A8R","G32A8R","A8R",PF,"@30"+PF1,"V7O6E1","V7O6C1","G48([G[G[G[G)[G[G[G&G4","O2E1","O2C1"
  92. 1910 PLAY DA4,DB3,,"R2R>F+&G4.","R2R.>F+&G4&G.&","R2R>F+&G4.",PF,PF2,"D1","<B1","R2.R8.V12E[[E48&","D1","<B1"
  93. 1920 PLAY DA4,DB3,,"F8R","G32F8R","F8R",PF,PF3,"E1",">C1","E48([E[E[E[E)[E[E&E4","C1","A1"
  94. 1930 PLAY DA4,DB3,,"RE<E8E8E>E<G>G<G8G+>G+<G+>G+<","R.E<E8E8E>E<G>G<G8G+>G+<G+>G+32<","RE<E8E8E>E<G>G<G8G+>G+<G+>G+<",PF,PF4,"G2G+2","<B2B2","R2.V12E[[E[E[E[E[E","<B2>E2","G2G+2"
  95. 1940 J=1:GOTO *PART_A
  96. 1950 '---------------
  97. 1960      *END
  98. 1970 '---------------
  99. 1980 PLAY OFF:KEY(1) OFF:END
  100. 1990 '---------------
  101. 2000      *MML_SET
  102. 2010 '---------------
  103. 2020 DA1="@1O1V14E8R8E8R8E8R8E8R8"
  104. 2030 DA2="@1O1V14E8R8E8R>>G<<E>>BGE<E8.<E"
  105. 2040 DA3="@1O1V14E8R8>E4<EE8E>E8.<E"
  106. 2050 DA4="@1O1V14E>>V11B8V14<<E>>V12G8V14<<E>>V12EV14<<EE>>V12G8V14<<E>>V11B8]E"
  107. 2060 DB1="R2@1O2V13F[[[[[FFF]]]]]F4"
  108. 2070 DB2="R4@1O3V12G4R4G4"
  109. 2080 DB3="@1O2(V12F[[[[[EE)4]]]]]F[[[[[E]]]]]F[[[[[E"
  110. 2090 DC1="@1O5V15F[[[FFF]]]F[[[FF]]]F[[[FF]]]F[[[F]]]F[[[F]]]FF"
  111. 2100 DC2="@1O5(V13FF>V8E8<)4"
  112. 2110 PF="V4O5A8B8G8DE8G8A8BG8"
  113. 2120 PF1="V4O3A8>E8C8D<A8A8>E8CD8"
  114. 2130 PF2="<G8>E8<B8>D<G8G8>E8<B>D8"
  115. 2140 PF3="<F8>E8C8D<F8F8>E8CD8"
  116. 2150 PF4="<G8>E8<B8>D<G+8G+8>E8<B>D8"
  117. 2160 K1="R8FR8FR8FR8FR8FF":K2="R8ER8ER8ER8ER8EE"
  118. 2170 KK1="FR8FR8FR8FR8FF"
  119. 2180 '
  120. 2190 RESTORE *GUIT1:READ A:II=0:I= 0:GOSUB *SET
  121. 2200 M1(0)="V6U20Q8"+M1(0):M2(0)="RV4U-40Q8"+M2(0)
  122. 2210 RESTORE *BASS1:READ A:II=1:I= 0:GOSUB *SET
  123. 2220 RESTORE *BASS2:READ A:II=1:I= 8:GOSUB *SET
  124. 2230 RESTORE *BASS3:READ A:II=1:I=24:GOSUB *SET
  125. 2240 RESTORE *BASS4:READ A:II=1:I=28:GOSUB *SET
  126. 2250 RETURN
  127. 2260 '
  128. 2270 *SET
  129. 2280 READ B,C:IF B="@" THEN RETURN
  130. 2290 IF II=0 THEN M1(I)=B+C:M2(I)=A+B
  131. 2300 IF II=1 THEN B1(I)=B+C:B2(I)=A+B
  132. 2310 A=C:I=I+1:GOTO *SET
  133. 2320 '
  134. 2330 *GUIT1
  135. 2340 DATA "","@69O3G64&G+64&A.&A8&A2>C8<A",">D64&D+64&E32&"
  136. 2350 DATA "E2.D8.&","D"
  137. 2360 DATA "C2&C8<B8>C8D","<G64&G+64&A32&"
  138. 2370 DATA "A8G2.&G&","G"
  139. 2380 DATA "F4R8ARBR>CRD&ER<","B&"
  140. 2390 DATA "B2&B8A4G&","G"
  141. 2400 DATA "G4.G64&G+64&A32&A2&","A&"
  142. 2410 DATA "A2.&A8.&","A"
  143. 2420 DATA "G64&G+64&A.&A8&A2>C8<A",">D64&D+64&E32&"
  144. 2430 DATA "E2.D8.&","D"
  145. 2440 DATA "<B64&>C64&C.&C8&C2E8C","F64&F+64&G32&"
  146. 2450 DATA "G2.&G8.&","G"
  147. 2460 DATA "A2R8B4>C&","C"
  148. 2470 DATA "<B4.<B8>E8G8B8>C&","C"
  149. 2480 DATA "<A2.&A8.&","A&"
  150. 2490 DATA "A2.&A8.","R"
  151. 2500 DATA "@","@"
  152. 2510 '
  153. 2520 *BASS1
  154. 2530 DATA "R32","A32&A8.&A2.&","A32"
  155. 2540 DATA "G32&G8.&G2.&","G32"
  156. 2550 DATA "G32F8.&F2.&","F32"
  157. 2560 DATA "F32G8.&G2.&","G32"
  158. 2570 DATA "G32A8.&A2.&","A32"
  159. 2580 DATA "A32G8.&G2.&","G32"
  160. 2590 DATA "G32F8.&F2.&","F32"
  161. 2600 DATA "F32G2G+4.&G+","R32"
  162. 2610 DATA "@","@"
  163. 2620 '
  164. 2630 *BASS2
  165. 2640 DATA "R32","AR8.A8.>A<A>G&A<AA>A8<A32&","A32"
  166. 2650 DATA "G>G<G8>C&DF&G<G>G8<G>FG<G.&","G32"
  167. 2660 DATA "FF>F8<FF>F<FB&>C<FFF>F8<F32&","F32"
  168. 2670 DATA "E8>E8<E>E8<EE>E<E8E8E>E32&","E32"
  169. 2680 DATA "<F8.>F<F8>F8<FF>F<FF8F>F32&","F32"
  170. 2690 DATA "<G>G<G8G8G>G<B>BC>C<D>D<<B>B32&","B32"
  171. 2700 DATA "<A>A<A8A8A>A<A>A8<AA>A<A.&","A32"
  172. 2710 DATA "F8F8F>F8F<G>G<G>G<G+>G+<G+>G+32&","G+32"
  173. 2720 '
  174. 2730 DATA "<AR8.A8.>A<A>G&A<A&G>G<F>F32&","F32"
  175. 2740 DATA "<EE>E8<E>D&E<EE>E8E<E>ED+D32&","D32"
  176. 2750 DATA "C8>C8<CCG8C>C8<C8C>C<C32&","C32"
  177. 2760 DATA "<G>G<G8G8G>G<G>GR<G>FGDE32&","E32"
  178. 2770 DATA "F<F>F8<F>F8<FEFA>CEF<GF32&","F32"
  179. 2780 DATA "E8>E8<E>D&E<EE>E<E8>D&E<BG32&","G32"
  180. 2790 DATA "A>A<A8A>A8<AA>G&A<A>D&EG&A32&","A32"
  181. 2800 DATA "<A8>A8<A>A<A8A>A8A<A>A<A.","R32"
  182. 2810 DATA "@","@"
  183. 2820 '
  184. 2830 *BASS3
  185. 2840 DATA "R32","F8>F8<FF>F8<B&>C<AFF>E&F<F32&","F32"
  186. 2850 DATA "E>D&E<EE>E8<EE8>E<EE>FED+32&","D+32"
  187. 2860 DATA "DD>D<DD>D8<DG&A>C&D<D>D<DD-32&","D-32"
  188. 2870 DATA "CB&>C<CC>C<C8CC>C<CB&>C<C.<","R32"
  189. 2880 DATA "@","@"
  190. 2890 '
  191. 2900 *BASS4
  192. 2910 DATA "D+32","DD>D<DD>D8<D<G&A>C&DD>D<<AA-32&","A-32"
  193. 2920 DATA "G8>G8<G>G8<GG+>G+<G+8G+>G+8<G+32","R32"
  194. 2930 DATA "@","@"
  195.