Remote Programming 59
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 !
Figure 6-3. Programming Agilent SAS Functions (continued)