19 lines
364 B
Plaintext
19 lines
364 B
Plaintext
// Laufvariable Inkrementieren und mit Grenze vergleichen
|
|
"r>" 'command
|
|
"+" 'command
|
|
"dup" 'command
|
|
">r" 'command
|
|
"i'" 'command
|
|
">" 'command
|
|
"not" 'command
|
|
|
|
// Sprung zurück zu do, falls die Laufvariable noch kleiner ist
|
|
'const
|
|
"__bz" 'command
|
|
|
|
// Die Laufvariable ist wohl schon zu groß: Also aufräumen
|
|
"r>" 'command
|
|
"r>" 'command
|
|
"drop" 'command
|
|
"drop" 'command
|