00000000: 76 61 72 20 74 3A 69 6E 74 65 67 65 72 3B 0D 62 |var t:integer;.b|
00000010: 65 67 69 6E 0D 65 6E 76 65 6C 28 31 2C 30 2C 30 |egin.envel(1,0,0|
00000020: 2C 31 33 2C 31 35 29 3B 0D 66 6F 72 20 74 3A 3D |,13,15);.for t:=|
00000030: 20 31 35 20 64 6F 77 6E 74 6F 20 30 20 64 6F 0D | 15 downto 0 do.|
00000040: 62 65 67 69 6E 0D 76 6F 69 63 65 28 31 2C 28 31 |begin.voice(1,(1|
00000050: 30 30 30 2A 74 29 2C 31 2C 37 30 30 30 29 3B 0D |000*t),1,7000);.|
00000060: 76 6F 69 63 65 28 31 2C 28 31 30 30 30 2A 74 29 |voice(1,(1000*t)|
00000070: 2C 30 2C 37 30 30 30 29 3B 0D 76 6F 6C 75 6D 65 |,0,7000);.volume|
00000080: 28 74 29 3B 0D 65 6E 64 3B 0D 65 6E 64 2E 0D AA |(t);.end;.end...|
00000090: AA |. |
VAR T:INTEGER;.BEGIN.ENVEL(1,0,0,13,15);
.FOR T:= 15 DOWNTO 0 DO.BEGIN.VOICE(1,(1
000*T),1,7000);.VOICE(1,(1000*T),0,7000)
;.VOLUME(T);.END;.END....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL