/*GuruStatistix-Prefs V1.00
E-Mail: clemenz@zedat.fu-berlin.de
This archiv is (E-)Mailware!!! Don`t destroy my code, this will kill your computer.
If you can`t contact me with e-mail,please write to me:
Steffen Clemenz
Clara-Zetkin-Ring 61
Frankfurt/Oder
15232
*/

IF EXISTS('ENV:gurustatistix.prefs') THEN DO

                          CALL OPEN(out,'ENV:gurustatistix.prefs',read)
                                 locale=READLN(out)
                                gurudat=READLN(out)
                           textanzeiger=READLN(out)
                            guruhistory=READLN(out)
                                statdir=READLN(out)
                                   zeit=READLN(out)
               IF EOF(out)~=1 THEN file=READLN(out)
                          CALL CLOSE(out)


                          CALL OPEN(out,'RAM:pref',write)
                           CALL WRITELN(out,';def')
                           CALL WRITELN(out,'locale='||locale||'/')
                           CALL WRITELN(out,'gurudat='||gurudat)
                           CALL WRITELN(out,'textviewer='||textanzeiger)
                           CALL WRITELN(out,'history='||guruhistory)
                           CALL WRITELN(out,'Stat='||statdir||'/')
                          CALL CLOSE(out)
                                          END


ADDRESS command

'sys:c/editprefs Dir=ram: SaveDir=ram: File=pref Help=xy.guide Default=Gui/GuruStatistix.def Gui=Gui/GuruStatistix.gui PORTNAME=PREFS'

CALL OPEN(out,'ram:pref',read)
         CALL READLN(out)
         locale=READLN(out)
        gurudat=READLN(out)
   textanzeiger=READLN(out)
    guruhistory=READLN(out)
        statdir=READLN(out)
CALL CLOSE(out)

locale=SUBSTR(locale,8,LENGTH(locale)-7)
gurudat=SUBSTR(gurudat,9,LENGTH(gurudat)-8)
textanzeiger=SUBSTR(textanzeiger,12,LENGTH(textanzeiger)-11)
guruhistory=SUBSTR(guruhistory,9,LENGTH(guruhistory)-8)
statdir=SUBSTR(statdir,6,LENGTH(statdir)-5)

locale=DirExtract(locale)
statdir=DirExtract(statdir)

CALL OPEN(out,'ENV:gurustatistix.prefs',read)
  CALL WRITELN(out,locale)
  CALL WRITELN(out,gurudat)
  CALL WRITELN(out,textanzeiger)
  CALL WRITELN(out,guruhistory)
  CALL WRITELN(out,statdir)
  CALL WRITELN(out,zeit)
  IF file~="" THEN CALL WRITELN(out,file)
CALL CLOSE(out)

'delete >NIL: ram:pref'
'delete >NIL: ram:pref.info'

EXIT


/*------------------Look if the string contains a directory or a filename-------------------*/
DirExtract: PROCEDURE

PARSE ARG string

IF RIGHT(string,1)="/" THEN string=LEFT(string,LENGTH(string)-1)

                       ELSE DO

              IF EXISTS(string) THEN DO
                         strich=LASTPOS('/',string)
                         string=LEFT(string,strich-1)
                                     END
                            END
RETURN string