小程序
对于music & video maker generation 6 deLuxe中的copper和sliver的analog synth，编辑patten不好用，我就想写个程序提高一下，我是程序盲，就学过qbasic。我写了一个小程序。不好使，你看看就算了吧。使用的是qbasic1.1，超级老版本。
按它的提示做完后就能得到out.pat。就是你编辑的patten了
REM The note input is like this:C1 is "C-1" C#2 is "C#2" mute note is "---"
CLS
OPEN "xyz.txt" FOR OUTPUT AS #1
KILL "out.pat"
REM-------------------------------------------------------
INPUT "the synth you want to use;1=silver;2=copper"; t
IF t = 1 THEN t$ = "SilverSynth"
IF t = 2 THEN t$ = "CopperSynth"
OPTION BASE 1
DIM a$(16): DIM b$(16): DIM c$(16)
FOR z = 1 TO 16
INPUT "input as:note(ex:C#1),slide(0or1),accent(0or1).one step at a time"; a$(z), b$(z), c$(z)
NEXT z
REM-------------------------------------------------------
PRINT #1, "[Pattern]"
REM---------------
PRINT #1, "Generator="; t$; " 1.0"
REM---------------
PRINT #1, "Sequence=";
FOR z = 1 TO 16
PRINT #1, a$(z);
NEXT z
PRINT #1,
REM---------------
PRINT #1, "Slide=";
FOR z = 1 TO 16
PRINT #1, b$(z);
NEXT z
PRINT #1,
REM---------------
PRINT #1, "Accent=";
FOR z = 1 TO 16
PRINT #1, c$(z);
NEXT z
REM---------------
CLOSE #1
NAME "xyz.txt" AS "out.pat"
PRINT "press any key to exit,your patten had been made"
END