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<75>ck zu do, falls die Laufvariable noch kleiner ist
|
|||
|
|
'const
|
|||
|
|
"__bz" 'command
|
|||
|
|
|
|||
|
|
// Die Laufvariable ist wohl schon zu gro<72>: Also aufr<66>umen
|
|||
|
|
"r>" 'command
|
|||
|
|
"r>" 'command
|
|||
|
|
"drop" 'command
|
|||
|
|
"drop" 'command
|