;Dust animation.
;0-12 frames to be played in one cycle.
        
        texture spotfx2
        shape 10000

        vertex 01,-50,-100,000
        vertex 02,+50,-100,000
        vertex 03,+50,0000,000
        vertex 04,-50,0000,000
        
        vertex 11,000,-100,-50
        vertex 12,000,-100,+50
        vertex 13,000,0000,+50
        vertex 14,000,0000,-50
               
        ifsem 8 goto frames9_12
        ifsem 4 goto frames5_8
        ifsem 2 goto frame3or4
        ifsem 1 goto frame_2

        txtrmap (00,80),(39,80),(39,119),(00,119)             ;frame 1 (tarmac)
        gosub texture_dRAW
        txtrmap (39,80),(00,80),(00,119),(39,119)             ;frame 1 (tarmac)
        goto  texture_dRAW2
frame_2:
        txtrmap (40,80),(79,80),(79,119),(40,119)             ;frame 2 (tarmac)
        gosub texture_dRAW
        txtrmap (79,80),(40,80),(40,119),(79,119)             ;frame 2 (tarmac)
        goto texture_dRAW2
frame3or4:
        ifsem 1 goto frame_4
        txtrmap (80,80),(119,80),(119,119),(080,119)        ;frame 3 (tarmac)     
        gosub texture_dRAW
        txtrmap (119,80),(80,80),(080,119),(119,119)        ;frame 3 (tarmac)     
        goto texture_dRAW2
frame_4:
        txtrmap (120,80),(159,80),(159,119),(120,119)       ;frame 4 (tarmac)     
        gosub texture_dRAW
        txtrmap (159,80),(120,80),(120,119),(159,119)       ;frame 4 (tarmac)     
        goto texture_dRAW2
frames5_8:       
        ifsem 2 goto frames7or8
        ifsem 1 goto frame_6
        txtrmap (160,80),(199,80),(199,119),(160,119)       ;frame 5 (tarmac)     
        gosub texture_dRAW
        txtrmap (199,80),(160,80),(160,119),(199,119)       ;frame 5 (tarmac)     
        goto texture_dRAW2
frame_6:       
        txtrmap (200,80),(239,80),(239,119),(200,119)        ;frame 6 (tarmac)     
        gosub texture_dRAW
        txtrmap (239,80),(200,80),(200,119),(239,119)        ;frame 6 (tarmac)     
        goto texture_dRAW2
frames7or8:       
        ifsem 1 goto frame_8
        txtrmap (000,120),(039,120),(039,159),(000,159)     ;frame 7 (tarmac)
        gosub texture_dRAW
        txtrmap (039,120),(000,120),(000,159),(039,159)     ;frame 7 (tarmac)
        goto texture_dRAW2
frame_8:
        txtrmap (040,120),(079,120),(079,159),(040,159)     ;frame 8 (tarmac)
        gosub texture_dRAW
        txtrmap (079,120),(040,120),(040,159),(079,159)     ;frame 8 (tarmac)
        goto texture_dRAW2
frames9_12:       
        ifsem 2 goto frames11or12
        ifsem 1 goto frame_10
        txtrmap (080,120),(119,120),(119,159),(080,159)     ;frame 9 (tarmac)
        gosub texture_dRAW
        txtrmap (119,120),(080,120),(080,159),(119,159)     ;frame 9 (tarmac)
        goto texture_dRAW2
frame_10:       
        txtrmap (120,120),(159,120),(159,159),(120,159)     ;frame 10(tarmac)
        gosub texture_dRAW
        txtrmap (159,120),(120,120),(120,159),(159,159)     ;frame 10(tarmac)
        goto texture_dRAW2
frames11or12:
        ifsem 1 goto frame_12
        txtrmap (160,120),(199,120),(199,159),(160,159)     ;frame 11(tarmac)
        gosub texture_dRAW
        txtrmap (199,120),(160,120),(160,159),(199,159)     ;frame 11(tarmac)
        goto texture_dRAW2
frame_12:             
        txtrmap (200,120),(239,120),(239,159),(200,159)     ;frame 12(tarmac)
        gosub texture_dRAW
        txtrmap (239,120),(200,120),(200,159),(239,159)     ;frame 12(tarmac)
        goto texture_dRAW2

texture_dRAW2:      
        drwtxtr 02,01,04,03
        drwtxtr 12,11,14,13
        return
texture_dRAW:       
        drwtxtr 01,02,03,04
        drwtxtr 11,12,13,14
        return
        end