Agilent Technologies Water Heater E4350B User Manual

570  ! delete table T1
580  Display_msg("DELETING T1")
590  Output_off
600  OUTPUT 705;"CURR:MODE FIX"      ! exit Table mode
610  OUTPUT 705;"CURR:TABL:NAME "    ! de-activate active table (T1)
620                                  ! space required after :NAME
630  OUTPUT 705;"MEM:TABL:SEL "      ! de-select working table (T1)
640                                  ! space required after :SEL
650  OUTPUT 705;"MEM:DEL T1"         ! delete table T1
660  END
670  !
680  SUB Display_msg(Msg$)
690  OUTPUT 705;"DISP:TEXT ’"&Msg$&"’"
700  OUTPUT 705;"DISP:MODE TEXT"
710  WAIT 2
720  OUTPUT 705;"DISP:MODE NORM"
730  SUBEND
740  !
750  SUB Output_on
760  OUTPUT 705;"OUTP 1"
770  SUBEND
780  !
790  SUB Output_off
800  OUTPUT 705;"OUTP 0"
810  SUBEND
820  !