mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-14 00:29:45 +00:00
Add fixed \ definition that can comment out tib lines, too.
This commit is contained in:
parent
69a959d618
commit
48f488e584
File diff suppressed because one or more lines are too long
|
@ -20,9 +20,9 @@
|
|||
|
||||
\ *** Block No. 1, Hexblock 1
|
||||
|
||||
\ load screen phz 15jan22
|
||||
\ load screen phz 16jan22
|
||||
|
||||
1 4 +thru
|
||||
1 5 +thru
|
||||
|
||||
|
||||
|
||||
|
@ -112,3 +112,22 @@
|
|||
' stashrestore IS 'restart
|
||||
|
||||
|
||||
|
||||
\ *** Block No. 6, Hexblock 6
|
||||
|
||||
\ \ phz 16jan22
|
||||
|
||||
: \ blk @ IF >in @ negate c/l mod >in +!
|
||||
ELSE #tib @ >in ! THEN ; immediate
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user