Keithley 6512 Instruction Manual page 152

Example Programs
PRINT #1, "OUTPUT 27;C1Z0N0F0R"; I; "X"
PRINT #1, "OUTPUT 8;R"; I; "Z1O1X"
PRINT #1, "OUTPUT 27;Z1XC0X"
PRINT #1, "OUTPUT 27;N1X"
PRINT #1, "OUTPUT 8;Z0X"
READ V
SLEEP 2
PRINT #1, "OUTPUT 27;A"; V; "X"
SLEEP 2
NEXT I
PRINT #1, "OUTPUT 27;Z0N0R4X"
PRINT #1, "OUTPUT 8;F5O1X"
SLEEP 2
PRINT #1, "OUTPUT 27;A190X"
SLEEP 2 PRINT #1, "OUTPUT 27;C1F2R8X"
PRINT "All volts ranges calibrated."
PRINT #1, "OUTPUT 8;F0R8W1G1X"
BEEP: PRINT "Set 6512 GUARD switch to ON, press a key to continue."
SLEEP PRINT "Continuing..."
FOR I = 8 TO 2 STEP -1
IF I = 7 THEN
BEEP
PRINT "Set 6512 GUARD switch to OFF position."
PRINT "Press any key to continue."
SLEEP
PRINT "Continuing..."
PRINT #1, "OUTPUT 8;W0X"
END IF
PRINT #1, "OUTPUT 8;R"; I; "XZ1O1X"
PRINT #1, "OUTPUT 27;C1Z0N0R"; I; "X"
PRINT #1, "OUTPUT 27;Z1XC0XN1X"
PRINT #1, "OUTPUT 8;Z0X"
SLEEP 7
PRINT #1, "ENTER 8"
INPUT #2, A
PRINT #1, "OUTPUT 27;A"; A; "X"
SLEEP 3
NEXT I
BEEP: PRINT "Ohms ranges calibrated:"
PRINT "20G ohm, 2G ohm, 200M ohm, 20M ohm, 2M ohm, 200k ohm, 20k ohm"
DO WHILE INKEY$ <> "": LOOP
INPUT "Do you wish to permanently store cal constants (Y/N)"; B$
IF B$ = "Y" OR B$ = "y" THEN
PRINT #1, "OUTPUT 27;L1X"
PRINT "If cal jumper is in 'ENABLE' position,"
PRINT "all functions/ranges are permanently calibrated."
CLOSE : END
END IF
PRINT "Cal constants not stored."
PRINT "Altered ranges temporarily calibrated."
CLOSE : END
D-8
' 6512: select volts range.
' 263: select range, output 0V.
' 6512: z. cor. on,z.chk. off.
' 6512: enable suppress.
' 263: output programmed voltage.
' 6512: send cal value.
' 6512: select 200V range.
' 263: source external V.
' 6512: send cal value.
' 6512: Select 20G ohm range.
' 263: 10G ohm range, guard on.
' 263: disable guard.
' 263: output 0 ohms.
' 6512: select range.
' 6512: zero unit.
' 263: source programmed R.
' 263: address to talk.
' 263: request resistance value.
' 6512: send cal value.