hi!

tecs/Makefile

@@ -20,7 +20,7 @@ tecs: $(OBJ)
 	ranlib libtecsl.a
 	- rm TecsServer
 	$(CC) $(CFLAGS) -o TecsServer -g tecs.c fortify1.c -lm -L. -ltecsl -L../hardsup -lhlib
-	- rm test
+	- rm tecs
 	f77 -o tecs -g test.for tecs_tas.for get_lun.for -L. -ltecsl
 clean:
 	rm *.o

tecs/test.for

@@ -16,9 +16,9 @@
 	print *,'device <device>      set cryo device'
 	print *,'<parameter>          show parameter'
 	print *,'<parameter> <value>  set parameter'
-	print *,'help                 show list of parameters and cryo devices'
 	print *,'quit                 close TecsServer and exit'
 	print *,'exit                 exit, but do not close TecsServer'
+	print *,'help                 show list of parameters and cryo devices'
 	print *
 1	print '(x,a,$)','tecs> '
 	read(*,'(a)',end=9) line

tecsdriv.c

@@ -116,8 +116,13 @@
           return 0;
         }
         return 1;
-      } else { /* get case */
+      } else { /* get case or command without parameter */
-        iRet=CocGet(pMe->pData,argv[1],result);
+        if (0==strcasecmp(argv[1], "quit")) {
+          iRet=CocSet(pMe->pData,argv[1],"1"); /* send quit flag */
+          strcpy(result, "1");
+        } else {
+          iRet=CocGet(pMe->pData,argv[1],result); /* get parameter */
+        }
         if (iRet<0) {
           sprintf(pBueffel,"ERROR: %s",ErrMessage);
           SCWrite(pCon,pBueffel,eError);