+INTERPRET_CFA = defWord("INTERPRET",
+ [SOURCE_ID_CFA, FETCH_CFA, TOR_CFA, # Store current source on return stack
+
+ LIT_CFA, 32, WORD_CFA, # Read next word from current input source
+
+ FAM_RO_CFA, OPEN_FILE_CFA, DROP_CFA, # Open the file named by this word.
+
+ DUP_CFA, SOURCE_ID_CFA, STORE_CFA, # Mark this as the current source
+
+ DUP_CFA, QUERY_FILE_CFA, # Read line from file
+
+ INTERPRET_CFA,
+
+ BRANCH_CFA, -4])
+
+