'**************************************
'*             SetPref.AMOS           *
'*      ©1992 by Volker Stepprath     *
'*  Load and set a configurationfile  *
'**************************************
'
'**** Install buffer ****  
'
BUFFER$=Space$(232)+Chr$(0)
PREF=Varptr(BUFFER$)
'
'**** Choose file **** 
'
FILE$=Fsel$("","","Please choose file","to set the new preferences !")
'
If FILE$<>""
  '
  Amos To Back 
  '
  '**** Load configurationfile ****  
  '
  Bload FILE$,PREF
  '
  '**** Set new preferences **** 
  '
  Areg(0)=PREF
  Dreg(0)=Len(BUFFER$)
  Dreg(1)=True
  XSETPREF=Intcall(-324)
  '
  Wait 200
  Amos To Front 
  '
End If 
'
Edit