test song

sid.4th

@@ -111,24 +111,23 @@ VARIABLE SID:V3:CTL
 : SID:V3:NOTE:ON SID14/15:FREQ! SID:V3:CTL @ SID:CTL:GATE OR SID18! ;
 : SID:V3:NOTE:OFF SID:V3:CTL @ SID:CTL:GATE INVERT AND SID18! ;
 
-: STEP 100 0 DO LOOP ;
 : DELAY 10000 0 DO LOOP ;
 
 : SID:V1:TEST:NOTE
    SID:CTL:TRI SID:V1:CTL!
    SID:NOTE:C4 SID:V1:NOTE:ON
    DELAY DELAY
-   SID:V1:NOTE:OFF
+   SID:V1:NOTE:OFF ;
 : SID:V2:TEST:NOTE
    SID:CTL:SAW SID:V2:CTL!
-   SID:NOTE:D4 SID:V2:NOTE:ON
+   SID:NOTE:D4 SID:OCT:UP SID:V2:NOTE:ON
    DELAY DELAY
-   SID:V2:NOTE:OFF
+   SID:V2:NOTE:OFF ;
 : SID:V3:TEST:NOTE
    SID:CTL:PWM SID:V3:CTL!
    SID:NOTE:E4 SID:V3:NOTE:ON
    DELAY DELAY
-   SID:V3:NOTE:OFF
+   SID:V3:NOTE:OFF ;
 
 : SID:TEST:MELODY
    SID:V1:TEST:NOTE
@@ -137,17 +136,46 @@ VARIABLE SID:V3:CTL
 
 : SID:TEST:FILTER
    10 SID23:RES SID23:V1 SID23:V2 SID23:V3 SID23:EXT SID23!
+   15 SID24:VOL SID24:LOWPASS SID24!
+   SID:CTL:PWM SID:V1:CTL! SID:NOTE:D4 SID:V1:NOTE:ON
+   2047 0 DO I SID21/22:CUT! 1 +LOOP
+   SID:V1:NOTE:OFF
+   15 SID24:VOL SID24:BANDPASS SID24!
+   SID:CTL:PWM SID:V2:CTL! SID:NOTE:D4 SID:V2:NOTE:ON
+   2047 0 DO I SID21/22:CUT! 1 +LOOP
+   SID:V2:NOTE:OFF
+   15 SID24:VOL SID24:HIGHPASS SID24!
    SID:CTL:PWM SID:V3:CTL! SID:NOTE:D4 SID:V3:NOTE:ON
    2047 0 DO I SID21/22:CUT! 1 +LOOP
-   SID:V3:NOTE:OFF ;
+   SID:V3:NOTE:OFF
+   0 SID23! ;
+
+: SID:PLAY SID:V1:NOTE:ON DELAY SID:V1:NOTE:OFF ;
+: SID:TEST:SONG
+   SID:CTL:TRI SID:V1:CTL!
+   SID:NOTE:G4 SID:PLAY
+   SID:NOTE:E4 SID:PLAY
+   SID:NOTE:E4 SID:PLAY
+   SID:NOTE:F4 SID:PLAY
+   SID:NOTE:D4 SID:PLAY
+   SID:NOTE:D4 SID:PLAY
+   SID:NOTE:C4 SID:PLAY
+   SID:NOTE:E4 SID:PLAY
+   SID:NOTE:G4 SID:PLAY
+   DELAY DELAY
+   SID:NOTE:G4 SID:PLAY
+   SID:NOTE:E4 SID:PLAY
+   SID:NOTE:E4 SID:PLAY
+   SID:NOTE:F4 SID:PLAY
+   SID:NOTE:D4 SID:PLAY
+   SID:NOTE:D4 SID:PLAY
+   SID:NOTE:C4 SID:PLAY
+   SID:NOTE:E4 SID:PLAY
+   SID:NOTE:C4 SID:PLAY ;
 
 SID:RST
 
 SID:TEST:MELODY
+SID:TEST:FILTER
+SID:TEST:SONG
 
-15 SID24:VOL SID24:LOWPASS SID24!
-SID:TEST:FILTER
-15 SID24:VOL SID24:BANDPASS SID24!
-SID:TEST:FILTER
-15 SID24:VOL SID24:HIGHPASS SID24!
-SID:TEST:FILTER