home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SHMOD10.LHA / ShowModule / Modules / Pmodules / DWriteF.e next >
Encoding:
Text File  |  1994-05-27  |  850 b   |  22 lines
  1. /********************************************************************************
  2.  * Fichier      : DWriteF.e
  3.  * Procédures   : dWriteF(PTR TO LONG,PTR TO LONG)
  4.  * Informations : WriteF() if DEBUG=TRUE
  5.  *******************************************************************************/
  6. PROC dWriteF(format,data) /*"dWriteF(format,dat)"*/
  7. /********************************************************************************
  8.  * Para         : PTR TO LONG like ['\s','\d'],idem like [string,address]
  9.  * Return       : NONE
  10.  * Description  : WriteF() if DEBUG=TRUE.
  11.  *******************************************************************************/
  12.     DEF p_format[10]:LIST
  13.     DEF p_data[10]:LIST
  14.     DEF b
  15.     p_format:=format
  16.     p_data:=data
  17.     FOR b:=0 TO ListLen(p_format)-1
  18.         IF DEBUG=TRUE THEN WriteF(p_format[b],p_data[b])
  19.     ENDFOR
  20. ENDPROC
  21.  
  22.