home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / CLIPPER / NFSRC.ZIP / COM34.PRG < prev    next >
Encoding:
Text File  |  1991-08-17  |  2.6 KB  |  101 lines
  1. /*
  2.  * File......: COM34.PRG
  3.  * Author....: Steve Kolterman
  4.  * CIS ID....: 76320,37
  5.  * Date......: $Date:   17 Aug 1991 15:07:16  $
  6.  * Revision..: $Revision:   1.3  $
  7.  * Log file..: $Logfile:   E:/nanfor/src/com34.prv  $
  8.  * 
  9.  * This is an original work by Steve Kolterman and is placed in the
  10.  * public domain.
  11.  *
  12.  * Modification history:
  13.  * ---------------------
  14.  *
  15.  * $Log:   E:/nanfor/src/com34.prv  $
  16.  * 
  17.  *    Rev 1.3   17 Aug 1991 15:07:16   GLENN
  18.  * Don Caton corrected some spelling errors in the doc
  19.  * 
  20.  *    Rev 1.2   15 Aug 1991 23:03:14   GLENN
  21.  * Forest Belt proofread/edited/cleaned up doc
  22.  * 
  23.  *    Rev 1.1   14 Jun 1991 19:51:22   GLENN
  24.  * Minor edit to file header
  25.  * 
  26.  *    Rev 1.0   12 Jun 1991 01:55:46   GLENN
  27.  * Initial revision.
  28.  *
  29.  */
  30.  
  31. /*
  32.  * File......: COM34.PRG
  33.  * Author....: Steve Kolterman
  34.  * CIS ID....: 76320,37
  35.  * Date......: $Date:   17 Aug 1991 15:07:16  $
  36.  * Revision..: $Revision:   1.3  $
  37.  * Log file..: $Logfile:   E:/nanfor/src/com34.prv  $
  38.  * 
  39.  * This is an original work by Steve Kolterman and is placed in the
  40.  * public domain.
  41.  *
  42.  * Modification history:
  43.  * ---------------------
  44.  *
  45.  * $Log$
  46.  * 
  47.  *    Rev 1.1   14 Jun 1991 19:51:22   GLENN
  48.  * Minor edit to file header
  49.  * 
  50.  *    Rev 1.0   12 Jun 1991 01:55:46   GLENN
  51.  * Initial revision.
  52.  *
  53.  */
  54.  
  55. /*  $DOC$
  56.  *  $FUNCNAME$
  57.  *     FT_COM3OR4()
  58.  *  $CATEGORY$
  59.  *     Environment
  60.  *  $ONELINER$
  61.  *     Enable use of COM3 and/or COM4 on IBM/PC compatables.
  62.  *  $SYNTAX$
  63.  *     FT_COM3OR4( <nPort> ) -> lSuccess
  64.  *  $ARGUMENTS$
  65.  *     <nPort> is the COM port to enable.  Ports except 3 and 4 are ignored.
  66.  *     The default is 3.
  67.  *  $RETURNS$
  68.  *     a logical indicating success or failure of the operation.
  69.  *  $DESCRIPTION$
  70.  *     FT_COM3OR4() uses FT_POKE() to write to memory the correct data
  71.  *     to enable COM3 or COM4 on IBM-PC compatables.  The programmer will
  72.  *     still need to explicitly open the port with SET PRINTER or FOPEN()
  73.  *     to send data out the port.
  74.  *
  75.  *     FT_COM3OR4() owes everything to FT_POKE().
  76.  *  $EXAMPLES$
  77.  *     // attempt to enable COM3
  78.  *     IF FT_COM3OR4( 3 )
  79.  *        Qout("COM3 was enabled")
  80.  *     END
  81.  *
  82.  *  $END$
  83.  */
  84.  
  85. FUNCTION FT_Com3or4( port )
  86.   LOCAL res31, res32, res41, res42
  87.  
  88.   res31 := res32 := res41 := res42 := .T.
  89.   port  := IF(port==NIL,3,port)
  90.  
  91.   IF port > 2 .and. port < 5
  92.      IF port == 3
  93.         res31 := FT_Poke(64, 4, 232); res32 := FT_Poke(64, 5, 3)
  94.      ELSEIF port==4
  95.         res41 := FT_Poke(64, 6, 232); res42 := FT_Poke(64, 7, 2)
  96.      END
  97.   END
  98.  
  99. RETURN IF(port==3,(res31 .and. res32),IF(port==4,(res41 .and. res42),.T.))
  100.  
  101.