home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / arexx / c_rexx / ssb next >
AmigaDOS Script File  |  1996-11-13  |  566b  |  32 lines
  1. .key Filename
  2. .bra {
  3. .ket }
  4.  
  5. ; This command is used to make a Batch-file like this Executable.
  6. ;
  7. ; It does this by setting the Script-Protection bit on the file. 
  8.  
  9. failat 10
  10.  
  11. if "{Filename}" eq ""
  12.     skip freak
  13. endif
  14. if not exists {Filename}
  15.     ECHO "File:{Filename} does not exist..."
  16.     skip Xend
  17. ENDIF
  18. if {Filename} not EQ ""
  19.     ECHO "Setting script bit on {Filename}."
  20.     PROTECT {Filename} S ADD ALL >NIL:
  21.     skip END
  22. endif
  23.  
  24. lab freak
  25.  
  26. echo "Required argument missing."
  27.  
  28. lab END
  29. Echo "You just used SSB v2.1 by Warp oh' GiGA Prod..."
  30. ; Tue Nov 28 23:38:50 1995...
  31.  
  32. Lab Xend