home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1992-03-02 | 587 b | 31 lines |
- '*********************************
- '* 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