hi!

tecs/test.for

@@ -16,7 +16,7 @@
 	print *,'device <device>      set cryo device'
 	print *,'<parameter>          show parameter'
 	print *,'<parameter> <value>  set parameter'
-	print *,'quit                 close TecsServer and exit'
+	print *,'kill                 close TecsServer and exit'
 	print *,'exit                 exit, but do not close TecsServer'
 	print *,'help                 show list of parameters and cryo devices'
 	print *
@@ -39,8 +39,8 @@
 	if (k .eq. 0) then ! empty line
 	  call tecs_get_temp(6, temp)
 	  call tecs_get_par(6, 'device', device)
-	  print '(x,3(a,f8.3),2a)','tempX=', temp(2),', tempP=',temp(3)
-	1        ,', tempC=',temp(1), ', device=',device
+	  print '(x,3(a,f8.3),2a)','tempX=', temp(3),', tempP=',temp(2)
+	1        ,', set=',temp(1), ', device=',device
 	  goto 1
 	endif
 
@@ -57,7 +57,7 @@
 
 	! simple query
 
-	if (cmd .eq. 'quit') then
+	if (cmd .eq. 'kill') then
 	  call tecs_quit(6)
 	  goto 9
 	elseif (cmd .eq. 'exit') then