Kéne látni az eredeti programot
Valami pofonegyszerû. RESTORE, DO, READ IF MISSING EXIT DO X,Y,Z, SOUND PITCH X,DURATION Z (meg ilyesmik), LOOP, DATA hangok.
Kb. így néz ki, de ha fontos, elõkereshetem.
Zzzip nélkül már 2-es tempóval is akadozik, úgy emlékszem, mert sokcsatornás, envelope is van benne, meg a hangerõt is változtatja, és basic-ben ez már akadozást okoz.
De basic programoknál is gyakran tapasztaltam ezt, amikor restore, data, stb. megoldással szólt a zene.
UI: Így néz ki a basic program eleje:
1 INPUT PROMPT "Tempo:":T
100 CLEAR SOUND
110 ENVELOPE NUMBER 1;0,63,63,1;0,-5,-10,1;0,-53,-23,3;0,10,-40,60
111 ENVELOPE NUMBER 2;0,63,63,1;0,-63,-63,5
112 ENVELOPE NUMBER 3;0,63,63,1;-10,-63,-63,10
120 RESTORE
130 DO
140 READ IF MISSING EXIT DO:G,H,J
150 LET G=G+24:LET H=H/T
160 SOUND PITCH G,DURATION H,ENVELOPE 1,SYNC 3
170 SOUND PITCH G-36,DURATION H,ENVELOPE 1,SYNC 3,SOURCE 2,STYLE 0
180 SOUND SOURCE 3,SYNC 3,ENVELOPE 2,DURATION H,LEFT J,RIGHT J
185 SOUND SOURCE 1,ENVELOPE 3,SYNC 3,PITCH 30,DURATION H,LEFT J,RIGHT J
190 LET J=0
200 LOOP
210 DATA 127,200,0
220 DATA 32,20,0,37,10,255,37,20,0,36,20,0,37,10,127,37,20,0,41,20,0,37,10,255,37,20,0,36,20,0,37,30,127