home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / taropyon / he / makemml.bas < prev    next >
BASIC Source File  |  1980-01-02  |  2KB  |  50 lines
  1. 1 TITLE$    = "SAMPLE MUSIC" '32文字以内
  2. 2 FILENAME$ = "SAMPLE"       'ファイル名（拡張子は必要ない）
  3. 3 PNUM%     = 10             'MML パート数
  4. 4 MMLTYPE$  = "FB386"        'MML タイプ
  5. 6 FFM$      = "MT32FM"       'ＦＭ音色ファイル
  6. 7 FPCM$     = "DRUMS"        'PCM 音色ファイル
  7. 8 MML_CNV%  = 1              '0 にするとMML テキストを作らない
  8. 30000 '
  9. 30010 ' MML テキスト作成用サブルーチン
  10. 30020 '    save "MAKEMML.BAS",A
  11. 30030 '
  12. 30040 *MML_OPEN : 'in FILENAME$, FFM$, FPCM$, PNUM%, TITLE$, MMLTYPE$
  13. 30050 ON ERROR GOTO *MML_ERROR
  14. 30060 OPEN "O",#1,FILENAME$+".MML"
  15. 30070 ON ERROR GOTO 0
  16. 30080 B_COUNT%=1
  17. 30090 PRINT #1, "/ filename "; FILENAME$+".MML"
  18. 30100 PRINT #1, ".title "    ; TITLE$
  19. 30110 PRINT #1, ".mmltype "  ; MMLTYPE$
  20. 30120 PRINT #1, ".fm  "      ; FFM$
  21. 30130 PRINT #1, ".pcm "      ; FPCM$
  22. 30140 PRINT #1, ".partmax "  ; STR$(PNUM%)
  23. 30150 PRINT #1, "/"
  24. 30160 RETURN
  25. 30170 '
  26. 30180 *MML_ERROR
  27. 30190 IF ERR=64 THEN KILL FILENAME+".MML" : RESUME
  28. 30200 ERROR ERR
  29. 30210 '
  30. 30220 *MML_CLOSE
  31. 30230 PRINT #1,".end"
  32. 30240 PRINT "  ***** MMLテキストファイル作成終了 ****  "
  33. 30250 RETURN
  34. 30260 '
  35. 30270 *MML_SEND
  36. 30280 PRINT #1, USING "/ ----- BLOCK ### -----";B_COUNT%
  37. 30290 PRINT     USING "/ ----- BLOCK ### -----";B_COUNT%;:PRINT CHR$(&H0D);
  38. 30300 B_COUNT% = B_COUNT% + 1
  39. 30310 RETURN
  40. 30320 '
  41. 30330 *MML_PART '必要に応じて変更すること。
  42. 30340 PRINT #1, ".part  0  0" : PRINT #1, ".part  1  1"
  43. 30350 PRINT #1, ".part  2  2" : PRINT #1, ".part  3  3"
  44. 30360 PRINT #1, ".part  4  4" : PRINT #1, ".part  5  5"
  45. 30370 PRINT #1, ".part  6  6" : PRINT #1, ".part  7  7"
  46. 30380 PRINT #1, ".part  8  8" : PRINT #1, ".part  9  9"
  47. 30390 PRINT #1, ".part 10 10" : PRINT #1, ".part 11 11"
  48. 30400 PRINT #1, ".part 12 12" : PRINT #1, ".part 13 13"
  49. 30410 RETURN
  50.