home *** CD-ROM | disk | FTP | other *** search
/ MACD 9 / MACD9.iso / Docs / DevGuide / MyCheck < prev    next >
Encoding:
AmigaDOS Script File  |  1998-09-27  |  1.1 KB  |  35 lines
  1. .key file/A
  2. .BRA {
  3. .KET }
  4.  
  5. FailAt 50
  6. DVC {file} info >ENV:Check1
  7. If NOT WARN
  8.     Search Scripts/DeviceList.dvc "{file}" NONUM >ENV:Check2
  9.     Echo "*N---------[[(({file}))]]---------"
  10.     If NOT WARN
  11.         If "$Check1" EQ "$Check2"
  12.             SetEnv CheckErg=" is OK!"
  13.         else
  14.             If "$Check1" GT "$Check2"
  15.                 SetEnv CheckErg=" NEW !!! Please contact age@thepentagon.com!"
  16.                 Echo "*N----------[[(({file}))]]---------" >>Ram:Dev-NewList
  17.                 c:List "{file}" LFormat="Name: %-40n Size: %-10l Date: %d" >>Ram:Dev-NewList
  18.                 Echo "*NC:Version means:" >>Ram:Dev-NewList
  19.                 Version "{file}" FULL >>Ram:Dev-NewList
  20.                 Echo "*NDVC means      :" >>Ram:Dev-NewList
  21.                 DVC "{file}" INFO >>Ram:Dev-NewList
  22.                 Echo "*NYOUR COMMENT   :" >>Ram:Dev-NewList
  23.             else
  24.                 SetEnv CheckErg=" Newer Datatype is available!"
  25.               Echo "Your System: $Check1 -> DeviceGuide: $Check2" >>Ram:Dev-OldList
  26.             EndIf
  27.         EndIf
  28.         Echo "DeviceGuide: $Check2 *NYour System: $Check1 $CheckErg"
  29.         Echo "DeviceGuide: $Check2 *NYour System: $Check1 $CheckErg*N" >>Ram:Dev-List
  30.     else
  31.         Echo "{file}"
  32.         Echo "$Check1 *N{file} ??.??" >>Ram:Dev-List
  33.     EndIf
  34. EndIf
  35.