home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / SubProcs / readini < prev    next >
Text File  |  2002-06-06  |  3KB  |  69 lines
  1. /* checks for the ini file and reads in the data */
  2.  
  3. IF LENGTH(iniloc) > 0
  4.     THEN
  5.       DO
  6.         imageeditor=LINEIN(iniloc,1,1)
  7.         imageparameters=LINEIN(iniloc)
  8.         imageautorun=LINEIN(iniloc)
  9.         texteditor.0=LINEIN(iniloc)
  10.         texteditor.1=LINEIN(iniloc)
  11.         texteditor.2=LINEIN(iniloc)
  12.         textparameters.0=LINEIN(iniloc)
  13.         textparameters.1=LINEIN(iniloc)
  14.         textparameters.2=LINEIN(iniloc)
  15.         textautorun=LINEIN(iniloc)
  16.         do i=1 to 16
  17.           curocrval.i=LINEIN(iniloc)
  18.         end
  19.     drop i
  20. /*     stereo=LINEIN(iniloc)            /* 6  */
  21.         opl=LINEIN(iniloc)               /* 7  */
  22.         volume=LINEIN(iniloc)            /* 8  */
  23.     tweak=LINEIN(iniloc)             /* 9  */
  24.         stretch=LINEIN(iniloc)           /* 10  */
  25.         vsync=LINEIN(iniloc)             /* 11  */
  26.         alwaysync=LINEIN(iniloc)         /* 12  */
  27.         tripbuff=LINEIN(iniloc)          /* 13  */
  28.         scanlines=LINEIN(iniloc)         /* 14  */
  29.         vgafreq=LINEIN(iniloc)           /* 15  */
  30.         ntsc=LINEIN(iniloc)              /* 16  */
  31.         coldpth=LINEIN(iniloc)           /* 17  */
  32.         monitor=LINEIN(iniloc)           /* 18  */
  33.         rot=LINEIN(iniloc)               /* 19  */
  34.         flipx=LINEIN(iniloc)             /* 20  */
  35.         flipy=LINEIN(iniloc)             /* 21  */
  36.         norot=LINEIN(iniloc)             /* 22  */
  37.         frameskip=LINEIN(iniloc)         /* 23  */
  38.         waitint=LINEIN(iniloc)           /* 24  */
  39.         antiali=LINEIN(iniloc)           /* 25  */
  40.         beam=LINEIN(iniloc)              /* 26  */
  41.         flicker=LINEIN(iniloc)           /* 27  */
  42.         transluc=LINEIN(iniloc)          /* 28  */
  43.         resolution=LINEIN(iniloc)        /* 29  */
  44.         windowed=LINEIN(iniloc)          /* 30  */
  45.         errlog=LINEIN(iniloc)            /* 31  */
  46.         debug=LINEIN(iniloc)             /* 32  */
  47.         cheat=LINEIN(iniloc)             /* 33  */
  48.         igncfg=LINEIN(iniloc)            /* 34  */
  49.         record=LINEIN(iniloc)            /* 35  */
  50.         recfile=LINEIN(iniloc)           /* 36  */
  51.         play=LINEIN(iniloc)              /* 37  */
  52.         playfile=LINEIN(iniloc)          /* 38  */
  53. */
  54.         rc=stream(iniloc,'C','CLOSE')
  55.    END
  56. /*
  57.    /* if no ini, make a new ini file, not done yet  */
  58.    ELSE
  59.       DO
  60.         filename=SYSSEARCHPATH('PATH''DPATH', 'mamerun.exe')
  61.         inidrive=filespec('drive',filename)
  62.         inipth=filespec('path',filename)
  63.         inipath=inidrive||inipth
  64.         iniloc=inipath || 'mamerun.ini'
  65. /**        CALL LINEOUT iniloc,mameprog,1 
  66.         rc=stream(iniloc,'C','CLOSE') **/
  67.       END 
  68. */
  69.