#command  SET PRINTER <x:ON,OFF,&>     =>  Set( _SET_PRINTER, <(x)> )

#command  SET PRINT <x:ON,OFF,THIRD,&> =>  Set( _SET_PRINTER, <"x"> )

#command  SET MYPRINTER <x:LOC,REM,&>  => Set(<"x">)

#xtranslate testing PREPRO         <xVar> ;
                    [DESCRIPTION   <xDesc>] ;
                    [EXITFORMBOTTOM <cExitFormBottom:YES,NO,ALERT,&>] ;
            => <xVar> := WillBe_(<xDesc>, <"cExitFormBottom">)
                    
PROCEDURE Main(xParam)
LOCAL  cMistery

   PREPRO cMistery;
   DESCRIPTION    'What Will be?';
   EXITFORMBOTTOM YES
   
   PREPRO cMistery;
   DESCRIPTION    'What Will be?';
   EXITFORMBOTTOM &

   Set Printer    on
   Set Print     yes
   Set MyPrinter LOC
   
RETURN