SERIES
9900
9000
SERIES
GAUSSMETERS
IEEE-488 Demo Program continued
2060
2070
2080
2090
2100
2110
2120
2130
2140
2150
2160
2170
2180
2190
2200
2210
2220
2230
2240
2250
2260
2270
2280
2290
2300
2310
8000
8010
8020
8030
8040
8050
8060
8070
8080
9000
9010
9020
9030
9035
9040
9050
9060
9070
9500
9510
9515 '
9520
9503 '
9540
9550
9560
9570
9580
9590
PRINT "Programming the MODE (GAUSS-DC)"
COMMAND$ = MODE$: GOSUB 9500
IF OUTLEN = INLEN THEN GOSUB 8000 ELSE GOTO 2070
PRINT "Programming the RANGE (30G)"
COMMAND$ = RANGE$: GOSUB 9500
IF OUTLEN = INLEN THEN GOSUB 8000
PRINT "Programming PEAK HOLD (OFF)"
COMMAND$ = PEAK$: GOSUB 9500
IF OUTLEN = INLEN THEN GOSUB 8000
PRINT "Programming DISPLAY FORMAT"
COMMAND$ = DISP$: GOSUB 9500
IF OUTLEN = INLEN THEN GOSUB 8000
==== Take field measurments ====
CLS
PRINT " ": PRINT "TAKING FIELD MEASUREMENTS...PRESS ANY KEY TO QUIT."
IF INKEY$ <> "" THEN 2290
COMMAND$ = MEAS$: GOSUB 9500
IF OUTLEN = INLEN THEN GOSUB 8000 ELSE GOTO 2250
GOTO 2250
PRINT "PLACING GAUSSMETER IN LOCAL MODE."
CMD$ = "LOCAL " + GM$: GOSUB 9070
GOTO 9999
ELSE GOTO 2100
ELSE GOTO 2130
ELSE GOTO 2160
1 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
' Print on screen the command string sent and the response received.
t * * * * • * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * • * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Y r * * * * * * * * * * * * * * * * * * * * * * * * * * I 1
PRINT"GAUSSMETER COMMAND WAS [";
PRINT RIGHT$(COMMAND$,OUTLEN);:PRINTT: PRINT "
PRINT"GAUSSMETER RESPONSE WAS [";
PRINT LEFTCIEEE-488$,INLEN-1);:PRINT"]"
RETURN
'***** METRABYTE IEEE-488 CARD I/O SUBROUTINE
CALL IE488(CMD$,IEEE488$,FLG%,BAO%)
IF FLG% = &H200 THEN 9030
IF FLG% = 0 THEN 9060
BEEP: PRINT "IEEE-488 ERROR = &H";HEX$(FLG%)
RETURN
CALL IE488(CMD$,D%,FLG%,BAO%): GOTO 9040
'***** COMMAND / RESPONSE SUBROUTINE ***"
W A I T FOR GAUSSMETER IEEE-488 BUS TO BE IDLE
CMD$ = "STATUS " + GM$: GOSUB 9070: IF D% <> 0 THEN 9540
CONSTRUCT COMMAND STRING AND SEND TO GAUSSMETER
IEEE488$ = CHR$(27) + COMMAND$ + CHR$(13)
CMD$ = "OUTPUT " + GM$ +
"[$]#":
GOSUB 9000
59
