User`s manual

46 PCL-848AB User's Manual
420 'Measurement start
430 '
440 ALARM%=0
450 FOR I=0 TO 15
460 D$=”DW0,”+STR$(I)
470 '
480 CALL OUTPUT%(ADDR500%,D$) ‘ Close channel I.
490 FOR K-1 TO 10 : NEXT K ‘ Delay for the relay operation.
500
510 CALL TRIGGER%(ADDR3478%) ‘ Trigger the DVM.
520
530 D$=SPACES(40) 540 CALL ENTER%(ADDR3478%,DS) ‘ Enter DVM reading
550 GOSUB 770 ‘ Error check
560 IF ER%0 THEN PRINT “Error when setting DVM.” : END 570 ‘ 580
V(I)=VAL(D$)
590 PRINT I,V(I),
600 IF V(I)>V.LIMIT THEN PRINT “ALARM1”, : ALARM%=1
610 PRINT
620 NEXT I
630 PRINT
640 IF ALARM%=0 THEN 710
650 D$=”DW1,1" :7
660 CALL OUTPUT%(ADDR500%,D$) ‘ Set the alarm
670 PRINT “Set Alarml” : PRINT
680 GOTO 420
690
700
710 D$=”DW1,0"
720 CALL OUTPUT%(ADDR500%,D$) ‘ Reset the alarm
730 PRINT “Reset Alarmi” : PRINT
740 GOTO 420
750 '
760
770 'Error check routine
780
790 CONDITION%=8
800 CALL STATUS%(CONDITION%,ER%) ‘ Read the error number
810 IF ER%0 THEN PRINT “Error” ER%
820 IF ER%=1 THEN PRINT “ Device timeoutt”
830 RETURN 4
840 '
850'
860 ‘ End of this program