X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/452fad6a218f534f3c3fbbef65410d12a4e1c9dc..19ed2c32212485415f6e910ce9b93b589f8835cb:/fth/misc2.fth diff --git a/fth/misc2.fth b/fth/misc2.fth index 17edf0c..c943e82 100644 --- a/fth/misc2.fth +++ b/fth/misc2.fth @@ -2,7 +2,7 @@ \ Utilities for PForth extracted from HMSL \ \ Author: Phil Burk -\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom +\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom \ \ The pForth software code is dedicated to the public domain, \ and any third party may reproduce, distribute and modify @@ -41,6 +41,10 @@ anew task-misc2.fth variable if-debug +: ? ( address -- , fatch from address and print value ) + @ . +; + decimal create msec-delay 10000 , ( default for SUN ) : (MSEC) ( #msecs -- )