Model 500T8G18
Rev B
55
5.4 SAMPLE PROGRAM FOR IEEE-488 COMMUNICATION
1000 ! ***********************************************
1010 ! * IEEE-488 COMMUNICATIONS SOFTWARE *
1030 ! * 7/24/92 AARON D. McCLURE *
1040 ! ***********************************************
1041 DIM F$[80]
1042 DIM A$[80]
1050 CLEAR SCREEN
1060 INPUT "INPUT COMMAND TO SEND TO POWER SUPPLY. EXIT TO QUIT.",A$
1070 IF A$="EXIT" THEN 1130
1080 OUTPUT 701;A$
1090 IF A$[1,2]<>"RD" THEN GOTO 1060
1095 IF A$[1,1]="*" THEN GOTO 1100
1100 ENTER 701;F$
1110 PRINT "OUTPUT FROM COMMAND ",A$," IS ",F$
1120 GOTO 1060
1130 CLEAR SCREEN
1140 END
Summary of Contents for 10012342
Page 2: ......
Page 4: ......
Page 8: ......
Page 12: ......
Page 20: ......
Page 44: ...Model 500T8G18 30 Rev B ...
Page 48: ...Model 500T8G18 34 Rev B ...
Page 50: ...Model 500T8G18 36 Rev B ...
Page 56: ...Model 500T8G18 42 Rev B ...
Page 70: ...Model 500T8G18 56 Rev B ...
Page 72: ......