From eee020fd6d7198a60a841861c3b0a199be23126d Mon Sep 17 00:00:00 2001 From: sejo Date: Thu, 15 Jul 2021 21:52:42 -0500 Subject: [PATCH] order of lines --- src/forth.gmo | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/forth.gmo b/src/forth.gmo index ff645b3..cf00ab1 100644 --- a/src/forth.gmo +++ b/src/forth.gmo @@ -17,11 +17,12 @@ this book has a great pace and nice illustrations these are some words for doing arithmetic with paces (min/km) and velocities (km/hr) ``` forth words +( running.forth ) : ms>s swap 60 * + ; ( min segs -- segs ) : hms>s ms>s swap 3600 * + ; ( hr min segs -- segs ) : msd>s1k >r ms>s 1000 swap r> */ ; ( min segs metros -- segs1km ) -: paso>vel ms>s s1k>vel ; ( min segs -- vel ) : s1k>vel 3600 swap / ; ( segs1km -- vel ) +: paso>vel ms>s s1k>vel ; ( min segs -- vel ) : vel>s1k 3600 swap / ; ( vel -- segs1km ) : ms- ms>s >r ms>s r> - ; ( min segs min segs -- segs ) : .min 0 <# [CHAR] ' HOLD #S #> TYPE ; ( min -- )