home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / opus / v4 / warp / wersion.dopus < prev   
Text File  |  1996-01-10  |  1KB  |  70 lines
  1. /* 
  2.  
  3. $VER: $VER Scanner V1.0 - for Opus V4.XX Written by Warp oh' GiGA Prod'©96
  4.  
  5.  Purpose?
  6.                1}.To enable use of the 'C:Version' command in Opus...
  7.                 2}.To enable fast version checking when copying Libs, Exe's etc... 
  8.  
  9.  How to configure?
  10.                         
  11. Type the folowing line in your Opus config... (I hope you've done this before!)
  12.     
  13. [AmigaDOS] | C:RX S:Wersion.dopus {f}
  14.  
  15. You should tick the following options:
  16.                                                     CD Source
  17.                                                    Run Asynchronously 
  18.  
  19.  
  20. ->} If you still don't know how to use this script, then don't you worry...
  21.      you won't need it.....YET! :·) 
  22.  
  23.  
  24. Known Bugs: <- they arent really bugs just some improvements I could think of...
  25.  
  26. Can only be used with the first opened Dopus (DOPUS.1), however it can
  27. easily be fixed I won't bother until I/YOU! need it....
  28.  
  29. the script does not support multiple scans, say Five different files in a go,
  30. and then a req showing em all, or incorporated in a copy routine alá BrowserII!
  31.  
  32. */
  33.  
  34.  
  35.  
  36. Parse arg FILENAME
  37.  
  38.  
  39. if Pos('DOPUS.1',Show('PORTS')) = 0 then do
  40.     say ''
  41.     say ' Sorry!- This Script needs to be run via OPUS 4.XX...'
  42.     say ''
  43.     say ' Look out for an OPUS 5.XX Version! :·)'
  44.     say ''
  45.     exit
  46. end
  47.  
  48.  
  49. Address Command
  50.  
  51. 'C:Version >RAM:WERS 'FILENAME
  52.  
  53. call open('FileIN','RAM:WERS','r')
  54.  
  55. VSTR='$VER: '
  56.  
  57. VSTR=VSTR || ReadLN('FileIN')
  58.  
  59. Address 'DOPUS.1'
  60.  
  61. VSTR = CENTER(VSTR,80)
  62.  
  63. 'toptext' VSTR
  64.  
  65. Address Command
  66.  
  67. Call Close('FileIN')
  68.  
  69. 'Delete >NIL: RAM:WERS'
  70.