Click above to get retro games delivered to your door ever month!

 set delimiters to   Set the delimiter character
------------------------------------------------------------------------------
 Syntax
   set delimiters to [cDelimiters]

 Arguments
   cDelimiters is a character string specifying get field delimiters.

 Description
   The set delimiters to command establishes the delimiters for the
   get system. There are two delimiter characters, one each for the
   left and right of a get input field.

   If cDelimiters is one character, then it initalizes both the
   left and right delimiters. If cDelimiters is two or more
   characters, the left delimiter is initialized from the first
   character and the right delimiter is initialized from the second
   character. If cDelimiters is not specified, both delimiters are
   initialized to ":".

 Example
   #define EXAMPLE_IO
   #include example.hdr

   proc Test_setdelimitersto
   vardef
      char( 20 )  cName
      char( 6 )   cDelim
      ptr( char ) pChar
   enddef
   cName := "Brooke"
   cDelim := "{}[]<>"          // delimiter pair list
   pChar := &cDelim            // point to first pair of delimiters
   clear
   set intensity off           // switch off highlight
   set delimiters on           // switch on delimiters
   @ 1, 3 get cName; read
   set delimiters to *pChar    // frame input with { and }
   @ 2, 3 get cName; read
   pChar += 2
   set delimiters to *pChar    // frame next input with [ and ]
   @ 3, 3 get cName; read
   pChar += 2
   set delimiters to *pChar    // frame next input with < and >
   @ 4, 3 get cName; read
   set delimiters to os()      // any character expression
   @ 5, 3 get cName; read
   set delimiters to           // set delimiters back to original
   @ 6, 3 get cName; read
   endproc

   proc main
   Test_setdelimitersto()
   endproc