clear

:menu
	getmenu "Function","Move","Rotate","Mirror"
	on (@key+3)	goto exit,exit,menu,
	
	if (@key==1)
		goto move
	if (@key==2)
		goto rot
	if (@key==3)
		goto mirror
	
	goto menu

:move
	cdeopen "move.cde"
	move
	cdeclose "move.cde"
	goto menu
	
:rot
	cdeopen "rot.cde"
	rot
	cdeclose "rot.cde"
	goto menu
		
:mirror
	cdeopen "mirror.cde"
	mirror
	cdeclose "mirror.cde"
	goto menu

:exit

clear