When the VALID comes back .F. in this button:

			@ 7,2 GET cmd_Next_Open ;
				FUNCTION '*NH Add Appointment;Next Open;Cancel' ;
				SIZE but_height, 8 ;
				VALID v_cmd_Next_Open( cmd_Next_Open )

I want to get out of all the FOR loops. Thanks!

FOR yy = 1 TO max_room
	FOR xx = 1 TO n_lines

		IF xx + show_from - 1 <= max_slots
			slot_val = VAL(slot_per_room( xx + show_from - 1, yy ))
		ELSE
			slot_val = 0
		ENDIF


* JJ - TESTING ONLY
* disp_date = {^2007/07/27}
m.TestTime = SUBSTR(TTOC(CTOT(TIME()) - 36000),12,8)


		IF slot_val = 1 AND disp_date >= DATE() AND RIGHT( "0" + ALLTRIM( slot_time( xx + show_from + 1 ) ), 5 ) > LEFT( m.TestTime, 5 )

			WAIT WINDOW "Next slot: " + 'Room ' + ALLTRIM(STR(yy)) + ' - ' + 'Line ' + ALLTRIM(STR(xx)) + ' : ' + ALLTRIM(STR(x_room( xx, yy ))) + ' / ' + ALLTRIM(STR(slot_val))

			DEFINE WINDOW sch_Next_Open ;
				FROM 0,0 TO 20,60 ;
				&win_style ;
				FLOAT ;
				TITLE " Next Open Appointment " ;
				FONT fonname, fonsize
			MOVE WINDOW sch_Next_Open CENTER

			ACTIVATE WINDOW sch_Next_Open

			IF !EMPTY( m_disp_date )
				STORE m_disp_date TO disp_date
			ELSE
				STORE DATE() TO disp_date
			ENDIF

			old_date = disp_date
			m.NewDateValue = old_date

			@ 3,2 SAY 'Date: ' + ALLTRIM( DTOC( disp_date ) ) + 'Time: ' + RIGHT( "0" + ALLTRIM( slot_time( xx + show_from + 1 ) ), 5 )

			@ 7,2 GET cmd_Next_Open ;
				FUNCTION '*NH Add Appointment;Next Open;Cancel' ;
				SIZE but_height, 8 ;
				VALID v_cmd_Next_Open( cmd_Next_Open )

			READ CYCLE MODAL

		ENDIF
	ENDFOR
ENDFOR

* Want to end up here if .F. was returned from VALID