home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 3 / FreeSoftwareCollection3pd199x-jp.img / fb386 / miki / miki.bas next >
BASIC Source File  |  1980-01-02  |  5KB  |  153 lines
  1. 1000 '□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
  2. 1010 '□                                                                □
  3. 1020 '□            　　　　  << Ｍ・Ｉ・Ｋ・Ｉ >>   　　　　　         □
  4. 1030 '□                                                                □
  5. 1040 '□               ( PONKARA Original Music No.22 )                 □
  6. 1050 '□                          '90/05/16                             □
  7. 1060 '□                                                                □
  8. 1070 '□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
  9. 1080 '
  10. 1090 TITLE$   ="Ｍ･Ｉ･Ｋ･Ｉ / PONKARA"
  11. 1100 FILENAME$="MIKI"
  12. 1110 PNUM%    =8
  13. 1120 MMLTYPE$ ="FB386"
  14. 1130 FPCM$    ="E_PIANO"
  15. 1140 MML_CNV% =0 'MMLテキスト作成時はこれを"0"以外の値にして下さい
  16. 1150 '
  17. 1160 PLAY OFF
  18. 1170 IF MML_CNV% THEN GOSUB *MML_OPEN:GOSUB *MML_PART:GOTO 1270
  19. 1180 FOR I=6 TO 13:PART I-6,I:NEXT
  20. 1190 '
  21. 1200 LINE (0,340)-(639,479),PSET,0,BF:CLS 1
  22. 1210 COLOR ,%1,%13
  23. 1220 SYMBOL (140,372),"－ Ｍ・Ｉ・Ｋ・Ｉ －",2,1,,,,15,1
  24. 1230 SYMBOL (155,404),"PONKARA Original Music No.22",1,1,,,,7,2
  25. 1240 COLOR ,%0,%13
  26. 1250 LOAD@ "E_PIANO.PMB"
  27. 1260 '
  28. 1270 DEFSTR A-Z:DEFINT I,J
  29. 1280 ON KEY(1) GOSUB *END:KEY(1) ON
  30. 1290 '-----------------
  31. 1300      *MAIN
  32. 1310 '-----------------
  33. 1320 GOSUB *MUSIC
  34. 1330 WHILE PLAY(0):WEND
  35. 1340 *END
  36. 1350 IF MML_CNV% THEN GOSUB *MML_CLOSE
  37. 1360 PLAY OFF:KEY(1) OFF:END
  38. 1370 '
  39. 1380 *PLAY
  40. 1390 IF MML_CNV%=0 THEN PLAY P1,P2,P3,P4,P5,P6,P7,P8:RETURN
  41. 1400 GOSUB *MML_SEND
  42. 1410 PRINT #1,P1:PRINT #1,P2:PRINT #1,P3:PRINT #1,P4
  43. 1420 PRINT #1,P5:PRINT #1,P6:PRINT #1,P7:PRINT #1,P8
  44. 1430 RETURN
  45. 1440 '-----------------
  46. 1450      *MUSIC
  47. 1460 '-----------------
  48. 1470 T="T128Q8L8%CU0@1O4V11R4":IF MML_CNV% THEN T=T+"R2RR12"
  49. 1480 P1=T+"]":P2=P1:P3=T:P4=T:P5=T:P6=T+"V8":P7=P6:P8=P7+"U30"
  50. 1490 GOSUB *PLAY
  51. 1500 '
  52. 1510 P1="R24E2.E4A4.A2G&G1F+4.F+4F+4A&"
  53. 1520 P2="<R24R2RB4>B&B4G4.B4.&B1R4G2G4&"
  54. 1530 P3="<[G24&]G1>D2..C&C1<B2..>C+&"
  55. 1540 P4="<R48[B48&]B1>F2..D&D1D2..E&"
  56. 1550 P5="R24R1R2..E&E1R1"
  57. 1560 P6="R24<E4F+2.A4F2&FG2.C4GF+4.<A2>G&"
  58. 1570 P7="R24R<<B4>E&E2RD4A2B&B2.E4R4D2&D"
  59. 1580 P8="R24E2&E<B>EBA4GA4B4G&G1F+4GF+4F+GA&"
  60. 1590 GOSUB *PLAY
  61. 1600 '
  62. 1610 P1="A2.B4&B2&BD+4F+&T122F+2T117F+2&T112F+2T88D+4.&D+12T128R24"
  63. 1620 P2="G2&GE4A&A2.E4G1G2..&G12R24"
  64. 1630 P3="C+2..D&D1D2C2<B2F+4.&F+12[G24&"
  65. 1640 P4="E2..F+&F+1E2D2D2<B4.&B12R48[B48&"
  66. 1650 P5="R1R1R1R1"
  67. 1660 P6="G2..A&A2.G4B1G2..&G12R24"
  68. 1670 P7="R1R2RF+4AR2A1D+4.&D+12R24"
  69. 1680 P8="A2&AEBA2.D+EF+G2F+2G2D+4.&D+12R24"
  70. 1690 GOSUB *PLAY
  71. 1700 '
  72. 1710 P1="E2.E4A4.A2>]]]R64E16..&E1[[<A2.F+B&"
  73. 1720 P2="<R2RB4>B&B4G4.B4.&B1R4.]G2R"
  74. 1730 P3="]G1>D2..>]D&D1[<D2..E&"
  75. 1740 P4="]B1>F+2.&F+16..>]C+64&C+&C+1[<E2..F+&"
  76. 1750 P5="R1R2.R16..A64&A&A1F+32&]F+16.&F+2.G+&"
  77. 1760 P6="E4F+2.A4F+2&F+>E&E1<F+2.D+G+&"
  78. 1770 P7="R<B4>E&E2RD4A2B&B1R4.E2R"
  79. 1780 P8="E2&E<B>EBA4GA4B4>R64E16..&E1<A4.G4.F+B&"
  80. 1790 GOSUB *PLAY
  81. 1800 '
  82. 1810 P1="B2..B&B1[E4.D+2D2C+2B&"
  83. 1820 P2="R2R>D+4.&D+1[R<G+2G+2G+2G+4R"
  84. 1830 P3="E2&EA4E&E1R4]B2B2B2B[C&"
  85. 1840 P4="F+2..F+&F+1R1R2.RE&"
  86. 1850 P5="G+2&G+G+4G+&G+1R1R2.RG&"
  87. 1860 P6="G+2&G+F+4G+&G+1G+4.G2F+2F2E&"
  88. 1870 P7="R2RA4.&A1R1R1"
  89. 1880 P8="B2&B>D+4<B&B1[[[EG+BD+4G+BD4G+BC+4G+B]]]B&"
  90. 1890 GOSUB *PLAY
  91. 1900 '
  92. 1910 P1="B2B4RA&A1A2A4.A>C4.RR2"
  93. 1920 P2="R2R>CR4R1R2RD4&D16<B16B4.]B&B2"
  94. 1930 P3="C2..C2.C4.<B1>E4.E&E2"
  95. 1940 P4="E2..D+&D+2.D+4D1F+4.F+&F+2"
  96. 1950 P5="G2..F+1F+F+1A4.G+&G+2"
  97. 1960 P6="EE2.C4D4F+&F+2<A4>F+2.B4.B&B2"
  98. 1970 P7="C4G2&GRF+4A2.RD4A&A2A4.G+&G+2"
  99. 1980 P8="B2B>C4<A2.[[[CD+F+]]]A2A>D4<A16B16>C4.<B&B2"
  100. 1990 GOSUB *PLAY
  101. 2000 '
  102. 2010 P1="<B2.G2.&T120GT116A4.T100B2&T78B2]]]U-12B1"
  103. 2020 P2="R4.[A&A2F+2F+1.R1"
  104. 2030 P3="C1<B2&B2>E1]]]E1"
  105. 2040 P4="E1D2&D2F+2&F+]F+4.F+1"
  106. 2050 P5="G1F+2&F+2A1]G+1"
  107. 2060 P6="E1F+2&F+2F+1]]]E1"
  108. 2070 P7="A1A2&A2A1]]]]<B1"
  109. 2080 P8="B4.A4.G4F+2F+A4.B2&BF+4.]]]B1"
  110. 2090 GOSUB *PLAY
  111. 2100 '
  112. 2110 IF MML_CNV%=0 THEN 2140
  113. 2120 P1="R2":P2=P1:P3=P1:P4=P1:P5=P1:P6=P1:P7=P1:P8=P1
  114. 2130 GOSUB *PLAY
  115. 2140 RETURN
  116. 2150 '
  117. 2160 ' MML テキスト作成用サブルーチン
  118. 2170 '
  119. 2180 *MML_OPEN
  120. 2190 ON ERROR GOTO *MML_ERROR
  121. 2200 OPEN "O",#1,FILENAME$+".MML"
  122. 2210 ON ERROR GOTO 0
  123. 2220 B_COUNT%=1
  124. 2230 PRINT #1, "/ filename "; FILENAME$+".MML"
  125. 2240 PRINT #1, ".title "    ; TITLE$
  126. 2250 PRINT #1, ".mmltype "  ; MMLTYPE$
  127. 2260 PRINT #1, ".pcm "      ; FPCM$
  128. 2270 PRINT #1, ".partmax "  ; STR$(PNUM%)
  129. 2280 PRINT #1, "/"
  130. 2290 RETURN
  131. 2300 '
  132. 2310 *MML_ERROR
  133. 2320 IF ERR=64 THEN KILL FILENAME$+".MML" : RESUME
  134. 2330 ERROR ERR
  135. 2340 '
  136. 2350 *MML_CLOSE
  137. 2360 PRINT #1,".end"
  138. 2370 PRINT "  ***** MMLテキストファイル作成終了 ****  "
  139. 2380 RETURN
  140. 2390 '
  141. 2400 *MML_SEND
  142. 2410 PRINT #1, USING "/ ----- BLOCK ### -----";B_COUNT%
  143. 2420 PRINT     USING "/ ----- BLOCK ### -----";B_COUNT%;:PRINT CHR$(&H0D);
  144. 2430 B_COUNT% = B_COUNT% + 1
  145. 2440 RETURN
  146. 2450 '
  147. 2460 *MML_PART
  148. 2470 PRINT #1, ".part  0  6" : PRINT #1, ".part  1  7"
  149. 2480 PRINT #1, ".part  2  8" : PRINT #1, ".part  3  9"
  150. 2490 PRINT #1, ".part  4 10" : PRINT #1, ".part  5 11"
  151. 2500 PRINT #1, ".part  6 12" : PRINT #1, ".part  7 13"
  152. 2510 RETURN
  153.