      IF LENGTH(iniloc) >0
        THEN
          DO
            posx=LINEIN(iniloc)
            posy=LINEIN(iniloc)
            rc=stream(iniloc,'C','CLOSE')
          END
          ELSE
            DO
               filename=SYSSEARCHPATH('PATH''DPATH', 'mamerun.exe')
               inidrive=filespec('drive',filename)
               inipath=filespec('path',filename)
               posx=LEFT
               posy=BOTTOM
               iniloc=inidrive || inipath || 'viewer.ini'
               CALL LINEOUT iniloc, posx, 1
               CALL LINEOUT iniloc, posy
               rc=stream(iniloc,'c','close')
            END

