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

 set label to        Initalize a label form
------------------------------------------------------------------------------
 Syntax
   set label to [sLabel]

 Arguments
   sLabel is a label structure declared in a labeldef block.

 Description
   The set label to command initializes the label form that is used in the
   label command. A sLabel can be specified as the default for label.

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_setlabelto
   vardef
      char cAnswer
   enddef
   open sTest
   set label to sLabCust
   wait "Do you want sample?" to cAnswer
   if cAnswer $ "Yy"
      sample               // works with label sLabCust
   endif
   wait
   label                   // works with label sLabCust
   endproc

   proc main
   Test_setlabelto()
   endproc