Unnamed

unit Unit1;

interface
        uses msum, applications;

implementation
        var Bild1:Bildschirm;
        Maus1:Maus;
        Stift1:Stift;

begin
        Bild1:=Bildschirm.Create;
        Maus1:=Maus.Create;
        Stift1:=Stift.Create;
        Bild1.init;
        Maus1.init;
        Stift1.init;

        repeat
                if Maus1.istGedrueckt then
                        Stift1.runter
                else
                        Stift1.hoch;
                Stift1.bewegeBis(Maus1.hPosition,Maus1.vPosition);
        until Maus1.doppelklick
        application.Terminate;

end.