home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 85 / af085sub.adf / SLIDESHOW / SLIDE.lzx / AGASSM / Rexx / ChangeDisplayTime,T.agassm next >
Encoding:
Text File  |  1996-03-30  |  1.1 KB  |  59 lines
  1. /* AGASSM - Script to set display time */
  2. /* © 1995 Paul Vernon */
  3.  
  4. Port = Show('P','AGASSM')
  5. If Port = 0 then do
  6.   Exit
  7.   End
  8.  
  9. ADDRESS COMMAND 'C:RequestFile > T:AGASSM-Temp TITLE "AGASSM - Specify pattern" NOICONS'
  10.  
  11. succ = Open(file,'T:AGASSM-Temp','r')
  12. If succ = 0 then do
  13.   Exit
  14.   End
  15. String = ReadLn(file)
  16. succ = Close(file)
  17.  
  18. ADDRESS COMMAND 'C:Delete T:AGASSM-Temp QUIET'
  19.  
  20. Select
  21.   When String == '' then
  22.     Exit
  23.   When String = '""' then
  24.     String = '"#?"'
  25.   Otherwise
  26. End
  27.  
  28. String = Left(String,Length(String)-1)
  29. String = Right(String,Length(String)-1)
  30. TestString = Right(String,1)
  31.  
  32. Select
  33.   When TestString == '/' then
  34.     ArgumentA=String'#?'
  35.   When TestString == ':' then
  36.     ArgumentA=String'#?'
  37.   Otherwise
  38.     ArgumentA=String
  39. End
  40.  
  41. succ = Close('STDOUT')
  42. succ = Open('STDOUT','CON:2/50/636/35/AGASSM - Input time/CLOSE','w')
  43.  
  44. Say 'Press RETURN to cancel'
  45. Say 'Pattern :-' ArgumentA
  46. Say 'Please set time delay (0.0 - 100.0) :-'
  47.  
  48. ArgumentB = ReadCh('STDOUT',5)
  49. succ = Close('STDOUT')
  50.  
  51. If ArgumentB = '' then do
  52.   Exit
  53.   End
  54.  
  55. ADDRESS 'AGASSM'
  56. SETDISPTIME ArgumentA ArgumentB
  57.  
  58. Exit
  59.