process setup_level();
private
    dx=0;
    dy=0;
    n=0;
    begin
        for(dx=0;dx<3999;dx++);
            for(dy=0;dy<799;dy++);
                map_put_pixel(0,mymap,dx,dy,0);
                frame(0);
            end
        end
        //currentimage(currentgraph,300,170);
        //mycursor(0,0);
        for(n=0;n<maxsprites;n++);
            if (mysprite[n].group==1)
                  map_put(0,mymap,mysprite[n].mypic,mysprite[n].xpos,mysprite[n].ypos);
                   frame(0);
           end
          end
        refresh_scroll(0);
          frame;
    end