BEGIN					// begin interpreter loop 
	CR 3E EMIT SPACE		// send prompt
	GETLINE					// get a line for input stream
	CR						// send a return to the terminal. 
	BEGIN 					// begin parse loop 
		20 WORD C@			// parse a string delimited by a space
	WHILE					// if a string was found continue, if not go to past the repeat. 
		FIND				// looks for the word in the dictionary
		DUP IF				// dup the address and goto "else" if it was zero ie not found.
			LFA>CA EXECUTE 	// the word exists, convert the link address to the code address and execute it.  
		ELSE 
			DROP NUMBER		// the word was not found, drop the zero and convert the string to number.
		THEN
	REPEAT 					// repeat the parse loop 
	AGAIN					// execute the interpret loop again.