Menu: Difference between revisions
Content added Content deleted
Line 827: | Line 827: | ||
: {TYPE} ( $ -- ) COUNT TYPE ; |
: {TYPE} ( $ -- ) COUNT TYPE ; |
||
: '"' ( -- ) [CHAR] " EMIT ; |
: '"' ( -- ) [CHAR] " EMIT ; |
||
: {""} ( $ -- ) '"' SPACE { |
: {""} ( $ -- ) '"' SPACE {TYPE} '"' SPACE ; |
||
: }PRINT ( n array -- ) {NTH} { |
: }PRINT ( n array -- ) {NTH} {TYPE} ; |
||
\ ===== TASK BEGINS ===== |
\ ===== TASK BEGINS ===== |