; load a preferences file from DEVS:System-Configuration or
; suplied name and set preferences

        INCLUDE "includes/MACS.ASM"
        INCLUDE "includes/FileMacs.ASM"

       INIT_AMIGA

; Load file contained as parameter, or just default ?

      CMP.B          #2,D0
      BGE.S          Cont_1
      LEA            Default,A0
      BRA.S          Cont_2
Cont_1:
      SUBQ.W         #1,D0    ; length -1
      MOVE.B         #0,0(A0,D0.W) ; remove Line Feed Character
Cont_2:
      NOP
; now load file to structure address
      OPEN_IN        1,A0
      FSIZE          1,D0 ; get length of file
      STO            D0,Length
; now load File
      LEA            PREFSTRUCT,A0
      LOAD           1,A0
; close file
      FCLOSE         1

; now set loaded preferences

       RCL           Length,D0 ; size
       MOVE.L        #0,D1   ; flag
       LINKSYS       SetPrefs,intuition

EXIT_1:
       MOVEQ         #0,D0
       EXIT_AMIGA
Default: DC.B  'devs:system-configuration',0
Length:  DS.L  1
PREFSTRUCT:
      DS.B           256

      END