Just another update
This commit is contained in:
parent
a25938f123
commit
00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
11
Task/Introspection/Forth/introspection-2.fth
Normal file
11
Task/Introspection/Forth/introspection-2.fth
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
[hex] 362 [decimal] 4TH# - [if] [abort] [then]
|
||||
|
||||
-32 value bloop
|
||||
[defined] bloop [if]
|
||||
[defined] abs [if]
|
||||
bloop abs . cr
|
||||
[then]
|
||||
[then]
|
||||
|
||||
0 last cell+ first over over - .( User variables: ) .
|
||||
?do i @ + loop .( Sum: ) . cr
|
||||
Loading…
Add table
Add a link
Reference in a new issue