15 lines
336 B
Plaintext
15 lines
336 B
Plaintext
|
header
|
||
|
|
s" Jorth Crash Course" write
|
||
|
|
s" Writing Jorth In Itself" write
|
||
|
|
bullet
|
||
|
|
s" : begin here ; immediate" write
|
||
|
|
s" : until ' BZ_ , , ; immediate" write pause
|
||
|
|
s" " write
|
||
|
|
s" : if ' BZ_ , here 0 , ; immediate" write
|
||
|
|
s" : then here swap ! ; immediate" write pause
|
||
|
|
s" " write
|
||
|
|
s" : ( begin key ')' = until ; immediate" write
|
||
|
|
|
||
|
|
|
||
|
|
|