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

 CapFormNumberGet() / CapFormNumberSet()
------------------------------------------------------------------------------
 Purpose:
 Get or set the capture form number.

 Syntax:
 iForm = CapFormNumberGet( iLPTNum )
 iForm = CapFormNumberSet( iLPTNum, iNewNum )

 Parameters:
 iLPTNum The LPT device. 1=LPT1: 2=LPT2: 3=LPT3:
 iNewNum The new form number.

 Returns:
 A numeric value (signed short int).

 The CA-Clipper names for these functions are:
 CapFrmNumGet() / CapFrmNumSet()

 Description:
 CapFormNumberGet() returns the form number used for printing jobs on the
 specified LPT device iLPTNum.

 CapFormNumberSet() sets the form number on the specified LPT device iLPTNum
 to the value of iNewNum and returns the previous form number.
 When a form number is set, the change only takes effect after CapStart() is
 called.

 Returns 0 if there is no form number set. Returns NOVERRINT if an error
 occurs.

 Example:
 // To display the number of the form used for printing the
 // data captured from LPT1:
 iFormNum = CapFormNumberGet( 1 )
 if ( iFormNum != NOVERRINT )
    ? "The form number for print capturing on LPT1: is ", iFormNum
 endif
 // To change the number of the form used for printing the data captured
 // from LPT1: to 4:
 if ( CapFormNumberSet( 1, 4 ) != NOVERRINT)
    ? "The form number for print capturing on LPT1: has been set to 4"
 endif