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

