X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/4162242c136abe5707aeefbe3f884f561b73dd42..4d9c915d183f67c0c066996816524e863343c1d6:/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 -- )