'********************************* 
'*          Comment.AMOS         * 
'*   ©1992 by Volker Stepprath   * 
'*  Set the comment of any file  * 
'********************************* 
'
'**** Comment **** 
'
COMMENT$="Moin! Moin!"+Chr$(0)
'
'**** Choose file **** 
'
FILE$=Fsel$("","","Please choose file","to set a comment !")
'
If FILE$<>""
  '
  FILE$=FILE$+Chr$(0)
  '
  '**** Set comment **** 
  '
  Dreg(1)=Varptr(FILE$)
  Dreg(2)=Varptr(COMMENT$)
  XCOMMENT=Doscall(-180)
  '
  '**** Error ? **** 
  '
  If XCOMMENT=0 : Print "Error occured !" : Wait 50 : End If 
  '
End If 
'
Edit