2019-08-25 13:02:05 +03:00
|
|
|
primitive !return val -> void
|
|
|
|
primitive !plus val val -> val
|
|
|
|
|
2019-02-05 02:44:07 +02:00
|
|
|
package main _plain
|
2022-02-17 01:44:18 +02:00
|
|
|
constant VERB_DIRECTIVE_DIVIDER = 1
|
|
|
|
constant VERB_DIRECTIVE_RESULT = 2
|
2019-07-17 02:39:04 +03:00
|
|
|
package template _module
|
2022-02-13 01:27:30 +02:00
|
|
|
splat CONSTANT &"Constant DEBUG;\n"
|
|
|
|
splat CONSTANT &"Constant Badger = 12;\n"
|
|
|
|
splat ROUTINE &"[ Falsity; return false; ];\n"
|
|
|
|
splat ROUTINE &"[ Demo x y; return x+y; ];\n"
|
|
|
|
splat ARRAY &"Array XA --> 2 4 56;\n"
|
|
|
|
splat ARRAY &"Array XB--> (71 + 3);\n"
|
|
|
|
splat ARRAY &"Array XC -> 17 91;\n"
|
|
|
|
splat ARRAY &"Array XD-> 8 6;\n"
|
|
|
|
splat ARRAY &"Array XE table 2 3 4 5;\n"
|
|
|
|
splat ARRAY &"Array XF buffer 6 7 8 9;\n"
|
|
|
|
splat CONSTANT &"Constant Bodger $$10011101;\n"
|
|
|
|
splat CONSTANT &"Constant Budger $7fe2 ;\n"
|
|
|
|
splat GLOBAL &"Global nitwit = 2;\n"
|
|
|
|
splat DEFAULT &"Default Bodger = 77;\n"
|
|
|
|
splat DEFAULT &"Default Bydger = 777;\n"
|
|
|
|
splat STUB &"#Stub Banana 2;\n"
|
|
|
|
splat STUB &"#Stub Peach 0;\n"
|
|
|
|
splat ATTRIBUTE &"Attribute marmorial;\n"
|
|
|
|
splat PROPERTY &"Property density;\n"
|