home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaMiscModsCD3.iso / _PROGRAMME / TOOLS / PSID_EX_ED.lha / psid_tools / PSID_ed.dopus5 next >
Encoding:
Text File  |  1997-03-27  |  1.2 KB  |  41 lines
  1. /*****************************************
  2.  PSID_Edit v1.0
  3.  Mikael Lund, April 1997
  4.  Edit Name, Author & Copyright info in
  5.  single filed PlaySID files, using Dopus5.
  6.  
  7.  Usage: [Arexx] psid_ed.dopus5 {Ql} {f}
  8.  *****************************************
  9. options results
  10. options failat 99
  11. parse arg source_handle.0 " "fil
  12. fil=compress(fil,'"')
  13. open(psid,fil);str.0=readch(psid,22)
  14. note=str.1=str.2=str.3="";lf='0a'x
  15. if upper(left(str.0,4))~="PSID" then exit
  16. str.1=compress(readch(psid,32),x2c(0))
  17. str.2=compress(readch(psid,32),x2c(0))
  18. str.3=compress(readch(psid,32),x2c(0))
  19. close(psid)
  20. address value DOPUS.1
  21.  
  22. i=1 ; req_what="Enter Name ?" ; call request
  23. i=2 ; req_what="Enter Author ?" ; call request
  24. i=3 ; req_what="Enter Copyright ?" ; call request
  25.  
  26. open(psid,fil);str.0=readch(psid,22)
  27. writech(psid,out.1);writech(psid,out.2);writech(psid,out.3)
  28. close(psid);exit
  29.  
  30. REQUEST:
  31.   do;begin
  32.   req_pre="'"str.i"'";req_text="'"fil || lf || req_what "'"
  33.   lister getstring source_handle.0 req_text req_pre 'Okay|Cancel'
  34.   if DOPUSRC = 0 then exit 
  35.   if result="RESULT" then result=""
  36.   str.i=delstr(result,33)
  37.   out.i=overlay(str.i,x2c(000000000000000000000000000000000000000000000000000000000000000))
  38.   end
  39. RETURN
  40. /**/
  41.