[retroforth] Re: Again the zt
- From: "Helmar Wodtke" <helmwo@xxxxxx>
- To: retroforth@xxxxxxxxxxxxx
- Date: Sat, 22 Jan 2005 16:33:08 +0100
Hi,
> Is it really working?
>
> $ rf
> : >pad dup >r pad swap cmove pad r> 2dup + 70 swap c! ;
> " What's up, doc" + c@ .
> 0
>
> That ought to be a 70. It happens to be the 0 that already was over there.
If you want to make it on a living system, you've to do
knoppix@ttyp3[bin]$ ./rf
: >pad' dup >r pad swap cmove pad r> 2dup + 70 swap c! ;
$e9 ' >pad c!
' >pad' ' >pad 5 + - ' >pad 1 + !
" Was soll das?" + c@ .
70
Bis dann,
Helmar
helmwo@xxxxxx
-- Binary/unsupported file stripped by Ecartis --
-- Type: application/x-pkcs7-signature
-- File: smime.p7s
-- Desc: S/MIME Cryptographic Signature
Other related posts:
