home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / MoreHardware / AmigaTemp.lha / AmigaTemp / ARexxScr / ListFull.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-09-08  |  2.1 KB  |  58 lines
  1. /* AmigaTemp V1.2 ARexx                                            */
  2. /* Lists names, temperatures and max/min for all connected sensors */
  3.  
  4. /* Start */
  5. st = Show(P, 'AmigaTemp')              /* Is program running? */
  6. if st == 0 then                        /* No... */
  7. do
  8.    Address COMMAND                     
  9.    
  10.    'AmigaTemp CX_POPUP=NO'             /* Start AmigaTemp. Don't POPUP */
  11.    if rc > 0 then do                   /* Program not found... */
  12.       Say "Can't start AmigaTemp"
  13.       exit
  14.    end   
  15.    
  16.    do 2 while ~Show(P, 'AmigaTemp')    /* Wait until program has started or at least 20 sek */
  17.       'waitforport AmigaTemp'
  18.    end
  19.    
  20.    if ~Show(P, 'AmigaTemp') then do    /* Something is wrong... */
  21.       Say "No contact with ARexx Port"
  22.       exit
  23.    end
  24. end   
  25.  
  26. /* Main */
  27. Options RESULTS                        /* Retrive the string result field */
  28. Address 'AmigaTemp'                    /* Portname for AmigaTemp (Case sensitive) */
  29.    
  30. 'Version'; Say result                  /* Write name and version */
  31.  
  32.                                        /* Celsius or Fahrenheit? */
  33. 'DegreeType'; Say 'Temperature in ' || result
  34.  
  35. 'NumSensor'; numsensor = result        /* Number Of Sensors */
  36.  
  37. Say 'Name                Temp Tend   Max Date            Min Date'
  38. Say '--------------------------------------------------------------------'
  39.  
  40. do i=1 to numsensor
  41.    'Name' i                            /* Name of sensor */
  42.    If rc == 0 then                     /* rc == 0 if sensor is connected */
  43.    do
  44.       name = left(result, 18)          /* Name of sensor */
  45.       'Temp'     i; temp = result      /* Current temperature */
  46.       'Tendency' i; tend = result      /* Temperature tendency (+,-,' ') */
  47.       'Max'      i; max = result       /* Max temperature */
  48.       'DateMax'  i; maxdate = result   /* Date for max temperature */
  49.       'Min'      i; min = result       /* Min temperature */
  50.       'DateMin'  i; mindate = result   /* Date for min temperature */
  51.       Say name || temp || ' ' || tend || '   ' || max || ' ' || maxdate || ' ' || min || ' ' || mindate;
  52.    end   
  53. end i
  54.  
  55. if st == 0 then 'Quit'                 /* Quit AmigaTemp if we started it */
  56.  
  57.  
  58.