home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / SubProcs / setini < prev    next >
Text File  |  2002-06-06  |  642b  |  21 lines
  1. /* set default ini values if none are found */
  2.  
  3. /* these are already set to null when Main is run */
  4. /* if length(imageeditor)=0 then
  5.         imageparameters=LINEIN(iniloc)
  6.         imageautorun=LINEIN(iniloc)
  7.         texteditor.0=LINEIN(iniloc)
  8.         texteditor.1=LINEIN(iniloc)
  9.         texteditor.2=LINEIN(iniloc)
  10.         textparameters.0=LINEIN(iniloc)
  11.         textparameters.1=LINEIN(iniloc)
  12.         textparameters.2=LINEIN(iniloc)
  13.         textautorun=LINEIN(iniloc)
  14. */
  15.  
  16. /* if the values are null for the ocrconfig, use defaults */
  17. do i = 1 to 16
  18.   if length(curocrval.i)=0 then
  19.     curocrval.i=defocrval.i
  20. end
  21. drop i