CPU = 16F876
MHZ = 10
CONFIG 16254

;***********************************************
; http://www.basicmicro.com                    
; Title : repeatuntil.bas                             
; Author : Dale Kubin                          
; Date : 04/29/02                              
; Repeat..Until command. Repeat a group of 
; commands until something is true.                      
;***********************************************


Temp var byte
clear

Main
REPEAT			; repeat the following commands.
		temp = temp + 1
		Debug [Dec Temp,13]
	UNTIL temp  = 25		; repeating until temp is equal to 25
End