F 0
frame = 0 0 2
X 450

LOOP 20
        SHOW
ENDLOOP

PROCESS pattini2

LOOP 23
        DEC X 30
        INC frame 1
        F frame
        SHOW
ENDLOOP

ENDSCRIPT