Revision as of 13:57, 8 April 2019 (view source) rosettacode>BFOX9900 m (→‎Idiomatic Forth) ← Older edit		Revision as of 13:59, 8 April 2019 (view source) rosettacode>BFOX9900 m (→‎If there must be lists) Newer edit →
Line 825: R> ; \ return counter to data stack : {.TYPE} ( $ -- ) COUNT TYPE ; : '"' ( -- ) [CHAR] " EMIT ; : {""} ( $ -- ) '"' SPACE {.} '"' SPACE ; Line 889: Choice: 2 ok ~~COUNT~~ {TYPE} huff and puff ok ok NIL MENU ok ~~COUNT~~ {TYPE} ok</PRE> =={{header\|Fortran}}==

Menu (view source)