border INK_BLACK
	color INK_WHITE + PAPER_BLACK
	clrscr
	locate 4 2 print chr &h87, chr &h85, chr &h87, chr &h85, chr &h87, chr &h85, chr &h87, chr &h81
	locate 4 3 print chr &h85, chr &h85, chr &h85, chr &h85, chr &h85, chr &h85, chr &h85, chr &h84
	locate 4 4 print chr &h87, chr &h81, chr &h8D, chr &h85, chr &h85, chr &h85, chr &h8D, chr &h85
	locate 3 8 print "PRESS SPACE"
	updatescr
	x = 0
	dx = 1
	setsprite 0 &HF9 INK_RED
peiv:
	putsprite 0 x 40
	putsprite 0 x 40
	putsprite 0 x 40
	updatescr
	if anykey then goto continuar end
	goto peiv
continuar:
	clrscr
	locate 0 0 print "Ok"
	updatescr
ttt:
	goto ttt