home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 20 / AACD20.BIN / AACD / Information / AmiBench / UpdateAds < prev    next >
Text File  |  2000-12-03  |  674b  |  34 lines
  1. /*
  2.     $VER: UpdateAmibench 1.0 (29.11.2000)
  3.     by Neil Bothwick
  4.  
  5.     Updates the data files of the AmiBench tool
  6. */
  7.  
  8. options results
  9. address command
  10.  
  11. 'rxset UAcheck `RequestChoice "Update AmiBench" "You must be online to run this.*NAre you online?" "Yes|No"`'
  12. Proceed = getclip('UAcheck')
  13. call setclip('UAcheck')
  14. if ~Proceed then exit
  15.  
  16. ports = ' 'show('P')
  17. if pos(' AMIBENCH.',ports) = 0 then do
  18.     'Run >NIL: ADD:AmiBench'
  19.     do until RC = 0; address command 'waitforport AMIBENCH.1'; end
  20.     ABport = 'AMIBENCH.1'
  21.     address value ABport
  22.     end
  23.  
  24. else do
  25.     ABport = word(substr(ports, pos(' AMIBENCH.',ports) + 1), 1)
  26.     address value ABport
  27.     'SHOW'
  28.     end
  29.  
  30. 'APPREADY'
  31. 'UPDATEDATA'
  32. 'UPDATEMOTD'
  33.  
  34.