XL-BASIC付属サンプルと
PC-8801FA/MAのマニュアル紹介
NL-BASICにCMD PLAYを追加したXL-BASIC
に添付したRML(Rhythm macro language)の
サンプルAF/d1.bas(リズムなどは適当です)
の紹介です
行番号をの無いプログラムは
XL-BASICに読み込ませると自動で付加されます
PC-8801FA/MAの拡張命令ですが
記憶が定かでなかったのですが
マニュアルをネットで見つけたので参考にして
作りました
PC-8801 FA/MA N88 日本語 BASIC リファレンスマニュアル
勝手にリンクを貼っておきます
XL-BASIC(XLBasic/x/x1.bas同包)は
以下のリンクからダウンロードできます
Readme.txtを読んで遊んで下さい
AF/d1.bas
100 NEW CMD
110 DIM A1$(6), A2$(6), A3$(6)
120 A1$(0) = "4"
130 A1$(1) = "kc5kc5 c6kc5 c6kc5 c12"
140 A1$(2) = "c12kc11 c12kc11"
150 A1$(3) = "kc11 c12 c12 c12"
160 A1$(4) = "kc5kc5kc5kc5kc5kc5kc5kcckcc"
170 A1$(5) = ""
180 A1$(6) = ""
190 '---
200 A2$(0) = "4"
210 A2$(1) = "kc5kc5 c6kc5 c6kc5 c6kc5"
220 A2$(2) = "c12kc11 c12kc11"
230 A2$(3) = ""
240 A2$(4) = "kc5kc5kc5kc5kc5kc5kc5kc5"
250 A2$(5) = ""
260 A2$(6) = ""
270 '---
280 A3$(0) = "4"
290 A3$(1) = "kc5kc5 c6kc5 c12 c12"
300 A3$(2) = "c12 kc11 c12 kcckccc6"
310 A3$(3) = ""
320 A3$(4) = "kc5kc5kc5kc5"
330 A3$(5) = "c12 c12 c12 c6 kc5"
340 A3$(6) = "c12 c12 kc2c3kc2kc2 c12"
350 '---
360 CMD RHYTHM 1, A1$
370 CMD RHYTHM 2, A2$
380 CMD RHYTHM 3, A3$
390 CMD PLAY #5,"v8t150@4o3l1"
400 '---
410 CMD PLAY #5,"v32x1"; "c"
420 CMD PLAY #5,"v32x2"; "g"
430 CMD PLAY #5,"v32x2"; "a"
440 CMD PLAY #5,"v32x3"; "e"
450 '---
460 CMD PLAY #5,"v32x1"; "f"
470 CMD PLAY #5,"v32x2"; "c"
480 CMD PLAY #5,"v32x2"; "f"
490 CMD PLAY #5,"v32x3"; "g"