/* AmigaTemp ARexx V1.4 961220 */
/* Write help text to file */

/* Start */
if(Show(P, "AmigaTempMessPort") == 0) then   /* Is AmigaTemp running? */
do                                           /* No... */
   Address COMMAND
   
   'run >NIL: <NIL: AmigaTemp:AmigaTemp'     /* Start AmigaTemp. */
   
   'waitforport AmigaTempMessPort'           /* Wait until program has started or at least 10 sek */
   
   if ~Show(P, 'AmigaTempMessPort') then do  /* Something is wrong... */
      Say "No contact with AmigaTempMessPort"
      exit
   end
   
   address COMMAND wait 3                    /* Wait until AmigaTemp has init itself */
end   

if(Show(P, 'AmigaTemp') == 0) then           /* Is AmigaTemp ARexx running? */                   
do                                           /* No... */
   Address COMMAND                           
 
   'run AmigaTemp:AT_ARexx'                  /* Start AmigaTemp ARexx. */
   
   'waitforport AmigaTemp'                   /* Wait until program has started or at least 10 sek */
   
   if ~Show(P, 'AmigaTemp') then do          /* Something is wrong... */
      Say "No contact with ARexx Port"
      exit
   end
end

Options RESULTS
Address 'AmigaTemp'                    /* Portname for AmigaTemp ARexx (Case sensitive) */        
'Help ram:AmigaTempARexx.help'         /* Request help text */
If rc > 1 then                         /* No error msg if rc == 1 (Not connected) */
do
   'Translate' rc                      /* Translate rc to text error msg */
   Say "Error: " || result
   exit
end
Say "Help file written to ram:AmigaTempARexx.help!"