;---------------------------------HOSSZAN-----------------------------------
ELEJE

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS

	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS
	BTFSS	PORTB,0
	GOTO 	ELEJE
	GOTO	VAR
;-------------------------------------------------------------





;---------------RÖVIDITVE-----------------------------------


ELEJE
	CLRF	SZAMLALO
	BTFSS	PORTB,0	
	GOTO 	ELEJE
	CALL	PAUSE_50MS
	GOTO	MEGY
MEGY
	BTFSS	PORTB,0	
	GOTO	ELEJE
	CALL	PAUSE_50MS
	INCF	SZAMLALO
	MOVLW	D'18'
	XORWF	SZAMLALO,W
	BTFSC	STATUS,Z
	GOTO	VAR
	GOTO 	MEGY
;-------------------------------------------------------------