[OpenBIOS] fileprint
Michail Maksimov
fpauk at mail.ru
Tue Jun 19 20:18:36 CEST 2012
i not found file viewer
suggest:
: sourceprint source type cr
['] interpret >data token@ >r
interpret_save is interpret
exit? if 777 throw then
r> is interpret ;
: fileprint ( adr len -- )
['] interpret >data token@ to interpret_save
['] sourceprint is interpret
['] included catch
interpret_save is interpret
dup 777 = if drop 0 then
throw ;
: fp ( "name" -- )
safe-parse-word fileprint ;
--
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.openbios.org/pipermail/openbios/attachments/20120619/691f5143/attachment.html>
More information about the OpenBIOS
mailing list