X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/1a088514966ccf1da083dd7a291f115748c476f5..19ed2c32212485415f6e910ce9b93b589f8835cb:/fth/misc2.fth diff --git a/fth/misc2.fth b/fth/misc2.fth index 3480449..c943e82 100644 --- a/fth/misc2.fth +++ b/fth/misc2.fth @@ -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 -- )