Menu: Difference between revisions

Content added Content deleted

Inline

@@ Line 825: / Line 825: @@
           R> ;                      \ return counter to data stack
-: {.}    ( $ -- ) COUNT TYPE ;
+: {TYPE}    ( $ -- ) COUNT TYPE ;
 : '"'    ( -- )   [CHAR] " EMIT ;
 : {""}   ( $ -- )  '"' SPACE {.} '"' SPACE ;
@@ Line 889: / Line 889: @@
 Choice: 2
  ok
-COUNT TYPE huff and puff ok
+{TYPE} huff and puff ok
   ok
 NIL MENU  ok
-COUNT TYPE  ok</PRE>
+{TYPE}  ok</PRE>
 =={{header|Fortran}}==