'***************************************************** 
'*                   SavePref.AMOS                   * 
'*             ©1992 by Volker Stepprath             * 
'*  Saves the systemconfiguration in a file on disk  * 
'***************************************************** 
'
'**** Install buffer ****
'
BUFFER$=Space$(232)+Chr$(0)
'
'**** Get configuration set by preferences ****
'
Areg(0)=Varptr(BUFFER$)
Dreg(0)=233
XGETPREF=Intcall(-132)
'
'**** Choose file **** 
'
FILE$=Fsel$("","","Please choose file","to save the preferencesdatas !")
'
If FILE$<>""
  '
  '**** Save datas of systemconfiguration **** 
  '
  Bsave FILE$,XGETPREF To XGETPREF+232
  '
End If 
'
Edit