Forums before death by AOL, social media and spammers... "We can't have nice things"
| comp.lang.forth | Forth programmers eat a lot of Bratwurst | 117,927 messages |
[ << oldest | < older | list | newer > | newest >> ]
| Message 117,007 of 117,927 |
| dxf to dxf |
| Re: "Back & Forth" - Local variables |
| 09 Jan 25 22:09:06 |
From: dxforth@gmail.com On 9/01/2025 9:50 am, dxf wrote: > On 9/01/2025 5:11 am, Hans Bezemer wrote: >> On 08-01-2025 17:27, albert@spenarnc.xs4all.nl wrote: >> >> ( my CO variant, using the return address) >> >> : LOCAL R> SWAP DUP >R @ >R EXECUTE R> R> ! ; >> >> VARIABLE A >> VARIABLE B >> >> \ I'm paranoid :) >> >> 8 a ! >> 7 b ! >> >> : divide >> A LOCAL >> B LOCAL >> B ! A ! A @ B @ / >> . CR >> ; >> >> 15 3 divide a ? b ? >> \ it doesn't mean they're not out to get you >> >> Wow! This works! Can't say how solid it is.. but still! > > Alas not portable. > ... More portable : (lx) >R ; : LOCAL R> SWAP DUP >R @ >R (lx) R> R> ! ; VARIABLE A VARIABLE B 8 A ! 7 B ! : divide ( a b -- ) A LOCAL B LOCAL B ! A ! A @ B @ / . CR 15 3 divide A ? B ? --- SoupGate-DOS v1.05 * Origin: you cannot sedate... all the things you hate (1:229/2) |
(c) 1994, bbs@darkrealms.ca