

<HTML><BODY>i not found file viewer<br>suggest:<br><br><p>: sourceprint source type cr<br> ['] interpret >data token@ >r<br> interpret_save is interpret<br> exit? if 777 throw then<br> r> is interpret ;</p><p>: fileprint ( adr len -- )<br> ['] interpret >data token@ to interpret_save<br> ['] sourceprint is interpret<br> ['] included catch<br> interpret_save is interpret<br> dup 777 = if drop 0 then<br> throw ;</p><p>: fp ( "name" -- )<br> safe-parse-word fileprint ;</p><p><br></p><br><br><br>-- <br><br></BODY></HTML>