home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / amos_tips / savepref / savepref.amos / savepref.amosSourceCode
Encoding:
AMOS Source Code  |  1992-03-01  |  680 b   |  29 lines
  1. '***************************************************** 
  2. '*                   SavePref.AMOS                   * 
  3. '*             ï¿½1992 by Volker Stepprath             * 
  4. '*  Saves the systemconfiguration in a file on disk  * 
  5. '***************************************************** 
  6. '
  7. '**** Install buffer ****
  8. '
  9. BUFFER$=Space$(232)+Chr$(0)
  10. '
  11. '**** Get configuration set by preferences ****
  12. '
  13. Areg(0)=Varptr(BUFFER$)
  14. Dreg(0)=233
  15. XGETPREF=Intcall(-132)
  16. '
  17. '**** Choose file **** 
  18. '
  19. FILE$=Fsel$("","","Please choose file","to save the preferencesdatas !")
  20. '
  21. If FILE$<>""
  22.   '
  23.   '**** Save datas of systemconfiguration **** 
  24.   '
  25.   Bsave FILE$,XGETPREF To XGETPREF+232
  26.   '
  27. End If 
  28. '
  29. Edit