home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / amos_tips / setpref / setpref.amos / setpref.amosSourceCode
Encoding:
AMOS Source Code  |  1992-03-02  |  652 b   |  36 lines
  1. '**************************************
  2. '*             SetPref.AMOS           *
  3. '*      ï¿½1992 by Volker Stepprath     *
  4. '*  Load and set a configurationfile  *
  5. '**************************************
  6. '
  7. '**** Install buffer ****  
  8. '
  9. BUFFER$=Space$(232)+Chr$(0)
  10. PREF=Varptr(BUFFER$)
  11. '
  12. '**** Choose file **** 
  13. '
  14. FILE$=Fsel$("","","Please choose file","to set the new preferences !")
  15. '
  16. If FILE$<>""
  17.   '
  18.   Amos To Back 
  19.   '
  20.   '**** Load configurationfile ****  
  21.   '
  22.   Bload FILE$,PREF
  23.   '
  24.   '**** Set new preferences **** 
  25.   '
  26.   Areg(0)=PREF
  27.   Dreg(0)=Len(BUFFER$)
  28.   Dreg(1)=True
  29.   XSETPREF=Intcall(-324)
  30.   '
  31.   Wait 200
  32.   Amos To Front 
  33.   '
  34. End If 
  35. '
  36. Edit