X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/4162242c136abe5707aeefbe3f884f561b73dd42..271cd1f5a106bb0978b451457161b1df391c4c9e:/fth/misc2.fth?ds=inline 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 -- )