%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                               Main Stuff                                   %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setscreen ("graphics:vga,noecho,nocursor")
intro
setscreen ("graphics:vga,noecho,nocursor")
colorback (0)
color (10)
cls
loop
    var c : string (1)
    exit when not hasch
    getch (c)
end loop
loop
    player1 (10)
    player2 (10)
    stars
    if hasch then
	controlplayer
    end if
    if p2point = 3 or p1point = 3 then
	exit
    end if
    loop
	var c : string (1)
	exit when not hasch
	getch (c)
    end loop
end loop
