: ]
	1  MODE ! 			( Set mode to compile )
	BEGIN 				( begin compile loop )
	MODE  @ 1 =			( check we are still in compile mode )
	WHILE				
		BEGIN			
			20 WORD	C@	( try to parse a word
		0= WHILE		( if 0 no word parsed so get a new line 
			 GETLINE
			 CR
		REPEAT			( repeat until a word is parsed )
		FIND			( look for the word in the dictionary )
		DUP IF 			( in not zero we found one 
			DUP 4 + C@ 	( GET flags
			F_IMMD AND 	( Check immediate flag )
			IF 
				LFA>CA EXECUTE	( it was immediate so execute it. )
			ELSE 
				LFA>CA BRLNK	( it wasn't immediate so compile a call to it.
			THEN
		ELSE 
			DROP				( word not in dictionary )
			NUMBER LITERAL		( convert string to number and compile a literal )
		THEN 
	REPEAT						( repeat until the mode is not compile )
;