home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd453 / setpref.amos / setpref.amosSourceCode
AMOS Source Code  |  1993-01-08  |  532b  |  21 lines
  1. '*             SetPref.AMOS           *
  2. '*      ï¿½1992 by Volker Stepprath     *
  3. '*  Load and set a configurationfile  *
  4. '**** Install buffer ****  
  5. BUFFER$=Space$(232)+Chr$(0)
  6. PREF=Varptr(BUFFER$)
  7. '**** Choose file **** 
  8. FILE$=Fsel$("","","Please choose file","to set the new preferences !")
  9. If FILE$<>""
  10.   Amos To Back 
  11.   '**** Load configurationfile ****  
  12.   Bload FILE$,PREF
  13.   '**** Set new preferences **** 
  14.   Areg(0)=PREF
  15.   Dreg(0)=Len(BUFFER$)
  16.   Dreg(1)=True
  17.   XSETPREF=Intcall(-324)
  18.   Wait 200
  19.   Amos To Front 
  20. End If 
  21. Edit