home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDG-CT1.DMS / in.adf / CT.run / Macros / Calculate_Frames.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-10-09  |  2.2 KB  |  117 lines
  1. /*
  2.                         Control Tower Arexx Script
  3.                            Written By J.L. White
  4.                          (C)1995 Merlin's Software
  5. */
  6.  
  7. signal on error
  8. signal on syntax
  9. Options Results
  10.  
  11. Main:
  12. call OpenStuff()
  13. call Routine()
  14. call CloseStuff()
  15. exit
  16. return
  17.  
  18. GetFile:
  19.     parse Arg Title, Path
  20.     Address FLY_1 SetString Path
  21.     Address FLY_1 GetFileNameNT Title
  22. return result
  23.  
  24.  
  25. GetPath:
  26.     parse Arg Title, Path
  27.     Address FLY_1 SetString Path
  28.     Address FLY_1 GetPathNameNT Title
  29. return result
  30.  
  31. GetTextTC:
  32.     parse Arg Title, Text
  33.     Address FLY_1 SetString Text
  34.     Address FLY_1 GetStringNTTC Title
  35. return result
  36.  
  37.  
  38. OpenStuff:
  39.     address command "run CT:FLY"
  40.     do while (POS('FLY_1',SHOW('Ports')) = 0)
  41.         address command "wait 1"
  42.         end
  43.     TOASTERLIB="ToasterARexx.port"
  44.     call remlib('ToasterARexx.port')
  45.     call remlib('PROJECT_REXX_PORT')
  46.     call addlib('PROJECT_REXX_PORT' , 0)
  47.     call addlib(TOASTERLIB,0)
  48. return
  49.  
  50. CloseStuff:
  51.     Address FLY_1 Quit
  52.     call remlib('ToasterARexx.port')
  53.     call remlib('PROJECT_REXX_PORT')
  54.     exit
  55. return
  56.  
  57. YesOrNo: procedure
  58.     parse Arg Title,Yes,No
  59.     Address FLY_1 OK_TEXT Yes
  60.     Address FLY_1 CANCEL_TEXT No
  61.     Address FLY_1 AskYesNoNT Title
  62.     if result = "OK" then YesNo = 1
  63.     else YesNo = 0
  64. return YesNo
  65.  
  66. Info: 
  67.     parse Arg Title,Yes
  68.     Address FLY_1 OK_TEXT Yes
  69.     Address FLY_1 FYINT Title
  70. return
  71.  
  72. FindDrive:
  73.     address command "C:Info >RAM:FLY-List"
  74.     call open TempFile,"RAM:FLY-List",R
  75.     do until eof(TempFile)
  76.         line = readln(TempFile)
  77.         parse var line Drive" "Rest
  78.         if Drive = "FA0:" then 
  79.             Volume = word(Rest,7)":"
  80.     end
  81.     call close TempFile
  82.     address command "Delete >NIL: RAM:FLY-List"
  83. return Volume
  84.  
  85. GetFileName: procedure  
  86.    ARG CompleteName
  87.    c = lastpos("/",CompleteName)
  88.    if c = 0 then c = lastpos(":",CompleteName)
  89.    return substr(CompleteName, c + 1)
  90.  
  91.  
  92. GetPathName: procedure  
  93.    ARG CompleteName
  94.    c = lastpos(":",CompleteName)
  95.    if c = 0 then c = lastpos(":",CompleteName)
  96.    return left(CompleteName,c)
  97.  
  98.  
  99.  
  100. Routine:
  101. Address FLY_1 OK_TEXT " OK "
  102. TimeCode = GetTextTC("Enter Time Code Number","00:00:00:00")
  103. Address FLY_1 ConvertTC TimeCode
  104. Num = result
  105. Address FLY_1 FYINT TimeCode" = "Num" Frames"
  106.  
  107. return
  108.  
  109.  
  110. syntax:
  111. error:
  112.     Address FLY_1 OK_TEXT " OK "
  113.     Title = "An Error Was Found With This Macro On Line #"SIGL"!"
  114.     Address FLY_1 FYINT Title
  115.     Address FLY_1 Quit
  116. exit
  117.