/* checks for the ini file and reads in the data */
iniloc=SYSSEARCHPATH('inipath', 'mamerun.ini')

  IF LENGTH(iniloc) > 0
    THEN
      DO
        mameprog=LINEIN(iniloc,1,1)
        altromdir=LINEIN(iniloc)
        extcmd=LINEIN(iniloc)
        xsizeysize=LINEIN(iniloc)
        joystick=LINEIN(iniloc)          /* 1  */  
        mouse=LINEIN(iniloc)	         /* 2  */
        soundcard=LINEIN(iniloc)	 /* 3  */
        samplerate=LINEIN(iniloc)        /* 4  */
        sample16bit=LINEIN(iniloc)       /* 5  */ 
        stereo=LINEIN(iniloc)            /* 6  */
        opl=LINEIN(iniloc)               /* 7  */
        volume=LINEIN(iniloc)            /* 8  */
	tweak=LINEIN(iniloc)             /* 9  */
        stretch=LINEIN(iniloc)           /* 10  */
        vsync=LINEIN(iniloc)             /* 11  */
        alwaysync=LINEIN(iniloc)         /* 12  */
        tripbuff=LINEIN(iniloc)          /* 13  */
        scanlines=LINEIN(iniloc)         /* 14  */
        vgafreq=LINEIN(iniloc)           /* 15  */
        ntsc=LINEIN(iniloc)              /* 16  */
        coldpth=LINEIN(iniloc)           /* 17  */
        monitor=LINEIN(iniloc)           /* 18  */
        rot=LINEIN(iniloc)               /* 19  */
        flipx=LINEIN(iniloc)             /* 20  */
        flipy=LINEIN(iniloc)             /* 21  */
        norot=LINEIN(iniloc)             /* 22  */
        frameskip=LINEIN(iniloc)         /* 23  */
        waitint=LINEIN(iniloc)           /* 24  */
        antiali=LINEIN(iniloc)           /* 25  */
        beam=LINEIN(iniloc)              /* 26  */
        flicker=LINEIN(iniloc)           /* 27  */
        transluc=LINEIN(iniloc)          /* 28  */
        resolution=LINEIN(iniloc)        /* 29  */
        windowed=LINEIN(iniloc)          /* 30  */
        errlog=LINEIN(iniloc)            /* 31  */
        debug=LINEIN(iniloc)             /* 32  */
        cheat=LINEIN(iniloc)             /* 33  */
        igncfg=LINEIN(iniloc)            /* 34  */
        record=LINEIN(iniloc)            /* 35  */
        recfile=LINEIN(iniloc)           /* 36  */
        play=LINEIN(iniloc)              /* 37  */
        playfile=LINEIN(iniloc)          /* 38  */
        rc=stream(iniloc,'C','CLOSE')
      END
   /* if no ini, make a new ini file, not done yet  */
   ELSE
      DO
        filename=SYSSEARCHPATH('PATH''DPATH', 'mamerun.exe')
        inidrive=filespec('drive',filename)
        inipth=filespec('path',filename)
        inipath=inidrive||inipth
        iniloc=inipath || 'mamerun.ini'
/**        CALL LINEOUT iniloc,mameprog,1 
        rc=stream(iniloc,'C','CLOSE') **/
      END 
