home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / comment.amos / comment.amosSourceCode
AMOS Source Code  |  1993-01-08  |  587b  |  31 lines
  1. '********************************* 
  2. '*          Comment.AMOS         * 
  3. '*   ï¿½1992 by Volker Stepprath   * 
  4. '*  Set the comment of any file  * 
  5. '********************************* 
  6. '
  7. '**** Comment **** 
  8. '
  9. COMMENT$="Moin! Moin!"+Chr$(0)
  10. '
  11. '**** Choose file **** 
  12. '
  13. FILE$=Fsel$("","","Please choose file","to set a comment !")
  14. '
  15. If FILE$<>""
  16.   '
  17.   FILE$=FILE$+Chr$(0)
  18.   '
  19.   '**** Set comment **** 
  20.   '
  21.   Dreg(1)=Varptr(FILE$)
  22.   Dreg(2)=Varptr(COMMENT$)
  23.   XCOMMENT=Doscall(-180)
  24.   '
  25.   '**** Error ? **** 
  26.   '
  27.   If XCOMMENT=0 : Print "Error occured !" : Wait 50 : End If 
  28.   '
  29. End If 
  30. '
  31. Edit