プチコンmkII

  1. ’┌──────────────────┐
  2. ’│SAMPLE11          │
  3. ’│  サウント゛サイセイ       │
  4. ’└──────────────────┘
  5. CLEAR
  6. ’--- オンショクテ゛ータ ヨミコミ
  7. GMAX=13
  8. DIM GNUM(GMAX)
  9. DIM GNAME$(GMAX)
  10. RESTORE @GAKKI
  11. FOR I=0 TO GMAX-1
  12.  READ GNUM(I)
  13.  READ GNAME$(I)
  14. NEXT
  15. NUM=128 ’キョクハ゛ンコ゛ウ(128-255)
  16. TRK=0   ’トラック(0-7)
  17. TMP=150 ’テンホ゜
  18. OCT=4   ’オクターフ゛
  19. ’--- キ-リヒ゜-トシ゛カン
  20. FOR I=0 TO 10
  21.  BREPEAT I,30,8
  22. NEXT
  23. ’---
  24. @MAIN
  25. ACLS
  26. COLOR 0
  27. PRINT ”┌────────────────────┐”
  28. PRINT ”│SAMPLE11            │”
  29. PRINT ”│  MML サウント゛ サイセイ    │”
  30. PRINT ”└────────────────────┘”
  31. PRINT
  32. PRINT ” ↑↓:オンショク ヘンコウ”
  33. PRINT ” ←→:テンホ゜ ヘンコウ”
  34. PRINT ”[A]:サイセイ”
  35. PRINT ”[B]:フ゜ロク゛ラムシュウリョウ”
  36. PRINT 
  37. COLOR 4
  38. PRINT ” キョクNO.:”;NUM
  39. PRINT ”トラックNO.:”;TRK
  40. PRINT ”  オンショク:”;GNAME$(IDX);
  41. PRINT ”(”;GNUM(IDX);”)”
  42. PRINT ”   テンホ゜:”;TMP
  43. PRINT ” オクターフ゛:”;OCT
  44. PRINT
  45. COLOR 0
  46. @SWOFF
  47. IF BUTTON(1) THEN @SWOFF
  48. @HITANY
  49. BT=BUTTON(1)
  50. IF BT==0 THEN @HITANY
  51. IF BT AND 1 THEN IDX=IDX+1
  52. IF BT AND 2 THEN IDX=IDX-1
  53. IF BT AND 4 THEN TMP=TMP-5
  54. IF BT AND 8 THEN TMP=TMP+5
  55. IF IDX<0     THEN IDX=GMAX-1
  56. IF IDX>=GMAX THEN IDX=0
  57. IF TMP<1   THEN TMP=1
  58. IF TMP>240 THEN TMP=240
  59. IF BT AND 32 THEN END
  60. IF (BT AND 16)==0 THEN @MAIN
  61. C$=”:”+STR$(TRK)
  62. C$=C$+”@”+STR$(GNUM(IDX))
  63. C$=C$+”T”+STR$(TMP)
  64. C$=C$+”O”+STR$(OCT)
  65. M$=”G4A4B1A4G4R1G8A8B8A8G8A2”
  66. BGMCLEAR NUM
  67. BGMSET NUM,C$,M$
  68. COLOR 3
  69. PRINT ”MMLショシキ”
  70. COLOR 0
  71. PRINT C$
  72. PRINT M$
  73. PRINT 
  74. BGMPLAY NUM
  75. COLOR 12
  76. PRINT ”BGMサイセイチュウ...”
  77. @BUSYCHK
  78. BUSY=BGMCHK(TRK)
  79. IF BUSY THEN @BUSYCHK
  80. COLOR 0
  81. PRINT ”...サイセイシュウリョウ”
  82. WAIT 120
  83. GOTO @MAIN
  84. @GAKKI
  85. DATA   0,”ACOUSTIC PIANO”
  86. DATA   4,”ELECTRIC PIANO”
  87. DATA  24,”GUITER”
  88. DATA  32,”BASS”
  89. DATA  40,”VIOLIN”
  90. DATA  44,”TREMOLO STRINGS”
  91. DATA  47,”TIMPANI”
  92. DATA  72,”PICCOLO”
  93. DATA  80,”LEAD 1(SQUARE)”
  94. DATA  88,”PAD 1(NEW AGE)”
  95. DATA  96,”FX 1(RAIN)”
  96. DATA 116,”TAIKO DRUMS”
  97. DATA 127,”GUNSHOT”
  98. ’┌─────────────────────────┐
  99. ’│ オワリ                     │
  100. ’└─────────────────────────┘